tugas 4.5

Private Sub cbokode_Click()
kode = Mid(cbokode.Text, 7, 5)
If kode = “MC965” Then
txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)
txths = “12800000”
ElseIf kode = “MC966” Then
txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)
txths = “15800000”
ElseIf kode = “MC968” Then
txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)
txths = “9900000”
ElseIf kode = “MC969” Then
txtmerk = “Apple MacBook Air ” & Mid(cbokode.Text, 7, 5)
txths = “11900000”
ElseIf kode = “MC700” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “10800000”
ElseIf kode = “MC721” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “15900000”
ElseIf kode = “MC723” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “19300000”
ElseIf kode = “MC724” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “13700000”
ElseIf kode = “MC311” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “24200000”
ElseIf kode = “MC313” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “11900000”
ElseIf kode = “MC314” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “14700000”
ElseIf kode = “MC318” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “17600000”
ElseIf kode = “MC322” Then
txtmerk = “Apple MacBook Pro ” & Mid(cbokode.Text, 7, 5)
txths = “21300000”
End If
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
p = MsgBox(“Anda yakin akan keluar?”, vbQuestion + vbOKCancel, “Informasi”)
If p = vbOK Then
End
End If
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode = “”
txtmerk = “”
txths = “”
txtjj = “”
txthp = “”
txtdis = “”
txttb = “”

End Sub

Private Sub cmdproses_Click()
txthp = Val(txths.Text) * Val(txtjj.Text)
If txthp >= 140000000 Then
txtdis = Val(txthp.Text) * 0.15
ElseIf txthp >= 135000000 Then
txtdis = Val(txthp.Text) * 0.1
ElseIf txthp >= 130000000 Then
txtdis = Val(txthp.Text) * 0.05
ElseIf txthp >= 125000000 Then
txtdis = Val(txthp.Text) * 0.02
End If
txttb = 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 MC966 MacBook Air”
End Sub

Private Sub Label12_Click()

End Sub

TUGAS 4.4

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
TxtNAMAText.SetFocus
TXTNAM = “”
TxtNPM = “”
TxtJURUSAN = “”
TxtPS = “”
TxtTM = “”
TxtNOURUT = “”
End Sub

Private Sub CMDPROSES_Click()
Dim S As String
TxtNPM.Text = 20 & Left(TxtNPM.Text, 2)
S = Mid(TxtNPM, 3, 1)
If S = “1” Then
TxtJURUSAN.Text = “SISTEM INFORMASI”
ElseIf S = “2” Then
TxtJURUSAN.Text = “MANAJENEN INFORMATIKA”
ElseIf S = “3” Then
TxtJURUSAN.Text = “TEKNIK INFORMATIKA”
ElseIf S = “4” Then
TxtJURUSAN.Text = “AKUNTANSI MAJEJEMENT”
End If
S = Mid(TxtNPM, 4, 2)
If S = ” 01″ Then
TxtPS.Text = “STRATA SATU”
ElseIf S = “02” Then
TxtPS.Text = “DIPLOMA 3”
ElseIf S = “03” Then
TxtPS.Text = “DIPLOMA 4”
ElseIf S = “4” Then
TxtPS.Text = “DIPLOMA 2”
End If
TxtNOURUT.Text = Right(TxtNPM, 3)
End Sub

TUGAS4.3

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
Txtgol.SetFocus
Txtgol = “”
Txtks = “”
Txtstts = “”
Txttahun = “”
Txtjabatan = “”
Txtbagian = “”
Txtgajip = “”
Txttunjangan = “”
Txttotalg = “”
Txtnama = “”
Txtnik = “”
End Sub

Private Sub CMDPROSES_Click()
Dim S As Variant
Txttahun.Text = Left(Txtnik.Text, 4)
Txtgol.Text = Mid(Txtnik.Text, 5, 1)
If S = A Then
Txtgol.Text = “A”
ElseIf S = B Then
Txtgol.Text = “B”
ElseIf S = C Then
Txtgol.Text = “C”
End If
Txtks.Text = Mid(Txtnik.Text, 5, 1)
If S = M Then
Txtks.Text = “M”
ElseIf S = S Then
Txtks.Text = “S”
ElseIf S = J Then
Txtks.Text = “J”
ElseIf S = D Then
Txtks.Text = “J”
End If
Txtjabatan.Text = Mid(Txtnik.Text, 5, 1)
If S = A Then
Txtjabatan.Text = “MANAJER”
If S = B Then
Txtjabatan.Text = “KEPALA SEKSI”
ElseIf S = C Then
Txtjabatan.Text = “STAF”
End If
Txtbagian.Text = Mid(Txtnik.Text, 9, 3)
If S = KUE Then
Txtbagian.Text = “ACCOUNTING”
ElseIf S = ADM Then
Txtbagian.Text = “ADMINISTRATION”
ElseIf S = SDM Then
Txtbagian.Text = “GENERAL AFFAIR”
ElseIf S = EDP Then
Txtbagian.Text = “IT UNIT”
ElseIf S = SPM Then
Txtbagian.Text = “SECCURITY”
End If
Txttunjangan.Text = Mid(Txtnik.Text, 5, 1)
If S = A Then
Txttunjangan.Text = “1.025000”
ElseIf S = B Then
Txttunjangan.Text = “975000”
ElseIf S = C Then
Txttunjangan.Text = “925000”
End If
Txtgajip.Text = Mid(Txtnik.Text, 5, 1)
If S = A Then
Txtgajip.Text = 4000000
ElseIf S = B Then
Txtgajip.Text = “350000”
ElseIf S = C Then
Txtgajip = “3000000”
End If
Txtstts.Text = Mid(Txtnik.Text, 7, 1)
If S = M Then
Txtstts.Text = “MENIKAH”
ElseIf S = S Then
Txtstts.Text = “SINGGEL”
ElseIf S = J Then
Txtstts.Text = “JANDA”
ElseIf S = D Then
Txtstts.Text = “DUDA”
End If
Txttotalg.Text = Val(Txtgajip.Text) + Val(Txttunjangan.Text)
Txttotalg.Text = Txttotalg
End If
End Sub

Private Sub Txtgol_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub

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

tugas 4.2

Private Sub Cbogolongan_Click()
Dim GajiPokok, PaJak, TunjanganJ, TotalTerima As Double
Select Case Cbogolongan.Text
Case “I”
Txtgp.Text = “2000000”
Txttj.Text = “2000000”
Case “II”
Txtgp.Text = “2500000”
Txttj.Text = “2500000”
Case “III”
Txtgp.Text = “3000000”
Txttj.Text = “3000000′”
Case “IV”
Txtgp.Text = “3500000”
Txttj.Text = “3500000”
Case Else
Txtgp = “0”
Txttj = “0”
End Select
Txttt.Text = Val(Txtgp.Text) + Val(Txttj.Text) – Val(Txtpj.Text)
Txtpj.Text = Val(Txttj.Text) * 0.1
Txttt.Text = Val(Txttj.Text) – Val(Txtpj.Text)
End Sub

Private Sub CMDBATAL_Click()
Txtnidn.SetFocus
Txtnidn = “”
Txtnp = “”
Cbogolongan = “”
Txtgp = “”
Txttj = “”
Txtpj = “”
Txttt = “”
End Sub

Private Sub CMDKELUAR_Click()
Unload Me
End Sub

Private Sub CMDLAGI_Click()
Txtnidn.SetFocus
Txtnidn = “”
Txtnp = “”
Cbogolongan = “”
Txtgp = “”
Txttj = “”
Txtpj = “”
Txttt = “”

End Sub

Private Sub Form_Load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”

End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnp.SetFocus
End If
End Sub

Tugas 4.2

tugas 4.1

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

TUGASVB 8

TULISKAN  NAMA ANDA

Private Sub Check2_Click()

 Label2.FontItalic = Check2.Value

End Sub

Private Sub Command1_Click()

 Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Option1_Click()

 Label2.ForeColor = vbBlue

 End Sub

Private Sub Option2_Click()

 Label2.ForeColor = vbRed

End Sub

TUGASVB 7

HURUF MUTU MAHASISWA STIMIK

Private Sub Combo1_click()

 Dim namamahasiswa, jurusan, HM As String

 Select Case Combo1.Text

  Case Is = “12201011”

  namamahasiswa = “fadiyah ulfa”

  jurusan = “Manajemen informatika”

  Case Is = “12201012”

  namamahasiswa = “winda erlianti”

  jurusan = “teknik komputer”

  Case Is = “12201013”

  namamahasiswa = “desi tri pujiati”

  jurusan = “teknik jaringan komputer”

  Case Is = “12201014”

  namamahasiswa = “sumarni”

  jurusan = “kewirausahaan”

  Case Is = “12201015”

  namamahasiswa = “anzar latifatuzzahra”

  jurusan = “akuntansi”

  Case Is = “12201116”

  namamahasiswa = “nyi etika sari”

  jurusan = “pemrograman”

 End Select

  Text1.Text = namamahasiswa

  Text2.Text = jurusan

  Text3.SetFocus

End Sub

Private Sub command1_Click(Index As Integer)

Dim Text7 As Integer

Dim Text8 As String

Text3 = Val(Text3.Text)

Text4 = Val(Text4.Text)

Text5 = Val(Text5.Text)

Text6 = Val(Text6.Text)

Text7 = Val(Text7.Text)

Text7 = (Text3 + tetx4 + Text5 + Text6) / 4

Text7.Text = Text7

Text7 = Val(Text7.Text)

Select Case Text7.Text

Case Is > 80

Text8 = “A”

Case Is > 70

Text8 = “B”

Case Is > 60

Text8 = “C”

Case Is > 50

Text8 = “D”

Case Is < 50

Text8 = “E”

End Select

Text7.Text = Text7

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Command4_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 Form_Load()

Combo1.AddItem “12201011”

Combo1.AddItem “12201012”

Combo1.AddItem “12201013”

Combo1.AddItem “12201014”

Combo1.AddItem “12201015”

Combo1.AddItem “12201016”

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

Private Sub Text6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

  Text7.SetFocus

End If

End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KEYASCI = 13 Then

 Text8.SetFocus

 End If

End Sub

APLIKASI PERHITUNGAN GAJI

Private Sub Command1_Click()

Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)

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

Text6.Text = Val(Text4.Text) – Val(Text5.Text)

End Sub

Private Sub Command2_Click()

 Text1.SetFocus

 Text1 = “”

 Text2 = “”

 Text3 = “”

 Text4 = “”

 Text5 = “”

 Text6 = “”

End Sub

Private Sub Command3_Click()

Unload Me

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

End Sub

TUGAS VB 5