Praktikum Pertemuan 6 Menu Bar, Dialog Box, dan Web Browser

PERTEMUAN KE – VI

Menu Bar, Dialog Box, dan Web Browser

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

I.             Deskripsi Program

Program di bawah ini adalah program web browser sederhana dengan tampilan yang sederhana pula, yaitu terdapat image, combobox dan web browser. Dan jika dijalankan dan pada saat connect internet akan dapat browsing.

II.         
Interface Program

III. Coding Program

Nama Komponen	Event	Perintah
Image4	OnClick	procedure TForm1.Image4Click(Sender: TObject); begin WebBrowser1.Navigate(ComboBox1.Text); ComboBox1.Items.Add(ComboBox1.Text) end;
Image3	OnClick	procedure TForm1.Image3Click(Sender: TObject); begin WebBrowser1.Stop; end;
Image5	OnClick	procedure TForm1.Image5Click(Sender: TObject); begin WebBrowser1.Refresh; end;
Image1	OnClick	procedure TForm1.Image1Click(Sender: TObject); begin WebBrowser1.GoBack; end;
Image2	OnClick	procedure TForm1.Image2Click(Sender: TObject); begin WebBrowser1.GoForward; end;

I.             Interface Program

II.    Coding Program

Nama Komponen	Event	Perintah
Exit1	OnClik	procedure TForm1.Exit1Click(Sender: TObject); begin  close; end;
New1	OnClik	procedure TForm1.New1Click(Sender: TObject); begin  memo1.Clear; end;
Open1	OnClik	procedure TForm1.Open1Click(Sender: TObject); begin if OpenDialog1.Execute=true then  Memo1.Lines.LoadFromFile(OpenDialog1.FileName); end;
Save1	OnClik	procedure TForm1.Save1Click(Sender: TObject); begin if SaveDialog1.Execute=true then  Memo1.Lines.SaveToFile(SaveDialog1.FileName); end;
Copy1	OnClik	procedure TForm1.Copy1Click(Sender: TObject); begin  Memo1.CopyToClipboard; end;
Cut1	OnClik	procedure TForm1.Cut1Click(Sender: TObject); begin  Memo1.CutToClipboard; end;
Paste1	OnClik	procedure TForm1.Paste1Click(Sender: TObject); begin  Memo1.PasteFromClipboard; end;
SelectAll1	OnClik	procedure TForm1.SelectAll1Click(Sender: TObject); begin  Memo1.SelectAll; end;
FontSize1	OnClik	procedure TForm1.FontSize1Click(Sender: TObject); begin  if FontDialog1.Execute=true then   Memo1.Font:=FontDialog1.Font; end;
FontType1	OnClik	procedure TForm1.FontType1Click(Sender: TObject); begin  if FontDialog1.Execute=true then   Memo1.Font:=FontDialog1.Font; end;
FontClolor1	OnClik	procedure TForm1.FontClolor1Click(Sender: TObject); begin  if FontDialog1.Execute=true then   Memo1.Font:=FontDialog1.Font; end;

Praktikum Pertemuan 3 Logika Perulangan

PERTEMUAN KE – III

Logika Perulangan

Nama   : Avila Marlini

NIM    : J1F111245

FAKULTAS MATEMATIKA DAN ILMU PENGETAHUAN ALAM

UNIVERSITAS LAMBUNG MANGKURAT

PROGRAM STUDI S-1 ILMU KOMPUTER

BANJARBARU

2014

 I.             Tujuan Praktikum

Tujuan dari praktikum yang berjudul ”Logika Perulangan” ini adalah untuk mempelajari alternatif perulangan yang sering digunakan dalam perulangan program delphi. Selain itu dengan praktikum ini dapat menyelesaikan masalah dalam melakukan proses perulangan yang lebih dari satu kali.

II.          Deskripsi Program

Program dengan menggunakan perulanngan yang dibuat adalah program yang memuat dua buah perulangan yaitu perulangan for to do dan for downto do, yaitu dengan menginputkan nilai batas awal dan batas akhir dan setelah di [enter] maka akam muncul pada ComboBox hasil perulangan. Jika batas awal lebih kecil dibanding batas akhir maka perulangan yang digunakan adalah for to do sedangankan jika lebih besar batas akhir maka menggunakan perulangan for downto do.

III.         Interface Program

 IV.       Coding Program

Nama Komponen	Event	Perintah
ComboBox1	OnEnter	procedure TForm1.ComboBox1Enter(Sender: TObject); var   i,a,b:integer; begin a:=strtoint(edit1.Text); b:=strtoint(edit2.Text); if a < b then begin comboBox1.Clear;  for i:= a to b do  begin  comboBox1.Items.Add(inttostr(i));   end; end else if a > b then begin comboBox1.Clear;  for i:= a downto b do  begin  comboBox1.Items.Add(inttostr(i));  end; end; end;