Visual basic
Private Sub Combo1_Click()
If Combo1.Text = "Wanita" Then
Text1.Text = "Novita Dewi"
Text2.Text = "005"
Else
If Combo1.Text = "Pria" Then
Text1.Text = "Zuma Adha"
Text2.Text = "006"
Else
End If
End If
End Sub
Private Sub Combo2_Click()
If Combo2.Text = "NK" Then
Text3.Text = "Nokia"
Text4.Text = "CDMA"
Else
If Combo2.Text = "SG" Then
Text3.Text = "Samsung"
Text4.Text = "CDMA"
Else
If Combo2.Text = "BB" Then
Text3.Text = "Blackberry"
Text4.Text = "GSM"
Else
If Combo2.Text = "SN" Then
Text3.Text = "Sony Ericson"
Text4.Text = "GSM"
Else
End If
End If
End If
End If
End Sub
Private Sub Combo3_Click()
If Combo3.Text = "Nokia 1202" Then
Text5.Text = "250000"
Else
If Combo3.Text = "Nokia 6300" Then
Text5.Text = "550000"
Else
If Combo3.Text = "Nokia C3" Then
Text5.Text = "1070000"
Else
If Combo3.Text = "Nokia X6" Then
Text5.Text = "3350000"
Else
End If
End If
End If
End If
End Sub
Private Sub Combo4_Click()
If Combo4.Text = "Dalam Kota" Then
Label16 = "0.08"
Else
If Combo4.Text = "Luar Kota" Then
Label16 = "0.15"
Else
If Combo4.Text = "Antar Provinsi" Then
Label16 = "0.22"
Else
If Combo4.Text = "Antar Pulau" Then
Label16 = "0.25"
Else
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
Text7.Text = Text5.Text * Text6.Text
Label12 = Text5.Text * Text6.Text
End Sub
Private Sub Command2_Click()
Text8.Text = Text7.Text * 5 / 100
End Sub
Private Sub Command3_Click()
Text9.Text = Label16 * Text7.Text
End Sub
Private Sub Command4_Click()
Text10.Text = Val(Text7.Text) + Val(Text9)
If Text10.Text > 1000000 Then Label20 = "credit"
If Text10.Text < 1000000 Then Label20 = "cash"
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Label12 = ""
Label16 = ""
Label20 = ""
End Sub
Private Sub Command6_Click()
End
End Sub
If Combo1.Text = "Wanita" Then
Text1.Text = "Novita Dewi"
Text2.Text = "005"
Else
If Combo1.Text = "Pria" Then
Text1.Text = "Zuma Adha"
Text2.Text = "006"
Else
End If
End If
End Sub
Private Sub Combo2_Click()
If Combo2.Text = "NK" Then
Text3.Text = "Nokia"
Text4.Text = "CDMA"
Else
If Combo2.Text = "SG" Then
Text3.Text = "Samsung"
Text4.Text = "CDMA"
Else
If Combo2.Text = "BB" Then
Text3.Text = "Blackberry"
Text4.Text = "GSM"
Else
If Combo2.Text = "SN" Then
Text3.Text = "Sony Ericson"
Text4.Text = "GSM"
Else
End If
End If
End If
End If
End Sub
Private Sub Combo3_Click()
If Combo3.Text = "Nokia 1202" Then
Text5.Text = "250000"
Else
If Combo3.Text = "Nokia 6300" Then
Text5.Text = "550000"
Else
If Combo3.Text = "Nokia C3" Then
Text5.Text = "1070000"
Else
If Combo3.Text = "Nokia X6" Then
Text5.Text = "3350000"
Else
End If
End If
End If
End If
End Sub
Private Sub Combo4_Click()
If Combo4.Text = "Dalam Kota" Then
Label16 = "0.08"
Else
If Combo4.Text = "Luar Kota" Then
Label16 = "0.15"
Else
If Combo4.Text = "Antar Provinsi" Then
Label16 = "0.22"
Else
If Combo4.Text = "Antar Pulau" Then
Label16 = "0.25"
Else
End If
End If
End If
End If
End Sub
Private Sub Command1_Click()
Text7.Text = Text5.Text * Text6.Text
Label12 = Text5.Text * Text6.Text
End Sub
Private Sub Command2_Click()
Text8.Text = Text7.Text * 5 / 100
End Sub
Private Sub Command3_Click()
Text9.Text = Label16 * Text7.Text
End Sub
Private Sub Command4_Click()
Text10.Text = Val(Text7.Text) + Val(Text9)
If Text10.Text > 1000000 Then Label20 = "credit"
If Text10.Text < 1000000 Then Label20 = "cash"
End Sub
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Label12 = ""
Label16 = ""
Label20 = ""
End Sub
Private Sub Command6_Click()
End
End Sub
