RUMUS…...:)
Private Sub Combo1_Click()
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
