--> Langsung ke konten utama

Postingan

Unggulan

TUGAS 3.7

Private Sub cmdbatal_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnik = "" txtgolongan = "" txtkode = "" txtstatus = "" txttahun = "" txtjabatan = "" txtbagian = "" txtgaji = "" txttunjangan = "" txttotal = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim R As String txttahun = Left(txtnik, 4) R = Mid(txtnik, 5, 1) If R = "A" Then txtgolongan = "A" txtjabatan = "Manajer" txtgaji = "4000000" txttunjangan = "1025000" ElseIf R = "B

Postingan Terbaru

TUGAS 3.6

TUGAS 3.5

TUGAS 3.4

TUGAS 3.3

TUGAS 3.2

TUGAS 3.1

tugas 2.8

tugas 2.7

tugas 2.6

tugas 2.5