armannesta
Private Sub Command1_Click()
If Combo1.Text = "keyboard" Then
Text1.Text = 150000
Else
If Combo1.Text = "monitor" Then
Text1.Text = 800000
Else
If Combo1.Text = "mouse" Then
Text1.Text = 600000
End If
End If
End If
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
If Val(Text2.Text) >= 20 Then
Text4.Text = Val(Text3.Text) * 0.1
Else
If Val(Text2.Text) <>= 10 Then
Text4.Text = Val(Text3.Text) * 0.05
Else
If Val(Text2.Text) <>
Text4.Text = Val(Text3.Text) * 0
End If
End If
End If
Text5.Text = Val(Text3.Text) - Val(Text4.Text)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem "keyboard"
Combo1.AddItem "monitor"
Combo1.AddItem "mouse"
End Sub
Private Sub Timer1_Timer()
Label7 = Mid(Label7, 2, Len(Label7) - 1) + Left(Label7, 1)
End Sub
Label: | edit post
Reaksi: 
0 Responses

Post a Comment