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(“andayakinmaukeluar”, 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 = “sisteminformasi”

ElseIf s = “2” Then

txtjurusan.Text = “tehnikinformasi”

ElseIf s = “3” Then

txtjurusan.Text = “manajemeninformasi”

ElseIf s = “4” Then

txtjurusan.Text = “manajemendankomp.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

KODE BUKU

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 PT PULANG PETANG

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

PENJUALAN LAPTOP APPLE

APPLE LELA

Private Sub Combo1_Click()

Text3.SetFocus

End Sub

Private Sub Command1_Click()

Dim H As String

H = Mid(Combo1.Text, 7, 5)

If H = “MC965″ Then

Text1.Text = “Apple MacBook Air MC965″

Text2.Text = 12800000

ElseIf H = “MC966″ Then

Text1.Text = “Apple MacBook Air MC966″

Text2.Text = 15800000

ElseIf H = “MC968″ Then

Text1.Text = “Apple MacBook Air MC968″

Text2.Text = 9900000

ElseIf H = “MC969″ Then

Text1.Text = “Apple MacBook Air MC969″

Text2.Text = 11900000

ElseIf H = “MC700″ Then

Text1.Text = “Apple MacBook Pro MC700″

Text2.Text = 10800000

ElseIf H = “MC721″ Then

Text1.Text = “Apple MacBook Pro MC721″

Text2.Text = 15900000

ElseIf H = “MC723″ Then

Text1.Text = “Apple MacBook Pro MC723″

Text2.Text = 19300000

ElseIf H = “MC724″ Then

Text1.Text = “Apple MacBook Pro MC724″

Text2.Text = 13700000

ElseIf H = “MC311″ Then

Text1.Text = “Apple MacBook Pro MC311″

Text2.Text = 24200000

ElseIf H = “MC313″ Then

Text1.Text = “Apple MacBook Pro MC313″

Text2.Text = 11900000

ElseIf H = “MC314″ Then

Text1.Text = “Apple MacBook Pro MC314″

Text2.Text = 14700000

ElseIf H = “MC318″ Then

Text1.Text = “Apple MacBook Pro MC318″

Text2.Text = 17600000

ElseIf H = “MC322″ Then

Text1.Text = “Apple MacBook Pro MC322″

Text2.Text = 21300000

End If

Text4.Text = Val(Text2.Text) * Val(Text3.Text)

If Text4.Text >= 15000000 Then

Text5.Text = Val(Text4.Text) * 2 / 100

ElseIf Text4.Text <= 25000000 Then

Text5.Text = Val(Text4.Text) * 5 / 100

ElseIf Text4.Text <= 30000000 Then

Text5.Text = Val(Text4.Text) * 10 / 100

ElseIf Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 15 / 100

End If

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 MacBook Air”

Combo1.AddItem “Apple MC966 MacBook Air”

Combo1.AddItem “Apple MC968 MacBook Air”

Combo1.AddItem “Apple MC969 MacBook Air”

Combo1.AddItem “Apple MC700 MacBook Pro”

Combo1.AddItem “Apple MC721 MacBook Pro”

Combo1.AddItem “Apple MC723 MacBook Pro”

Combo1.AddItem “Apple MC724 MacBook Pro”

Combo1.AddItem “Apple MC311 MacBook Pro”

Combo1.AddItem “Apple MC313 MacBook Pro”

Combo1.AddItem “Apple MC314 MacBook Pro”

Combo1.AddItem “Apple MC318 MacBook Pro”

Combo1.AddItem “Apple MC322 MacBook Pro”

End Sub

DATA BUKU SIM

-data-bkSIM-stmik-pringsewu LELE

Private Sub Command1_Click()

Dim K As String

K = Mid(Text6.Text, 1, 3)

If K = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “FADIYA ULFA”

Text5.Text = “75900”

ElseIf K = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “NURUL AGUSTINA”

Text5.Text = “62000”

ElseIf K = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “RIAN HIDAYAT”

Text5.Text = “42000”

ElseIf K = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI NUR KHOTIMAH”

Text5.Text = “53000”

ElseIf K = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “WINDA ERLIANTI”

Text5.Text = “83000”

End If

K = Right(Text6.Text, 1)

If K = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf K = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf K = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf K = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf K = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Mid(Text6.Text, 5, 2)

End Sub

Private Sub Command2_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

Text6.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

Private Sub Text1_Change()

End Sub