RSS

[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;


V.    Output

Gambar 5.1. Tampilan saat program dijalankan


Gambar 5.2. Tampilan saat memilih menu Program


Gambar 5.3. Tampilan saat memilih Submenu Program Kelipatan 10


Gambar 5.4. Tampilan saat memilih Submenu Program Kelipatan 20



 Download Laporan disini dan Program disini

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0
Diposting oleh Rripani

[Tugas Praktikum 5 Pemvis] Tab Additional 2 (Program Media Player Sederhana)

06.44 |

I.         Tujuan Praktikum
Tujuan dari praktikum kali ini adalah untuk dapat mengetahui kegunaan komponen-komponen yang terdapat pada tab Addisional serta dapat memahami kegunaan-kegunaan dari komponen tersebut.

II.      Deskripsi Program
Program Media Player Sederhana
Program ini dibuat dengan menggunakan Delphi 7. Program ini merupakan program pemutar musik sederhana. Pengguna harus memilih terlebih dahulu lagu yang akan diputar kemudian menekan tombol Media Player yang disediakan pada program untuk memainkan lagu yang telah dipilih.  

III.   Interface Program


Gambar 3.1. Interface program beserta nama komponennya

IV.   Coding Program
Nama Komponen
Event
Perintah
Btn1
OnClick
procedure TForm1.btn1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Mp3Path:=OpenDialog1.FileName;
with MediaPlayer1 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
end;
end;
end;
Form1
OnCreate
procedure TForm1.FormCreate(Sender: TObject);
var
  hSysMenu: HMENU;
begin
hSysMenu := GetSystemMenu(Handle, false);
AppendMenu(hSysMenu, MF_SEPARATOR, 0, nil);
AppendMenu(hSysMenu, MF_STRING, INFO, PChar('&Tentang...'));
Tmr1.Enabled := false;
Tmr1.Interval := 250;
a:='Muhammad Ripani - J1F113021     ';

paused:=false;
MediaPlayer1.Enabled:=False;
Form1.Top:=(Screen.Height-Form1.Height)div 2;
Form1.Left:=(Screen.Width-Form1.Width)div 2;
end;
MediaPlayer1
OnClick
procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
  var DoDefault: Boolean);
begin
if Button = btStop then
begin
MediaPlayer1.Position:=0;
end
else if Button = btStep then
begin
if ((MediaPlayer1.Position+5000)<=MediaPlayer1.Length) then
MediaPlayer1.Position:=MediaPlayer1.Position+5000
else
begin
MediaPlayer1.Position:=0;
end;
MediaPlayer1.Play;
end
else if Button = btBack then
begin
if ((MediaPlayer1.Position-5000)>0) then
MediaPlayer1.Position:=MediaPlayer1.Position-5000
else
MediaPlayer1.Position:=0;
MediaPlayer1.Play;
end;
end;
Tmr1
OnTimer
procedure TForm1.tmr1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;
Btn2
OnClick
procedure TForm1.btn2Click(Sender: TObject);
begin
Application.Terminate;
end;

V.    Output

Gambar 5.1. Tampilan awal saat program dijalankan

Gambar 5.2. Tampilan ketika menekan tombol Open File


Gambar 5.3. Tampilan setelah memilih lagu

 Gambar 5.4. Tampilan ketika memutar lagu



Gambar 5.5.Tampilan ketika akan menekan tombol Keluar





Download Program disini dan Laporan disini

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read User's Comments0
Diposting oleh Unknown
Langganan: Komentar (Atom)