Jadilah Anggota smaneka untuk mendapatkan informasi terkini di smaneka.tk, yuk...

Minggu, 22 November 2009

contoh skrip dengan option button


Private Sub Command1_Click()
Dim harga As Currency
harga = 0

If Option3.Value Then
harga = harga + 150000
ElseIf vip.Value Then
harga = harga + 250000
ElseIf Option5.Value Then
harga = harga + 450000
End If

If Option6.Value Then
harga = harga + 50000
ElseIf Option7.Value Then
harga = harga + 75000
ElseIf Option8.Value Then
harga = harga + 150000
End If

MsgBox "harga total Rp" & harga
Dim bayar As Currency
Do
bayar = InputBox("uang anda")
Loop Until bayar >= harga

If bayar > harga Then
MsgBox "kembaliannya" & bayar - harga
Else
MsgBox "terimakasih."
End If
End Sub







Tidak ada komentar:

 
Minima 4 coloum Blogger Template by Beloon-Online.
Simplicity Edited by Ipiet's Template