J. PROGAM VISUAL BASIC 14

J. PROGAM 14

88

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.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 = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String

S = Left(Txtnpm, 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, 6, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1500000”
Else
txtbps.Text = “1900000”
End If
ElseIf S = “01” Then
txtprodi.Text = “Diploma Tiga”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1650000”
End If
ElseIf S = “02” Then
txtprodi.Text = “Diploma Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1350000”
End If
End If

S = Mid(Txtnpm, 5, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemendan Komp. Akuntansi”
End If

txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
txtnu.Text = Right(Txtnpm, 3)
If txtprodi.Text = “Strata Satu” Then
txtup.Text = “200000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Tiga” Then
txtup.Text = “150000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Satu” Then
txtup.Text = “150000”
txtbp.Text = “600000”
End If
End If
End If
txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbp.Text)
End Sub

Private Sub Form_Load()

End Sub

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

Iklan
Dipublikasi di Tak Berkategori | Meninggalkan komentar

I. PROGAM VISUAL BASIC PT. YAZID BR JAYA

I. PROGAM 13

11

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtgol.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgapok.Text = “”
Txttnj.Text = “”
Txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim r As String

r = Mid(Txtmn.Text, 5, 1)
If r = “A” Then
Txtgol = “A”
Txtj.Text = “MANAGER”
Txtgapok.Text = “4000000”
Txttnj.Text = “1025000”
ElseIf r = “B” Then
Txtgol.Text = “B”
Txtj.Text = “Ka.SEKSI”
Txtgapok.Text = “3500000”
Txttnj.Text = “975000”
ElseIf r = “C” Then
Txtgol.Text = “C”
Txtj.Text = “STAFF”
Txtgapok.Text = “3000000”
Txttnj.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)
Txttotal.Text = Val(Txtgapok.Text) + Val(Txttnj.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 = “”
Txtgol.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgapok.Text = “”
Txttnj.Text = “”
Txttotal.Text = “”
End Sub

Dipublikasi di Tak Berkategori | Meninggalkan komentar

H. PROGAM VISUAL BASIC DATA BUKU STMIK PRINGSEWU

H. PROGAM 12

10

Private Sub Cmdbatal_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttt.Text = “20” & Right(txtkode, 2)
S = Mid(txtkode, 3, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Yazid barokatulloh”
txtharga.Text = “75900”

ElseIf S = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
txtpeng.Text = “Rizal mustofa”
txtharga.Text = “62000”

ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Sirly amrina”
txtharga.Text = “42000”

ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Nuri atfiani”
txtharga.Text = “53000”

ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtpeng.Text = “Ernita Sari”
txtharga.Text = “83000”
End If
S = Left(txtkode, 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

Private Sub Form_Load()

End Sub

Dipublikasi di Tak Berkategori | Meninggalkan komentar

G. PROGAM VISUAL BASIC 11

G PROGAM 11

10 (2)
Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)
S = Mid(txtnpm.Text, 3, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Teknik Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
txtbp.Text = “1950000”
ElseIf S = “01” Then
txtprodi.Text = “Diploma Empat”
txtbp.Text = “1750000”
ElseIf S = “02” Then
txtprodi.Text = “Diploma Tiga”
txtbp.Text = “1650000”
ElseIf S = “03” Then
txtprodi.Text = “Diploma Dua”
txtbp.Text = “1450000”
End If
txtnu.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Form_Load()

End Sub

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

Dipublikasi di Tak Berkategori | Meninggalkan komentar

F. PROGAM VISUAL BASIC ENTRI PENJUALAN KOMPUTER

F. PROGAM 10

9

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 = “”
Txtdiscn.Text = “”
Txttotal.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
Txtdiscn.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 35000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 30000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 25000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.2
End If
Txttotal.Text = Val(Txthp.Text) – Val(Txtdiscn.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

Dipublikasi di Tak Berkategori | Meninggalkan komentar

E. PROGAM VISUAL BASIC DATA BUKU KAMPUS STMIK PRINGSEWU

E. PROGAM 5

8 (2)

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 = “YAZID BAROKATULLOH”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “SUDAR SONO”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “ANWAR”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “RIZAL MUSTOFA”
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

Dipublikasi di Tak Berkategori | Meninggalkan komentar

D.PROGAM VISUAL BASIC PENJUALAN TIKET KRETA API

D. PROGAM 4

YYY

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

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command1_Click()
If Text1.Text = “YAZ” Then
Text2.Text = 50000
Text3.Text = “YAZID BAROKATULLOH”
Text4.Text = “16.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “EKO” Then
Text2.Text = 35000
Text3.Text = “EKONOMI”
Text4.Text = “19.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “RIZAL MUSTOFA” Then
Text2.Text = 23000
Text3.Text = “RMT”
Text4.Text = “17.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “CHY” Then
Text2.Text = 35000
Text3.Text = “CAHAYA”
Text4.Text = “20.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
End If

End Sub

Private Sub Form_Load()

End Sub

Dipublikasi di Tak Berkategori | Meninggalkan komentar