Membuat Game Tebak-Tebakan Angka Menggunakan DELPHI ~ Nanda Eri Nugroho

Nah kawan kali ini saya akan membagi ilmu saya mengenai tugas saya yang berhubungan dengan delphi, kali ini saya disuruh membuat game tebak-tebakan angka menggunakan delphi dengan konsep Binary (Biner). Nah sekarang akan saya jelaskan bagaimana membuatnya,silahkan dibaca sambil dipahami atau mungkin bisa kalian praktekan. Begini caranya, Perhatikan dan pahami.

1.Pertama kita buat dulu konsep Binernya, saya buat yang mudah saja dengan 15 digit angka yaitu antara angka 1 sampai dengan 15. Lihat tabel dibawah ini.

16	8	4	2	1
				0		0
				1		1
			1	0		2
			1	1		3
		1	0	0		4
		1	0	1		5
		1	1	0		6
		1	1	1		7
	1	0	0	0		8
	1	0	0	1		9
	1	0	1	0		10
	1	0	1	1		11
	1	1	0	0		12
	1	1	0	1		13
	1	1	1	0		14
	1	1	1	1	15

2. Kemudian kita buka borland Delphinya. Dan mulai membuatnya Tapi sebelumnya kita siapkan dulu komponen-komponenya. Antara lain :
• Label jumlahnya 8
• Panel 2
• Button 3

3.kita mulai membuatnya :
a) Insert panel, kemudian letakan label satu persatu diatas panel. Lihat gambar dibawah.

b) Kemudian kita ubah labelnya menjadi seperti berikut. Caranya adalah dibagian captionnya kita ganti dengan konsep biner diatas (lihat tabelnya lagi). Pilih angka yang ada angka 1 dikolom ke-1 (yaitu 1,3,5,7,9,11,13,15). Satu persatu caption label kita ubah sampai hasilnya seperti gambar ke-2.

c) kemudian kita ubah juga caption panel1 menjadi Halaman 1.

d) Lalu kita tambahkan button (3) dan panel (1).

e) Sama seperti langkah (b) kita ganti caption button yang baru kita tambahkan menjadi (Ya,Tidak,New) seperti gambar dibawah ini, kemudian juga caption panel2 kita rubah menjadi (Hasil) tapi juga panel2 kita rubah juga namenya (PanenHasil).

f) Nah sekarang baru kita masukan kodenya. Pertama adalah kita membuat secara manual kodenya tapi kita tuliskan kodenya dibawah public yaitu :

procedure satu;
procedure dua;
procedure tiga;
procedure empat;
procedure ketentuan;
end;

g) Kemudian juga secara manual didalam var.
hasil : Byte;
y : Byte;

h) Baru sekarang kita masukan kode yang super panjang (juga secara manual) dan dibawah {$R *.dfm}

Kita masukan kode ini :

procedure TForm1.satu;
begin
Panel1.Caption:='Halaman 1';
Label1.Caption:='1';
Label2.Caption:='3';
Label3.Caption:='5';
Label4.Caption:='7';
Label5.Caption:='9';
Label6.Caption:='11';
Label7.Caption:='13';
Label8.Caption:='15';
end;

procedure TForm1.dua;
begin
Panel1.Caption:='Halaman 2';
Label1.Caption:='2';
Label2.Caption:='3';
Label3.Caption:='6';
Label4.Caption:='7';
Label5.Caption:='10';
Label6.Caption:='11';
Label7.Caption:='14';
Label8.Caption:='15';
end;

procedure TForm1.tiga;
begin
Panel1.Caption:='Halaman 3';
Label1.Caption:='4';
Label2.Caption:='5';
Label3.Caption:='6';
Label4.Caption:='7';
Label5.Caption:='12';
Label6.Caption:='13';
Label7.Caption:='14';
Label8.Caption:='15';
end;

procedure TForm1.empat;
begin
Panel1.Caption:='Halaman 4';
Label1.Caption:='8';
Label2.Caption:='9';
Label3.Caption:='10';
Label4.Caption:='11';
Label5.Caption:='12';
Label6.Caption:='13';
Label7.Caption:='14';
Label8.Caption:='15';
end;

procedure TForm1.ketentuan;
begin
if Panel1.Caption='Halaman 1' then dua else
if Panel1.Caption='Halaman 2' then tiga else
if Panel1.Caption='Halaman 3' then empat else
begin
PanelHasil.Visible:=true;
PanelHasil.Caption:=' '+IntToStr(hasil)+' ?';
if hasil=0 then PanelHasil.Caption:='Kok Berhenti?!';
Button1.Enabled:=False;
Button2.Enabled:=False;
end;
end;

i) Baru kita masukan kode di buttonnya.pertam masukan dulu kode dibutton1 (Ya) :
y:=StrToInt(L1.Caption);
hasil:=hasil+y;
Form1.ketentuan;