P8 TUGAS 2 BP1

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100077"

 nama = "DESCY CAHYANINGRUM"

 jurusan = "Sistem Informasi"

 Case "16100078"

 nama = "BAMBANG"

 jurusan = "Manajemen Informatika"

 Case "15100079"

 nama = "MANTO"

 jurusan = "Tehnik Informatika"

 Case "151000080"

 nama = "JUPRI"

 jurusan = "Teknik Informatika"

 Case "17100081"

 nama = "NANA"

 jurusan = "Teknik Mesin"

 End Select

 Txtnama = nama

 txtjurusan = jurusan

 txtquis.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

Txtnama = ""

txtjurusan = ""

txtquis = ""

txttugas = ""

txtuts = ""

txtuas = ""

txtna = ""

txthm = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

Cbonpm.AddItem "17100077"

Cbonpm.AddItem "16100078"

Cbonpm.AddItem "15100079"

Cbonpm.AddItem "15100080"

Cbonpm.AddItem "17100081"

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

Select Case txtna

 Case Is > 80

 HM = "A"

 Case Is > 70

 HM = "B"

 Case Is > 60

 HM = "C"

 Case Is > 50

 HM = "D"

 Case Is < 40

 HM = "E"

  End Select

  txthm = HM

 End Sub

Private Sub txtquis_KeyPress(keyascii As Integer)

If keyascii = 13 Then

txttugas.SetFocus

End If

End Sub

Private Sub txttugas_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)

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

Select Case txtna

 Case Is > 80

 HM = "A"

 Case Is > 70

 HM = "B"

 Case Is > 60

 HM = "C"

 Case Is > 50

 HM = "D"

 Case Is < 40

 HM = "E"

  End Select

  txthm = HM

End Sub

 

P7 TUGAS 2 BP1

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm

 Case "17100077"

 nama = "DESCY CAHYANINGRUM"

 jurusan = "Sistem Informasi"

 Case "16100078"

 nama = "BAMBANG"

 jurusan = "Manajemen Informatika"

 Case "15100079"

 nama = "MANTO"

 jurusan = "Tehnik Informatika"

 Case "151000080"

 nama = "JUPRI"

 jurusan = "Teknik Informatika"

 Case "17100081"

 nama = "NANA"

 jurusan = "Teknik Mesin"

 End Select

 Txtnama = nama

 txtjurusan = jurusan

 txtquis.SetFocus

 End Sub

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm = ""

Txtnama = ""

txtjurusan = ""

txtquis = ""

txttugas = ""

txtuts = ""

txtuas = ""

txtna = ""

txthm = ""

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Form_Load()

Cbonpm.AddItem "17100077"

Cbonpm.AddItem "16100078"

Cbonpm.AddItem "15100079"

Cbonpm.AddItem "15100080"

Cbonpm.AddItem "17100081"

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

Select Case txtna

 Case Is > 80

 HM = "A"

 Case Is > 70

 HM = "B"

 Case Is > 60

 HM = "C"

 Case Is > 50

 HM = "D"

 Case Is < 40

 HM = "E"

  End Select

  txthm = HM

 End Sub

P6 TUGAS 2 BP1

Private Sub ChkTebal_Click()

lbl2.FontBold = Chk1.Value

End Sub

Private Sub Cmd1_Click()

    lbl2.Caption = txt1.Text

End Sub

Private Sub Cmd2_Click()

    unload me

End Sub

Private Sub OptBiru_Click()

    lbl2.ForeColor = vbBlue

End Sub

Private Sub OptMerah_Click()

    lbl2.ForeColor = vbRed

End Sub

Private Sub ChkMiring_Click()

    lbl2.FontItalic = Chk2.Value

End Sub

P5 TUGAS 2 BP1

Private Sub chk1_Click()

If chkbold.Value = 1 Then

lbl1.FontBold = True

Else

lbl1.FontBold = False

End If

End Sub

Private Sub chk2_Click()

If chkitalic.Value = 1 Then

lbl1.FontItalic = True

Else

lbl1.FontItalic = False

End If

End Sub

Private Sub chk3_Click()

If chkstarikeout.Value = 1 Then

lbl1.FontStrikethru = True

Else

lbl1.FontStrikethru = False

End If

End Sub

Private Sub chk4_Click()

If chkunderline.Value = 1 Then

lbl1.FontUnderline = True

Else

lbl1.FontUnderline = False

End If

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

Private Sub Opt1_Click()

lbl1.ForeColor = vbRed

End Sub

Private Sub Opt2_Click()

lbl1.ForeColor = vbBlack

End Sub

Private Sub Opt3_Click()

lbl1.ForeColor = vbBlue

End Sub

Private Sub Opt4_Click()

lbl1.ForeColor = vbGreen

End Sub

P4 TUGAS 2 BP1

Private Sub Cmd1_click()

Txt4 = Val(Txt1) + Val(Txt2) - Val(Txt3)

Txt5 = Val(Txt4) * 0.1

Txt6 = Val(Txt4) - Val(Txt5)

End Sub

Private Sub Cmd2_Click()

Txt1 = ""

Txt2 = ""

Txt3 = ""

Txt4 = ""

Txt5 = ""

Txt6 = ""

End Sub

Private Sub Cmd3_Click()

Unload Me

End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt2.SetFocus

End If

End Sub

Private Sub Txt2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt3.SetFocus

End If

End Sub

Private Sub Txt3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txt4 = Val(Txt1) + Val(Txt2) - Val(Txt3)

Txt5 = Val(Txt4) * 0.1

Txt6 = Val(Txt4) - Val(Txt5)

End If

End Sub