DATA MAHASISWA STMIK PRINGSEWU

Capture

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtkelas.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnorut.Text = “”
Txtup.Text = “”
Txtbps.Text = “”
Txtub.Text = “”
Txtbpa.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtkelas.Text = “”
Txtjur.Text = “”
Txtprodi.Text = “”
Txttm.Text = “”
Txtnorut.Text = “”
Txtup.Text = “”
Txtbps.Text = “”
Txtub.Text = “”
Txtbpa.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim s As String
Txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
Txtnorut = Mid(Txtnpm.Text, 8, 3)
s = Left(Txtnpm.Text, 1)
If s = “E” Then
Txtkelas.Text = “Eksekutif”
Txtub.Text = “1250000”
ElseIf s = “R” Then
Txtkelas.Text = “Reguler”
Txtub.Text = “1000000”
End If
s = Mid(Txtnpm.Text, 5, 1)
If s = “1” Then
Txtjur.Text = “sistem informasi”
ElseIf s = “2” Then
Txtjur.Text = “manajemen informasi”
ElseIf s = “3” Then
Txtjur.Text = “manajemen dan komp.akuntansi”
End If
s = Mid(Txtnpm.Text, 6, 2)
If s = “01” Then
Txtprodi.Text = “strata satu”
Txtup.Text = “200000”
ElseIf s = “02” Then
Txtprodi.Text = “Diploma Tiga”
Txtup.Text = “150000”
ElseIf s = “03” Then
Txtprodi.Text = “Diploma satu”
Txtup.Text = “15000”
End If
s = (Txtkelas.Text) & (Txtprodi.Text)
If s = “Eksekutif” & “strata satu” Then
Txtbps = “1900000”
ElseIf s = “Eksekutif” & “Diploma Tiga” Then
Txtbps = “1650000”
ElseIf s = “Eksekutif” & “Diploma satu” Then
Txtbps = “1350000”
ElseIf s = “Reguler” & “strata satu” Then
Txtbps = “1500000”
ElseIf s = “Eksekutif” & “Diploma Tiga” Then
Txtbps = “1250000”
ElseIf s = “Eksekutif” & “Diploma satu” Then
Txtbps = “1250000”
End If
Txtbpa.Text = “600000”
Txttb = Val(Txtup.Text) + Val(Txtbps.Text) + Val(Txtub.Text) + Val(Txtbpa.Text)
End Sub

Iklan

DATA MAHASISWA

Capture

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtbp.Text = “”
txtterbilang.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Dim testmsg As Integer
testmsg = MsgBox(“anda yakin mau keluar”, vbYesNo)
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtstudi.Text = “”
txttahun.Text = “”
txtnurut.Text = “”
txtbp.Text = “”
txtterbilang.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Mid(txtnpm.Text, 1, 2)
txtnurut = Mid(txtnpm.Text, 6, 3)
s = Mid(txtnpm.Text, 4, 2)
If s = “01” Then
txtstudi.Text = “strata satu”
txtbp.Text = “1950000”
ElseIf s = “02” Then
txtstudi.Text = “Diploma Empat”
txtbp.Text = “1750000”
ElseIf s = “03” Then
txtstudi.Text = “Diploma Tiga”
txtbp.Text = “1650000”
ElseIf s = “04” Then
txtstudi.Text = “Diploma Dua”
txtbp.Text = “1450000”
End If
s = Mid(txtnpm.Text, 3, 1)
If s = “1” Then
txtjurusan.Text = “sistem informasi”
ElseIf s = “2” Then
txtjurusan.Text = “tehnik informasi”
ElseIf s = “3” Then
txtjurusan.Text = “manajemen informasi”
ElseIf s = “4” Then
txtjurusan.Text = “manajemen dan komp.akuntansi”
End If
End Sub

Private Sub txtbp_Change()
txtterbilang = terbilang(Val(txtbp.Text))
End Sub

Private Function baca(X As Integer) As String
Dim i As Long
Dim Ratus(9) As String
Dim belas(9) As String
Dim puluh(9) As String
Dim satuan(9) As String
Dim sbaca As String

satuan(1) = “satu”
satuan(2) = “dua”
satuan(3) = “tiga”
satuan(4) = “Empat”
satuan(5) = “Lima”
satuan(6) = “Enam”
satuan(7) = “Tujuh”
satuan(8) = “Delapan”
satuan(9) = “Sembilan”

For i = 1 To 9
If i = 1 Then
puluh(i) = “Sepuluh”
Else
puluh(i) = satuan(i) & “Puluh”
End If
Next

For i = 1 To 9
If i = 1 Then
belas(i) = “Sebelas”
Else
belas(i) = satuan(i) & “Belas”
End If
Next
For i = 1 To 9
If i = 1 Then
Ratus(i) = “seratus”
Else
Ratus(i) = satuan(i) & ” ratus”
End If
Next
If X >= 100 Then
sbaca = Ratus(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 2))
End If
If X >= 20 Or X = 10 Then
sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))
X = Val(Mid(Str(X), 3, 1))
Else
If X > 10 Then
sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))
X = -1
End If
End If
If X >= 1 Then
sbaca = sbaca & ” ” & satuan(Val((Str(X))))
End If
baca = sbaca
End Function

Function terbilang(X As Currency) As String
Dim ribu, juta, milyar, trilyun, ratusan As Integer
Dim sterbilang As String
Dim ptext As Byte
sterbilang = “”
If Val(X) = 1000000000000# Then
ptext = Len(Str(X)) – 13
trilyun = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & “”
X = Val(Mid(Str(X), ptext + 2, 12))
End If
If X >= 1000000000 Then
ptext = Len(Str(X)) – 10
milyar = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” ”
X = Val(Mid(Str(X), ptext + 2, 9))
End If
If X >= 1000000 Then
ptext = Len(Str(X)) – 7
juta = Val(Mid(Str(X), 2, ptext))
sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”
X = Val(Mid(Str(X), ptext + 2, 6))
End If
If X >= 1000 Then
ptext = Len(Str(X)) – 4
ribu = Val(Mid(Str(X), 2, ptext))
If ribu = 1 Then
sterbilang = “seribu”
Else
sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”
End If
X = Val(Mid(Str(X), ptext + 2, 3))
End If
sterbilang = sterbilang & ” ” & baca(Val(X))
terbilang = Trim(sterbilang) & ” rupiah”
End Function

DATA BUKU STMIK PRINGSEWU

Capture

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txth.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txth.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b, c, d As String
Dim h As Double
txttt.Text = “20” & Right(cbokb.Text, 2)
a = Mid(cbokb.Text, 3, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “YATI NUR OKTAVIA”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “VALENTINA MARIANA ADIWIANTI”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “IMAM TARMIZI”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “RIYAN SUHANDI”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “SINTA UMPUL SINGA”
h = “83000”
End If
txtjb.Text = b
txtpeng.Text = c
txth.Text = h
d = Left(cbokb.Text, 1)
If d = “A” Then
txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
txtpen.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
txtpen.Text = “MAXICOM”
ElseIf d = “S” Then
txtpen.Text = “SURYA PERMAI”
ElseIf d = “E” Then
txtpen.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub
Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”
End Sub

ENTRI PENJUALAN KOMPUTER

Capture

Private Sub Cbokode_Click()
Dim kk, jk, hs As String
Select Case Cbokode.Text
Case “Asus A43SA”
Txtjk.Text = “Asus A53SA-VX090D”
Txths.Text = “5500000”
Case “Asus A43SD”
Txtjk.Text = “Asus A43SD-VX052D”
Txths.Text = “4500000”
Case “Asus A43SJ”
Txtjk.Text = “Asus A43SJ-VX792D”
Txths.Text = “4300000”
Case “Asus A43TA”
Txtjk.Text = “Asus A43TA-VX034D ”
Txths.Text = “4900000”
Case “Asus A43SL”
Txtjk.Text = “Asus A43SL-VX264SL”
Txths.Text = “4300000”
Case “Apple MD311”
Txtjk.Text = “Apple MacBook Pro MD311”
Txths.Text = “19300000”
Case “Apple MD313”
Txtjk.Text = “Apple MacBook Pro MD313”
Txths.Text = “24200000”
Case “Apple MD314”
Txtjk.Text = “Apple MacBook Pro MD314”
Txths.Text = “11900000”
Case “Apple MD322”
Txtjk.Text = “Apple MacBook Pro MD322”
Txths.Text = “14700000”
Case “Apple MC965”
Txtjk.Text = “Apple MacBook Air MC965”
Txths.Text = “19300000”
End Select
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txtjj.Text) * Val(Txths.Text)
If Txthp.Text > 40000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 35000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.2
End If
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Asus A43SA”
Cbokode.AddItem “Asus A43SD”
Cbokode.AddItem “Asus A43SJ”
Cbokode.AddItem “Asus A43TA”
Cbokode.AddItem “Asus A43SL”
Cbokode.AddItem “Apple MD311”
Cbokode.AddItem “Apple MD313”
Cbokode.AddItem “Apple MD314”
Cbokode.AddItem “Apple MD322”
Cbokode.AddItem “Apple MC965”
End Sub

DATA KARYAWAN

Capture

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtg.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgp.Text = “”
Txttn.Text = “”
Txttg.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim r As String

r = Mid(Txtmn.Text, 5, 1)
If r = “A” Then
Txtg = “A”
Txtj.Text = “MANAGER”
Txtgp.Text = “4000000”
Txttn.Text = “1025000”
ElseIf r = “B” Then
Txtg.Text = “B”
Txtj.Text = “Ka.SEKSI”
Txtgp.Text = “3500000”
Txttn.Text = “975000”
ElseIf r = “C” Then
Txtg.Text = “C”
Txtj.Text = “STAFF”
Txtgp.Text = “3000000”
Txttn.Text = “925000”
End If
r = Right(Txtmn.Text, 3)
If r = “KEU” Then
Txtb.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Txtb.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Txtb.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Txtb.Text = “IT UNIT”
ElseIf r = “SPM” Then
Txtb.Text = “SECURITY”
End If
r = Mid(Txtmn.Text, 7, 1)
If r = “S” Then
kode = “S”
Status = “SINGEL”
ElseIf r = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf r = “J” Then
kode = “J”
Status = “JANDA”
ElseIf r = “D” Then
kode = “D”
Status = “DUDA”
End If
Txtks.Text = kode
Txts.Text = Status
Txtt.Text = Left(Txtmn.Text, 4)
Txttg.Text = Val(Txtgp.Text) + Val(Txttn.Text)
End Sub

Private Sub Form_Activate()
Txtmnk.SetFocus
End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtmn.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtg.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgp.Text = “”
Txttn.Text = “”
Txttg.Text = “”
End Sub

tugas 4

TUGAS  1 HURUF MUTU    

huruf mutu out

 

huruf mutunin

 

Private Sub Cbonpm_Click()

Dim nama, jurusan As String

Select Case cbonpm.Text

Case “09100027”

nama = “AFNAN ZALFA SALSABILA A”

jurusan = “Sistem Informasi”

Case “09200048”

nama = “AMALIA AMANAH”

jurusan = “Manajemen Informatika”

Case “09300024”

nama = “SASKIA MECHA”

jurusan = “Tehnik Informatika”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

txtquis.SetFocus

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “09100027”

cbonpm.AddItem “09200048”

cbonpm.AddItem “09300024”

End Sub

 

Private Sub txtquis_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txttugas.SetFocus

End If

End Sub

 

Private Sub txttugas_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txtuas.SetFocus

End If

End Sub

 

 

Private Sub Cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = “”

txtnama.Text = “”

txtjurusan.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txthm.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End Sub

Private Sub txtuas_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna.Text = NA

 

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txthm.Text = HM

End If

End Sub

TUGAS  2 golongan gaji dosen

gj desn int  gaji dosen out

 

Gambar

 

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

 

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

 

 

Tugas 3   npm 4  digit

npm 4 dgt int npm 4 dgt ou

Private Sub batal_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

 

End Sub

 

Private Sub Form_Activate()

t1.SetFocus

t1.Text = “”

t2.Text = “”

t3.Text = “”

t4.Text = “”

t5.Text = “”

t6.Text = “”

End Sub

 

Private Sub t1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

t2.SetFocus

End If

End Sub

 

 

Private Sub keluar_Click()

End

End Sub

 

Private Sub lagi_Click()

t1.SetFocus

t1 = ” ”

t2 = ” ”

t3 = ” ”

t4 = ” ”

t5 = ” ”

t6 = ” ”

 

End Sub

 

Private Sub proses_Click()

Dim S As String

t5.Text = “20” & Left(t2.Text, 2)

S = Mid(t2.Text, 3, 1)

If S = “1” Then

t3.Text = “Sistem Informasi”

ElseIf S = “2” Then

txt3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

t3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

t3.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(t2.Text, 4, 2)

If S = “01” Then

t4.Text = “Strata Satu”

ElseIf S = “02” Then

t4.Text = “Diploma Tiga”

ElseIf S = “03” Then

t4.Text = “Diploma Empat”

ElseIf S = “04” Then

t4.Text = “Diploma Dua”

End If

 

t6.Text = Right(t2.Text, 3)

End Sub

 

 

 

 

 

tugas 4 (npm 3 digit)

npm 3 dgt int npm 3 dgt

Gambar

 

Private Sub batal_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

 

End Sub

 

Private Sub Form_Activate()

txt1.SetFocus

txt1.Text = “”

txt2.Text = “”

txt3.Text = “”

txt4.Text = “”

txt5.Text = “”

txt6.Text = “”

End Sub

 

Private Sub txt1_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txt2.SetFocus

End If

End Sub

 

 

Private Sub keluar_Click()

End

End Sub

 

Private Sub lagi_Click()

txt1.SetFocus

txt1 = ” ”

txt2 = ” ”

txt3 = ” ”

txt4 = ” ”

txt5 = ” ”

txt6 = ” ”

 

End Sub

 

Private Sub proses_Click()

Dim S As String

txt5.Text = “20” & Left(txt2.Text, 2)

S = Mid(txt2.Text, 3, 1)

If S = “1” Then

txt3.Text = “Sistem Informasi”

txt4.Text = “Strata Satu”

ElseIf S = “2” Then

txt3.Text = “Manajemen Informatika”

txt4.Text = “Diploma Tiga”

ElseIf S = “3” Then

txt3.Text = “Tehnik Informatika”

txt4.Text = “Diploma Empat”

ElseIf S = “4” Then

txt3.Text = “Manajemen & Komp. Akuntansi”

txt4.Text = “Diploma Dua”

End If

 

txt6.Text = Right(txt2.Text, 3)

End Sub

 

 

 

 

 

 

 

 

 

tugas 5 (KODE BUKU TEXT)

data buku int  DATA buku yxy out

Gambar

 

 

 

Private Sub cmdlagi_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

 

Private Sub cmdbatal_Click()

txtkodebuku.SetFocus

txtkodebuku.Text = “”

txtjudulbuku.Text = “”

txtpengarang.Text = “”

txttahunterbit.Text = “”

txtpenerbit.Text = “”

txtharga.Text = “”

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

 

Private Sub Cmdproses_Click()

Dim S As String

txttahunterbit.Text = “20” & Mid(txtkodebuku.Text, 5, 2)

S = Left(txtkodebuku.Text, 3)

If S = “SIM” Then

txtjudulbuku.Text = “Sistem Informasi”

txtpengarang.Text = “Fadiya ulfa”

ElseIf S = “EDP” Then

txtjudulbuku.Text = “elektronik data Procesing”

txtpengarang.Text = “Nurul Agustina”

ElseIf S = “MNJ” Then

txtjudulbuku.Text = “Manajemen”

txtpengarang.Text = “Riyan Hidayat”

ElseIf S = “CDR” Then

txtjudulbuku.Text = “Corel Draw”

txtpengarang.Text = “Siti Nurkhotimah”

ElseIf S = “RPL” Then

txtjudulbuku.Text = “Rekaya Perangkat Lunak ”

txtpengarang.Text = “Winda erlianti”

 

 

End If

S = Mid(txtkodebuku.Text, 8, 1)

If S = “A” Then

txtpenerbit.Text = “Andi offset yogyakarta”

txtharga.Text = “75900”

ElseIf S = “I” Then

txtpenerbit.Text = “Indah Surabaya”

txtharga.Text = “62000”

ElseIf S = “S” Then

txtpenerbit.Text = “Salemba Empat”

txtharga.Text = “42000”

ElseIf S = “E” Then

txtpenerbit.Text = “Elek Media Komputindo”

txtharga.Text = “53000”

ElseIf S = “M” Then

txtpenerbit.Text = “Maxicom”

txtharga.Text = “83000”

End If

 

End Sub

 

tugas 6 (data buku combo)

dta buku cmbo int data buku cmbo o

gambar

 

 

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjb.Text = “”

txtpg.Text = “”

txttt.Text = “”

txtpn.Text = “”

txth.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

txttt.Text = “20” & Right(cbokode.Text, 2)

s = Mid(cbokode.Text, 3, 3)

If s = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

ElseIf s = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

ElseIf s = “MNJ” Then

txtjb.Text = “Manajemen”

ElseIf s = “CDR” Then

txtjb.Text = “Corel Draw”

ElseIf s = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

End If

s = Left(cbokode.Text, 1)

If s = “A” Then

txtpg.Text = “Yati Nur Oktavia”

txth.Text = “75900”

txtpn.Text = “Andi Offset Yogyakarta”

ElseIf s = “I” Then

txtpg.Text = “Imam Tarmizi”

txth.Text = “620000”

txtpn.Text = “Indah Surabaya”

ElseIf s = “S” Then

txtpg.Text = “Valentina Mariana adiwinanti”

txth.Text = “42000”

txtpn.Text = “Salemba Empat”

ElseIf s = “E” Then

txtpg.Text = “Ryan Suhandi”

txth.Text = “53000”

txtpn.Text = “Elek Media Komputindo”

ElseIf s = “M” Then

txtpg.Text = “Sinta Umpu Singa”

txth.Text = “83000”

txtpn.Text = “Maxicom”

End If

txth.SetFocus

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 7 (PENJUALAN LAPTOP APLLE)

 

en3 dat aple outen3 dta in

Gambar

 

Private Sub cbokode_Click()

Dim merk, satuan As String

Select Case cbokode.Text

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

satuan = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

satuan = “15800000”

Case “Apple MC968 MacBook Air”

merk = “Apple MacBook Air MC968”

satuan = “9900000”

Case “Apple MC969 MacBook Air”

merk = “Apple MacBook Air MC969”

satuan = “11900000”

Case “Apple MC700 MacBook Pro”

merk = “Apple MacBook Pro MC700”

satuan = “10800000”

Case “Apple MC721 MacBook Pro”

merk = “Apple MacBook Pro MC721”

satuan = “15900000”

Case “Apple MC723 MacBook Pro”

merk = “Apple MacBook Pro MC723”

satuan = “19300000”

Case “Apple MC724 MacBook Pro”

merk = “Apple MacBook Pro MC724”

satuan = “13700000”

Case “Apple MC311 MacBook Pro”

merk = “Apple MacBook Pro MC311”

satuan = “24200000”

Case “Apple MC313 MacBook Pro”

merk = “Apple MacBook Pro MC313”

satuan = “11900000”

Case “Apple MC314 MacBook Pro”

merk = “Apple MacBook Pro MC314”

satuan = “14700000”

Case “Apple MC318 MacBook Pro”

merk = “Apple MacBook Pro MC318”

satuan = “17600000”

Case “Apple MC322 MacBook Pro”

merk = “Apple MacBook Pro MC322”

satuan = “21300000”

Case “Apple MC965 MacBook Air”

merk = “Apple MacBook Air MC965”

satuan = “12800000”

Case “Apple MC966 MacBook Air”

merk = “Apple MacBook Air MC966”

satuan = “15800000”

End Select

txtmrt.Text = merk

txths.Text = satuan

txtjj.SetFocus

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

txtmrt = “”

txths = “”

txtjj = “”

txthp = “”

txtds = “”

txttb = “”

End Sub

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp.SetFocus

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

End If

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

End Sub

 

Private Sub cmdproses_Click()

txthp.Text = Val(txths.Text) * Val(txtjj.Text)

Select Case txthp.Text

Case Is > 140000000

txtds.Text = Val(txthp.Text) * 0.15

Case Is > 135000000

txtds.Text = Val(txthp.Text) * 0.1

Case Is > 130000000

txtds.Text = Val(txthp.Text) * 0.5

Case Is > 125000000

txtds.Text = Val(txthp.Text) * 0.2

End Select

txttb.Text = Val(txthp.Text) – Val(txtds.Text)

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

TUGAS8(PENJUALAN KOMPUTER)

Capture  en3 out

Gambar

Private Sub cmdhitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

 

Private Sub Cmdclose_Click()

Unload Me

End Sub

 

Private Sub cboclose_Click()

Unload Me

End Sub

Private Sub cbohitunglagi_Click()

cbokodekomputer.SetFocus

cbokodekomputer.Text = “”

txtjeniskomputer.Text = “”

txthargasatuan.Text = “”

txtjumlahjual.Text = “”

txthargapenjualan.Text = “”

txtdiskon.Text = “”

txthargabayar.Text = “”

End Sub

 

Private Sub Cbokodekomputer_Click()

Dim jeniskomputer, hargasatuan As String

Select Case cbokodekomputer.Text

Case “P205”

jeniskomputer = “Pentium II 500 Mega Hz”

hargasatuan = “1500000”

Case “P308”

jeniskomputer = “Pentium III 800 Mega Hz”

hargasatuan = “2100000”

Case “P310”

jeniskomputer = “Pentium III 1 Giga Hz”

hargasatuan = “3500000”

Case “P415”

jeniskomputer = “Pentium IV 1.5 Giga Hz”

hargasatuan = “4000000”

Case “P417”

jeniskomputer = “Pentium IV 1.7 Giga Hz”

hargasatuan = “4200000”

Case “P419”

jeniskomputer = “Pentium IV 1.9 Giga Hz”

hargasatuan = “5500000”

End Select

txtjeniskomputer.Text = jeniskomputer

txthargasatuan.Text = hargasatuan

txtjumlahjual.SetFocus

End Sub

 

Private Sub cmdproses_Click()

txthargabayar = Val(txthargapenjualan.Text) – Val(txtdiskon.Text)

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.Text = txthargapenjualan

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

 

Private Sub Form_Load()

cbokodekomputer.AddItem “P205”

cbokodekomputer.AddItem “P308”

cbokodekomputer.AddItem “P310”

cbokodekomputer.AddItem “P415”

cbokodekomputer.AddItem “P417”

cbokodekomputer.AddItem “P419”

End Sub

Private Sub txthargapenjualan_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

End If

txthargapenjualan.Text = txthargapenjualan

Select Case txthargapenjualan.Text

Case Is > 30000000

txtdiskon = 0.15 * Val(txthargapenjualan.Text)

Case Is > 25000000

txtdiskon = 0.1 * (txthargapenjualan.Text)

Case Is > 20000000

txtdiskon = 0.05 * (txthargapenjualan.Text)

Case Is >= 15000000

txtdiskon = 0.02 * (txthargapenjualan.Text)

End Select

End Sub

Private Sub txthargasatuan_KeyPress(KeyAscii As Integer)

txtjumlahjual.SetFocus

End Sub

Private Sub txtjumlahjual_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthargapenjualan = Val(txthargasatuan.Text) * Val(txtjumlahjual.Text)

txthargapenjualan.SetFocus

End If

End Sub

Tugas 9(kode tiket)

dta tiket int  DTA TIKT OUT

Private Sub cmdproses_click()

Dim S As String

S = (txtkt.Text)

If S = “MUT2212” Then

txtht.Text = “23000”

txtjk.Text = “MUTIARA”

txtjb.Text = “17.00”

txtjt.SetFocus

ElseIf S = “BIM2212” Then

txtht.Text = “50000”

txtjk.Text = “BIMA”

txtjb.Text = “16.00”

txtjt.SetFocus

ElseIf S = “EKO2212” Then

txtht.Text = “35000”

txtjk.Text = “EKONOMI”

txtjb.Text = “19.00”

txtjt.SetFocus

ElseIf S = “SEN2212” Then

txtht.Text = “75000”

txtjk.Text = “SENJA”

txtjb.Text = “20.00”

txtjt.SetFocus

End If

End Sub

 

 

 

 

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

Dim A, B, C As Single

A = txtht.Text

B = txtjt.Text

C = B * A

txttp.Text = C

End If

 

End Sub

 

Private Sub Cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttp.Text = “”

 

End Sub

Private Sub cmdkeluar_click()

End

End Sub

 

tugas 3

KODE SOURCE TUGAS 1

RBI

RBIO

 

 

 

Private Sub oke_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub selesai_Click()

End

End Sub

 

 

Private Sub biru_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub merah_Click()

Label2.ForeColor = vbRed

End Sub

Private Sub hijau_Click()

Label2.ForeColor = vbGreen

End Sub

Private Sub kuning_Click()

Label2.ForeColor = vbYellow

End Sub

Private Sub bold_Click()

Label2.FontBold = Check1.Value

End Sub

 

Private Sub italic_Click()

Label2.FontItalic = Check2.Value

End Sub

Private Sub underline_Click()

Label2.FontUnderline = Check3.Value

End Sub

Private Sub strikeout_Click()

Label2.FontStrikethru = Check4.Value

End Sub

KODE SORCE TUGAS 2 PROGRAM PERHITUNGAN GAJI

ROBI -PTNGAN GAJI

GAJI ROBI OUT

 

 

Private Sub cmdexit_Click()

End

End Sub

 

Private Sub cmdproses_Click()

 

Txt4.Text = Val(Txt1.Text) + Val(txt2.Text) – Val(txt3.Text)

Txt5.Text = Val(txt4.Text) * (0.1)

Txt6.Text = Val(txt4.Text) – Val(txt5.Text)

End Sub

 

Private Sub cmdUlang_Click()

txt1 = “”

txt 2= “”

txt3= “”

txt4 = “”

txt5 = “”

txt6 = “”

End Sub

Private Sub txt1_keypress(keyascii As Integer)

If keyascii = 13 Then

Txt2.SetFocus

End If

End Sub

 

Private Sub txt2_keypress(keyascii As Integer)

If keyascii = 13 Then

Txt3.SetFocus

End If

End Sub

 

 

 

Private Sub txt3_keypress(keyascii As Integer)

If keyascii = 13 Then

txt4.Text = Val(txt1) + Val(txt2) – Val(txt3)

txt5.Text = Val(txt4) * 0.1

txt6.Text = Val(txt4) – Val(txt5)

End If

End Sub

 

 

 

TUGAS 3 (PROGRAM FONT AND STYLE)

 

 

ROBI 1

ROBI 2

Private Sub optblue_click()

lblTeks.ForeColor = vbBlue

End Sub

Private Sub optRed_click()

lblTeks.ForeColor = vbRed

End Sub

Private Sub optGreen_click()

lblTeks.ForeColor = vbGreen

End Sub

Private Sub optyellow_click()

lblTeks.ForeColor = vbYellow

End Sub

Private Sub chkBold_click()

If ChkBold.Value = 1 Then

lblTeks.FontBold = True

Else

lblTeks.FontBold = False

End If

End Sub

Private Sub chkItalic_click()

If Chkitalic.Value = 1 Then

lblTeks.FontItalic = True

Else

lblTeks.FontItalic = False

End If

End Sub

Private Sub chkUnderline_click()

If ChkUnderline.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

Private Sub chkStrikethru_click()

If chkStrikethru.Value = 1 Then

lblTeks.FontStrikethru = True

Else

lblTeks.FontStrikethru = False

End If

End Sub

 

 

Private Sub cmdExit_click()

End

End Sub

 

tugas 2

Untitled

Private Sub Cmdbt_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnpm = ” ”

Textnp = ” ”

Texttt = ” ”

End Sub

 

Private Sub Cmdkr_Click()

End

End Sub

 

Private Sub Cmdlg_Click()

Textkb.SetFocus

Textkb = ” ”

Textnb = ” ”

Textnpm = ” ”

Textnp = ” ”

Texttt = ” ”

End Sub

 

Private Sub Textkb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnb.SetFocus

End If

End Sub

Private Sub Textnb_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

Private Sub Textnp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Texttt.SetFocus

End If

End Sub

 

Untitled b

Private Sub Cmdbh_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

 

End Sub

 

Private Sub Cmdht_Click()

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

 

End Sub

 

Private Sub Cmdkr_Click()

Unload Me

End Sub

 

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

 

End Sub

 

 

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim A, B, C As Single

A = Text1.Text

B = Text2.Text

C = A * B

Text3.Text = C

End If

 

End Sub