Private Sub Cmdkeluar_Click() End End Sub   Private Sub Cmdulang_Click() Txtgajipokok.SetFocus txtgajipoko = “” Txttunjangan = “” Txtpotongan = “” Txtgajikotor = “” Txtpajak = “” Txtgajiditerima = “” End Sub   Private Sub Txtgajipokok_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txttunjangan.SetFocus End If End Sub   Private Sub Txtpotongan_KeyPress(KeyAscii As Integer) If KeyAscii… Read More TUGAS 4.2

Private Sub Cmdkeluar_Click() End End Sub   Private Sub Cmdproses_Click() Txtgajikotor = Val(Txtgajipokok) + Val(Txttunjangan) – Val(Txtpotongan) Txtpajak = Val(Txtgajikotor) * 0.1 Txtgajiditerima = Val(Txtgajikotor) – Val(Txtpajak) End Sub   Private Sub Cmdulang_Click() Txtgajipokok.SetFocus txtgajipoko = “” Txttunjangan = “” Txtpotongan = “” Txtgajikotor = “” Txtpajak = “” Txtgajiditerima = “” End Sub  … Read More TUGAS 4.1

Private Sub Cmdak_Click() End End Sub     Private Sub Cmdulang_Click() Txtha.SetFocus Txtha = “” txtdis = “” Txthk = “” End Sub   Private Sub Txtha_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtdis = Val(Txtha) * 0.1 Txthk = Val(Txtha) – Val(txtdis) End If   End Sub  

Private Sub Cmdak_Click() End End Sub   Private Sub Cmdhitung_Click() txtdis = Val(Txtha) * 0.1 Txthk = Val(Txtha) – Val(txtdis) End Sub   Private Sub Cmdulang_Click() Txtha.SetFocus Txtha = “” txtdis = “” Txthk = “” End Sub  

Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) * Val(Text5) Text9 = Val(Text7): Val (Text8) Text12 = Val(Text10) – (Text11) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = “” Text2 = “” Text3 = “” Text4 = “” Text5 = “” Text6 = “” Text7 = “” Text8 = “” Text9 =… Read More TUGAS 2.2

Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) Text6 = Val(Text4) * Val(Text5) Text9 = Val(Text7): Val (Text8) Text12 = Val(Text11) – (Text10)   End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = “” Text2 = “” Text3 = “” Text4 = “” Text5 = “” Text6 = “” Text7 = “” Text8 = “” Text9… Read More TUGAS 2.1