PT PULANG PERGI

PULANG PERGI

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

Untitled

Private Sub cbokode_Click()

Txtjj.SetFocus

End Sub

Private Sub cmdproses_Click()

Dim penjualan, discount, kode, merk, bayar, R, S As String

Dim harga As Variant

kode = Mid(Cbokode.Text, 7, 5)

If kode = “MC965” Then

merk = “Apple MacBook Air MC965”

harga = “12800000”

ElseIf kode = “MC966” Then

merk = “Apple MacBook Air MC966”

harga = “15800000”

ElseIf kode = “MC968” Then

merk = “Apple MacBook Air MC968”

harga = “9900000”

ElseIf kode = “MC969” Then

merk = “Apple MacBook Air MC969”

harga = “11900000”

ElseIf kode = “MC700” Then

merk = “Apple MacBook Air MC700”

harga = “10800000”

ElseIf kode = “MC721” Then

merk = “Apple MacBook Air MC721”

harga = “15900000”

ElseIf kode = “MC723” Then

merk = “Apple MacBook Air MC723”

harga = “19300000”

ElseIf kode = “MC724” Then

merk = “Apple MacBook Air MC724”

harga = “13700000”

ElseIf kode = “MC311” Then

merk = “Apple MacBook Air MC311”

harga = “24200000”

ElseIf kode = “MC313” Then

merk = “Apple MacBook Air MC313”

harga = “11900000”

ElseIf kode = “MC314” Then

merk = “Apple MacBook Air MC314”

harga = “14700000”

ElseIf kode = “MC318” Then

merk = “Apple MacBook Air MC318”

harga = “17600000”

ElseIf kode = “MC322” Then

merk = “Apple MacBook Air MC322”

harga = “21300000”

ElseIf kode = “MC965” Then

merk = “Apple MacBook Air MC965”

harga = “12800000”

ElseIf kode = “MC966” Then

merk = “Apple MacBook Air MC966”

harga = “15800000”

End If

Txtmerk.Text = merk

Txths.Text = harga

R = Val(Txtjj.Text)

S = Val(Txths.Text)

penjualan = R * S

Txthp.Text = penjualan

Select Case Txthp.Text

Case Is > 140000000

discount = 0.15 * penjualan

Case Is > 135000000

discount = 0.1 * penjualan

Case Is > 130000000

discount = 0.05 * penjualan

Case Is > 125000000

discount = 0.02 * penjualan

End Select

penjualan = Val(Txthp.Text)

Txtdis.Text = discount

Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)

End Sub

Private Sub cmdhitunglagi_Click()

Cbokode.SetFocus

Cbokode.Text = “”

Txtmerk.Text = “”

Txths.Text = “”

Txtjj.Text = “”

Txtdis.Text = “”

Txttb.Text = “”

Txthp.Text = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub Form_Load()

Cbokode.AddItem “Apple MC965 MasBook Air”

Cbokode.AddItem “Apple MC966 MasBook Air”

Cbokode.AddItem “Apple MC968 MasBook Air”

Cbokode.AddItem “Apple MC969 MasBook Air”

Cbokode.AddItem “Apple MC700 MasBook Pro”

Cbokode.AddItem “Apple MC721 MasBook Pro”

Cbokode.AddItem “Apple MC723 MasBook Pro”

Cbokode.AddItem “Apple MC724 MasBook Pro”

Cbokode.AddItem “Apple MC311 MasBook Pro”

Cbokode.AddItem “Apple MC313 MasBook Pro”

Cbokode.AddItem “Apple MC314 MasBook Pro”

Cbokode.AddItem “Apple MC318 MasBook Pro”

Cbokode.AddItem “Apple MC322 MasBook Pro”

Cbokode.AddItem “Apple MC965 MasBook Air”

Cbokode.AddItem “Apple MC966 MasBook Air”

End Sub

Iklan

Penjualan Tiket Kereta

Untitled

Private Sub Command1_Click()

Dim A As String

A = Mid(Text1.Text, 1, 3)

If A = “BIM” Then

Text2.Text = 50000

Text3.Text = “16.00”

Text6.Text = “BIMA”

ElseIf A = “EKO” Then

Text2.Text = 35000

Text3.Text = “19.00”

Text6.Text = “EKONOMI”

ElseIf A = “MUT” Then

Text2.Text = 23000

Text3.Text = “17.00”

Text6.Text = “MUTIARA”

ElseIf A = “SEN” Then

Text2.Text = 15000

Text3.Text = “20.00”

Text6.Text = “SENJA”

End If

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

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Penjualan

Untitled

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

NPM

dd

Private Sub Command1_Click()

Dim S As String

Text5.Text = “20” & Left(Text2.Text, 2)

S = Mid(Text2.Text, 3, 1)

If S = “1” Then

Text3.Text = “Sistem Informasi”

ElseIf S = “2” Then

Text3.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Text3.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Text3.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Text2.Text, 3, 1)

If S = “1” Then

Text4.Text = “Strata Satu”

ElseIf S = “2” Then

Text4.Text = “Diploma Tiga”

ElseIf S = “3” Then

Text4.Text = “Diploma Empat”

ElseIf S = “4” Then

Text4.Text = “Diploma Dua”

End If

Text6.Text = Right(Text2.Text, 3)

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

NIDN

Untitled

Private Sub Combo1_Click()

Dim gapok, tunjangan, pajak, total As String

Select Case Combo1.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Text3.Text = gapok

Text4.Text = tunjangan

Text5.Text = pajak

Text6.Text = total – pajak

End Sub

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Combo1.Text = “”

End Sub

Private Sub TEXT1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Combo1.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “I”

Combo1.AddItem “II”

Combo1.AddItem “III”

Combo1.AddItem “IV”

End Sub

Huruf Mutu

Untitled

Private Sub Combo1_CLICK()

Dim NAMA, JURUSAN, HM As String

Select Case Combo1.Text

Case “09100027”

NAMA = “AFNAN ZALFA SALSABILAA”

JURUSAN = “Sistem Informasi”

Case “09200048”

NAMA = “AMALIA AMANAH”

JURUSAN = “MANAJEMEN INFORMATIKA”

Case “09300024”

NAMA = “SASKIA MECHA”

JURUSAN = ” TEKNIK INFORMATIKA”

End Select

Text1.Text = NAMA

Text2.Text = JURUSAN

Text3.SetFocus

End Sub

Private Sub Command1_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(Text3.Text)

TUGAS = Val(Text4.Text)

UTS = Val(Text5.Text)

UAS = Val(Text6.Text)

NA = (QUIS + TUGAS + UTS + UAS) / 4

Text7.Text = NA

Select Case Text7.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is > 50

HM = “E”

Case Is < 50

HM = “BL”

End Select

Text8.Text = HM

End Sub

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “09100027”

Combo1.AddItem “09200048”

Combo1.AddItem “09300024”

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

DIM 2

Untitled

Private Sub Command1_Click()

Dim J As String

J = Mid(Text6.Text, 3, 3)

If J = “SIM” Then

Text1.Text = “SISTEM INFORMASI MANAJEMEN”

Text2.Text = “YATI NUR OKTAFIA”

Text5.Text = “75900”

ElseIf J = “EDP” Then

Text1.Text = “ELEKTRONIK DATA PROCESSING”

Text2.Text = “WAGIANTO”

Text5.Text = “62000”

ElseIf J = “MNJ” Then

Text1.Text = “MANAJEMEN”

Text2.Text = “VALINTINA MARIANAN”

Text5.Text = “42000”

ElseIf J = “CDR” Then

Text1.Text = “COREL DRAW”

Text2.Text = “SITI FADILAH”

Text5.Text = “53000”

ElseIf J = “RPL” Then

Text1.Text = “REKAYASA PERANGKAT LUNAK”

Text2.Text = “FRENDI SETIADI”

Text5.Text = “83000”

End If

J = Left(Text6.Text, 1)

If J = “A” Then

Text4.Text = “ANDI OFFSET YOGYAKARTA”

ElseIf J = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf J = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf J = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

ElseIf J = “M” Then

Text4.Text = “MAXICOM”

End If

Text3.Text = “20” & Right(Text6.Text, 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