Tugas 2

Tugas 2.1

rizky3.1

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 500000

tunjangan = 50000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 5000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

tugas 2.2

rzky02

Private Sub Cmdbatal_Click()

kosong

End Sub

Private Sub cmdlagi_Click()

kosong

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub cbogolongan_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case cbogolongan.Text

Case “I”

gapok = 500000

tunjangan = 50000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 5000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunjangan.Text = tunjangan

txtpajak.Text = pajak

txttotal.Text = total – pajak

End Sub

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

Private Sub txtnind_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

Tugas 3.1

rizky3.1

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

TxtTm.Text = “”

Txturut.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 = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

S = Mid(Txtnpm.Text, 4, 2)

If S = “00” Then

Txtps.Text = “Strata Satu”

ElseIf S = “01” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtps.Text = “Diploma Empat”

ElseIf S = “04” Then

Txtps.Text = “Diploma Dua”

End If

Txturut.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Form_activate()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtjur.Text = “”

Txtps.Text = “”

txttm.Text = “”

Txturut.Text = “”

End Sub

Tugas 6.1

ry 6.1

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()
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

Tugas 8.1

rizky 10.1

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 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 = “rizky kurniawan”

h = “75900”

ElseIf a = “MNJ” Then

b = “MANAJEMEN”

c = “abi kuniawan”

h = “42000”

ElseIf a = “EDP” Then

b = “ELECTRONIK DATA PROCESSING”

c = “rido sanjaya”

h = “62000”

ElseIf a = “CDR” Then

b = “COREL DRAW”

c = “yazir saputra”

h = “53000”

ElseIf a = “RPL” Then

b = “REKAYASA PERANGKAT LUNAK”

c = “mat sukri”

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 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 Form_Load()

cbokb.AddItem “A-SIM-01”

cbokb.AddItem “I-EDP-14″

cbokb.AddItem “S-MNJ-13″

cbokb.AddItem “E-CDR-12″

cbokb.AddItem “M-RPL-11″

End Sub

Tugas 9.1

R 9.1

Private Sub Cmdproses_Click()
Dim A As String
A = Mid(Txtkt.Text, 1, 3)
If A = “BIM” Then
Txtht.Text = 50000
Txtjk.Text = “BIMA”
Txtjb.Text = “16.00”
ElseIf A = “EKO” Then
Txtht.Text = 35000
Txtjk.Text = “EKONOMI”
Txtjb.Text = “19.00”
ElseIf A = “MUT” Then
Txtht.Text = 23000
Txtjk.Text = “MUTIARA”
Txtjb.Text = “17.00”
ElseIf A = “SEN” Then
Txtht.Text = 15000
Txtjk.Text = “SENJA”
Txtjb.Text = “20.00”
End If
Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()
Txtkt.SetFocus
Txtkt.Text = “”
Txtht.Text = “”
Txtjk.Text = “”
Txtjb.Text = “”
Txtjt.Text = “”
Txttotalp.Text = “”
End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjt.SetFocus
End If
End Sub

Private Sub Cmdkeluar_Click()
Unload Me

Tugas 10.1

rizky 10.1

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 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 = “rizky kurniawan”

h = “75900”

ElseIf a = “MNJ” Then

b = “MANAJEMEN”

c = “abi kuniawan”

h = “42000”

ElseIf a = “EDP” Then

b = “ELECTRONIK DATA PROCESSING”

c = “rido sanjaya”

h = “62000”

ElseIf a = “CDR” Then

b = “COREL DRAW”

c = “yazir saputra”

h = “53000”

ElseIf a = “RPL” Then

b = “REKAYASA PERANGKAT LUNAK”

c = “mat sukri”

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 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 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-04″

End Sub

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s