MAIN MENU
Private Sub aplikasipenghitungangaji_Click()
upenghitungangaji.Show
End Sub
Private Sub font_Click()
Ufont.Show
End Sub
Private Sub gaji2_Click()
ugaji2.Show
End Sub
Private Sub hurufmutu_Click()
uhurufmutu.Show
End Sub
Private Sub keluar_Click()
STMIKPringsewu = MsgBox(“apakah anda mau keluar dari progam ini?”, vbYesNo, “warning”)
If STMIKPringsewu = 6 Then
End
Else
file.Show
End If
End Sub
Private Sub penjualantiketkeretaapi_Click()
utiketkereta.Show
End Sub
Private Sub ptpulangpetang_Click()
uptpulangpetang.Show
End Sub
PRAKTEKUM 1
Private Sub Combo1_Click()
Dim GL As String
Dim GP, TJ, PJ, TT As Currency
GL = Combo1.Text
If GL = “I” Then
GP = 15000000
TJ = 150000
ElseIf GL = “II” Then
GP = 2000000
TJ = 200000
ElseIf GL = “III” Then
GP = 2500000
TJ = 250000
Else
GP = 3000000
TJ = 300000
End If
PJ = (GP + TJ) / 10
TT = GP + TJ – PJ
Text4.Text = GP
Text5.Text = TJ
Text6.Text = PJ
Text7.Text = TT
End Sub
Private Sub Command1_Click()
Text1.Text = “”
Text2.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Combo1.Text = “”
Text1.SetFocus
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Combo1.Text = “”
Text1.SetFocus
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
PRAKTEKUM 2
Private Sub Command1_Click()
Dim GP, TJ, POT, GK, PJ, GD As Currency
GP = Val(Text1.Text)
TJ = Val(Text2.Text)
POT = Val(Text3.Text)
GK = GP + TJ – POT
PJ = (GK * 10) / 100
GD = GK – PJ
Text4.Text = GK
Text5.Text = PJ
Text6.Text = GD
End Sub
Private Sub Command2_Click()
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
PRAKTEKUM 3
Private Sub Combo1_Click()
Dim NPM, NM, JR As String
NPM = Combo1.Text
If NPM = “11100012” Then
NM = “BAMBANG NURHIDAYAD”
JR = “SISTEM INFORMASI_S1”
ElseIf NPM = “11100016” Then
NM = “FITRA DWI MARTHIN”
JR = “SISTEM INFORMASI_S1”
ElseIf NPM = “11100010” Then
NM = “MAULANI”
JR = “SISTEM INFORMASI_S1”
End If
Text2.Text = NM
Text3.Text = JR
End Sub
Private Sub Command1_Click()
Dim NQ, NT, UTS, UAS, NA As Integer
Dim HM As String
NQ = Val(Text4.Text)
NT = Val(Text5.Text)
UTS = Val(Text6.Text)
UAS = Val(Text7.Text)
NA = (NQ + NT + UTS + UAS) / 4
If NA < 50 Then
HM = “E”
ElseIf NA < 60 Then
HM = “D”
ElseIf NA < 70 Then
HM = “C”
ElseIf NA < 80 Then
HM = “B”
Else
HM = “A”
End If
Text8.Text = NA
Text9.Text = HM
End Sub
Private Sub Command2_Click()
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Combo1.Text = “”
Combo1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Combo1.AddItem “11100010”
Combo1.AddItem “11100012”
Combo1.AddItem “11100016”
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 KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
PRAKTEKUM 4
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdlagi_Click()
Txtkt.SetFocus
Txtkt.Text = “”
Txtht.Text = “”
Txtjk.Text = “”
Txtjb.Text = “”
Txtjt.Text = “”
Txttotalp.Text = “”
End Sub
Private Sub CMDPROSES_Click()
Dim KT As String
Dim T As Long
KT = Left(Txtkt.Text, 3)
If KT = “BIM” Then
Txtht.Text = “50000”
Txtjk.Text = “BIMA”
Txtjb.Text = “16.00”
ElseIf KT = “EKO” Then
Txtht.Text = “35000”
Txtjk.Text = “EKONOMI”
Txtjb.Text = “19.00”
ElseIf KT = “SEN” Then
Txtht.Text = “15000”
Txtjk.Text = “SENJA”
Txtjb.Text = “20.00”
ElseIf KT = “MUT” Then
Txtht.Text = “23000”
Txtjk.Text = “MUTIARA”
Txtjb.Text = “17.00”
End If
Txtjt.SetFocus
End Sub
Private Sub Txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)
End If
End Sub
PRAKTEKUM 5
Private Sub CMDPROSES_Click()
Dim s As String
s = Mid(txtnik.Text, 9, 1)
If s = “A” Then
txtgolongan.Text = “A”
txtjabatan.Text = “MANAGER”
txtgapok.Text = “3000000”
txttunjangan.Text = “875000”
ElseIf s = “B” Then
txtgolongan.Text = “B”
txtjabatan.Text = “KA SEKSI”
txtstatus.Text = “2500000”
txttunjangan.Text = “525000”
ElseIf s = “C” Then
txtgolongan.Text = “C”
txtjabatan.Text = “staff”
txtgapok.Text = “2000000”
txttunjangan.Text = “325000”
End If
s = Left(txtnik.Text, 3)
If s = “KEU” Then
txtjabatan.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 = “SECURITY”
End If
s = Right(txtnik.Text, 1)
If s = “S” Then
txtkodestatus.Text = “S”
txtstatus.Text = “SINGLE”
ElseIf s = “M” Then
txtkodestatus.Text = “M”
txtstatus.Text = “MENIKAH”
ElseIf s = “D” Then
txtkodestatus.Text = “D”
txtstatus.Text = “DUDA”
ElseIf s = “J” Then
txtkodestatus.Text = “J”
txtstatus.Text = “JANDA”
End If
s = Mid(txtnik.Text, 5, 4)
txttahun.Text = s
txttotalgaji.Text = Val(txtgapok.Text) + Val(txttunjangan.Text)
End Sub
Private Sub Command2_Click()
txtnama.Text = “”
txtnama.SetFocus
txtnik = “”
txtgolongan = “”
txtkodestatus = “”
txttahun = “”
txtjabatan = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotalgaji.Text = “”
txtstatus.Text = “”
End Sub
Private Sub Command3_Click()
txtnama.Text = “”
txtnama.SetFocus
txtnik = “”
txtgolongan = “”
txtkodestatus = “”
txttahun = “”
txtjabatan = “”
txtbagian = “”
txtgapok = “”
txttunjangan = “”
txttotalgaji.Text = “”
txtstatus = “”
End Sub
Private Sub Command4_Click()
End
End Sub
PRAKTEKUM 6
Private Sub Check1_Click()
Label1.FontBold = True
End Sub
Private Sub Check2_Click()
Label1.FontItalic = True
End Sub
Private Sub Check3_Click()
Label1.FontUnderline = True
End Sub
Private Sub Check4_Click()
Label1.FontStrikethru = True
End Sub
Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub
EXIT
fitrastmik 