TUGAS BAHASA PEMROGRAMAN 1.6

Private Sub Cmdhitung_Click()
txtjml1 = Val(txtn1) + Val(txtn2)
txtjml2 = Val(txtn3) – Val(txtn4)
txtjml3 = Val(txtn5) / Val(txtn6)
txtjml4 = Val(txtn7) * Val(txtn8)
txttotal = Val(txtjml1) + Val(txtjml2) + Val(txtjml3) + Val(txtjml4)
End Sub

Private Sub Cmdlagi_Click()
txtn1 = “”
txtn2 = “”
txtn3 = “”
txtn4 = “”
txtn5 = “”
txtn6 = “”
txtn7 = “”
txtn8 = “”
txtjml1 = “”
txtjml2 = “”
txtjml3 = “”
txtjml4 = “”
txttotal = “”
txtn1.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn2.SetFocus
End If
End Sub

Private Sub txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn3.SetFocus
End If
End Sub

Private Sub txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn4.SetFocus
End If
End Sub

Private Sub txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn5.SetFocus
End If
End Sub

Private Sub txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn6.SetFocus
End If
End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
End If
End Sub

Private Sub txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If
End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjml1 = Val(txtn1) + Val(txtn2)
txtjml2 = Val(txtn3) – Val(txtn4)
txtjml3 = Val(txtn5) / Val(txtn6)
txtjml4 = Val(txtn7) * Val(txtn8)
txttotal = Val(txtjml1) + Val(txtjml2) + Val(txtjml3) + Val(txtjml4)
End If
End Sub