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, “WULAN”) 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” […]

Read more "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 […]

Read more "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 […]

Read more "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 = […]

Read more "tugas 10"

tugas 9

  Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgolongan = “” Textkodeset = “” Textstatus = “” Texttahun = “” Textjabatan = “” Textbagian = “” Textgajipok = “” Texttunjangan = “” Texttotal = “” End Sub     Private Sub cmdkeluar_Click() x = MsgBox(“ANDA yakin mau keluar?”, vbQuestion + vbYesNo, “WULAN”) […]

Read more "tugas 9"

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, “WULAN”) If x = vbYes Then End End If End Sub   Private Sub cmdlagi_Click() Textkode.SetFocus […]

Read more "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 yakin mau keluar?”, vbQuestion + vbYesNo, “WULAN”) 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 […]

Read more "tugas 7"