tugas 5

Tugas 5   Private Sub Cbocode_Click() Dim jenis, hs As String Select Case Cbocode Case “P205” jenis = “Pentium II 500 Mega Hz” hs = “1500000” Case “P308” jenis = “Pentium III 800 Mega Hz ” hs = “2100000 ” Case “P310” jenis = “pentium III 1.0 Giga Hz” hs = “3500000 ” Case “P415” […]

Read more "tugas 5"

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 "tugas 13"

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 "tugas 12"

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 "tugas 11"

tugas 10

TUGAS 10 NPM TERBILANG 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 = […]

Read more "tugas 10"

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 "tugas 9"

tugas 8

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 "tugas 8"