Senin, 01 Desember 2014

Laporan Pemvis Web Browser



I.              Deskripsi Program
Program ini memiliki 2 kegunaan , yaitu untuk sebgai memo dengan karakteristik font yang dapat diubah. Dan juga sebagai webbrowser untuk masuk ke 4 situs yaitu google,facebook,yahoo dan twitter. Program ini terletak pada pagecontrol yang terbagi menjadi 2 tab.
Ketika program dijalankan maka kita akan masuk ke tab pertama yaitu terdapat memo1 yang tulisannya dapat diubah karakternya sesuai keinginan kita baik itu jenis font,warna maupun ukuran font. Coding perintah ini terdapat pada bitbtn1 yang bertuliskan retry. Pada tab kedua kita akan masuk ke webbrowser yang didalamnya kita dapat memilih web mana yang akan dijelajahi sesuai speedbutton yang terdapat pada program tersebut.

II.           Interface Program 



III.        Coding Program
Nama Komponen
          Event
Perintah



Bitbtn1



onclick
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if FontDialog1.Execute = True then
Memo1.Font := FontDialog1.Font;
end;



Speedbutton1



On click
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WEBBROWSER1.Navigate('www.google.com');
end;



Speedbutton2



Onclick
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
webbrowser1.Navigate('www.facebook.com');
end;



Speedbutton3



Onclick
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
webbrowser1.Navigate('www.yahoo.com');
end;



Speedbutton4
    


onclick
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
webbrowser1.Navigate('www.twitter.com');
end;

Categories:

0 komentar:

Posting Komentar