DATA MAHASISWA

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

data 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

Untitled

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

PROGRAM PENJUALAN LAPTOP APPLE

6

Private Sub Cbokode_Click()
Dim A As String
A = Mid(Cbokode.Text, 7, 5)
If A = “MC965″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC965″
Txths.Text = “12800000”
ElseIf A = “MC966″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC966″
Txths.Text = “15800000”
ElseIf A = “MC968″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC968″
Txths.Text = “19900000”
ElseIf A = “MC969″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC969″
Txths.Text = “11900000”
ElseIf A = “MC700″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC700″
Txths.Text = “10800000”
ElseIf A = “MC721″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC721″
Txths.Text = “15900000”
ElseIf A = “MC721″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC721″
Txths.Text = “15900000”
ElseIf A = “MC723″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC723″
Txths.Text = “19300000”
ElseIf A = “MC724″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC724″
Txths.Text = “13700000”
ElseIf A = “MC311″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC311″
Txths.Text = “24200000”
ElseIf A = “MC313″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC313″
Txths.Text = “11900000”
ElseIf A = “MC314″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC314″
Txths.Text = “14700000”
ElseIf A = “MC318″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC318″
Txths.Text = “17600000”
ElseIf A = “MC322″ Then
Txtmerk.Text = “APPLE MACBOOK PRO MC322″
Txths.Text = “21300000”
ElseIf A = “MC965″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC965″
Txths.Text = “12800000”
ElseIf A = “MC966″ Then
Txtmerk.Text = “APPLE MACBOOK AIR MC966″
Txths.Text = “15800000”
End If
Txtjj.SetFocus
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.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 > 140000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 135000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 130000000 Then
Txtdis.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 125000000 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 “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 MC965 MACBOOK AIR”
End Sub
Private Sub Txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
Txtdis.SetFocus
End If
End Sub

PROGRAM DATA BUKU STMIK PRINGSEWU

Screenshot_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 = “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

website 3