Contoh Makalah Program Visual Basic


Contoh Makalah Program Visual Basic :

Nama              : Irvan Muharrom
Nim                 : 12103335
Kelas               : 12.3A.07
No Absen       : 21


Ketentuan Soal :
  1. Pada saat program dijalankan semua object dalam keadaan bersih,dan kursor berada di Nama Penumpang, lalu input Nama Penumpang dan Alamat Penumpang secara manual.
  2. Untuk menampilkan Nama Pesawat, kursor berada di Nama Pesawat, bila diklik akan tampil seperti di bawah ini :     
Nama Pesawat
Garuda
Lion Air
Batavia Air
  



           





3.      Untuk mengetahui tujuan
Tujuan
Jakarta-Bali
Jakarta-Batam
Jakarta-Papua
                          





4.      Input jumlah beli lalu klik tombol Hitung, maka total bayar akan tampil berdasarkan perhitungan.
Harga * Jumlah Beli = Total Bayar
5.      Input Uang Bayar maka Uang Kembali akan tampil secara otomatis.
6.      Jika tombol Bersih diklik maka semua object dalam keadaan bersih.
7.      Klik tombol Keluar maka akan tampil message seperti di bawah ini :

                             
Properties :

Object
Properties
Value
Label 1
Caption
Penjualan Tiket Pesawat
Label 2
Caption
Tanggal
Label 3
Caption
Jam
Label 4
Caption
Nama Penumpang
Label 5
Caption
Alamat
Label 6
Caption
Jenis Kelamin
Label 7
Caption
Nama Pesawat
Label 8
Caption
Tujuan
Label 9
Caption
Harga Tiket
Label 10
Caption
Total Bayar
Label 11
Caption
Uang Bayar
Label 12
Caption
Uang Kembali
Label 13
Name
Lbltgl
Label 14
Name
Lbljam
Option Button 1
Name
Optlaki
Option Button 2
Name
Optperempuan
Text Box 1
Name
Txtnama
Text Box 2
Name
Txtalamat
Text Box 3
Name
Txtharga
Text Box 4
Name
Txttobay
Text Box 5
Name
Txtubay
Text Box 6
Name
Txtukem
Frame 1
Caption
Data Penumpang
Frame 2
Caption
Data Pembayaran
Combo Box 1
Name
Cmbpesawat
List Box 1
Name
Ltujuan
Command Button 1
Name
Cmdbersih

Caption
Bersih
Command Button 2
Name
Cmdhitung

Caption
Hitung
Command Button 3
Name
Cmdkeluar

Caption
Keluar






List Coding :

Private Sub cmdbersih_Click()
For Each x In Me
If TypeName(x) = "TextBox" Then
x.Text = ""
ElseIf TypeName(x) = "ComboBox" Then
x.Text = ""
ElseIf TypeName(x) = "OptionButton" Then
x.Value = False
End If
ltujuan.ListIndex = -1
txtukem.Text = ""
Next
End Sub


Private Sub cmdhitung_Click()
txttobay.Text = Val(txtjumbel.Text) * Val(txtharga.Text)
End Sub


Private Sub cmdkeluar_Click()
If MsgBox("Yakin Anda Ingin Keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then
Unload Me
End If
End Sub


Private Sub Form_Load()
cmbpesawat.AddItem "Garuda"
cmbpesawat.AddItem "Lion Air"
cmbpesawat.AddItem "Batavia Air"
ltujuan.AddItem "Jakarta-Bali"
ltujuan.AddItem "Jakarta-Batam"
ltujuan.AddItem "Jakarta-Papua"
End Sub

Private Sub ltujuan_Click()
If cmbpesawat.Text = "Garuda" Then
  If ltujuan.ListIndex = 0 Then
     txtharga.Text = "1000000"
  ElseIf ltujuan.ListIndex = 1 Then
     txtharga.Text = "700000"
  Else
     txtharga.Text = "2000000"
  End If
ElseIf cmbpesawat.Text = "Lion Air" Then
  If ltujuan.ListIndex = 0 Then
     txtharga.Text = "900000"
  ElseIf ltujuan.ListIndex = 1 Then
     txtharga.Text = "600000"
  Else
     txtharga.Text = "1800000"
  End If
Else
  If ltujuan.ListIndex = 0 Then
     txtharga.Text = "750000"
  ElseIf ltujuan.ListIndex = 1 Then
     txtharga.Text = "500000"
  Else
     txtharga.Text = "1500000"
  End If
End If
End Sub


Private Sub Timer1_Timer()
lbltgl.Caption = Format(Date, "dddd - mmmm - yyyy")
lbljam.Caption = Format(Time, "hh:mm:ss")
End Sub


Private Sub txtubay_Change()
txtukem.Text = Val(txtubay.Text) - Val(txttobay.Text)
End Sub

0 komentar:

Post a Comment

My Blog List

Total Pageviews

Followers

Popular Posts

Follow by Email