TUGAS 4.2

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

TUGAS 4.1

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

TUGAS 3.2

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  

TUGAS 2.2

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

TUGAS 2.1

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

TUGAS 1.2

Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = “” Text2 = “” End Sub Private Sub Command3_Click() End End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3 =… Read More TUGAS 1.2