Listing ini untuk pilihan pada Combo Box...?
Private Sub cmbkmk_Click()
If cmbkmk.Text = "KM THR" Then
namakomik.Text = "KOMIK THOR"
hargakomik.Text = "35000"
Else
If cmbkmk.Text = "KM IRM" Then
namakomik.Text = "KOMIK IRONMAN"
hargakomik.Text = "40000"
Else
If cmbkmk.Text = "KM AVG" Then
namakomik.Text = "KOMIK AVENGER"
hargakomik.Text = "45000"
Else
If cmbkmk.Text = "KM SPM" Then
namakomik.Text = "KOMIK SUPERMAN 2"
hargakomik.Text = "30000"
End If
End If
End If
End If
End Sub
Listing Ini Untuk Menampilkan Total Harga pada text box di Total Harga
Private Sub Command1_Click()
total.Text = Val(hargakomik.Text) * Val(jumbel.Text)
End Sub
Listing ini untuk menghitung Uang Kembali. Pada text box Uang Kembali
Private Sub Command2_Click()
ukem.Text = Val(ubay.Text) - Val(total.Text)
End Sub
Listing Ini di Tulis Pada Tombol Input Lagi
Private Sub Command3_Click()
Form_Activate
Listing Ini Di Tulis Pada Tombol Keluar
Private Sub Command4_Click()
p = MsgBox("Yakin Mau Keluar dari form Ini", vbQuestion + vbOKCancel, ".::Info::.")
If p = vbOK Then
Unload Me
Else
MsgBox "Ga Jadi duech", 0, "info"
End If
End Sub
Listing Form ini Di panggil Pada Penulisan Script
Di Tombol Input Lagi
Private Sub Form_Activate()
cmbkmk.Text = "-- PILIH --"
namakomik.Text = ""
hargakomik.Text = ""
jumbel.Text = ""
total.Text = ""
ubay.Text = ""
ukem.Text = ""
End Sub
Listing Ini Di Tulis Sebagai Pemanggilan
Pada Combo Box Kode Komik
Private Sub Form_Load()
cmbkmk.AddItem "KM THR"
cmbkmk.AddItem "KM IRM"
cmbkmk.AddItem "KM AVG"
cmbkmk.AddItem "KM SPM"
End Sub
Listing Ini Adalah Format Api Yang akan membuat tulisan berjalan
tulisan berkedip
Private Sub Timer1_Timer()
If Label8.ForeColor = vbRed Then
Label8.ForeColor = vbBlue
ElseIf Label8.ForeColor = vbBlue Then
Label8.ForeColor = vbMagenta
ElseIf Label8.ForeColor = vbGreen Then
Else
Label8.ForeColor = vbRed
End If
Label13.Caption = Time
Label12.Caption = Format(Date, "dd - mmm - yyyy")
Label15.Caption = Right(Label15.Caption, Len(Label15.Caption) - 1) & Left(Label15.Caption, 1)
End Sub
Contoh Program Ketika Di Jalankan
.....................:::::::: SEMOGA BERMANFAAT:::::::::::::.....................................
.jpg)
