Laman

Selasa, 12 Desember 2017

TUGAS 3.7

 TUGAS 3.7
PT.PULANG PETANG SETIAP HARI

Private Sub cmdbatal_Click()
txtnik = ""
Txtnama = ""
txtnik.SetFocus

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub Cmdlagi_Click()
txtnik = ""
Txtnama = ""
txtgol = ""
Txtkode = ""
Txtstatus = ""
Txttahun = ""
txtjab = ""
Txtbag = ""
Txtgp = ""
Txttj = ""
Txttotal = ""
txtnik.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim A, bag, stat, kode, gol, jab, gp, tj As String
A = Right(txtnik, 3)
If A = "KEU" Or A = "keu" Then
bag = "Accounting"
ElseIf A = "ADM" Or A = "adm" Then
bag = "Administrasi"
ElseIf A = "SDM" Or A = "sdm" Then
bag = "General Affair"
ElseIf A = "EDP" Or A = "edp" Then
bag = "IT Unit"
ElseIf A = "SPM" Or A = "spm" Then
bag = "Security"
End If
Txtbag = bag
A = Mid(txtnik, 7, 1)
If A = "S" Or A = "S" Then
kode = "S"
stat = "Single"
ElseIf A = "M" Or A = "m" Then
kode = "M"
stat = "Menikah"
ElseIf A = "J" Or A = "J" Then
kode = "J"
stat = "Janda"
ElseIf A = "D" Or A = "D" Then
kode = "D"
stat = "Duda"
End If
Txtkode = kode
Txtstatus = stat

Select Case A = Mid(txtnik, 5, 1)
Case A = "A" Or A = "a"
gol = "A"
jab = "Manager"
gp = "4000000"
tj = "1025000"

Case A = "B" Or A = "b"
gol = "B"
jab = "Ka.Seksi"
gp = "3500000"
tj = "975000"

Case A = "C" Or A = "c"
gol = "C"
jab = "Staff"
gp = "3000000"
tj = "925000"
End Select
txtgol = gol
txtjab = jab
Txtgp = gp
Txttj = tj

Txttahun = Left(txtnik, 4)
total = Val(gp) + Val(tj)
Txttotal = total
End Sub

Private Sub Form_Activate()
Txtnama.SetFocus

End Sub

Private Sub txtnik_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If

End Sub

TUGAS 3.6

TUGAS 3.6
DATA BUKU STMIK PRINGSEWU


Private Sub cmdbatal_Click()
txtkode = ""
Txtjudul = ""
Txtpengarang = ""
txtterbit = ""
Txtpenerbit = ""
txtharga = ""
txtkode.SetFocus

End Sub

Private Sub cmdkeluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtkode = ""
Txtjudul = ""
Txtpengarang = ""
txtterbit = ""
Txtpenerbit = ""
txtharga = ""
txtkode.SetFocus

End Sub

Private Sub cmdproses_Click()
Dim A, jb, peng, har, pener As String
txtterbit = "20" & Mid(txtkode, 5, 2)
A = Left(txtkode, 3)
If A = "SIM" Or A = "SIM" Then
jb = "Sistem Informasi Manajemen"
peng = "Fadiya Ulfa"
har = "75900"
ElseIf A = "EDP" Or A = "edp" Then
jb = "Elektronik Data Processing"
peng = "Nurul Agustina"
har = "62000"
ElseIf A = "MNJ" Or A = "mnj" Then
jb = "Manajemen"
peng = "Rian Hidayat"
har = "42000"
ElseIf A = "CDR" Or A = "cdr" Then
jb = "Corel Draw"
peng = "Siti Nur Khotimah"
har = "53000"
ElseIf A = "RPL" Or A = "rpl" Then
jb = "Rekayasa Perangkat Lunak"
peng = "Winda Erlanti"
har = "83000"
End If
Txtjudul = jb
Txtpengarang = peng
txtharga = har
A = Right(txtkode, 1)
If A = "A" Or A = "a" Then
pener = "Andi offset yogyakarta"
ElseIf A = "I" Or A = "i" Then
pener = "Indah Surabaya"
ElseIf A = "S" Or A = "S" Then
pener = "Salemba Empat"
ElseIf A = "" Or A = "e" Then
pener = "Elek Media Koputindo"
ElseIf A = "M" Or A = "m" Then
pener = "Maxicom"
End If
Txtpenerbit = pener

End Sub

Private Sub Form_Activate()
txtkode = ""
Txtjudul = ""
Txtpengarang = ""
txtterbit = ""
Txtpenerbit = ""
txtharga = ""
txtkode.SetFocus
End Sub

TUGAS 3.5

TUGAS 3.5

PENJUALAN TIKET KERETA API  OLEH MAHASISWA STMIK PRINGSEWU



Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtkt = ""
Txtht = ""
Txtjk = ""
Txtjb = ""
txtjt = ""
txttotalp = ""
txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B, jk, ht, jb As String
B = Left(txtkt, 3)
If B = "BIM" Or B = "bim" Then
jk = "BIMA"
ht = "50000"
jb = "16.00"
ElseIf B = "EKO" Or B = "eko" Then
jk = "EKONOMI"
ht = "35000"
jb = "19.00"
ElseIf B = "MUT" Or B = "mut" Then
jk = "MUTIARA"
ht = "23000"
jb = "17.00"
ElseIf B = "SEN" Or B = "sen" Then
jk = "SENJA"
ht = "15000"
jb = "20.00"
End If
Txtjk = jk
Txtht = ht
Txtjb = jb
txtjt.SetFocus
End Sub

Private Sub Form_Activate()
txtkt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(Txtht) * Val(txtjt)
End If
End Sub

TUGAS 3.4



TUGAS 3.4
DATA BUKU STMIK PRINGSEWU



Private Sub cmdbatal_Click()
Cbokode = ""
txtjudul = ""
txtpengarang = ""
txtterbit = ""
txtpenerbit = ""
txtharga = ""
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
Cbokode = ""
txtjudul = ""
txtpengarang = ""
txtterbit = ""
txtpenerbit = ""
txtharga = ""
End Sub

Private Sub cmdproses_Click()
Dim C, jb, peng, har, pener As String
txtterbit = "20" & Right(Cbokode, 2)
C = Mid(Cbokode, 3, 3)
If C = "SIM" Then
jb = "Sistem Informasi Manajemen"
peng = "Yati Nur Oktavia"
har = "75900"
ElseIf C = "EDP" Then
jb = "Elektronik Data Processing"
peng = "Imam Tarmizi"
har = "62000"
ElseIf C = "MNJ" Then
jb = "Manajemen"
peng = "Valentina Mariana Adiwianti"
har = "42000"
ElseIf C = "CDR" Then
jb = "corel draw"
peng = "Riyan Suhandi"
har = "53000"
ElseIf C = "RPL" Then
jb = "Rekayasa Perangkat Lunak"
peng = "Sinta Umpu Singa"
har = "83000"
End If
txtjudul = jb
txtpengarang = peng
txtharga = har
C = Left(Cbokode, 1)
If C = "A" Then
pener = "Andi Offset"
ElseIf C = "I" Then
pener = "Indah Surabaya"
ElseIf C = "S" Then
pener = "Salemba Empat"
ElseIf C = "E" Then
pener = "Elek Media Komputindo"
ElseIf C = "M" Then
pener = "Maxinco"
End If
txtpenerbit = pener
End Sub

Private Sub Form_Load()
Cbokode.AddItem "A-SIM_01"
Cbokode.AddItem "I-EDP_02"
Cbokode.AddItem "S-MNJ_03"
Cbokode.AddItem "E-CDR_04"
Cbokode.AddItem "M-RPL_05"
End Sub

TUGAS 3.3


TUGAS 3.3
ENTRI PENJUALAN LAPTOP OLEH MAHASISWA STMIK PRINGSEWU


Private Sub cbokode_Click()
Dim mt, hs As String
Select Case Mid(cbokode, 7, 5)
Case "MC965"
mt = "Apple MC965 Macbook Air  "
hs = "12800000"
Case "MC966"
mt = "Apple MC966 Macbook Air  "
hs = "15800000"
Case "MC968"
mt = "Apple MC968 Macbook Air "
hs = "9900000"
Case "MC969"
mt = "Apple MC969 Macbook Air "
hs = "11900000"
Case "MC700"
mt = "Apple MC700 Macbook Pro "
hs = "10800000"
Case "MC721"
mt = "Apple MC721 Macbook Pro  "
hs = "15900000"
Case "MC723"
mt = "Apple MC723 Macbook Pro "
hs = "19300000"
Case "MC724"
mt = "Apple  MC724 Macbook Pro"
hs = "13700000"
Case "MC7311"
mt = "Apple MC311 Macbook Pro "
hs = "24200000"
Case "MC313"
mt = "Apple MC313  Macbook Pro "
hs = "11900000"
Case "MC314"
mt = "Apple MC314 Macbook Pro "
hs = "14700000"
Case "MC318"
mt = "Apple MC318 Macbook Pro  "
hs = "17600000"
Case "MC322"
mt = "Apple MC322 Macbook Pro  "
hs = "21300000"
Case "MC965"
mt = "Apple MC965 Macbook Air "
hs = "12800000"
Case "MC966"
mt = "Apple MC966 Macbook Air "
hs = "15800000"
End Select
Txtmerk = mt
txths = hs
txtjj.SetFocus
End Sub

Private Sub cmdhitung_Click()
cbokode.SetFocus
cbokode = ""
Txtmerk = ""
txths = ""
txtjj = ""
txthp = ""
txtdis = ""
txttb = ""
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
txthp = Val(txtjj) * Val(txths)
If txthp >= 140000000 Then
txtdis = (0.15) * Val(txthp)
ElseIf txthp >= 135000000 Then
txtdis = (0.1) * Val(txthp)
ElseIf txthp >= 130000000 Then
txtdis = (0.5) * Val(txthp)
ElseIf txthp >= 125000000 Then
txtdis = (0.2) * Val(txthp)
Else
End If
txttb.Text = Val(txthp) - Val(txtdis)
End Sub

Private Sub Form_Load()
cbokode.AddItem "Apple MC965 Macbook Air"
cbokode.AddItem "Apple MC966 Macbook Air"
cbokode.AddItem "Apple MC968 Macbook Air"
cbokode.AddItem "Apple MC969 Macbook Air"
cbokode.AddItem "Apple MC700 Macbook Pro"
cbokode.AddItem "Apple MC721 Macbook Pro"
cbokode.AddItem "Apple MC723 Macbook Pro"
cbokode.AddItem "Apple MC724 Macbook Pro"
cbokode.AddItem "Apple MC311 Macbook Pro"
cbokode.AddItem "Apple MC313 Macbook Pro"
cbokode.AddItem "Apple MC314 Macbook Pro"
cbokode.AddItem "Apple MC318 Macbook Pro"
cbokode.AddItem "Apple MC322 Macbook Pro"
cbokode.AddItem "Apple MC965 Macbook Air"
cbokode.AddItem "Apple MC966 Macbook Air"
End Sub


TUGAS 3.2


TUGAS 3.2
MENCARI DATA MAHASISWA


Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama = ""
Txtnpm = ""
Txtjur = ""
Txtps = ""
Txttm = ""
Txturut = ""
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama = ""
Txtnpm = ""
Txtjur = ""
Txtps = ""
Txttm = ""
Txturut = ""
End Sub

Private Sub Cmdproses_Click()
Dim D As String
Txttm = "20" & Left(Txtnpm, 2)
D = Mid(Txtnpm, 3, 1)
If D = "1" Then
Txtjur = "Sistem Informasi"
ElseIf D = "2" Then
Txtjur = "Manajemen Informatika"
ElseIf D = "3" Then
Txtjur = "Tehnik Informatina"
ElseIf D = "4" Then
Txtjur = "Manajemen & kom.Akuntansi"
End If
D = Mid(Txtnpm, 4, 2)
If D = "01" Then
Txtps = "Strata Satu"
ElseIf D = "02" Then
Txtps = "Diploma Tiga"
ElseIf D = "03" Then
Txtps = "Diploma Empat"
ElseIf D = "04" Then
Txtps = "Diploma Dua"
End If
Txturut = Right(Txtnpm, 3)
End Sub

Private Sub Form_Activate()
Txtnama.SetFocus
Txtnama = ""
Txtnpm = ""
Txtjur = ""
Txtps = ""
Txttm = ""
Txturut = ""
End Sub

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

TUGAS 3.1