[Tugas Praktikum 6 Pemvis] Menu Bar, Dialog Box dan Web Browser (Program Submenu Perhitungan Kelipatan 10 dan 20 )

13.03 |

I. Tujuan Praktikum

Tujuan dari praktikum kali ini adalah agar praktikan dapat memanfaatkan dan memahami fungsi penggunaan menu bar, tab dialog, dan web browser.

II. Deskripsi Program

Program Submenu Perhitungan Kelipatan 10 dan 20

Program ini dibuat dengan menggunakan Delphi 7. Program ini menyediakan menu program yang terdapat submenu perhitungan kelipatan 10 dan perhitungan kelipatan 20. Ketika pengguna program memilih submenu perhitungan kelipatan 10 maka program akan mengarah pada program untuk perhitungan kelipatan 10. Selain menu program juga terdapat menu keluar yang berguna untuk keluar program. Program ini juga dilengkapi dengan tambahan ShortCut pada menu yang disediakan.

III. Interface Program

Gambar 3.1. Interface program beserta nama komponennya

Gambar 3.2. Interface pada Menu (komponen mm1)

Gambar 3.3. Interface pada komponen Pm1

Gambar 3.4. Tampilan pada Program Kelipatan 10

Gambar 3.5. Tampilan pada Program Kelipatan 20

IV. Coding Program

Nama Komponen	Event	Perintah
Keluar2	OnClick	procedure TForm1.Keluar2Click(Sender: TObject); begin Application.Terminate; end;
Kelipatan101	OnClick	procedure TForm1.Kelipatan101Click(Sender: TObject); begin form2.showmodal; end;
Keluar3	OnClick	procedure TForm1.Keluar3Click(Sender: TObject); begin Application.Terminate; end;
N1	OnClick	procedure TForm1.N1Click(Sender: TObject); begin form4.ShowModal; end;
Keluar4	OnClick	procedure TForm1.Keluar4Click(Sender: TObject); begin Application.Terminate; end;
Tmr1	OnTimer	procedure TForm2.tmr1Timer(Sender: TObject); begin if lbl4.Visible = True then lbl4.Visible :=False else lbl4.Visible:=True; end;
BtnBtn1	OnClick	procedure TForm2.btnBtn1Click(Sender: TObject); var atas,bawah:integer; begin bawah:=strtoint(edt1.Text); atas:=strtoint(edt2.Text); repeat if bawah mod 10=0 then begin mmo.Lines.Append(inttostr(bawah)); bawah:=bawah+10; end else bawah:=bawah+1; until bawah>atas; end;
BtnBtn1	OnClick	procedure TForm4.btnBtn1Click(Sender: TObject); var atas,bawah:integer; begin bawah:=strtoint(edt1.Text); atas:=strtoint(edt2.Text); repeat if bawah mod 20=0 then begin mmo.Lines.Append(inttostr(bawah)); bawah:=bawah+20; end else bawah:=bawah+1; until bawah>atas; end;