Logika Percabangan Pada Pemograman Visual

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.

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