Gambar Pohon natal dengan For juga...

[Dhanny]

Eh, iya,
td g liat",
ternyata ada perintah gotoxy n delay
keduanya fungsi yg ada di utilitynya console, yah?

itu dibuat di delphi 6?
soalnya dl g pernah cari" perintah itu
tapi ga ada

[bobby hr'w'n]

waduh gak kepikiran ma gw..peace...

[Anta]

Eh, iya,
td g liat",
ternyata ada perintah gotoxy n delay
keduanya fungsi yg ada di utilitynya console, yah?

itu dibuat di delphi 6?
soalnya dl g pernah cari" perintah itu
tapi ga ada

ada di console.pas pak, itukan fungsi bawaannya si turbo pascal 7 dan udah diilangin pada delphi.
untung saya nemu diinternet buat pengganti itu di console... jadi rada keren, consolenya windows tapi bisa kaya Turbo pascal .
NB: kalo di freepascal ga usah pake console.pas juga enggak masalah karena freepascal udah dukung fungsi2 bawaan turbo pascal dan bawaan delphi

[Dhanny]

ada di console.pas pak, itukan fungsi bawaannya si turbo pascal 7 dan udah diilangin pada delphi.
untung saya nemu diinternet buat pengganti itu di console... jadi rada keren, consolenya windows tapi bisa kaya Turbo pascal .
NB: kalo di freepascal ga usah pake console.pas juga enggak masalah karena freepascal udah dukung fungsi2 bawaan turbo pascal dan bawaan delphi

hooo,
itu plug in?
ato bisa lgs g tambahin di uses?
freepascal sih bener" mirip turbo pascal

[Anta]

hooo,
itu plug in?
ato bisa lgs g tambahin di uses?

ditambahin di uses pak.

[Princess_Veeyaa]

bantuin bikin program pohon natal yg ada salju ny jatuh n jg yg kelap kelip bukan + tp lingkaran kecil gtu...hikzzz....need help...

[fdixxx]

mau bertanya, kalo kita buat program menggunakkan keypressed, jika menggunakan perintah repeat.. until keypressed sebanyak lebih dari satu kali, permasalahannya sewaktu repeat yang pertama kita tekan suatu tombol, otomatis repeat yang kedua langsung terbaca sebagai keypressed...
pertanyaannya adakah perintah untuk menghentikan setelah kita tekan tombol/keypressed...

[Anta]

mau bertanya, kalo kita buat program menggunakkan keypressed, jika menggunakan perintah repeat.. until keypressed sebanyak lebih dari satu kali, permasalahannya sewaktu repeat yang pertama kita tekan suatu tombol, otomatis repeat yang kedua langsung terbaca sebagai keypressed...
pertanyaannya adakah perintah untuk menghentikan setelah kita tekan tombol/keypressed...

ditrap dulu keypressed yang pertama dengan readkey;
karena dalam pemrograman Turbo Pascal jaman dulu biasanya perintah buat input ada 2 cara.
1. pake readln(var);
+ gampang penggunaannya
- musti nungguin dipencet enter dulu baru perintah selanjutnya di eksekusi

2. pake readkey;
+ lebih dinamis, perintah sesudahnya dapat dieksekusi (misalnya update jam, update animasi)
- ribet ngegunainnya

Code: [Select]

var s : string;
     c : char;
s := '';
repeat
  if keypressed then
begin
   c := readkey;
  ... // penanganan khusus navigasi backspace, left, escape, dll
  s := s + c;
end;
.... // disini kita bisa selipin fungsi update jam, update animasi, pokoke ngulang ngulang
until c = #13;

contoh dalam kasus pohon natal, kita mau setting agar kalo tekennya tombol ESC baru keluar dari program, dan jika kita tekan panah kiri atau kanan akan mengurang atau menambah delay

Code: [Select]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Console;


// best fit:
// lebar | jbegitiga
// 11    | 3
// 17    | 4
// 23    | 5
const lebar = 23;
      jbsegitiga = 5;
var a,b,c,cntr,spc,d : integer;
    Ch : Char;
begin
  //      *
  //     * *
  //    *   *
  //   *** ***
  //    *   *
  //   *     *
  //  **** ****
  //   *     *
  //  *       *
  // ***** *****
  //     * *
  //     * *
  //     ***

  // init
  TextBackground(Black);
  TextColor(White);
  randomize;
  ClrScr;
  // spasi buat bintang
  Writeln;
  Writeln;
  Writeln;
  d := 10; // delay 10
  Ch := #0; // inisialisasi kode keyboard awal ASCII 0
  cntr := ((lebar div 2) + (lebar mod 2));
  spc := 1;
  // pucuk
  for b := 1 to cntr-1 do
    write(' ');
  write('*');
  writeln;
  // pohon
  for c := 1 to 3 do
  begin
    for a := 1 to jbsegitiga do
    begin
       for b := 1 to lebar do
        if (b = cntr-spc) or (b = cntr+spc) or
           ((a = jbsegitiga) and (b> cntr-spc) and (b<cntr+spc)
            and (b <> cntr))
          then
          write('*')
        else Write(' ');
        inc(spc);
        writeln;
    end;
    dec(spc,2);
  end;
  // tangkai
    for a := 1 to 4 do
    begin
       for b := 1 to lebar do
        if (b = cntr+1) or (b = cntr-1) or
           ((a = 4) and (b = cntr))
          then
          write('*')
        else Write(' ');
        writeln;
    end;
  a := 0;
  repeat;
    if a = 10 then
    begin
      gotoxy(3,3);TextColor(Random(7)+7);write('+');
      gotoxy(9,2);TextColor(Random(7)+7);write('+');
      gotoxy(6,1);TextColor(Random(7)+7);write('+');
      gotoxy(14,3);TextColor(Random(7)+7);write('+');
      gotoxy(17,2);TextColor(Random(7)+7);write('+');
      gotoxy(20,1);TextColor(Random(7)+7);write('+');
      gotoxy(23,3);TextColor(Random(7)+7);write('+');
      gotoxy(1,24);TextColor(15);write('                        '); // gelapin si tulisan delay
      gotoxy(1,24);TextColor(15);write('Delay ',d); // cetak tulisan delay

      a := 0;
    end;
    inc(a);
    delay(d);
    if KeyPressed then // kalo keyboard keteken
    begin
      ch := ReadKey; // trap kode keyboard dan reset state si keypressed
      case Ch of
        #75 : Dec(d);  // key code tombol kiri
        #77 : Inc(d);  // key code tombol kanan
      end;
      if d < 0 then d := 0;
      if d > 100 then d := 100;
    end;
  until Ch=#27; // key code esc
end.

[Anta]

bantuin bikin program pohon natal yg ada salju ny jatuh n jg yg kelap kelip bukan + tp lingkaran kecil gtu...hikzzz....need help...

lingkaran mah pake huruf o aja.
kalo jatuh ya pake gotoxy + for y := 1 to 25.

[fdixxx]

ditrap dulu keypressed yang pertama dengan readkey;
karena dalam pemrograman Turbo Pascal jaman dulu biasanya perintah buat input ada 2 cara.
1. pake readln(var);
+ gampang penggunaannya
- musti nungguin dipencet enter dulu baru perintah selanjutnya di eksekusi

2. pake readkey;
+ lebih dinamis, perintah sesudahnya dapat dieksekusi (misalnya update jam, update animasi)
- ribet ngegunainnya

Code: [Select]

var s : string;
     c : char;
s := '';
repeat
  if keypressed then
begin
   c := readkey;
  ... // penanganan khusus navigasi backspace, left, escape, dll
  s := s + c;
end;
.... // disini kita bisa selipin fungsi update jam, update animasi, pokoke ngulang ngulang
until c = #13;

contoh dalam kasus pohon natal, kita mau setting agar kalo tekennya tombol ESC baru keluar dari program, dan jika kita tekan panah kiri atau kanan akan mengurang atau menambah delay

Code: [Select]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Console;


// best fit:
// lebar | jbegitiga
// 11    | 3
// 17    | 4
// 23    | 5
const lebar = 23;
      jbsegitiga = 5;
var a,b,c,cntr,spc,d : integer;
    Ch : Char;
begin
  //      *
  //     * *
  //    *   *
  //   *** ***
  //    *   *
  //   *     *
  //  **** ****
  //   *     *
  //  *       *
  // ***** *****
  //     * *
  //     * *
  //     ***

  // init
  TextBackground(Black);
  TextColor(White);
  randomize;
  ClrScr;
  // spasi buat bintang
  Writeln;
  Writeln;
  Writeln;
  d := 10; // delay 10
  Ch := #0; // inisialisasi kode keyboard awal ASCII 0
  cntr := ((lebar div 2) + (lebar mod 2));
  spc := 1;
  // pucuk
  for b := 1 to cntr-1 do
    write(' ');
  write('*');
  writeln;
  // pohon
  for c := 1 to 3 do
  begin
    for a := 1 to jbsegitiga do
    begin
       for b := 1 to lebar do
        if (b = cntr-spc) or (b = cntr+spc) or
           ((a = jbsegitiga) and (b> cntr-spc) and (b<cntr+spc)
            and (b <> cntr))
          then
          write('*')
        else Write(' ');
        inc(spc);
        writeln;
    end;
    dec(spc,2);
  end;
  // tangkai
    for a := 1 to 4 do
    begin
       for b := 1 to lebar do
        if (b = cntr+1) or (b = cntr-1) or
           ((a = 4) and (b = cntr))
          then
          write('*')
        else Write(' ');
        writeln;
    end;
  a := 0;
  repeat;
    if a = 10 then
    begin
      gotoxy(3,3);TextColor(Random(7)+7);write('+');
      gotoxy(9,2);TextColor(Random(7)+7);write('+');
      gotoxy(6,1);TextColor(Random(7)+7);write('+');
      gotoxy(14,3);TextColor(Random(7)+7);write('+');
      gotoxy(17,2);TextColor(Random(7)+7);write('+');
      gotoxy(20,1);TextColor(Random(7)+7);write('+');
      gotoxy(23,3);TextColor(Random(7)+7);write('+');
      gotoxy(1,24);TextColor(15);write('                        '); // gelapin si tulisan delay
      gotoxy(1,24);TextColor(15);write('Delay ',d); // cetak tulisan delay

      a := 0;
    end;
    inc(a);
    delay(d);
    if KeyPressed then // kalo keyboard keteken
    begin
      ch := ReadKey; // trap kode keyboard dan reset state si keypressed
      case Ch of
        #75 : Dec(d);  // key code tombol kiri
        #77 : Inc(d);  // key code tombol kanan
      end;
      if d < 0 then d := 0;
      if d > 100 then d := 100;
    end;
  until Ch=#27; // key code esc
end.

oh jadi hrus pake readkey y tuh buat ngestop perintah si keypressed, ok thx ka anta...

[fdixxx]

iseng buat program panah sakti

Code: [Select]

program panahan;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  console;

procedure panah;
var i, a, d, j : integer;
    habis : boolean;

begin
clrscr;
i := 5;
a := 7;
habis := false;


repeat
 gotoxy(4,7); textcolor(a); write('#');
 gotoxy(4,15); textcolor(a); write('#');
 gotoxy(5,7); textcolor(a); write('#');
 gotoxy(6,7); textcolor(a); write('#');
 gotoxy(7,8); textcolor(a); write('#');
 gotoxy(8,9); textcolor(a); write('#');
 gotoxy(9,10); textcolor(a); write('#');

 gotoxy(9,11); textcolor(a); write('#');

 gotoxy(9,12); textcolor(a); write('#');
 gotoxy(8,13); textcolor(a); write('#');
 gotoxy(7,14); textcolor(a); write('#');
 gotoxy(6,15); textcolor(a); write('#');
 gotoxy(5,15); textcolor(a); write('#');




 if i = 1 then
 begin
 gotoxy(4,8); textcolor(a); write('+');
 gotoxy(5,8); textcolor(a); write(' ');
 end
 else
 begin
 gotoxy(5,8); textcolor(a); write('+');
 end;

 if i <= 2 then
 begin
 gotoxy(i+2,9); textcolor(a); write('+');
 gotoxy(i+3,9); textcolor(a); write(' ');
 end
 else
 begin
  gotoxy(5,9); textcolor(a); write('+');
 end;

 if i <= 4 then
 begin
 gotoxy(i+1,10); textcolor(a); write('+');
 gotoxy(i+2,10); textcolor(a); write(' ');
 end
 else
 begin
 gotoxy(5,10); textcolor(a); write('+');
 end;

 //panah
 gotoxy(i,11); textcolor(a); write('=');
 gotoxy(i+1,11); textcolor(a); write('=');
 gotoxy(i+2,11); textcolor(a); write('=');
 gotoxy(i+3,11); textcolor(a); write('=');
 gotoxy(i+4,11); textcolor(a); write('=');
 gotoxy(i+5,11); textcolor(a); write('=');
 gotoxy(i+6,11); textcolor(a); write('=');
 gotoxy(i+7,11); textcolor(a); write('=');
 gotoxy(i+8,11); textcolor(a); write('=');
 gotoxy(i+9,11); textcolor(a); write('=');
 gotoxy(i+10,11); textcolor(a); write('=');
 gotoxy(i+11,11); textcolor(4); write('@');
 gotoxy(i+12,11); textcolor(a); write(' ');
 gotoxy(i,11); textcolor(a); write('+');
 gotoxy(i+1,11); textcolor(a); write(' ');


 if i <= 4 then
 begin
 gotoxy(i+1,12); textcolor(a); write('+');
 gotoxy(i+2,12); textcolor(a); write(' ');
 end
 else
 begin
 gotoxy(5,12); textcolor(a); write('+');
 end;

 if i <= 2 then
 begin
 gotoxy(i+2,13); textcolor(a); write('+');
 gotoxy(i+3,13); textcolor(a); write(' ');
 end
 else
 begin
 gotoxy(5,13); textcolor(a); write('+');
 end;

 if i = 1 then
 begin
 gotoxy(4,14); textcolor(a); write('+');
 gotoxy(5,14); textcolor(a); write(' ');
 end
 else
 begin
 gotoxy(5,14); textcolor(a); write('+');
 end;


 
 if not habis then
    begin
    d := 50;
    habis := true;
    end
    else d := 0;

 gotoxy(69,7); textcolor(a); write('*'); delay(d);
 gotoxy(70,7); textcolor(a); write('*'); delay(d);
 gotoxy(71,7); textcolor(a); write('*'); delay(d);
 gotoxy(72,8); textcolor(a); write('*'); delay(d);
 gotoxy(73,9); textcolor(a); write('*'); delay(d);
 gotoxy(73,10); textcolor(a); write('*'); delay(d);
 gotoxy(73,11); textcolor(a); write('*'); delay(d);
 gotoxy(73,12); textcolor(a); write('*'); delay(d);
 gotoxy(73,13); textcolor(a); write('*'); delay(d);
 gotoxy(72,14); textcolor(a); write('*'); delay(d);
 gotoxy(71,15); textcolor(a); write('*'); delay(d);
 gotoxy(70,15); textcolor(a); write('*'); delay(d);
 gotoxy(69,15); textcolor(a); write('*'); delay(d);
 gotoxy(68,14); textcolor(a); write('*'); delay(d);
 gotoxy(67,13); textcolor(a); write('*'); delay(d);
 gotoxy(67,12); textcolor(a); write('*'); delay(d);
 gotoxy(67,11); textcolor(a); write('*'); delay(d);
 gotoxy(67,10); textcolor(a); write('*'); delay(d);
 gotoxy(67,9); textcolor(a); write('*'); delay(d);
 gotoxy(68,8); textcolor(a); write('*'); delay(d);

 gotoxy(70,9); textcolor(a); write('*'); delay(d);
 gotoxy(71,10); textcolor(a); write('*'); delay(d);
 gotoxy(71,11); textcolor(a); write('*'); delay(d);
 gotoxy(71,12); textcolor(a); write('*'); delay(d);
 gotoxy(70,13); textcolor(a); write('*'); delay(d);
 gotoxy(69,12); textcolor(a); write('*'); delay(d);
 gotoxy(69,11); textcolor(a); write('*'); delay(d);
 gotoxy(69,10); textcolor(a); write('*'); delay(d);
 gotoxy(70,11); textcolor(4); write('*'); delay(d);

 delay(1000);
 dec(i);
until i = 0;

i := 1;
//panah tembak
repeat
 //panah
 gotoxy(i+1,11); textcolor(a); write('=');
 gotoxy(i+2,11); textcolor(a); write('=');
 gotoxy(i+3,11); textcolor(a); write('=');
 gotoxy(i+4,11); textcolor(a); write('=');
 gotoxy(i+5,11); textcolor(a); write('=');
 gotoxy(i+6,11); textcolor(a); write('=');
 gotoxy(i+7,11); textcolor(a); write('=');
 gotoxy(i+8,11); textcolor(a); write('=');
 gotoxy(i+9,11); textcolor(a); write('=');
 gotoxy(i+10,11); textcolor(a); write('=');
 gotoxy(i+11,11); textcolor(4); write('@');
 gotoxy(i+1,11); textcolor(a); write(' ');

 //busur
 if (i = 2) then
 begin
  gotoxy(i,11); textcolor(a); write('+');
  gotoxy(i-1,11); textcolor(a); write(' ');
  gotoxy(i+1,10); textcolor(a); write('+');
  gotoxy(i, 10); textcolor(a); write(' ');
  gotoxy(i+1,12); textcolor(a); write('+');
  gotoxy(i, 12); textcolor(a); write(' ');
  gotoxy(i+2,9); textcolor(a); write('+');
  gotoxy(i+1,9); textcolor(a); write(' ');
  gotoxy(i+2,13); textcolor(a); write('+');
  gotoxy(i+1,13); textcolor(a); write(' ');
  gotoxy(i+3,8); textcolor(a); write('+');
  gotoxy(i+2,8); textcolor(a); write(' ');
  gotoxy(i+3,14); textcolor(a); write('+');
  gotoxy(i+2,14); textcolor(a); write(' ');
 end;
 if (i = 3) then
 begin
  gotoxy(i,11); textcolor(a); write('+');
  gotoxy(i-1,11); textcolor(a); write(' ');
  gotoxy(i+1,10); textcolor(a); write('+');
  gotoxy(i, 10); textcolor(a); write(' ');
  gotoxy(i+1,12); textcolor(a); write('+');
  gotoxy(i, 12); textcolor(a); write(' ');
  gotoxy(i+2,9); textcolor(a); write('+');
  gotoxy(i+1,9); textcolor(a); write(' ');
  gotoxy(i+2,13); textcolor(a); write('+');
  gotoxy(i+1,13); textcolor(a); write(' ');
 end;
 if (i = 4) then
 begin
  gotoxy(i,11); textcolor(a); write('+');
  gotoxy(i-1,11); textcolor(a); write(' ');
  gotoxy(i+1,10); textcolor(a); write('+');
  gotoxy(i, 10); textcolor(a); write(' ');
  gotoxy(i+1,12); textcolor(a); write('+');
  gotoxy(i, 12); textcolor(a); write(' ');
 end;
 if (i = 5) then
 begin
  gotoxy(i,11); textcolor(a); write('+');
  gotoxy(i-1,11); textcolor(a); write(' ');
 end;
 if (i = 8) then
 begin
  gotoxy(9,11); textcolor(a); write('#');
 end;
 if (i <= 8) then
  j := 500
 else j := 200;
 inc(i);
 delay(j);
until i = 60;

repeat
 gotoxy(69,7); textcolor(random(14)); write('*'); delay(50);
 gotoxy(70,7); textcolor(random(14)); write('*'); delay(50);
 gotoxy(71,7); textcolor(random(14)); write('*'); delay(50);
 gotoxy(72,8); textcolor(random(14)); write('*'); delay(50);
 gotoxy(73,9); textcolor(random(14)); write('*'); delay(50);
 gotoxy(73,10); textcolor(random(14)); write('*'); delay(50);
 gotoxy(73,11); textcolor(random(14)); write('*'); delay(50);
 gotoxy(73,12); textcolor(random(14)); write('*'); delay(50);
 gotoxy(73,13); textcolor(random(14)); write('*'); delay(50);
 gotoxy(72,14); textcolor(random(14)); write('*'); delay(50);
 gotoxy(71,15); textcolor(random(14)); write('*'); delay(50);
 gotoxy(70,15); textcolor(random(14)); write('*'); delay(50);
 gotoxy(69,15); textcolor(random(14)); write('*'); delay(50);
 gotoxy(68,14); textcolor(random(14)); write('*'); delay(50);
 gotoxy(67,13); textcolor(random(14)); write('*'); delay(50);
 gotoxy(67,12); textcolor(random(14)); write('*'); delay(50);

 gotoxy(67,10); textcolor(random(14)); write('*'); delay(50);
 gotoxy(67,9); textcolor(random(14)); write('*'); delay(50);
 gotoxy(68,8); textcolor(random(14)); write('*'); delay(50);

 gotoxy(70,9); textcolor(random(14)); write('*'); delay(50);
 gotoxy(71,10); textcolor(random(14)); write('*'); delay(50);
 gotoxy(71,11); textcolor(random(14)); write('*'); delay(50);
 gotoxy(71,12); textcolor(random(14)); write('*'); delay(50);
 gotoxy(70,13); textcolor(random(14)); write('*'); delay(50);
 gotoxy(69,12); textcolor(random(14)); write('*'); delay(50);

 gotoxy(69,10); textcolor(random(a)); write('*'); delay(50);
 gotoxy(35,10); write('Press any key...!!!');
until keypressed;

end;
begin
panah;
readln;
end.