Langsung ke konten utama

Postingan

Unggulan

TUGAS I

Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjr = "" txtps = "" txttm = "" txtnu = "" txtbp = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjr = "" txtps = "" txttm = "" txtnu = "" txtbp = "" End Sub Private Sub cmdproses_Click() Dim Z As String txttm = "20" & Left(txtnpm, 2) txtnu = Right(txtnpm, 3) Z = Mid(txtnpm, 3, 1) If Z = "1" Then txtjr = "Sistem Informasi" txtps = "Strata Satu" txtbp = "1.950.000" ElseIf Z = "2" Then txtjr = "Teknik Informatika" txtps = "diploma IV" txtbp = "1.750.000" ElseIf Z = "3" Then txtjr = "Manajemen Informatika" txtps = "Diploma III" tx

Postingan Terbaru

TUGAS H

TUGAS G

TUGAS F

TUGAS E

TUGAS D

TUGAS C

TUGAS B

TUGAS A

TUGAS 2.7

TUGAS 2.6