TUGAS11(DATA BUKU STMIK)

PROGRAM BUKU STMIK

Private Sub Cmdbatal_Click()
CBKODE = “”
TXTJUBUK = “”
Txtpeng = “”
Txttt = “”
Txtpenerbit = “”
Txtharga = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
CBKODE = “”
TXTJUBUK = “”
Txtpeng = “”
Txttt = “”
Txtpenerbit = “”
Txtharga = “”
End Sub

Private Sub CMDPROSES_Click()
Dim S As String
S = Mid(CBKODE, 3, 3)
If S = “SIM” Then
JUBUK = “SISTEM INFORMASI MANAJEMEN”
PENG = “YATI NUR OKTAVIA”
HARGA = “75900”
ElseIf S = “EDP” Then
JUBUK = “ELEKTRONIK DATA PROCESSING”
PENG = “IMAM TARMIZI”
HARGA = “62000”
ElseIf S = “MNJ” Then
JUBUK = “MANAJEMEN”
PENG = “VALENTINA MARIARA ADIWIANTI”
HARGA = “42000”
ElseIf S = “CDR” Then
JUBUK = “CORELDRAW”
PENG = “RIYAN SUHANDI”
HARGA = “53000”
ElseIf S = “RPL” Then
JUBUK = “REKAYASA PERANGKAT LUNAK”
PENG = “SINTA UMPU SINGA”
HARGA = “83000”
End If
TXTJUBUK = JUBUK
Txtpeng = PENG
Txtharga = HARGA
S = Left(CBKODE, 1)
If S = “A” Then
PENERBIT = “ANDI OFFSET YOGYAKARTA”
ElseIf S = “I” Then
PENERBIT = “INDAH SURABAYA”
ElseIf S = “S” Then
PENERBIT = “SALEMBANG EMPAT”
ElseIf S = “E” Then
PENERBIT = “ELEK MEDIA KOMPUTINDO”
ElseIf S = “M” Then
PENERBIT = “MAXICOM”
End If
Txttt = “20” & Right(CBKODE, 2)
Txtpenerbit = PENERBIT
End Sub

Private Sub Form_Load()
CBKODE.AddItem “A-SIM-01”
CBKODE.AddItem “I-EDP-02”
CBKODE.AddItem “S-MNJ-03”
CBKODE.AddItem “E-CDR-04”
CBKODE.AddItem “M-RPL-05”
End Sub

Iklan

tugas10(PT PULANG SETIAP HARI)

PROGRAM PT PULANG PETANGPrivate Sub CMDBATAL_Click()
TXTGOL = “”
TXTKS = “”
TXTSTATUS = “”
TXTTAHUN = “”
TXTJABATAN = “”
TXTBAGIAN = “”
TXTGAPOK = “”
TXTTUNJANGAN = “”
TXTTOTAL = “”
TXTNAMA = “”
TXTNIK = “”
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDLAGI_Click()
TXTGOL = “”
TXTKS = “”
TXTSTATUS = “”
TXTTAHUN = “”
TXTJABATAN = “”
TXTBAGIAN = “”
TXTGAPOK = “”
TXTTUNJANGAN = “”
TXTTOTAL = “”
TXTNAMA = “”
TXTNIK = “”
End Sub

Private Sub CMDPROSES_Click()
Dim S As String
S = Right(TXTNIK, 3)
If S = “KEU” Then
TXTBAGIAN = “ACCOUTING”
ElseIf S = “ADM” Then
TXTBAGIAN = “ADMINISTRASI”
ElseIf S = “SDM” Then
TXTBAGIAN = “GENERALAFFAIR”
ElseIf S = “EDP” Then
TXTBAGIAN = “IT UNIT”
ElseIf S = “SPM” Then
TXTBAGIAN = “SECURITY”
End If
TXTTAHUN = Left(TXTNIK, 4)
S = Mid(TXTNIK, 5, 1)
If S = “A” Then
TXTJABATAN = “MANAGER”
TXTGAPOK = “4000000”
TXTTUNJANGAN = “1025000”
ElseIf S = “B” Then
TXTJABATAN = “KA.SEKSI”
TXTGAPOK = “3500000”
TXTTUNJANGAN = “975000”
ElseIf S = “C” Then
TXTJABATAN = “STAFF”
TXTGAPOK = “3000000”
TXTTUNJANGAN = “925000”
End If
S = Mid(TXTNIK, 7, 1)
If S = “S” Then
TXTSTATUS = “SINGLE”
ElseIf S = “M” Then
TXTSTATUS = “MENIKAH”
ElseIf S = “J” Then
TXTSTATUS = “JANDA”
ElseIf S = “D” Then
TXTSTATUS = “DUDA”
End If
TXTGOL = Mid(TXTNIK, 5, 1)
TXTKS = Mid(TXTNIK, 7, 1)
TXTTOTAL = Val(TXTGAPOK) + Val(TXTTUNJANGAN)
End Sub
Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNIK.SetFocus
End If
End Sub

tugas9(data buku stmik)

PROGRAM 12STMIK
Private Sub CMDBATAL_Click()
TXTKB = “”
TXTJB = “”
TXTP = “”
TXTTAHUN = “”
TXTPENERBIT = “”
TXTHG = “”
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDLAGI_Click()
TXTKB = “”
TXTJB = “”
TXTP = “”
TXTTAHUN = “”
TXTPENERBIT = “”
TXTHG = “”
End Sub

Private Sub CMDPROSES_Click()
Dim JB, P, HG As String
TXTTAHUN = “20” & Right(TXTKB, 2)
S = Mid(TXTKB, 3, 3)
If S = “SIM” Then
JB = “SISTEM INFORMASI MANAJEMEN”
P = “ANDRA SETIAWAN”
HG = “75900”
ElseIf S = “EDP” Then
JB = “ELEKTRONIK DATA PROCESSING”
P = “DEDE ISTIQOMAH”
HG = “62000”
ElseIf S = “MNJ” Then
JB = “MANAJEMEN”
P = “SANDI FITRAYAJA”
HG = “42000”
ElseIf S = “CDR” Then
JB = “COREL DRAW”
P = “TRI INDAH SARI”
HG = “53000”
ElseIf S = “RPL” Then
JB = “REKAYASA PERANGKAT LUNAK”
P = “ERNITA SARI”
HG = “83000”
End If
TXTJB = JB
TXTP = P
TXTHG = HG
S = Left(TXTKB, 1)
If S = “A” Then
PENERBIT = “ANDI OFFSET YOGAKARTA”
ElseIf S = “I” Then
PENERBIT = “INDAH SURABAYA”
ElseIf S = “S” Then
PENERBIT = “SALEMBANG EMPAT”
ElseIf S = “E” Then
PENERBIT = “ELEK MEDIA KOMPUTINDO”
ElseIf S = “M” Then
PENERBIT = “MAXICOM”
End If
TXTPENERBIT = PENERBIT
End Sub

tugas8(data buku stmik pringsewu)

program3(buku)Private Sub Cmdbatal_Click()
TXTKODE.SetFocus
TXTKODE = “”
TXTJUBUK = “”
Txtpeng = “”
Txttt = “”
Txtpenerbit = “”
Txtharga = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
TXTKODE.SetFocus
TXTKODE = “”
TXTJUBUK = “”
Txtpeng = “”
Txttt = “”
Txtpenerbit = “”
Txtharga = “”
End Sub
Private Sub CMDPROSES_Click()
Dim jubuk, peng, harga As String
s = Left(TXTKODE, 3)
If s = “SIM” Then
jubuk = “Sistem Informasi Manajemen”
peng = “Fadiya Ulfa”
harga = “75900”
ElseIf s = “EDP” Then
jubuk = “Elektronik Data Processing”
peng = “Nurul Agustina”
harga = “62000”
ElseIf s = “MNJ” Then
jubuk = “Manajemen”
peng = “Rian Hidayat”
harga = “42000”
ElseIf s = “CDR” Then
jubuk = “Coreldraw”
peng = “Siti Nur Khotimah”
harga = “53000”
ElseIf s = “RPL” Then
jubuk = “Rekayasa Perangkat Lunak”
peng = “Winda erliyanti”
harga = “83000”
End If
TXTJUBUK = jubuk
Txtpeng = peng
Txtharga = harga
Txttt = “20” & Mid(TXTKODE, 5, 2)
s = Right(TXTKODE, 1)
If s = “A” Then
penerbit = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
penerbit = “Indah Surabaya”
ElseIf s = “S” Then
penerbit = “Selembang empat”
ElseIf s = “E” Then
penerbit = “Elek Media Komputindo”
ElseIf s = “M” Then
penerbit = “Maxicom”
End If
Txtpenerbit = penerbit
End Sub

tugas7(penjualan leptop asus)

PROGRAM LPTOP ASUSPrivate Sub CBKODE_Click()
Dim S As String
Select Case CBKODE.Text
Case “ASUS A43SA”
MERK = “ASUS A43SA-VX090D”
HARGA = “5500000”
Case “ASUS A43SD”
MERK = “ASUS A43SD-VX052D”
HARGA = “4500000”
Case “ASUS A43SJ”
MERK = “ASUS A43SJ-VX792D”
HARGA = “4300000”
Case “ASUS A43TA”
MERK = “ASUS A43TA-VX034D”
HARGA = “4900000”
Case “ASUS N43SL”
MERK = “ASUS N43SL-VX264D”
HARGA = “4300000”
Case “APPLE MD311”
MERK = “APPLE MACBOOK PRO MD311”
HARGA = “19300000”
Case “APPLE MD313”
MERK = “APPLE MACBOOK PRO MD313”
HARGA = “24200000”
Case “APPLE MD314”
MERK = “APPLE MACBOOK PRO MD314”
HARGA = “11900000”
Case “APPLE MD322”
MERK = “APPLE MACBOOK PRO MD322”
HARGA = “14700000”
Case “APPLE MC965”
MERK = “APPLE MACBOOK AIR MC965”
HARGA = “21300000”
End Select
TXTMERK = MERK
TXTHARGA = HARGA
TXTJUMJU.SetFocus
End Sub

Private Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDLAGI_Click()
CBKODE = “”
TXTMERK = “”
TXTHARGA = “”
TXTJUMJU = “”
TXTHARPEN = “”
TXTDIS = “”
TXTTOTAL = “”
End Sub

Private Sub CMDPROSES_Click()
TXTHARPEN = Val(TXTHARGA) * Val(TXTJUMJU)
If Val(TXTHARPEN) > 140000000 Then
TXTDIS = TXTHARPEN * 0.15
TXTTOTAL = TXTHARPEN – TXTDIS
ElseIf Val(TXTHARPEN) > 135000000 Then
TXTDIS = TXTHARPEN * 0.1
TXTTOTAL = TXTHARPEN – TXTDIS
ElseIf Val(TXTHARPEN) > 130000000 Then
TXTDIS = TXTHARPEN * 0.05
TXTTOTAL = TXTHARPEN – TXTDIS
ElseIf Val(TXTHARPEN) > 125000000 Then
TXTDIS = TXTHARPEN * 0.02
TXTTOTAL = TXTHARPEN – TXTDIS
End If
End Sub

Private Sub Form_Load()
CBKODE.AddItem “ASUS A43SA”
CBKODE.AddItem “ASUS A43SD”
CBKODE.AddItem “ASUS A43SJ”
CBKODE.AddItem “ASUS A43TA”
CBKODE.AddItem “ASUS N43SL”
CBKODE.AddItem “APPLE MD311”
CBKODE.AddItem “APPLE MD313”
CBKODE.AddItem “APPLE MD314”
CBKODE.AddItem “APPLE MD322”
CBKODE.AddItem “APPLE MC965”
End Sub

tugas6(biaya pembayaran/semester)

PROGRAM DATA MAHASISWAPrivate Sub Cmdbatal_Click()
TXTNAMA = “”
Txtnpm = “”
Txtkelas = “”
Txtjr = “”
Txtprodi = “”
Txttm = “”
Txturut = “”
txtup = “”
TXTSEMES = “”
Txtub = “”
TXTALMA = “”
Txttotal = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
TXTNAMA = “”
Txtnpm = “”
Txtkelas = “”
Txtjr = “”
Txtprodi = “”
Txttm = “”
Txturut = “”
txtup = “”
TXTSEMES = “”
Txtub = “”
TXTALMA = “”
Txttotal = “”
End Sub

Private Sub Cmdproses_Click()
Dim I As String
I = Left(Txtnpm, 1)
If I = “E” Then
KELAS = “EKSEKUTIF”
UB = “1250000”
ElseIf I = “R” Then
KELAS = “REGULER”
UB = “1000000”
End If
Txtkelas = KELAS
Txtub = UB
I = Mid(Txtnpm, 6, 2)
If I = “01” Then
PRODI = “STARA SATU”
If KELAS = “REGULER” Then
SEMES = “1500000”
Else
SEMES = “1900000”
End If
ElseIf I = “02” Then
PRODI = “DIPLOMA TIGA”
If KELAS = “REGULER” Then
SEMES = “1250000”
Else
SEMES = “1350000”
End If
End If
TXTSEMES = SEMES
Txtkelas = KELAS
I = Mid(Txtnpm, 5, 1)
If I = “1” Then
JR = “SISTEM INFORMASI”
ElseIf I = “2” Then
JR = “MANAJEMEN INFORMATIKA”
ElseIf I = “3” Then
JR = “MANAJEMEN DAN KOMP.AKUNTASI”
End If
Txtjr = JR
Txttm = “20” & Mid(Txtnpm, 3, 2)
Txturut = Right(Txtnpm, 3)
If PRODI = “STARA SATU” Then
UP = “200000”
ALMA = “600000”
ElseIf PRODI = “DIPLOMA TIGA” Then
UP = “150000”
ALMA = “600000”
End If
txtup = UP
TXTALMA = ALMA
Txtprodi = PRODI
Txttotal = Val(txtup) + Val(TXTSEMES) + Val(Txtub) + Val(TXTALMA)
End Sub

Private Sub TXTNAMA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

tugas5(penjualan tiket kereta api)

PROGRAM HARGA TIKETPrivate Sub CMDKELUAR_Click()
End
End Sub

Private Sub CMDLAGI_Click()
TXTHARTIK = “”
TXTJKA = “”
TXTJAMBER = “”
TXTJUMKET = “”
TXTTOTAL = “”
End Sub

Private Sub CMDPROSES_Click()
Dim HARTIK, JKA, JAMBER As String
C = Left(TXTTIKET, 3)
If C = “BIM” Then
HARTIK = “50000”
JKA = “BIMA”
JAMBER = “16:00”
ElseIf C = “EKO” Then
HARTIK = “35000”
JKA = “EKONOMI”
JAMBER = “19:00”
ElseIf C = “MUT” Then
HARTIK = “23000”
JKA = “MUTIARA”
JAMBER = “17:00”
ElseIf C = “SEN” Then
HARTIK = “15000”
JKA = “SENJA”
JAMBER = “20:00”
End If
TXTHARTIK = HARTIK
TXTJKA = JKA
TXTJAMBER = JAMBER
TXTJUMKET.SetFocus
End Sub
Private Sub TXTJUMKET_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTOTAL = Val(TXTHARTIK) * Val(TXTJUMKET)
End If
End Sub