TUGAS 2.6 dan 2.7

PROGRAM PENGHITUNG GAJI BERSIH KARYAWAN

GAMBAR PROGRAM

MEMBUAT PROGRAM DIATAS DENGAN CARA RUMUS SEPERTI DI BAWAH INI

Private Sub Command1_Click()
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.2
Text6 = Val(Text4) - Val(Text5)
End Sub
------------------------------------------------------------------------------------
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub
-------------------------------------------------------------------------------------
Private Sub Command3_Click()
    Unload Me
End Sub


Rumus di atas adalah untuk mengfunsikan command ( yang tertulis di gambar yaitu (HASIL , ULANG & KELUAR))


SEDANGKAN RUMUS DIBAWAH ADALAH RUMUS UNTUK MEMFUNGSIKAN TOMBOL ENTER
--------------------------------------------------------------------------------------
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

DAN RUMUS DI BAWAH INI UNTUK MENGETAHUI HASIL TANPA HARUS MENGEKLIK COMMOND HITUNG TETAPI CUKUP DENGAN MENEKAN TOMBOL ENTER SAJA
----------------------------------------------------------------------------------------
Private Sub Text3_keypress(Keyascii As Integer)
    If Keyascii = 13 Then
        Text4 = Val(Text1) + Val(Text2) - Val(Text3)
        Text5 = Val(Text4) * 0.2
        Text6 = Val(Text4) - Val(Text5)
        End If
End Sub