Buatlah Logika masing-masing :)
buat lah 3 form terlebih dahulu. File --> New --> Form.
Form 1 : Main Menu
Form 2 : - GroupBox
- Label
- Edit
- Memo
- Button
Form 3: - Timer
- Button
- Label
Pada Form 1 :
listing pada Perulangan :
Code Pada timer :
*tampilin form 3*
Exit :
Application.Terminate ;
Pada Form 2:
name ga usah diganti nanti ribet, tapi serah sik
- Group Box : Caption : perulangan
- Label 1 : Caption : Angka Awal
- label 2 : Caption :Angka Akhir
- Edit 1 : Text : (kosongkan)
- Edit 2 : Text : (kosongkan)
- Button1: Caption : For_do
- Button2: Caption : for_downto
- Button3: Caption : Back
Code/Script :
- Button for_do :
procedure TForm2.Button1Click(Sender: TObject);
var a,b,c,d:Integer;
begin
memo1.Clear;
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= a to b do
begin
d :=Sqr(c);
memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' + IntToStr(d));
end;
end;
- Button for_downto do :
procedure TForm2.Button2Click(Sender: TObject);
var a,b,c,d:Integer;
begin
memo1.clear;
a:=StrToInt(Edit1.text);
b:=StrToInt(Edit2.Text);
for c:= b downto a do
begin
d:=Sqr(c);
memo1.Lines.add(IntToStr(c) + ' Kuadrat = ' + IntToStr(d));
end;
end;
- Button Back :
procedure TForm2.Button3Click(Sender: TObject);
begin
form1.show;
form2.hide ;
form3.hide;
end;
end.
Form 3:
- Klik 2x pada Timer :
procedure TForm3.Timer1Timer(Sender: TObject);
begin
label1.Caption:=ini cari sendiri *jangan pake DateToStr yaa* :p
label2.caption:=sama kaya ^^
end;
end.
- Klik 2x pada Button :
procedure TForm3.Button1Click(Sender: TObject);
begin
form1.show;
form2.hide;
form3.Hide;
end;
soal LP
1. apa yang kalian ketahui tentang database pada delphi
2. jelaskan langkah-langkah membuat database pada delphi
muahaha maaf yaa soal LP nya telat bgt, lupa ehehehe maaf nya *o~/ *sungkem satu-satu*
2. jelaskan langkah-langkah membuat database pada delphi
muahaha maaf yaa soal LP nya telat bgt, lupa ehehehe maaf nya *o~/ *sungkem satu-satu*
sb: http://toerzun.blogspot.com/2012/03/program-menu-submenu-perulangan-dan.html
logika nya beda"...tp listing program yg kmarin gpp kan kak?
ReplyDeleteini udah hari rabu kak, gimana ??
ReplyDeleteiya maaf maaf sik -_____- bonus nilai K deh :b
ReplyDeleteaseeek
ReplyDeletedi tagih bonus nilainya hari kamis kak
ReplyDeleteK full 1 kelas,,,
ReplyDeletehehehe
itu Lp jawabannya apa??
ReplyDeleteiya K full sekelas klo sekelas semua nya aktif :b :b
ReplyDelete