Private Sub cmdBersih_Click()
Textjumlah1.SetFocus
Textjumlah1 = “”
Textjumlah2 = “”
Textjumlahhasil = “”
Textkurang1 = “”
Textkurang2 = “”
Textkuranghasil = “”
Textbagi1 = “”
Textbagi2 = “”
Textbagihasil = “”
Textkali1 = “”
Textkali2 = “”
Textkalihasil = “”
End Sub
Private Sub cmdHitung_Click()
Textjumlahhasil = Val(Textjumlah1) + Val(Textjumlah2)
Textkuranghasil = Val(Textkurang1) – Val(Textkurang2)
Textbagihasil = Val(Textbagi1) / Val(Textbagi2)
Textkalihasil = Val(Textkali1) * Val(Textkali2)
End Sub
Private Sub cmdKeluar_Click()
End
End Sub
Private Sub cmdLagi_Click()
Textjumlah1.SetFocus
Textjumlah1 = “”
Textjumlah2 = “”
Textjumlahhasil = “”
Textkurang1 = “”
Textkurang2 = “”
Textkuranghasil = “”
Textbagi1 = “”
Textbagi2 = “”
Textbagihasil = “”
Textkali1 = “”
Textkali2 = “”
Textkalihasil = “”
End Sub
Private Sub textbagi1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textbagi2.SetFocus
End If
End Sub
Private Sub textbagi2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textkali1.SetFocus
End If
End Sub
Private Sub textjumlah1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textjumlah2.SetFocus
End If
End Sub
Private Sub textjumlah2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textkurang1.SetFocus
End If
End Sub
Private Sub textkali1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textkali2.SetFocus
End If
End Sub
Private Sub textkurang1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textkurang2.SetFocus
End If
End Sub
Private Sub textkurang2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Textbagi1.SetFocus
End If
End Sub