Kalkulator BLUE ala YULIANA .....

Dim angka, Hasil As Double
Dim Operator As String
Private Sub Command1_Click()
If Text1.Text = "0" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text & "1"
End If
End Sub


Private Sub Command10_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka + Val(Text1.Text)

End If
Operator = "+"
Text1.Text = 0
End Sub

Private Sub Command11_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka - Val(Text1.Text)

End If
Operator = "-"
Text1.Text = 0
End Sub

Private Sub Command12_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka * Val(Text1.Text)

End If
Operator = "*"
Text1.Text = 0
End Sub

Private Sub Command13_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka / Val(Text1.Text)

End If
Operator = "/"
Text1.Text = 0
End Sub

Private Sub Command14_Click()
If angka = 0 Then
angka = Val(Text1.Text)
Else
angka = angka ^ Val(Text1.Text)

End If
Operator = "^"
Text1.Text = 0
End Sub

Private Sub Command15_Click()
End
End Sub

Private Sub Command16_Click()
If Text1.Text = "0" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text & "0"
End If
End Sub

Private Sub Command17_Click()
If Operator = "+" Then
Hasil = angka + Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "-" Then
Hasil = angka - Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "*" Then
Hasil = angka * Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "/" Then
Hasil = angka / Val(Text1.Text)
Text1.Text = Hasil
ElseIf Operator = "^" Then
Hasil = angka ^ Val(Text1.Text)
Text1.Text = Hasil
End If
End Sub

Private Sub Command2_Click()
If Text1.Text = "0" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text & "2"
End If
End Sub

Private Sub Command3_Click()
If Text1.Text = "0" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text & "3"
End If
End Sub

Private Sub Command4_Click()
If Text1.Text = "0" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text & "4"
End If
End Sub

Private Sub Command5_Click()
If Text1.Text = "0" Then
Text1.Text = "5"
Else
Text1.Text = Text1.Text & "5"
End If
End Sub

Private Sub Command6_Click()
If Text1.Text = "0" Then
Text1.Text = "6"
Else
Text1.Text = Text1.Text & "6"
End If
End Sub

Private Sub Command7_Click()
If Text1.Text = "0" Then
Text1.Text = "7"
Else
Text1.Text = Text1.Text & "7"
End If
End Sub

Private Sub Command8_Click()
If Text1.Text = "0" Then
Text1.Text = "8"
Else
Text1.Text = Text1.Text & "8"
End If
End Sub

Private Sub Command9_Click()
If Text1.Text = "0" Then
Text1.Text = "9"
Else
Text1.Text = Text1.Text & "9"
End If
End Sub


Private Sub Form_Load()
Form1.BackColor = vbBlue
End Sub