Benyandriansyah

Private Sub cmdBatal_Click() txtNama = "" txtNik = "" txtGol = "" txtKode = "" txtStatus = "" txtTahun = "" txtJabatan = "" txtBagian = "" txtGapok = "" txtTunjangan = "" txtTotalg = "" txtTerbilang = "" End Sub Private Sub cmdKeluar_Click() End End Sub Private Sub cmdLagi_Click() txtNama = "" txtNik = "" txtGol = "" txtKode = "" txtStatus = "" txtTahun = "" txtJabatan = "" txtBagian = "" txtGapok = "" txtTunjangan = "" txtTotalg = "" txtTerbilang = "" End Sub Private Sub cmdProses_Click() Dim kode As String txtTahun = Left(txtNik.Text, 4) txtKode = Mid(txtNik, 7, 1) kode = Mid(txtNik.Text, 5, 1) If kode = "A" Then txtGol = "A" txtJabatan = "Manager" txtGapok = "4000000" txtTunjangan.Text = "1025000...

Private Sub cmdBatal_Click() Cbokode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Cbokode.SetFocus End Sub Private Sub cmdKeluar_Click() End End Sub Private Sub cmdLagi_Click() Cbokode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Cbokode.SetFocus End Sub Private Sub cmdProses_Click() Dim kode As String kode = Left(Txtkode.Text, 3) If kode = "SIM" Then TxtJudul.Text = "Sistem Informasi Manajemen" TxtPengarang.Text = "Fadiya Ulfa" TxtHarga.Text = "75900" ElseIf kode = "EDP" Then TxtJudul.Text = "Elektronik Data Processing" TxtPengarang.Text = "Nurul Agustina" TxtHarga.Text = "62000" ElseIf kode = "MNJ" Then TxtJudul.Text = "Manajemen" TxtPengarang.Text = ...

Private Sub cmdproses_Click() Dim kode As String kode = Left(txtkt.Text, 3) If kode = "BIM" Then txtht.Text = "50000" txtjk.Text = "BIMA" txtjb.Text = "16.00" ElseIf kode = "EKO" Then txtht.Text = "35000" txtjk.Text = "EKONOMI" txtjb.Text = "19.00" ElseIf kode = "MUT" Then txtht.Text = "23000" txtjk.Text = "MUTIARA" txtjb.Text = "17.00" ElseIf kode = "SEN" Then txtht.Text = "15000" txtjk.Text = "SENJA" txtjb.Text = "20.00" End If txtjt.SetFocus End Sub Private Sub Form_Load() txtht.Enabled = False txtjk.Enabled = False txtjb.Enabled = False txttotalp.Enabled = False End Sub Private Sub txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(txtht) * Val(txtjt) End If End Sub

Private Sub cmdBatal_Click() Cbokode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Cbokode.SetFocus End Sub Private Sub cmdKeluar_Click() End End Sub Private Sub cmdLagi_Click() Cbokode = "" TxtJudul = "" TxtPengarang = "" TxtTahun = "" TxtPenerbit = "" TxtHarga = "" Cbokode.SetFocus End Sub Private Sub cmdProses_Click() Dim kode As String kode = Mid(Cbokode.Text, 3, 3) If kode = "SIM" Then TxtJudul.Text = "Sistem Informasi Manajemen" TxtPengarang.Text = "Yati Nur Oktavia" TxtHarga.Text = "75900" ElseIf kode = "EDP" Then TxtJudul.Text = "Elektronik Data Processing" TxtPengarang.Text = "Imam Tarmizi" TxtHarga.Text = "62000" ElseIf kode = "MNJ" Then TxtJudul.Text = "Manajemen" TxtPengarang.Text = "Valentina Mariana Adiwianti...

Private Sub Cbokode_Click() Dim merk, harga As String Select Case Cbokode.Text Case "Apple MC965 MacBook Air" merk = "Apple MacBook Air MC965" harga = "12800000" Case "Apple MC966 MacBook Air" merk = "Apple MacBook Air MC966" harga = "15800000" Case "Apple MC968 MacBook Air" merk = "Apple MacBook Air MC968" harga = "9900000" Case "Apple MC969 MacBook Air" merk = "Apple MacBook Air MC969" harga = "11900000" Case "Apple MC700 MacBook Pro" merk = "Apple MacBook Pro MC700" harga = "10800000" Case "Apple MC721 MacBook Pro" merk = "Apple MacBook Pro MC721" harga = "15900000" Case "Apple MC723 MacBook Pro" merk = "Apple MacBook Pro MC723" harga = "19300000" Case "Apple MC724 MacBook Pro" merk = "Apple MacBook Pro MC724" harga = "13700000" Case "Apple...