PROGRAM DBS9-10

Private Sub Cmdbatal_Click() Textnama.SetFocus Textnama = “” Textnik = “” Textgol = “” Textks = “” Textstt = “” Textt = “” Textjab = “” Textbag = “” Textgp = “” Texttun = “” Texttg = “” End Sub Private Sub cmdkeluar_Click() Form2.Show End Sub Private Sub Cmdlagi_Click() Textnama.SetFocus Textnama = “” Textnik = “” […]

PROGRAM DBS 5-8

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” jenis = “Pentium […]

PROGRAM DBS 1-4

Private Sub Cmdbatal_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub CMDKELUAR_Click() Form2.Show End Sub Private Sub cmdlagi_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” […]

tugas 9 program 5-9

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” jenis = “Pentium […]

tugas 9 program 1-4

Private Sub Cmdbatal_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private Sub cmdlagi_Click() txtnidn.SetFocus txtnidn = “” txtnama = “” cbogolongan = “” txtgapok = “” txttunjangan = “” txtpajak = “” txttotal = “” End Sub Private […]

pertemuan 2.1

Private Sub cbonpm_Click() Dim nama, jurusan, HM As String Select Case cbonpm.Text Case “15100107” nama = “Adi kiswanto” jurusan = “SISTEM INFORMASI” Case “15100052” nama = “Aditya wibowo” jurusan = “PEMROGRAMAN” Case “15100054” nama = “Agung setiawan” jurusan = “BAHASA INDONESIA” Case “15100056” nama = “Alfina damayanti” jurusan = “BAHASA INDONESIA” Case “15100063” nama = […]

pertemuan 2

Private Sub Chkbold_Click() ‘membuat teks tebal’ If Chkbold.Value = 1 Then lblteks.FontBold = True Else lblteks.FontBold = False End If End Sub Private Sub Chkitalic_Click() ‘membuat teks miring’ If Chkitalic.Value = 1 Then lblteks.FontItalic = True Else lblteks.FontItalic = False End If End Sub Private Sub chkstrike_Click() ‘membuat teks garis tengah If chkstrike = 1 […]