Analisis Masalah Fenomena “Pinjaman Online” Apa yang anda ketahui tentang Pinjaman Online?Bagaimana Sistem yang digunakan pada Pinjaman Online?Bagaimana Pinjaman Online dilihat dari sudut pandang UU ITE. Jelaskan!…… Read more “Tugas Etika Profesi”
PROGRAM 3.9
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = “” txtnpm = “” txtjurusan = “” txtpstudy = “” txttahun = “” txtnurut = “” txtbp = “” End Sub…… Read more “PROGRAM 3.9”
PROGRAM 3.8
Private Sub cbokode_Click() Dim A, M As String Select Case cbokode Case “P205” A = “Pentium II 500 Mega Hz” M = “1500000” Case “P308” A =…… Read more “PROGRAM 3.8”
PROGRAM 3.7
Private Sub cmdbatal_Click() txtkb.SetFocus txtkb = “” txtjb = “” txtpeng = “” txttt = “” txtper = “” txth = “” End Sub Private Sub cmdkeluar_Click()…… Read more “PROGRAM 3.7”
PROGRAM 3.6
Private Sub cbokode_Click() Dim j, h As String Select Case cbokode Case “P205” j = “Pentium II 500 Mega Hz” h = “1500000” Case “P308” j =…… Read more “PROGRAM 3.6”
PROGRAM 3.5
Private Sub cbokode_Click() Dim j, h As String Select Case cbokode Case “P205” j = “Pentium II 500 Mega Hz” h = “1500000” Case “P308” j =…… Read more “PROGRAM 3.5”
PROGRAM 3.4
Private Sub cbokode_Click() Dim m, h As String Select Case cbokode Case “Asus A43SA” m = “Asus A43SA – VX090D” h = “5500000” Case “Asus A43SD” m…… Read more “PROGRAM 3.4”
PROGRAM 3.3
Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = “” txtjb = “” txtp = “” txttahun = “” txtpenerbit = “” txthg…… Read more “PROGRAM 3.3”
PROGRAM 3.2
Private Sub cmdp_Click() txttt = “20” & Right(cbokb, 2) Dim V, S As String V = Mid(cbokb, 3, 3) If V = “SIM” Then txtjb = “Sistem…… Read more “PROGRAM 3.2”
PROGRAM 3.1
Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnk.SetFocus txtnk = “” txtnik = “” txtgol = “” txtkstat = “” txtstatus = “” txttahun =…… Read more “PROGRAM 3.1”