- Deskripsi Program
Program ini dikerjakan
menggunakan Delphi 7. 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, di dalam form 2 ini dapat
menampung inputan dari masing-masing 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.
- Interface Program
- 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);
varf,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;
|
- Output
1.
Tampilan saat pertama
kali program dijalankan.
2.
Saat salah satu
tombol nama buah di klik, maka akan tampil form 2
3.
Saat penginputan
jumlah beli.
4.
Saat di klik hitung
maka akan masuk ke form selanjutnya untuk menampilkan total harga buah yang di
beli.
5.
Saat tombol kembali
di klik maka akan kembali ke form 2.
6.
Saat tombol kembali
di klik maka akan kembali ke form 1.
0 komentar:
Posting Komentar