Minggu, 25 Desember 2011

VB,,PenjuaLan Laptop



RUMUS…...:)

Private Sub Combo1_Click()
If Combo1 = "asusN14" Then
    Text2 = 4599000
Else
If Combo1 = "asusEeepad" Then
    Text2 = 6325000
Else
If Combo1 = "asus1215" Then
    Text2 = 3010000
Else
    Text2 = 0
End If
End If
End If

End Sub
Private Sub Combo2_Click()
If Combo2 = "asusN14" Then
    Text3 = 5500000 / 10
Else
If Combo2 = "asusEeepad" Then
    Text3 = 7000000 / 10
Else
If Combo2 = "asus1215" Then
    Text3 = 3500000 / 10
Else
    Text3 = 0
End If
End If
End If

Text4 = Val(Text2) + Val(Text3)
End Sub
Private Sub Combo3_Click()
If Combo3 = "kontan" Then
    Text5 = 0.1 * Val(Text4)
Else
    Text5 = 0
End If

Text6 = Val(Text4) - Val(Text5)

End Sub

Private Sub Form_Load()
Text1 = Clear
Text2 = Clear
Text3 = Clear
Text4 = Clear
Text5 = Clear
Text6 = Clear
End Sub




Private Sub Timer1_Timer()
Label16.Caption = Format(Now(), "hh:mm:ss")
End Sub