3.6

   

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Mid(text1, 3, 3)

If K = "SIM" Or K = "sim" Then

J = "Sistem Informasi Manajemen"

P = "Andra Setiawan"

H = "75900"

ElseIf K = "EDP" Or K = "edp" Then

J = "Elektronik Data Procesing"

P = "Desi Istiqomah"

H = "62000"

ElseIf K = "MNJ" Or K = "mnj" Then

J = "Manajemen"

P = "Sandy Fitrajaya"

H = "42000"

ElseIf K = "cdr" Or K = "CDR" Then

J = "Corel Draw"

P = "Tri Indah Sari"

H = "53000"

ElseIf K = "rpl" Or K = "RPL" Then

J = "Rekayasa Perangkat Lunak"

P = "Ernita Sari"

H = "83000"

End If

text2.Text = J

text3.Text = P

text6.Text = H

K = Left(text1, 1)

If K = "A" Or K = "a" Then

G = "Andi Offset Yogyakarta"

ElseIf K = "i" Or K = "I" Then

G = "Indah Surabaya"

ElseIf K = "S" Or K = "s" Then

G = "Salemba Empat"

ElseIf K = "E" Or K = "e" Then

G = "Elek Media Komputindo"

ElseIf K = "M" Or K = "m" Then

G = "maxicom"

End If

text5.Text = G

text4.Text = "20" & Right(text1, 2)

End Sub

Private Sub Command2_Click()

text1.SetFocus

text1 = ""

text2 = ""

text3 = ""

text4 = ""

text5 = ""

text6 = ""

End Sub

Private Sub Command3_Click()

text1.SetFocus

text1 = ""

text2 = ""

text3 = ""

text4 = ""

text5 = ""

text6 = ""

End Sub

Private Sub Command4_Click()

End

End Sub

3.2

Private Sub cmdbatal_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub cmdKeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub cmdproses_Click()
Dim ps, jr As String
Text3 = jr
Text4 = ps
Text5 = "20" & Left(Text2, 2)
Text6 = Right(Text2, 3)

ps = Mid(Text2, 4, 2)
If ps = "01" Then
Text4 = "Strata Satu"
ElseIf ps = "02" Then
Text4 = "Diploma Empat"
ElseIf ps = "03" Then
Text4 = "Diploma Tiga"
ElseIf ps = "04" Then
Text4 = "Diploma Dua"
End If

jr = Mid(Text2, 3, 1)
If jr = "1" Then
Text3 = "Sistem Informasi"
ElseIf jr = "2" Then
Text3 = "Diploma Empat"
ElseIf jr = "3" Then
Text3 = "Diploma Tiga"
ElseIf jr = "4" Then
Text3 = "Diploma Dua"
End If
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
Text3.SetFocus
End If
Dim ps, jr As String
Text3 = jr
Text4 = ps
Text5 = "20" & Left(Text2, 2)
Text6 = Right(Text2, 3)

ps = Mid(Text2, 4, 2)
If ps = "01" Then
Text4 = "Strata Satu"
ElseIf ps = "02" Then
Text4 = "Diploma Empat"
ElseIf ps = "03" Then
Text4 = "Diploma Tiga"
ElseIf ps = "04" Then
Text4 = "Diploma Dua"
End If

jr = Mid(Text2, 3, 1)
If jr = "1" Then
Text3 = "Sistem Informasi"
ElseIf jr = "2" Then
Text3 = "Teknik Informatika"
ElseIf jr = "3" Then
Text3 = "Manajemen Informatika"
ElseIf jr = "4" Then
Text3 = "Komputer Akuntansi"
End If
End Sub

Private Sub Combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
    Select Case Combo1.Text
    Case "I"
    Text1 = "14100411"
    Text2 = "OVITRIA NINGSIH"
    gapok = 2500000
    tunjangan = 250000
   
    Case "II"
    Text1 = "14100525"
    Text2 = "MAI INDAH"
    gapok = 3000000
    tunjangan = 300000
   
    Case "III"
    Text1 = "14100213"
    Text2 = "ANGGEL"
    gapok = 4500000
    tunjangan = 450000
   
    Case "IV"
    Text1 = "14100214"
    Text2 = "ANISA"
    gapok = 4000000
    tunjangan = 400000
   
    Case Else
    gapok = 0
    tunjangan = 0
End Select
    total = gapok + tunjangan
    pajak = total * 0.1
    Text3 = gapok
    Text4 = tunjangan
    Text5 = pajak
    Text6 = total - pajak
End Sub

Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Combo1 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem "I"
Combo1.AddItem "II"
Combo1.AddItem "III"
Combo1.AddItem "IV"
End Sub

3.5

Tiket penjualan kereta api

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = ""

txtht.Text = ""

txtjk.Text = ""

txtjb.Text = ""

txtjt.Text = ""

txttotalp.Text = ""

End Sub

Private Sub cmdproses_Click()

Dim kt, jk, jb As String

Dim ht As Currency

kt = Left(txtkt.Text, 3)

If kt = "BIM" Then

ht = "50000"

jk = "BIMA"

jb = "16.00"

ElseIf kt = "EKO" Then

ht = "35000"

jk = "EKONOMI"

jb = "19.00"

ElseIf kt = "MUT" Then

ht = "23000"

jk = "MUTIARA"

jb = "17.00"

ElseIf kt = "SEN" Then

ht = "15000"

jk = "SENJA"

jb = "20.00"

End If

txtht.Text = ht

txtjk.Text = jk

txtjb.Text = jb

txtjt.Text = jt

txtjt.SetFocus

End Sub

Private Sub txtjt_keypress(keyascii As Integer)

If keyascii = 13 Then

txttotalp.Text = Val(txtht.Text) * Val(txtjt.Text)

End If

End Sub

Data buku

Private Sub Command1_Click()

Dim K, J, P, H, G As String

K = Left(text1.Text, 3)

If K = "SIM" Or K = "sim" Then

J = "Sistem Informasi Manajemen"

P = "Fadiya Ulfa"

H = "75900"

ElseIf K = "EDP" Or K = "edp" Then

J = "Elektronik Data Procesing"

P = "Nurul Agustina"

H = "62000"

ElseIf K = "MNJ" Or K = "mnj" Then

J = "Manajemen"

P = "Rian Hidayat"

H = "42000"

ElseIf K = "cdr" Or K = "CDR" Then

J = "Corel Draw"

P = "Siti Nur Khotimah"

H = "53000"

ElseIf K = "rpl" Or K = "RPL" Then

J = "Rekayasa Perangkat Lunak"

P = "Winda Erlianti"

H = "83000"

End If

text2.Text = J

text3.Text = P

text6.Text = H

K = Right(text1.Text, 1)

If K = "A" Or K = "a" Then

G = "Andi Offset Yogyakarta"

ElseIf K = "i" Or K = "I" Then

G = "Indah Surabaya"

ElseIf K = "S" Or K = "s" Then

G = "Salemba Empat"

ElseIf K = "E" Or K = "e" Then

G = "Elek Media Komputindo"

ElseIf K = "M" Or K = "m" Then

G = "maxicom"

End If

text5.Text = G

text4.Text = "20" & Mid(text1.Text, 4, 2)

End Sub

Private Sub Command2_Click()

text1.SetFocus

text1 = ""

text2 = ""

text3 = ""

text4 = ""

text5 = ""

text6 = ""

End Sub

Private Sub Command3_Click()

text1.SetFocus

text1 = ""

text2 = ""

text3 = ""

text4 = ""

text5 = ""

text6 = ""

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

3.3

Entry penjualan laptop

Private Sub cbokode_Click()

Dim hs, merk As String

Select Case cbokode.Text

Case "Asus A43SA"

merk = "Asus A43SA-VX090D"

hs = "5500000"

Case "Asus A43SD"

merk = "Asus A43SD-VX052D"

hs = "4500000"

Case "Asus A43SJ"

merk = "Asus A43SJ-VX792D"

hs = "4300000"

Case "Asus A43TA"

merk = "Asus A43TA-VX034D"

hs = "4900000"

Case "Asus N43SL"

merk = "Asus N43SL-VX264D"

hs = "4300000"

Case "Apple MD311"

merk = "Apple MacBook Pro MD311"

hs = "19300000"

Case "Apple MD313"

merk = "Apple MacBook Pro MD313"

hs = "24200000"

Case "Apple MD314"

merk = "Apple MacBook Pro MD314"

hs = "11900000"

Case "Apple MD322"

merk = "Apple MacBook Pro MD322"

hs = "14700000"

Case "Apple MC965"

merk = "Apple MacBook Air MC965"

hs = "21300000"

End Select

txtmerk.Text = merk

txths.Text = hs

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.05

ElseIf txthp.Text > 125000000 Then

txtdis.Text = Val(txthp.Text) * 0.02

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 N43SL"

cbokode.AddItem "Apple MD311"

cbokode.AddItem "Apple MD313"

cbokode.AddItem "Apple MD314"

cbokode.AddItem "Apple MD322"

cbokode.AddItem "Apple MC965"

End Sub

pt pulang petang

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