I.
Diskripsi Program
Program ini dikerjakan menggunakan delphi7. Program yang dikerjakan
adalah program “Sweety Fruit”. Program ini bertujuan untuk pemesanan buah. Di
dalam program terdapat 6 form, yang masing-masing formnya memiliki fungsi
berbeda-beda. Untuk form 1 sebagai penampilan foto buah yang dijual, form 2
sebagai penginputan barang, didalam form 2 ini dapat menampung inputan dari
masing-masig buah, maksudnya ketika kita klik speedbutton dari nama buah
tersebut, maka secara otomatis di form 2 tersebut akan berubah nama buah sesuai
buah yang kita klik. Untuk form 3,4,5,
dan 6 akan berfungsi jika kita klik hitung pada form 2 maka hasil hitungan akan
keluar di form selanjutnya sesuai dengan buah yang kita inputkan.
II. Interface
III. Code Program
1.
Form
1
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm1.Button1Click(Sender:
TObject);
begin
close;
end;
|
|
SpeedButton1
|
OnClick
|
procedure
TForm1.SStroberiClick(Sender: TObject);
begin
Form2.Panel1.Caption:='Strawberry';
form2.Edit1.Text:='10.000';
form2.Edit2.Clear;
form1.Hide;
form2.Show;
end;
|
|
SpeedButton2
|
OnClick
|
procedure
TForm1.SJerukClick(Sender: TObject);
begin
Form2.Panel1.Caption:='Jeruk';
form2.Edit1.Text:='5.000';
form2.Edit2.Clear;
form1.Hide;
form2.Show;
end;
|
|
SpeedButton3
|
OnClick
|
procedure
TForm1.SAnggurClick(Sender: TObject);
begin
Form2.Panel1.Caption:='Anggur';
form2.Edit1.Text:='30.000';
form2.Edit2.Clear;
form1.Hide;
form2.Show;
end;
|
|
SpeedButton4
|
OnClick
|
procedure
TForm1.SManggaClick(Sender: TObject);
begin
Form2.Panel1.Caption:='Mangga';
form2.Edit1.Text:='9.000';
form2.Edit2.Clear;
form1.Hide;
form2.Show;
end;
|
2.
Form
2
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm2.Button1Click(Sender:
TObject);
var f,d:integer;
begin
if panel1.Caption='Strawberry' then begin
d:=strtoint(form2.Edit2.Text);
f:=10000*d;
form3.Edit1.Text:=inttostr(f);
form2.Hide;
form3.Show; end
else if panel1.Caption='Jeruk' then begin
d:=strtoint(form2.Edit2.Text);
f:=5000*d;
form4.Edit1.Text:=inttostr(f);
form2.Hide;
form4.Show; end
else if panel1.Caption='Anggur' then begin
d:=strtoint(form2.Edit2.Text);
f:=30000*d;
form5.Edit1.Text:=inttostr(f);
form2.Hide;
form5.Show; end
else if panel1.Caption='Mangga' then begin
d:=strtoint(form2.Edit2.Text);
f:=9000*d;
form6.Edit1.Text:=inttostr(f);
form2.Hide;
form6.Show; end;
end;
|
|
Button 2
|
OnClick
|
procedure
TForm2.Button2Click(Sender: TObject);
begin
form2.Close;
form1.Show;
end;
|
3.
Form
3
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm3.Button1Click(Sender:
TObject);
begin
form3.Close;
form2.show;
end;
|
4.
Form
4
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm4.Button1Click(Sender:
TObject);
begin
form4.Close;
form2.show;
end;
|
5.
Form
5
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm5.Button1Click(Sender: TObject);
begin
form5.Close;
form2.show;
end;
|
6.
Form
6
|
Nama
Komponen
|
Event
|
Perintah
|
|
Button1
|
Onclick
|
procedure TForm6.Button1Click(Sender:
TObject);
begin
form6.Close;
form2.show;
end;
|
IV. Output
Tidak ada komentar:
Posting Komentar