بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
Oke langsung saja, buatlah Form di project kalian masisng-masing seperti gambar di bawah ini:
Dalam Form Di atas terdapat:
4 GroupBox
11 Label
10 EditText
6 Button
3 Memo (kalau yang ini bisa diganti dengan ListBox)
Pada Tombol IF-ELSE, masukkan coding seperti di bawah ini:
procedure TForm1.Button2Click(Sender: TObject);
var
A : Integer;
begin
A := StrToInt (Edit1.Text);
Edit2.Text := ' ';
Edit3.Text := ' ';
if A < 50 then
begin
Edit2.Text := 'Gagal';
Edit3.Text := 'E';
end
else if A < 65 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'D';
end
else if A < 75 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'C';
end
else if A < 85 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'B';
end
else if A <= 100 then
begin
Edit2.Text := 'Lulus';
Edit3.Text := 'A';
end
else
begin
Edit2.Text := 'Salah Input';
Edit3.Text := 'Ulangi Lagi';
end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
B, C : Integer;
begin
B:= StrToInt(Edit4.text);
C:= StrToInt(Edit5.Text);
begin
case B of
1: Edit6.Text := 'Pecel Ayam dan ';
2: Edit6.Text := 'Ayam Bakar dan ';
3: Edit6.Text := 'Ayam Krispy dan ';
end;
case C of
4: Edit6.Text := Edit6.Text + 'Es Teh Manis';
5: Edit6.Text := Edit6.Text + 'Es Jeruk';
6: Edit6.Text := Edit6.Text + 'Es Cappucino';
end;
end;
end;
Pada button While-Do, masukkan coding seperti dibawah ini :
procedure TForm1.Button3Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
F:=1;
while F <> StrToInt(Edit8.Text) do
begin
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
F:= F+1;
end;
end;
Pada button Repeat-Until, masukkan coding seperti di bawah ini :
procedure TForm1.Button4Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
F:=1;
repeat
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
F:= F+1;
E:= E+1;
until F = StrToInt(Edit8.Text)
end;
Pada bagian button For-Do, masukkan coding seperti di bawah ini :
procedure TForm1.Button5Click(Sender: TObject);
var
E, F : Integer;
begin
Memo1.clear;
E:= StrToInt (Edit7.Text);
for F := 1 to StrToInt(Edit8.Text) do
begin
Memo1.Lines.Add('Perulangan ke-'+IntToStr(F)+' = '+IntToStr(E));
E:= E+1;
end;
end;
Pada bagian button Proses Array, masukkan coding seperti dibawah ini :
procedure TForm1.Button6Click(Sender: TObject);
var
Data : array of array of integer;
Baris, Kolom : Word;
begin
SetLength(Data, StrToInt(Edit9.Text), //Panjang Dimensi 1
StrToInt (Edit10.Text)); //Panjang Dimensi 2
for Baris := 0 to StrToInt (Edit9.Text) - 1 do
for Kolom := 0 to StrToInt (Edit10.Text) - 1 do
Data[Baris, Kolom] := Baris + Kolom;
Memo2.Clear;
for Baris := 0 to StrToInt (Edit9.Text) - 1 do
for Kolom := 0 to StrToInt (Edit10.Text) - 1 do
Memo2.Lines.Add('['+ IntToStr(Baris) + ','+ IntToStr(Kolom)+'] = '+IntToStr(Data[Baris,Kolom]));
end;
end.
catatan:
Untuk Memo bisa diganti dengan Listbox, dan sesuaikan dengan codingnya..
Coba jalankan, bila masih error, silahkan komentar saja di postingan ini...
Selamat Mencoba dan Semoga Bermanfaat ^^
Judul Buku : Panduan Lengkap memakai Adobe Photoshop CS (44 hal)
Judul Buku : Panduan Lengkap memakai Adobe Photoshop CS (44 hal)
Judul Buku : Chip Special Networking (122 hal)
![[3.JPG]](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEglJwyBrynAVF5amUkL8aA_ZdCKx_n9zj6qs_YGlNiUxLuVwM43a9-VFct6pOYyjVd_6WUAJkxlOIeM3ONY25t69jNu_pYJPqDIUpNiNUocb0_40zZX7SaMnhDvQlS3JAP8oEBz-tC1WYav/s1600/3.JPG)
