Tugas 2.3 Membuat Aplikasi Perhitungan Gaji ( Klik Tombol Hitung)

Gambar. Saat Aplikasi Runtime

Beriukut adalah source code untuk aplikasi di atas :

Private Sub Command1_Click()

    Text4 = Val(Text1) + Val(Text2) - Val(Text3)

    Text5 = Val(Text4) * 0.1

    Text6 = Val(Text4) - Val(Text5)

End Sub

------------------------------------------------------------------

Private Sub Command2_Click()

    Text1 = ""

    Text2 = ""

    Text3 = ""

    Text4 = ""

    Text5 = ""

    Text6 = ""

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.SetFocus

    End If

End Sub

Related Posts:

Tweet