Wednesday, 6 April 2011
Private Sub brsh_Click()
a = MsgBox("yakin mau di bersihkan?", vbOKCancel, "info")
If a = vbOK Then
kobar.Text = "input kode"
nabar.Text = " "
habar.Text = " "
jumbel.Text = " "
pajak.Text = " "
tobar.Text = " "
bonus.Text = " "
kobar.SetFocus
End If
End Sub
Private Sub Form_Load()
kobar.AddItem ("A001")
kobar.AddItem ("A002")
kobar.AddItem ("A003")
kobar.AddItem ("A004")
End Sub
Private Sub habar_Click()
pajak.Text = Val(habar.Text) * 0.1 * Val(jumbel.Text)
tobar.Text = Val(habar.Text) * Val(jumbel.Text) + Val(pajak.Text)
End Sub
Private Sub jumbel_Change()
pajak.Text = Val(habar.Text) * 0.1 * Val(jumbel.Text)
tobar.Text = Val(habar.Text) * Val(jumbel.Text) + Val(pajak.Text)
If tobar.Text > 5000000 Then
bonus.Text = "jam tangan"
Else
If tobar.Text > 3500000 Then
bonus.Text = "jam dinding"
Else
bonus.Text = "tidak dapat bonus"
End If
End If
End Sub
Private Sub klr_Click()
X = MsgBox("yakin mau keluar???", vbOKCancel, "info")
If X = vbOK Then
Unload Me
End If
End Sub
Private Sub kobar_Click()
If kobar.ListIndex = 0 Then
nabar.Text = "mesin cuci"
Else
If kobar.ListIndex = 1 Then
nabar.Text = "kulkas"
Else
If kobar.ListIndex = 2 Then
nabar.Text = "TV"
Else
nabar.Text = "VCD player"
End If
End If
End If
If kobar.ListIndex = 0 Then
habar.Text = 2000000
Else
If kobar.ListIndex = 1 Then
habar.Text = 1750000
Else
If kobar.ListIndex = 2 Then
habar.Text = 1500000
Else
habar.Text = 1000000
End If
End If
End If
End Sub
Private Sub pajak_Click()
tobar.Text = Val(habar.Text) * Val(jumbel.Text) + Val(pajak.Text)
End Sub
Popular Posts
-
Kursus View more documents from Ahmad Mustaqim .
-
free antivirus local indonesia klik download setup klik download portable
-
2 Langkah Mudah Bergabung Daftar Gratis 100%, Tanpa Biaya Registrasi ( ahmad mustaqim CN001741 ) 085640865808 >>...
-
if adodc1.recordset.BOF and adodc1.recordset. EOF then text1.text=format (date,"yyyy") & "001" else adodc1.record...
-
Gridkaryawan.Cols = 6 Gridkaryawan.Rows = 10 Gridkaryawan.ColWidth(0) = 100 Gridkaryawan.ColWidth(1) = 900 Gridkaryawan.ColWidth(2) = 200...
-
Tempatnya pulsa bisnis pulsa elektrik paling menguntungkan ! hub: aqim 085640865808 Sampai awal Juni 2010... Kami telah menerima Lebih dari ...
-
download operamini v.4.1 indosat klik (khusus buat pengguna kartu indosat)
-
Vb2 View more documents from Ahmad Mustaqim .
-
monggo dipun unduh bos...bok menawi pengen di cobo... Adobe PhotoShop CS5 12.0.3 meniko dipun pencet . 3all
Currently have 0 comments: