Private Sub cmdHitung_Click()
txtdi = Val(txtha) * 0.15
Txthak = Val(txtha) - Val(txtdi)
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdUlangi_Click()
txtha = ""
txtdi = ""
Txthak = ""
txtharga.SetFocus
End SubTUGAS 2 PROGRAM 2
Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txthak.SetFocus
txtdi = Val(txtha) * 0.15
Txthak = Val(txtha) - Val(txtdi)
End If
End Sub
Private Sub cmdQuit_Click()
End
End Sub
Private Sub cmdUlangi_Click()
txtha = ""
txtdi = ""
Txthak = ""
txtha.SetFocus
End SubTUGAS 2 PROGRAM 3
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdproses_Click()
txtgk = Val(txtgp) + Val(txttn) - Val(txtp)
txtpj = Val(txtgk) * 0.05
txtgd = Val(txtgk) - Val(txtpj)
End Sub
Private Sub cmdulang_Click()
txtgp = ""
txttn = ""
txtp = ""
txtgk = ""
txtpj = ""
txtgd = ""
txtgp.SetFocus
End SubTUGAS 2 PROGRAM 4
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdproses_Click()
txtgk = Val(txtgp) + Val(txttn) - Val(txtp)
txtpj = Val(txtgk) * 0.05
txtgd = Val(txtgk) - Val(txtpj)
End Sub
Private Sub cmdulang_Click()
txtgp = ""
txttn = ""
txtp = ""
txtgk = ""
txtpj = ""
txtgd = ""
txtgp.SetFocus
End Sub
Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttn.SetFocus
End If
End Sub
Private Sub txtp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgajid.SetFocus
txtgk = Val(txtgp) + Val(txttn) - Val(txtp)
txtpj = Val(txtgk) * 0.05
txtgd = Val(txtgk) - Val(txtpj)
End If
End Sub
Private Sub txttn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtp.SetFocus
End If
End Sub
TUGAS 2 PROGRAM 5
Private Sub Cmdext_Click()
End
End Sub
Private Sub Optred_Click()
Lbltxt.ForeColor = vbRed
End Sub
Private Sub Optbiru_Click()
Lbltxt.ForeColor = vbBlue
End Sub
Private Sub Opthijau_Click()
Lbltxt.ForeColor = vbGreen
End Sub
Private Sub Optkuning_Click()
Lbltxt.ForeColor = vbYellow
End Sub
Private Sub chkbold_Click()
If Chkbold.Value = 1 Then
Lbltxt.FontBold = True
Else
Lbltxt.FontBold = False
End If
End Sub
Private Sub chkunderline_Click()
If Chkunderline.Value = 1 Then
Lbltxt.FontUnderline = True
Else
Lbltxt.FontUnderline = False
End If
End Sub
Private Sub chkstrikeout_Click()
If Chkstrikeout.Value = 1 Then
Lbltxt.FontStrikethru = True
Else
Lbltxt.FontStrikethru = False
End If
End Sub
Private Sub chkitalic_Click()
If Chkitalic.Value = 1 Then
Lbltxt.FontItalic = True
Else
Lbltxt.FontItalic = False
End If
End Sub
TUGAS 2 PROGRAM 6
Private Sub Cmdoke_Click()
lbltext1.Caption = txtnnm.Text
End Sub
Private Sub Cmdexit_Click()
End
End Sub
Private Sub Optbiru_Click()
lbltext1.ForeColor = vbBlue
End Sub
Private Sub Optred_Click()
lbltext1.ForeColor = vbRed
End Sub
Private Sub Chkbold_Click()
lbltext1.FontBold = Chkbold.Value
End Sub
Private Sub Chkitalic_Click()
lbltext1.FontItalic = Chkitalic.Value
End Sub
TUGAS 2 PROGRAM 7
Private Sub Form_Load()
Cbonpm.AddItem "17100066"
Cbonpm.AddItem "17200076"
Cbonpm.AddItem "16300288"
Cbonpm.AddItem "17400090"
Cbonpm.AddItem "15400100"
End Sub
Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case Cbonpm
Case
"17100066"
nama = "HAYABUSA"
jurusan =
"Sistem Informasi"
Case
"17200076"
nama =
"SUN"
jurusan =
"Manajemen Informatika"
Case
"16300288"
nama =
"FANNY"
jurusan =
"Tehnik Sipil"
Case
"17400090"
nama = "SAKIR
KECIL"
jurusan =
"Tehnik Informatika"
Case
"17400100"
nama = "ROGER"
jurusan = "MANAGEMENT
SISTEM INFORMASI"
End Select
txtnm = nama
txtjr = jurusan
txtnq.SetFocus
End Sub
Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
txtnm = ""
txtjr = ""
txtnq = ""
txtnt = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtnq)
TUGAS = Val(txtnt)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna
Case Is = 100
HM = "A"
Case Is >= 80
HM = "A"
Case Is >= 70
HM = "B"
Case Is >= 60
HM = "C"
Case Is >= 50
HM = "D"
Case Is <= 49
HM = "E"
End Select
txthm.Text = HM
End Sub
TUGAS 2 PROGRAM 8
Private Sub Form_Load()
Cbonpm.AddItem "17100066"
Cbonpm.AddItem "17200076"
Cbonpm.AddItem "16300288"
Cbonpm.AddItem "17400090"
Cbonpm.AddItem "15400100"
End Sub
Private Sub txtnq_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnt.SetFocus
End If
End Sub
Private Sub txtnt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuts.SetFocus
End If
End Sub
Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub
Private Sub txtuas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
Dim NA As Integer
Dim HM As String
QUIS = Val(txtnq)
TUGAS = Val(txtnt)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna
Case Is = 100
HM = "A"
Case Is >= 80
HM = "A"
Case Is >= 70
HM = "B"
Case Is >= 60
HM = "C"
Case Is >= 50
HM = "D"
Case Is <= 49
HM = "E"
End Select
txthm.Text = HM
End If
End Sub
Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String
Select Case Cbonpm
Case "17100066"
nama = "HAYABUSA"
jurusan = "Sistem Informasi"
Case "17200076"
nama = "SUN"
jurusan = "Manajemen Informatika"
Case "16300288"
nama = "FANNY"
jurusan = "Tehnik Sipil"
Case "17400090"
nama = "SAKIR KECIL"
jurusan = "Tehnik Informatika"
Case "17400100"
nama = "ROGER"
jurusan = "MANAGEMENT SISTEM INFORMASI"
End Select
txtnm = nama
txtjr = jurusan
txtnq.SetFocus
End Sub
Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm = ""
txtnm = ""
txtjr = ""
txtnq = ""
txtnt = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(txtquis)
TUGAS = Val(txttugas)
UTS = Val(txtuts)
UAS = Val(txtuas)
NA = (QUIS + TUGAS + UTS + UAS) / 4
txtna.Text = NA
Select Case txtna
Case Is = 100
HM = "A"
Case Is >= 80
HM = "A"
Case Is >= 70
HM = "B"
Case Is >= 60
HM = "C"
Case Is >= 50
HM = "D"
Case Is <= 49
HM = "E"
End Select
txthm.Text = HM
End Sub
Tidak ada komentar:
Posting Komentar