MASTER COMPUTER SCIENCE: LAPORAN PEMROGRAMMAN VISUAL "MENU BAR, DIALOG BOX, DAN WEB BROWSER"

LAPORAN PEMROGRAMMAN VISUAL "MENU BAR, DIALOG BOX, DAN WEB BROWSER"

Posted in Label: ILKOM, PASCAL, PEMVIS | di 17.25

Assalamualaikum wr.wb

Dalam posting kali,saya akan membagikan program delphi yang telah diselesaikan untuk memenuhi praktikum 2 (MENU BAR, DIALOG BOX, DAN WEB BROWSER) Pemrograman Visual, Prodi Ilmu Komputer Universitas Lambung Mangkurat. Asisten praktikum ini adalah Ka Wenie Hardianti dan Ka Anis Fairizza.

Pada pembahasan minggu ini, akan dibahas dua buah komponen yang sangat sering sekali digunakan pada setiap pemrogramana visual, dan pembahasan cara pembuatan web browser sederhana dengan menggunakan Delphi. Program yang saya share kali ini adalah program web browser bernama xsanbrowser v.0.1.

I. Deskripsi Program

Program yang saya buat pada praktikum kali ini yaitu program xsanbrowser v.0.1. Program ini merupakan program web browser yang dibuat untuk mempermudah seseorang untuk melakukan browsing internet. Untuk menjalankan program ini, pertama-tama pengguna harus koneksi ke internet dulu, lalu setelah itu kita buka xsanbrowsernya. Setelah itu masukan alamat web yang kita inginkan lalu klik “GO” Untuk menjelajah

II. Interface Program

III. Coding Program

Nama Komponen	Event	Perintah
Button1	Onclick	procedure TForm2.Button1Click(Sender: TObject); begin form2.WebBrowser1.GoBack; end;
Button2	Onclick	procedure TForm2.Button2Click(Sender: TObject); begin form2.WebBrowser1.GoForward; end;
Button3	Onclick	procedure TForm2.Button3Click(Sender: TObject); begin form2.WebBrowser1.GoHome; end;
Button4		procedure TForm2.Button4Click(Sender: TObject); begin form2.WebBrowser1.Navigate(edit1.Text); end;
Button5		procedure TForm2.Button5Click(Sender: TObject); begin form2.WebBrowser1.Refresh; end;
Button6	On click	procedure TForm2.Button6Click(Sender: TObject); begin webbrowser1.Stop; end;
Form2	Form create	procedure TForm2.FormCreate(Sender: TObject); begin WebBrowser1.Navigate('www.google.com'); end;
Edit1	Key press	procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key = #13 then webbrowser1.Navigate(edit1.Text); end;
Web browser1	BeforeNavigate2	procedure TForm2.WebBrowser1BeforeNavigate2(ASender: TObject; const pDisp: IDispatch; const URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); begin label2.Caption := 'Loading...' end;
Web browser1	CommandStateChange	procedure TForm2.WebBrowser1CommandStateChange(ASender: TObject; Command: Integer; Enable: WordBool); begin case Command of CSC_NAVIGATEBACK : begin button1.Enabled := Enable; end; CSC_NAVIGATEFORWARD : begin button2.Enabled := Enable; end; end; end;
Web browser1	NavigateComplete2	procedure TForm2.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); begin label2.Caption := 'Selesai' end;
Web browser1	ProgressChange	procedure TForm2.WebBrowser1ProgressChange(ASender: TObject; Progress, ProgressMax: Integer); begin if Progress>0 then begin ProgressBar1.Max:= ProgressMax ; ProgressBar1.Position := Progress; end else ProgressBar1.Position:= 0 ; edit1.Text := webbrowser1.LocationURL ; end;