PROGRAM NO POKOK MAHASISWA

No. Pokok Mahaasiswa

Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtno.Text = “”
txtuang.Text = “”
txtbp.Text = “”
txtub.Text = “”
txtb.Text = “”
txttb.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtkelas.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtno.Text = “”
txtuang.Text = “”
txtbp.Text = “”
txtub.Text = “”
txtb.Text = “”
txttb.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim x As String
x = Left(txtnpm.Text, 1)
If x = “E” Then
txtkelas.Text = “Eksekutif”
txtb.Text = “600000”
txtub.Text = “1250000”
txtb.Text = “600000”

ElseIf x = “R” Then
txtkelas.Text = “Reguler”
txtb.Text = “600000”
txtub.Text = “1000000”
txtb.Text = “600000”

End If

txttm.Text = “20” & Mid(txtnpm.Text, 3, 2)
txtno.Text = Right(txtnpm.Text, 3)

x = Mid(txtnpm.Text, 5, 1)
If x = “1” Then
txtjurusan.Text = “Sistem Informasi”

ElseIf x = “2” Then
txtjurusan.Text = “Managemen Informatika”

ElseIf x = “3” Then
txtjurusan.Text = “Managemen dan Komp. Akuntansi”

End If

x = Mid(txtnpm.Text, 6, 2)
If x = “01” Then
txtps.Text = “Strata Satu”
txtuang.Text = “200000”

ElseIf x = “02” Then
txtps.Text = “Diploma Tiga”
txtuang.Text = “150000”

ElseIf x = “03” Then
txtps.Text = “Diploma Satu”
txtuang.Text = “150000”

End If

x = Left(txtnpm.Text, 1) & Mid(txtnpm.Text, 6, 2)
If x = “E” & “01” Then
txtbp.Text = “1900000”
ElseIf x = “E” & “02” Then
txtbp.Text = “1650000”
ElseIf x = “E” & “03” Then
txtbp.Text = “1350000”

ElseIf x = “R” & “01” Then
txtbp.Text = “1500000”
ElseIf x = “R” & “02” Then
txtbp.Text = “1250000”
ElseIf x = “R” & “03” Then
txtbp.Text = “1250000”

End If
txttb.Text = Val(txtuang.Text) + Val(txtbp.Text) + Val(txtub.Text) + Val(txtb.Text)

End Sub

Private Sub txtb_keypress(keyascii As Integer)
If keyascii = 13 Then
txtnama.SetFocus
txttb.Text = Val(txtuang.Text) + Val(txtbp.Text) + Val(txtub.Text) + Val(txtb.Text)
End If
End Sub

Iklan

DATA PT.PULANG PETANG

PT PULANG PETANG

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdLagi_Click()
txtnama.SetFocus
txtnik.Text = “”
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Private Sub CmdProses_Click()
Dim x As String
txtgolongan.Text = Mid(txtnik.Text, 5, 1)
txtkode.Text = Mid(txtnik.Text, 7, 1)
txttahun.Text = Left(txtnik.Text, 4)

x = Mid(txtnik.Text, 7, 1)
If x = “S” Then
txtstatus.Text = “Single”
ElseIf x = “M” Then
txtstatus.Text = “Menikah”
ElseIf x = “J” Then
txtstatus.Text = “Janda”
ElseIf x = “D” Then
txtstatus.Text = “Duda”
End If

x = Mid(txtnik.Text, 5, 1)
If x = “A” Then
txtjabatan.Text = “Manager”
txtgaji.Text = “4000000”
txttunjangan.Text = “1025000”

ElseIf x = “B” Then
txtjabatan.Text = “Ka.Seksi”
txtgaji.Text = “3500000”
txttunjangan.Text = “97500”

ElseIf x = “C” Then
txtjabatan.Text = “Staff”
txtgaji.Text = “3000000”
txttunjangan.Text = “925000”

End If

x = Right(txtnik.Text, 3)
If x = “KEU” Then
txtbagian.Text = “Accounting”

ElseIf x = “ADM” Then
txtbagian.Text = “Administrasi”

ElseIf x = “SDM” Then
txtbagian.Text = “General Affair”

ElseIf x = “EDP” Then
txtbagian.Text = “IT Unit”

ElseIf x = “SPM” Then
txtbagian.Text = “Security”
End If

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub

Private Sub CmdBatal_Click()
txtnama.SetFocus
txtnik.Text = “”
txtgolongan.Text = “”
txtkode.Text = “”
txtstatus.Text = “”
txttahun.Text = “”
txtjabatan.Text = “”
txtbagian.Text = “”
txtgaji.Text = “”
txttunjangan.Text = “”
txttotal.Text = “”
End Sub

Data Buku STMIK Pringsewu

DATA BUKU

Private Sub Cmdlagi_Click()
txtjb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdbatal_Click()
txtkb.SetFocus
txtkb.Text = “”
txtjb.Text = “”
txtp.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txthg.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim s As String
txttahun.Text = “20” & Mid(txtkb.Text, 7, 2)
s = Mid(txtkb.Text, 3, 3)
If s = “SIM” Then
txtjb.Text = “Sistem Informasi Managemen”
txtp.Text = “Andra Setiawan”
txthg.Text = “75900”

ElseIf s = “EDP” Then
txtjb.Text = “elektronik data Procesing”
txtp.Text = “Desi Istiqomah”
txthg.Text = “62000”

ElseIf s = “MNJ” Then
txtjb.Text = “Manajemen”
txtp.Text = “Sandy Fitrijaya”
txthg.Text = “42000”

ElseIf s = “CDR” Then
txtjb.Text = “Corel Draw”
txtp.Text = “Tri Indah Sari”
txthg.Text = “53000”

ElseIf s = “RPL” Then
txtjb.Text = “Rekaya Perangkat Lunak ”
txtp.Text = “Ernita Sari”
txthg.Text = “83000”
End If
s = Mid(txtkb.Text, 1, 1)
If s = “A” Then
txtpenerbit.Text = “Andi offset yogyakarta”

ElseIf s = “I” Then
txtpenerbit.Text = “Indah Surabaya”

ElseIf s = “S” Then
txtpenerbit.Text = “Salemba Empat”

ElseIf s = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”

ElseIf s = “M” Then
txtpenerbit.Text = “Maxicom”

End If

End Sub

ENTRI PENJUALAN LAPTOP

penjualan laptop

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

Private Sub Cbokode_Click()
Dim Merk, Satuan As String
Select Case cbokode.Text
Case “Asus A43SA”
Merk = “Asus A43SA-VX090D”
Satuan = “5500000”

Case “Asus A43SD”
Merk = “Asus A43SD-VX052D”
Satuan = “4500000”

Case “Asus A43SJ”
Merk = “Asus A43SJ-VX792D”
Satuan = “4300000”

Case “Asus A43TA”
Merk = “Asus A43TA-VX034D”
Satuan = “4900000”

Case “Asus N43SL”
Merk = “Asus N43SL-VX264D”
Satuan = “4300000”

Case “Apple MD311”
Merk = “Apple MacBook Pro MD311”
Satuan = “19300000”

Case “Apple MD313”
Merk = “Apple MacBook Pro MD313”
Satuan = “24200000”

Case “Apple MD314”
Merk = “Apple MacBook Pro MD314”
Satuan = “11900000”

Case “Apple MD322”
Merk = “Apple MacBook Pro MD322”
Satuan = “14700000”

Case “Apple MC965”
Merk = “Apple MacBook Air MC965”
Satuan = “21300000”
End Select

txtmerk.Text = Merk
txths.Text = Satuan
txtjj.SetFocus
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
txtdis.Text = Val(txthp.Text) * 0.15

Case Is > 135000000
txtdis.Text = Val(txthp.Text) * 0.1

Case Is > 130000000
txtdis.Text = Val(txthp.Text) * 0.5

Case Is > 125000000
txtdis.Text = Val(txthp.Text) * 0.2
End Select

txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub

Private Sub CmdProses_Click()
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
Select Case txthp.Text
Case Is > 140000000
txtdis.Text = Val(txthp.Text) * 0.15

Case Is > 135000000
txtdis.Text = Val(txthp.Text) * 0.1

Case Is > 130000000
txtdis.Text = Val(txthp.Text) * 0.5

Case Is > 125000000
txtdis.Text = Val(txthp.Text) * 0.2
End Select

txttb.Text = Val(txthp.Text) – Val(txtdis.Text)
End Sub

Private Sub Cmdlagi_Click()
cbokode.SetFocus
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Biaya Pendidikan Mahasiswa STMIK Pringsewu

BIAYA PENDIDIKAN

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

Private Sub Cmdkeluar_Click()
End
End Sub

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

Private Sub Cmdproses_Click()
Dim x As String
txttahun.Text = “20” & Left(txtnpm.Text, 2)

x = Mid(txtnpm.Text, 3, 1)
If x = “1” Then
txtjurusan.Text = “Sistem Informasi”

ElseIf x = “2” Then
txtjurusan.Text = “Tehnik Informasi”

ElseIf x = “3” Then
txtjurusan.Text = “Manajemen Informatika”

ElseIf x = “4” Then
txtjurusan.Text = “Manajemen & Komp.Akuntansi”

End If

txtnurut.Text = Right(txtnpm.Text, 3)

x = Mid(txtnpm.Text, 4, 2)
If x = “01” Then
txtpstudi.Text = “strata satu”
txtbp.Text = “1950000”

ElseIf x = “02” Then
txtpstudi.Text = “diploma empat ”
txtbp.Text = “1750000”

ElseIf x = “03” Then
txtpstudi.Text = “Diploma Tiga”
txtbp.Text = “1650000”

ElseIf x = “04” Then
txtpstudi.Text = “Diploma Dua”
txtbp.Text = “1450000”

End If
txtterbilang.Text = Terbilang(txtbp.Text)

End Sub

Private Sub Txtbp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtterbilang.Text = Terbilang(txtbp.Text)
End If
End Sub

Function Terbilang(Angka As String) As String
Dim n1 As String
Dim nangka, Strjmlhuruf$, intpecahan As Integer, strpecahan$, urai$, Bil1$, strtot$, bil2$
Dim x, Y, z, i As Integer

For i = 1 To Len(Angka)
If Not Mid(Angka, i, 1) = “.” Then
nangka = nangka + Mid(Angka, i, 1)
End If
Next

If Len(LTrim(nangka)) = 0 Then
terbit = “Nol Rupiah”
Exit Function
End If
Strjmlhuruf = LTrim(RTrim((nangka)))
intpecahan = Val(Right(Mid(Angka, 15, 2), 2))
If (intpecahan = 0) Then
strpecahan = “”
End If
x = 0
Y = 0
urai = “”

While (x 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
bil2 = “Puluh ”
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
bil2 = “Ratus ”
Else
bil2 = “”
End If
Else
bil2 = “”
End If
If (Y > 0) Then
Select Case z
Case 4
bil2 = bil2 + “Ribu ”
Y = 0
Case 7
bil2 = bil2 + “Juta ”
Y = 0
Case 10
bil2 = bil2 + “Milyar ”
Y = 0
Case 13
bil2 = bil2 + “Trilyun ”
Y = 0
End Select
End If
urai = urai + Bil1 + bil2
Wend

urai = urai + strpecahan
Terbilang = urai & “Rupiah ”
Terbilang = LCase(Terbilang)
n1 = UCase(Left(Terbilang, 1))
Terbilang = n1 & Mid(Terbilang, 2, Len(Terbilang) – 1)
End Function

PROGRAM PEMBELIN TIKET KERETA API

Screenshot_1

Private Sub Command1_Click()
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text6.SetFocus
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
If Text6.Text = “BIM” Then
Text1.Text = 50000
Text2.Text = “BIMA”
Text3.Text = “16.00 WIB”
Text5.Text = Val(Text1.Text) * Val(Text4.Text)
ElseIf Text6.Text = “EKO” Then
Text1.Text = 35000
Text2.Text = “EKONOMI”
Text3.Text = “19.00 WIB”
Text5.Text = Val(Text1.Text) * Val(Text4.Text)
ElseIf Text6.Text = “MUT” Then
Text1.Text = 23000
Text2.Text = “MUTIARA”
Text3.Text = “17.00 WIB”
Text5.Text = Val(Text1.Text) * Val(Text4.Text)
ElseIf Text6.Text = “SEN” Then
Text1.Text = 35000
Text2.Text = “SENJA”
Text3.Text = “20.00 WIB”
Text5.Text = Val(Text1.Text) * Val(Text4.Text)
End If
End Sub

PROGRAM DATA BUKU

1

Private Sub Cmdbatal_Click()
Txtjb.SetFocus
Txtjb.Text = “”
Txtpeng.Text = “”
Txtt.Text = “”
Txtpen.Text = “”
Txthar.Text = “”
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End
End Sub

Private Sub cmdlagi_Click()
Txtkb.SetFocus
Txtkb.Text = “”
Txtjb.Text = “”
Txtpeng.Text = “”
Txtt.Text = “”
Txtpen.Text = “”
Txthar.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim a, b, c, d As String
Dim h As Double
Txtt.Text = “20” & Mid(Txtkb.Text, 5, 2)
a = Left(Txtkb.Text, 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
Txthar.Text = h
d = Right(Txtkb.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