TUGAS 4

Untitled

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”
Text7.Text = “1950000”
ElseIf S = “02” Then
Text4.Text = “Diploma Tiga”
Text7.Text = “1750000”
ElseIf S = “03” Then
Text4.Text = “Diploma Empat”
Text7.Text = “1650000”
ElseIf S = “04” Then
Text4.Text = “Diploma Dua”
Text7.Text = “1450000”
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 = “”
Text7.Text = “”
End Sub

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

Private Sub Command4_Click()
End
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If

End Sub

Iklan

TUGAS 4

Untitled.

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 Command4_Click()
End
End Sub

Private Sub Form_Activate()
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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
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 If
End Sub

TUGAS 4

Untitled

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 Command4_Click()
End
End Sub

Private Sub Form_Activate()
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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
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 If
End Sub

TUGAS 4

UntitledN

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

Private Sub Form_Activate()
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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
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 If
End Sub

TUGAS 4

Untitled

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

Private Sub Form_Activate()
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 Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
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 If
End Sub

TUGAS 4

Untitled

Private Sub Command1_Click()
Dim r As String

r = Mid(Text11.Text, 5, 1)
If r = “A” Then
Text1.Text = “A”
Text5.Text = “MANAGER”
Text7.Text = “4000000”
Text8.Text = “1025000”
ElseIf r = “B” Then
Text1.Text = “B”
Text5.Text = “Ka.SEKSI”
Text7.Text = “3500000”
Text8.Text = “975000”
ElseIf r = “C” Then
Text1.Text = “C”
Text5.Text = “STAFF”
Text7.Text = “3000000”
Text8.Text = “925000”
End If
r = Right(Text11.Text, 3)
If r = “KEU” Then
Text6.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Text6.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Text6.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Text6.Text = “IT UNIT”
ElseIf r = “SPM” Then
Text6.Text = “SECURITY”
End If
r = Mid(Text11.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
Text2.Text = kode
Text3.Text = Status
Text4.Text = Left(Text11.Text, 4)
Text9.Text = Val(Text7.Text) + Val(Text8.Text)

End Sub

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

End Sub

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

Private Sub Command4_Click()
End
End Sub

Private Sub Form_activate()
Text10.SetFocus
End Sub

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

TUGAS 4

Untitled

Private Sub Command1_Click()
Dim a, b, c, d As String
Dim h As Double
Text4.Text = “20” & Right(Text1.Text, 2)
a = Mid(Text1.Text, 3, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “ANDRA SETIAWAN”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “SANDY FITRAJAYA”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “DESI ISTI QOMAH”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “TRI INDAH SARI”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “ERNITA SARI”
h = “83000”
End If
Text2.Text = b
Text3.Text = c
Text6.Text = h
d = Left(Text1.Text, 1)
If d = “A” Then
Text5.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
Text5.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
Text5.Text = “MAXICOM”
ElseIf d = “S” Then
Text5.Text = “SURYA PERMAI”
ElseIf d = “E” Then
Text5.Text = “ELEK MEDIA KOMPUTINDO”
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 4

Untitled

Private Sub Combo1_Click()
Dim mt, hs, TB As Integer
Select Case Combo1.Text
Case “Asus A43SA”
mt = “Asus A53SA-VX090D”
hs = “5500000”
Case “Asus A43SD”
mt = “Asus A43SD-VX052D”
hs = “4500000”
Case “Asus A43SJ”
mt = “Asus A43SJ-VX792D”
hs = “4300000”
Case “Asus A43TA”
mt = “Asus A43TA-VX034D ”
hs = “4900000”
Case “Asus A43SL”
mt = “Asus A43SL-VX264SL”
hs = “4300000”
Case “Apple MD311”
mt = “Apple MacBook Pro MD311”
hs = “19300000”
Case “Apple MD313”
mt = “Apple MacBook Pro MD313”
hs = “24200000”
Case “Apple MD314”
mt = “Apple MacBook Pro MD314”
hs = “11900000”
Case “Apple MD322”
mt = “Apple MacBook Pro MD322”
hs = “14700000”
Case “Apple MC965”
mt = “Apple MacBook Air MC965”
hs = “19300000”
End Select
Text1.Text = mt
Text2.Text = hs
Text3.SetFocus
End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 40000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 35000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 30000000 Then
Text5.Text = Val(Text4.Text) * 0.5
ElseIf Text4.Text > 25000000 Then
Text5.Text = Val(Text4.Text) * 0.2
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()
End
End Sub

Private Sub Form_Load()
Combo1.AddItem “Asus A43SA”
Combo1.AddItem “Asus A43SD”
Combo1.AddItem “Asus A43SJ”
Combo1.AddItem “Asus A43TA”
Combo1.AddItem “Asus A43SL”
Combo1.AddItem “Apple MD311”
Combo1.AddItem “Apple MD313”
Combo1.AddItem “Apple MD314”
Combo1.AddItem “Apple MD322”
Combo1.AddItem “Apple MC965”
End Sub

TUGAS 4

Untitled

Private Sub Command1_Click()
Dim S As String

S = Left(Text2, 1)
If S = “E” Then
Text3.Text = “Eksekutif”
Text10.Text = “1250000”
ElseIf S = “R” Then
Text3.Text = “Reguler”
Text10.Text = “1000000”
End If
S = Mid(Text2, 6, 2)
If S = “00” Then
Text5.Text = “Strata Satu”
If Text3.Text = “Reguler” Then
Text9.Text = “1500000”
Else
Text9.Text = “1900000”
End If
ElseIf S = “01” Then
Text5.Text = “Diploma Tiga”
If Text3.Text = “Reguler” Then
Text9.Text = “1250000”
Else
Text9.Text = “1650000”
End If
ElseIf S = “02” Then
Text5.Text = “Diploma Satu”
If Text3.Text = “Reguler” Then
Text9.Text = “1250000”
Else
Text9.Text = “1350000”
End If
End If

S = Mid(Text2, 5, 1)
If S = “1” Then
Text4.Text = “Sistem Informasi”
ElseIf S = “2” Then
Text4.Text = “Manajemen Informatika”
ElseIf S = “3” Then
Text4.Text = “Manajemendan Komp. Akuntansi”
End If

Text6.Text = “20” & Mid(Text2.Text, 3, 2)
Text7.Text = Right(Text2, 3)
If Text5.Text = “Strata Satu” Then
Text8.Text = “200000”
Text11.Text = “600000”
Else
If Text5.Text = “Diploma Tiga” Then
Text8.Text = “150000”
Text11.Text = “600000”
Else
If Text5.Text = “Diploma Satu” Then
Text8.Text = “150000”
Text11.Text = “600000”
End If
End If
End If
Text12.Text = Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text) + Val(Text11.Text)

End Sub

Private Sub Command2_Click()
End
End Sub

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

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

TUGAS 4

Untitled

Private Sub Command1_Click()
Dim a, b, c, d As String
Dim h As Double
Text4.Text = “20” & Mid(Text1.Text, 5, 2)
a = Left(Text1.Text, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “FADYA ULFA”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “RIAN HIDAYAT”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “NURUL AGUSTINA”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “SITI NUR KHOTIMAH”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “WINDA ERLIANTI”
h = “83000”
End If
Text2.Text = b
Text3.Text = c
Text6.Text = h
d = Right(Text1.Text, 1)
If d = “A” Then
Text5.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
Text5.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
Text5.Text = “MAXICOM”
ElseIf d = “S” Then
Text5.Text = “SURYA PERMAI”
ElseIf d = “E” Then
Text5.Text = “ELEK MEDIA KOMPUTINDO”
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