Tugas 13

Private Sub cmdbaru_Click() Data1.Recordset.AddNew End Sub     Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub   Private Sub cmdkeluar_Click() x = MsgBox(“ANDA yakin mau keluar?”, vbQuestion + vbYesNo, “M.MUHAIDI”) If x = vbYes Then End End If End Sub   Private Sub cmdproses_Click() Dim s As String s = Mid(txtkode.Text, 5, 2) If s = “SP”… Continue reading Tugas 13

Tugas 12

Private Sub cbokode_Click() Dim mt, hs As String Select Case cbokode Case “ASUS A43SA” mt = “ASUS A43SA-VXO90D” hs = “5500000” Case “ASUS A43SD” mt = “ASUS A43SD-VXO532D” hs = “4500000” Case “ASUS A435J” mt = “ASUS A435J-VX792J” hs = “4900000” Case “ASUS N43L” mt = “ASUS N43L-VX264D” hs = “4300000” Case “APPLE MD311” mt… Continue reading Tugas 12

Tugas 11

Private Sub cbokode_Click() Dim jenis, hs As String Select Case cbokode Case “P205” jenis = “PENTIUM II 500 MEGA HZ” hs = “1500000” Case “P308” jenis = “PENTIUM II 800 MEGA HZ” hs = “2100000” Case “P310” jenis = “PENTIUM III 1.0 GIGA HZ” hs = “3500000” Case “P415” jenis = “PENTIUM IV 1.5 GIGA… Continue reading Tugas 11

Tugas 10

Private Sub Command1_Click() Dim s As String txttahun.Text = “20” & Left(txtnpm.Text, 2) s = Mid(txtnpm.Text, 3, 3) If s = “100” Then txtjurusan.Text = “sistem informasi” txtprodi.Text = “strata satu” txtbp.Text = “1950000” txtterbilang.Text = “satu juta sembilan ratus lima puluh ribu rupiah” ElseIf s = “200” Then txtjurusan.Text = “manajemen informatika” txtprodi.Text =… Continue reading Tugas 10

Tugas 8

    Private Sub Cmdbatal_Click() Textkode.SetFocus Textkode.Text = “” Textjudul.Text = “” Textpengarang.Text = “” Texttahun.Text = “” Textpenerbit.Text = “” Textharga.Text = “” End Sub   Private Sub cmdkeluar_Click() x = MsgBox(“ANDA yakin mau keluar?”, vbQuestion + vbYesNo, “M.MUHAIDI”) If x = vbYes Then End End If End Sub   Private Sub cmdlagi_Click() Textkode.SetFocus… Continue reading Tugas 8

tugas 7

Private Sub cmdbaru_Click() Data1.Recordset.AddNew End Sub   Private Sub cmddelete_Click() Data1.Recordset.Delete End Sub   Private Sub Cmdkeluar_Click() x = MsgBox(“ANDA yakinmaukeluar?”, vbQuestion + vbYesNo, “M.MUHAIDI”) If x = vbYes Then End End If End Sub   Private Sub cmdlagi_Click() Txtkode.SetFocus Txtkode.Text = “” Txthartik.Text = “” Txtjenis.Text = “” Txtjam.Text = “” Txtjumlah.Text = “”… Continue reading tugas 7

tugas 6

  Private Sub Cmdkeluar_Click() x = MsgBox(“ANDA yakinmaukeluar?”, vbQuestion + vbYesNo, “M.MUHAIDI”) If x = vbYes Then End End If End Sub   Private Sub cmdlagi_Click() Cbokode.SetFocus Textcode = “” Textjudul = “” Textpengarang = “” Texttahun = “” Textpenerbit = “” Textharga = “” End Sub     Private Sub Cmdproses_Click() Dim judul, pengarang,… Continue reading tugas 6