Tugas 4 dari 4

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 1, 3)
If S = “SIM” Then
Text2.Text = “Sistem Informasi Manajemen”
Text3.Text = “Fadiya Ulfa”
Text6.Text = 75900
ElseIf S = “EDP” Then
Text2.Text = “Elektronik Data Processing”
Text3.Text = “Nurul Agustina”
Text6.Text = 62000
ElseIf S = “MNJ” Then
Text2.Text = “Manajemen”
Text3.Text = “Rian Hidayat”
Text6.Text = 42000
ElseIf S = “CDR” Then
Text2.Text = “Corel Draw”
Text3.Text = “Siti Nur Khotimah”
Text6.Text = 53000
ElseIf S = “RLP” Then
Text2.Text = “Rekayasa Perangkat Lunak”
Text3.Text = “Winda Erlianti ”
Text6.Text = 83000
End If
S = Right(Combo1.Text, 1)
If S = “A” Then
Text5.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text5.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text5.Text = “Salemba Empat”
ElseIf S = “E” Then
Text5.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text5.Text = “Maxicom”
End If
S = Mid(Combo1.Text, 5, 2)
If S = “09” Then
Text4.Text = “2009”
ElseIf S = “10” Then
Text4.Text = “2010”
ElseIf S = “11” Then
Text4.Text = “2011”
ElseIf S = “12” Then
Text4.Text = “2012”
ElseIf S = “13” Then
Text4.Text = “2013”
End If
End Sub

Private Sub Command2_Click()
Combo1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text2.SetFocus
End Sub

Private Sub Command3_Click()
Combo1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text2.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “SIM-09-A”
Combo1.AddItem “EDP-10-I”
Combo1.AddItem “MNJ-11-S”
Combo1.AddItem “CDR-12-E”
Combo1.AddItem “RLP-13-M”
End Sub

Tugas 3 dari 4

Private Sub Command1_Click()
Dim S As String
S = Mid(Text11.Text, 1, 4)
Text4.Text = S
S = Mid(Text11.Text, 5, 1)
If S = “A” Then
Text1.Text = “A”
Text5.Text = “Manajer”
Text7.Text = “4000000”
Text8.Text = “1025000”
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “B” Then
Text1.Text = “B”
Text5.Text = “Ka. Seksi”
Text7.Text = “3500000”
Text8.Text = “975000”
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
ElseIf S = “C” Then
Text1.Text = “C”
Text5.Text = “Staff”
Text7.Text = “3000000”
Text8.Text = “925000”
Text9.Text = (Val(Text7.Text) + Val(Text8.Text))
End If
S = Mid(Text11.Text, 7, 1)
If S = “S” Then
Text2.Text = “S”
Text3.Text = “Single”
ElseIf S = “M” Then
Text2.Text = “M”
Text3.Text = “Menikah”
ElseIf S = “J” Then
Text2.Text = “J”
Text3.Text = “Janda”
ElseIf S = “D” Then
Text2.Text = “D”
Text3.Text = “Duda”
End If
S = Right(Text11.Text, 3)
If S = “KEU” Then
Text6.Text = “Accounting”
ElseIf S = “ADM” Then
Text6.Text = “Administrasi”
ElseIf S = “SDM” Then
Text6.Text = “General Affair”
ElseIf S = “EDP” Then
Text6.Text = “IT Unit”
ElseIf S = “SPM” Then
Text6.Text = “Security”
End If
End Sub

Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command3_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text10.SetFocus
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If
End Sub

Tugas 2 dari 4

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, 4, 2)
If S = “01” Then
Text4.Text = “Strata Satu”
ElseIf S = “02” Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03” Then
Text4.Text = “Diploma Empat”
ElseIf S = “04” Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
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 = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Tugas 1 dari 4

Private Sub Command1_Click()
Dim S As String
S = Mid(Combo1.Text, 3, 3)
If S = “SIM” Then
Text2.Text = “Sistem Informasi Manajemen”
Text3.Text = “Yati Nur Oktavia”
Text6.Text = 75900
ElseIf S = “EDP” Then
Text2.Text = “Elektronik Data Processing”
Text3.Text = “Imam Tarmizi”
Text6.Text = 62000
ElseIf S = “MNJ” Then
Text2.Text = “Manajemen”
Text3.Text = “Valentina Mariana Adiwiyanti”
Text6.Text = 42000
ElseIf S = “CDR” Then
Text2.Text = “Corel Draw”
Text3.Text = “Riyan Suhandi”
Text6.Text = 53000
ElseIf S = “RLP” Then
Text2.Text = “Rekayasa Perangkat Lunak”
Text3.Text = “Sinta Umpu Singa”
Text6.Text = 83000
End If
S = Left(Combo1.Text, 1)
If S = “A” Then
Text5.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
Text5.Text = “Indah Surabaya”
ElseIf S = “S” Then
Text5.Text = “Salemba Empat”
ElseIf S = “E” Then
Text5.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
Text5.Text = “Maxicom”
End If
S = Right(Combo1.Text, 2)
If S = “01” Then
Text4.Text = “2001”
ElseIf S = “02” Then
Text4.Text = “2002”
ElseIf S = “03” Then
Text4.Text = “2003”
ElseIf S = “04” Then
Text4.Text = “2004”
ElseIf S = “05” Then
Text4.Text = “2005”
End If
End Sub

Private Sub Command2_Click()
Combo1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text2.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “A-SIM-01”
Combo1.AddItem “I-EDP-02”
Combo1.AddItem “S-MNJ-03”
Combo1.AddItem “E-CDR-04”
Combo1.AddItem “M-RLP-05”
End Sub

Tugas 10 dari 10

Source Code :

Private Sub Combo1_Click()
Select Case Combo1
Case “Lifeboy”
harga = “2700”
Case “Rinso”
harga = “1000”
Case “Molto”
harga = “7000”
End Select
Text1.Text = harga
Text2.SetFocus
End Sub

Private Sub Form_Load()
Combo1.AddItem “Lifeboy”
Combo1.AddItem “Rinso”
Combo1.AddItem “Molto”
End Sub

Private Sub Text3_Change()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
Private Sub command1_click()
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
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.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub
Private Sub command2_click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub
Private Sub command3_click()
End
End Sub

Tugas 9 dari 10

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, 4, 2)
If S = “01” Then
Text4.Text = “Strata Satu”
ElseIf S = “02” Then
Text4.Text = “Diploma Tiga”
ElseIf S = “03” Then
Text4.Text = “Diploma Empat”
ElseIf S = “04” Then
Text4.Text = “Diploma Dua”
End If
Text6.Text = Right(Text2.Text, 3)
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 = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Tugas 8 dari 10

Source Code :

Private Sub Combo1_Click()
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 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Combo1 = “”
End Sub

Private Sub Form_Load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub command2_click()
End
End Sub

Tugas 7 dari 10

Source Code :

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.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub

Tugas 6 dari 10

Source Code:

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
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label2.FontItalic = Check2.Value
End Sub

Tugas 5 dari 10

Source Code :

Private Sub Command1_Click()
Text2.Text = Val(Text1.Text) * 0.5
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text3 = “”
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.Text = Val(Text1.Text) * 0.5
Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End If
End Sub