I. Diskripsi Program
Program
ini dikerjakan dengan menggunakan Delphi7. Program ini adalah Perhitungan Harga
Tiket Pesawat. Cara kerja program ini adalahmula-mula kita memilih tujuan
kemana kita pergi, setelah itu kita menginputan berapa total penumpang yang
akan pergi. Setelah semua nya terisi, maka langsung saja mengklik tombol button
“ CEK” maka akan keluar secara otomatis harga tiket, dan totalnya.
II. Interface
III. Output
1. Saat pertama kali program dijalankan.
2. Saat peninputan Data jurusan dan jumlah penumpang.
3. Saat tombol button"cek" diplih maka hasil harga dan total akan kelihatan.
4. Tampilan Saat tombol button " Hapus" dijalankan , maka semua data akanterhapus.
Pink Code Source
Sabtu, 29 November 2014
Tab Additional 2 - Animasi Teks
Deskripsi Program
Program ini
dikerjakan menggunakan delphi7. Dalam program ini dibuat 2 buah animasi kata yaitu
kata yang dapat berkedip dan kata yang dapat berjalan. Dengan menggunakan timer
yang terdapat pada tab system maka kedua kata tersebut dapat beranimasi.
Interface
Code program
Nama
Komponen
|
Event
|
Perintah
|
Form 1
|
OnCreate
|
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
timer2.Enabled:=false;
button1.Caption:='Berkedip';
button2.Caption:='Bergerak';
end;
|
Timer 1
|
OnTimer
|
procedure TForm1.Timer1Timer(Sender:
TObject);
begin
if
label2.Visible then label2.Visible:=false
else
label2.Visible:=true;
end;
|
Timer 2
|
OnTimer
|
procedure TForm1.Timer2Timer(Sender:
TObject);
begin
if label2.Left>112 then b:=1
else if label2.Left<17 then b:=0;
if b=0 then label2.Left:=label2.Left+1
else label2.left:=label2.Left-1;
end;
|
Button 1
|
OnClick
|
procedure TForm1.Button1Click(Sender:
TObject);
begin
if button1.caption='Berkedip' then
begin
label2.Caption:=edit1.Text;
timer1.Enabled:=true;
button1.Caption:='Stop';
end
else if button1.Caption='Stop' then
formcreate(sender);
end;
|
Button2
|
OnClick
|
procedure TForm1.Button2Click(Sender:
TObject);
begin
if button2.caption='Bergerak' then
begin
label2.Caption:=edit1.Text;
timer2.Enabled:=true;
button2.Caption:='Stop';
end
else if button2.Caption='Stop' then
formcreate(sender);
end;
|
Output
1. saat pertama kali dijalankan.
2. Saat penginputan teks.Contoh program menu bar, dialog box, dan web browser
- Deskripsi Program
Program ini adalah
program “WEB BROWSER” yang menggunakan menu bar didalamnya. Saat pertama kali
program ini dijalankan maka akan tampil google.com sebagai tampilan awal. Program
ini menggunakan menu bar yang berisi New, Open, Save, Print dan Close pada menu
File; Stop, Refresh dan Find pada menu View; serta About pada menu Help. Selain
itu, program ini juga menggunakan 11 tombol dengan fungsi yang berbeda di
setiap tombolnya.
- Interface Program
- Code Program
Nama
Komponen
|
Event
|
Perintah
|
New1
|
OnClick
|
procedure
TForm1.New1Click(Sender: TObject);
begin
webbrowser1.Navigate('www.google.com');
end;
|
Open1
|
OnClick
|
procedure
TForm1.Open1Click(Sender: TObject);
begin
if
opendialog1.Execute=true then
webbrowser1.Navigate(opendialog1.FileName);
end;
|
Save1
|
OnClick
|
procedure
TForm1.Save1Click(Sender: TObject);
begin
if
savedialog1.Execute=true then
webbrowser1.Navigate(savedialog1.FileName);
end;
|
Print1
|
OnClick
|
procedure
TForm1.Print1Click(Sender: TObject);
begin
if
printdialog1.Execute=true then
webbrowser1.action;
end;
|
Close1
|
OnClick
|
procedure
TForm1.Close1Click(Sender: TObject);
begin
application.Terminate;
end;
|
Stop1
|
OnClick
|
procedure
TForm1.Stop1Click(Sender: TObject);
begin
webbrowser1.Stop;
end;
|
Refresh1
|
OnClick
|
procedure
TForm1.Refresh1Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;
|
Find1
|
OnClick
|
procedure
TForm1.Find1Click(Sender: TObject);
begin
if
finddialog1.Execute=true then
webbrowser1.Navigate(finddialog1.FindText);
end;
|
About1
|
OnClick
|
procedure
TForm1.About1Click(Sender: TObject);
begin
showmessage('Web
Browser Versi 24.04.14');
end;
|
Button1
|
OnClick
|
procedure
TForm1.BitBtn1Click(Sender: TObject);
begin
webbrowser1.GoBack;
end;
|
Button2
|
OnClick
|
procedure
TForm1.BitBtn2Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;
|
Button3
|
OnClick
|
procedure
TForm1.BitBtn3Click(Sender: TObject);
begin
webbrowser1.Navigate('www.google.com');
edit1.Text:='www.google.com';
end;
|
Button4
|
OnClick
|
procedure
TForm1.BitBtn4Click(Sender: TObject);
begin
webbrowser1.Stop;
end;
|
Button5
|
OnClick
|
procedure
TForm1.BitBtn5Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;
|
Button6
|
OnClick
|
procedure
TForm1.BitBtn6Click(Sender: TObject);
begin
webbrowser1.Navigate('www.google.com');
end;
|
Button7
|
OnClick
|
procedure
TForm1.BitBtn7Click(Sender: TObject);
begin
if
opendialog1.Execute=true then
webbrowser1.Navigate(opendialog1.FileName);
end;
|
Button8
|
OnClick
|
procedure
TForm1.BitBtn8Click(Sender: TObject);
begin
if
savedialog1.Execute=true then
webbrowser1.Navigate(savedialog1.FileName);
end;
|
Button9
|
OnClick
|
procedure
TForm1.BitBtn9Click(Sender: TObject);
begin
if
finddialog1.Execute=true then
webbrowser1.Navigate(finddialog1.FindText);
end;
|
Button10
|
OnClick
|
procedure
TForm1.BitBtn10Click(Sender: TObject);
begin
if printdialog1.Execute=true
then
webbrowser1.action;
end;
|
Button11
|
OnClick
|
procedure
TForm1.BitBtn11Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
end;
|
Form1
|
OnCreate
|
procedure
TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.Navigate('www.google.com');
end;
|
Webbrowser1
|
OnCommandStateChange
|
procedure
TForm1.WebBrowser1CommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
begin
edit1.Text:=webbrowser1.LocationURL;
case Command of
CSC_NAVIGATEBACK :
begin
bitbtn1.Enabled :=
Enable;
end;
CSC_NAVIGATEFORWARD
:
begin
bitbtn2.Enabled :=
Enable;
end;end;end;
|
- Output
Langganan:
Postingan (Atom)