Mardalenastmikpringsewu

tugas 3.7 Private Sub cmdbatal_Click() txtnama.SetFocus txtnik.Text = "" txtgolongan.Text = "" txtkode.Text = "" txtstatus.Text = "" txttahun.Text = "" txtjabatan.Text = "" txtbagian.Text = "" txtgaji.Text = "" txttunjangan.Text = "" txttotal.Text = "" txtnama.Text = "" End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnik.Text = "" txtgolongan.Text = "" txtkode.Text = "" txtstatus.Text = "" txttahun.Text = "" txtjabatan.Text = "" txtbagian.Text = "" txtgaji.Text = "" txttunjangan.Text = "" txttotal.Text = "" txtnama.Text = "" End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() Dim x As String txtgolongan.Text = Mid(txtnik.Text, 5, 1) txtkode.Text = Mid(txtn

tugas 3.6 Private Sub cmdbatal_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(txtkode, 3) If A = "SIM" Then txtjudul = "Sistem Informasi " txtpengarang = "khoirun nisa" txtharga = "75000" ElseIf A = "Elek" Then txtjudul = "Elektronik " txtpengarang = "aulia Agustina" txtharga = "62000" ElseIf A = "MNJ" Then txtjudul = "Manajemen" txtpengarang = "muhammad irfan" txtharga = "42000" ElseIf A = "C

tugas 3.5 Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtkt = "" txtht = "" txtjk = "" txtjb = "" txtjt = "" txttotalp = "" txtkt.SetFocus End Sub Private Sub cmdproses_Click() Dim B As String B = Left(txtkt, 3) If B = "BIM" Then txtht = "50000" txtjk = "BIMA" txtjb = "17.00" ElseIf B = "RANI" Then txtht = "35000" txtjk = "EKONOMI" txtjb = "20.00" ElseIf B = "MUT" Then txtht = "23000" txtjk = "TIARA" txtjb = "13.00" ElseIf B = "SEN" Then txtht = "15000" txtjk = "Malam" txtjb = "17.00" End If txtjt.SetFocus End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht) * (txtjt) End If End Sub

tugas 3.4 Private Sub cbokode_Click() Select Case cbokode Case "A-SIM-01" Case "I-ELP-02" Case "S-MQJ-03" Case "E-CER-04" Case "M-RYL-05" End Select End Sub Private Sub cmdbatal_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() cbokode = "" txtjudul = "" txtpengarang = "" txttahun = "" txtpenerbit = "" txtharga = "" cbokode.SetFocus End Sub Private Sub cmdproses_Click() Dim A As String A = Left(cbokode, 1) If A = "A" Then txtpenerbit = "Irfan Yogyakarta" ElseIf A = "I" Then txtpenerbit = "Indah Surabaya" ElseIf A = "S" Then txtpenerbit = &q

tugas 3.3 Private Sub cbokode_Click() Dim merk As String merk = Mid(cbokode, 7, 5) If merk = "MC965" Then txtmerk = "Apple MacBook Air MC965" harga = "12800000" ElseIf merk = "MC965" Then txtmerk = "Apple MacBook Air MC966" harga = "15800000" ElseIf merk = "MC969" Then txtmerk = "Apple MacBook Air MC968" harga = "9900000" ElseIf merk = "MC940" Then txtmerk = "Apple MacBook Air MC969" harga = "11900000" ElseIf merk = "MC780" Then txtmerk = "Apple MacBook Pro MC700" harga = "10800000" ElseIf merk = "MC728" Then txtmerk = "Apple MacBook Pro MC721" harga = "15900000" ElseIf merk = "MC724" Then txtmerk = "Apple MacBook Pro MC723" harga = "19300000" ElseIf merk = "MC724" Then txtmerk = "Apple MacBook Pro MC724"

tugas 3.2 Private Sub cmdbatal_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtprogram = "" txttahun = "" txtnomor = "" txtnama.SetFocus End Sub Private Sub cmdkeluar_Click() End End Sub Private Sub cmdlagi_Click() txtnama = "" txtnpm = "" txtjurusan = "" txtprogram = "" txttahun = "" txtnomor = "" txtnama.SetFocus End Sub Private Sub cmdproses_Click() Dim pro As String txttahun = "20" & Left(txtnpm, 2) pro = Mid(txtnpm, 3, 1) If pro = "1" Then txtjurusan = "Sistem Informasi" ElseIf pro = "2" Then txtjurusan = "Manajemen Informasi" ElseIf pro = "3" Then txtjurusan = "Model grafis" End If pro = Mid(txtnpm, 4, 2) If pro = "00" Then txtprogram = "Strata Satu" ElseIf pro = "01" Then