Tugas Pemograman 1

Program 1

Tugas 1

Source Code

Private Sub ani1_keypress(keyascii As Integer)

If keyascii = 13 Then

ani2.SetFocus

End If

End Sub

 

Private Sub Cmdhitung_Click()

ani3 = Val(ani1) * Val(ani2)

End Sub

Private Sub cmdbersih_Click()

ani1.SetFocus

ani1 = ” ”

ani2 = ” ”

ani3 = ” ”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Tugas2

Source Code

Private Sub ani1_keypress(keyascii As Integer)

If keyascii = 13 Then

ani2.SetFocus

End If

End Sub

 

Private Sub ani2_keypress(keyascii As Integer)

If keyascii = 13 Then

ani3.SetFocus

ani3 = Val(ani1) * Val(ani2)

End If

End Sub

 

Private Sub Cmdhitung_Click()

ani3 = Val(ani1) * Val(ani2)

End Sub

Private Sub cmdbersih_Click()

ani1.SetFocus

ani1 = ” ”

ani2 = ” ”

ani3 = ” ”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

 

Program 2

 Tugas 3

Souce Code

Private Sub ANI1_kEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI2.SetFocus

End If

End Sub

 

Private Sub ANI10_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI11.SetFocus

End If

End Sub

 

Private Sub ANI11_Keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

End If

End Sub

 

Private Sub ANI2_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI4.SetFocus

End If

End Sub

 

Private Sub ANI4_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI5.SetFocus

End If

End Sub

 

Private Sub ANI5_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI7.SetFocus

End If

End Sub

 

Private Sub ANI6_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI7.SetFocus

End If

End Sub

 

Private Sub ANI7_kepress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI9.SetFocus

End If

End Sub

 

Private Sub ANI7_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI8.SetFocus

End If

End Sub

 

Private Sub ANI8_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI10.SetFocus

End If

End Sub

 

Private Sub ANI9_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI10.SetFocus

End If

End Sub

 

Private Sub CMDANIBATAL_Click()

ANI1.SetFocus

ANI1 = “”

ANI2 = “”

ANI3 = “”

ANI4 = “”

ANI5 = “”

ANI6 = “”

ANI7 = “”

ANI8 = “”

ANI9 = “”

ANI10 = “”

ANI11 = “”

ANI12 = “”

End Sub

 

Private Sub CMDANIKELUAR_Click()

End

End Sub

 

Private Sub CMDANILAGI_Click()

ANI1.SetFocus

ANI1 = “”

ANI2 = “”

ANI3 = “”

ANI4 = “”

ANI5 = “”

ANI6 = “”

ANI7 = “”

ANI8 = “”

ANI9 = “”

ANI10 = “”

ANI11 = “”

ANI12 = “”

End Sub

 

Private Sub CMDANIPROSES_Click()

ANI3 = Val(ANI1) + Val(ANI2)

ANI6 = Val(ANI4) * Val(ANI5)

ANI9 = Val(ANI7) – Val(ANI8)

ANI12 = Val(ANI10) / Val(ANI11)

End Sub

 

 

Tugas 4

Source Code

Private Sub ANI1_kEYPRESS(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI2.SetFocus

End If

End Sub

 

Private Sub ANI10_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI11.SetFocus

End If

End Sub

 

Private Sub ANI11_Keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI12 = Val(ANI10) / Val(ANI11)

End If

End Sub

 

Private Sub ANI2_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI3 = Val(ANI1) + Val(ANI2)

ANI4.SetFocus

End If

End Sub

 

Private Sub ANI4_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI5.SetFocus

End If

End Sub

Private Sub ANI5_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI7.SetFocus

ANI6 = Val(ANI4) * Val(ANI5)

End If

End Sub

 

Private Sub ANI6_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI7.SetFocus

End If

End Sub

 

Private Sub ANI7_kepress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI9.SetFocus

ANI9 = Val(ANI5) – Val(ANI6)

End If

End Sub

 

Private Sub ANI7_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI8.SetFocus

End If

End Sub

 

Private Sub ANI8_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI10.SetFocus

ANI9 = Val(ANI7) – Val(ANI8)

End If

End Sub

 

Private Sub ANI9_keypress(KEYASCII As Integer)

If KEYASCII = 13 Then

ANI10.SetFocus

End If

End Sub

 

Private Sub CMDANIBATAL_Click()

ANI1.SetFocus

ANI1 = “”

ANI2 = “”

ANI3 = “”

ANI4 = “”

ANI5 = “”

ANI6 = “”

ANI7 = “”

ANI8 = “”

ANI9 = “”

ANI10 = “”

ANI11 = “”

ANI12 = “”

End Sub

 

Private Sub CMDANIKELUAR_Click()

End

End Sub

 

Private Sub CMDANILAGI_Click()

ANI1.SetFocus

ANI1 = “”

ANI2 = “”

ANI3 = “”

ANI4 = “”

ANI5 = “”

ANI6 = “”

ANI7 = “”

ANI8 = “”

ANI9 = “”

ANI10 = “”

ANI11 = “”

ANI12 = “”

End Sub

 

Private Sub CMDANIPROSES_Click()

ANI3 = Val(ANI1) + Val(ANI2)

ANI6 = Val(ANI4) * Val(ANI5)

ANI9 = Val(ANI7) – Val(ANI8)

ANI12 = Val(ANI10) / Val(ANI11)

End Sub

 

Program 3

Tugas 5

Source Code

Private Sub anihargaakhir_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

anidiskon = Val(anihargaawal) * 0.1

anihargaakhir = Val(anihargaawal) – (anidiskon)

End Sub

 

Private Sub cmdhitung_click()

anidiskon = Val(anihargaawal) * 0.1

anihargaakhir = Val(anihargaawal) – (anidiskon)

End Sub

 

Private Sub cmdulang_Click()

anihargaawal.SetFocus

anihargaawal = “”

anidiskon = “”

anihargaakhir = “”

End Sub

 

Private Sub cmdquit_Click()

End

End Sub

 

 Tugas 6

Source Code

Private Sub anihargaakhir_keypress(keyascii As Integer)

If keyascii = 13 Then

anidiskon = Val(anihargaawal) * 0.1

anihargaakhir = Val(anihargaawal) – (anidiskon)

End Sub

 

Private Sub anihargaawal_keypress(keyascii As Integer)

If keyascii = 13 Then

anidiskon = Val(anihargaawal) * 0.1

anihargaakhir = Val(anihargaawal) – (anidiskon)

End If

End Sub

 

Private Sub cmdhitung_click()

anidiskon = Val(anihargaawal) * 0.1

anihargaakhir = Val(anihargaawal) – (anidiskon)

End Sub

Private Sub cmdulang_Click()

anihargaawal.SetFocus

anihargaawal = “”

anidiskon = “”

anihargaakhir = “”

End Sub

Private Sub cmdquit_Click()

End

End Sub

 

 

 

Program 4

Tugas 7

 Source Code

Private Sub anigajiP_keypress(keyascii As Integer)

If keyascii = 13 Then

anitunjangan.SetFocus

End If

End Sub

 

Private Sub anitunjangan_keypress(keyascii As Integer)

If keyascii = 13 Then

anipotongan.SetFocus

End If

End Sub

 

Private Sub cmdproses_Click()

anigajik = Val(anigajip) + Val(anitunjangan) – Val(anipotongan)

anipajak = Val(anigajik) * 0.1

anigajit = Val(anigajik) – Val(anipajak)

End Sub

 

Private Sub cmdulangi_Click()

anigajip.SetFocus

anigajip = “”

anitunjangan = “”

anipotongan = “”

anigajik = “”

anipajak = “”

anigajit = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Tugas 8

 Source Code

Private Sub anigajiP_keypress(keyascii As Integer)

If keyascii = 13 Then

anitunjangan.SetFocus

End If

End Sub

 

Private Sub anitunjangan_keypress(keyascii As Integer)

If keyascii = 13 Then

anipotongan.SetFocus

End If

End Sub

 

Private Sub anipotongan_keypress(keyascii As Integer)

If keyascii = 13 Then

anigajik = Val(anigajip) + Val(anitunjangan) – Val(anipotongan)

anipajak = Val(anigajik) * 0.1

anigajit = Val(anigajik) – Val(anipajak)

End If

End Sub

 

Private Sub cmdproses_Click()

anigajik = Val(anigajip) + Val(anitunjangan) – Val(anipotongan)

anipajak = Val(anigajik) * 0.1

anigajid = Val(anigajik) – Val(anipajak)

End Sub

 

Private Sub cmdulangi_Click()

anigajip.SetFocus

anigajip = “”

anitunjangan = “”

anipotongan = “”

anigajik = “”

anipajak = “”

anigajit = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub