pemrograman tugas 13

TUGAS 13 TOKO ALAT TULIS SALSABILA Private Sub cmdbaru_Click() Data1.Recordset.AddNew End Sub     Private Sub cmdhapus_Click() Data1.Recordset.Delete End Sub   Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdproses_Click() Dim s As String s = Mid(txtkode.Text, 5, 2) If s = “SP” Then txtnb.Text = “SPIDOL” txthb.Text = “9500” ElseIf s = “BT” […]

Read more "pemrograman tugas 13"

pemrograman tugas 12

Tugas 12 entry asus combo 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 = […]

Read more "pemrograman tugas 12"

pemrograman tugas 11

Program 11 komputer pentium combo 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 […]

Read more "pemrograman tugas 11"

pemrograman 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 "pemrograman tugas 10"

pemrograman tugas 9

TUGAS 9   Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgolongan = “” Textkodeset = “” Textstatus = “” Textahun = “” Textjabaatan = “” Textbagian = “” Textgajipok = “” Texttunjangan = “” Texttotal = “” End Sub     Private Sub cmdkeluar_Click() Form2.Show End Sub   Private Sub Cmdlagi_Click() Textnama.SetFocus […]

Read more "pemrograman tugas 9"

pemrograman tugas 8

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() Form2.Show End Sub   Private Sub cmdlagi_Click() Textkode.SetFocus Textkode.Text = “” Textjudul.Text = “” Textpengarang.Text = “” Texttahun.Text = “” Textpenerbit.Text = “” […]

Read more "pemrograman tugas 8"

pemrograman tugas 7

TUGAS 7 Private Sub Cmdkeluar_Click() Form2.Show End Sub   Private Sub cmdlagi_Click() Textkt.SetFocus Textkt = “” Textht = “” Textjk = “” Textjb = “” Textjt = “” Texttp = “” End Sub   Private Sub cmdproses_Click() Dim S As String S = Left(Textkode.Text, 3) If S = “BIM” Then Textjenis.Text = “BIMA” Texthartik.Text = […]

Read more "pemrograman tugas 7"