• Enter Slide 1 Title Here

    This is slide 1 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

  • Enter Slide 2 Title Here

    This is slide 2 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

  • Enter Slide 3 Title Here

    This is slide 3 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

  • Enter Slide 4 Title Here

    This is slide 4 description. Go to Edit HTML of your blogger blog. Find these sentences. You can replace these sentences with your own words.

Rabu, 22 November 2017

PROGRAM 8 BP1 TUGAS 2

November 22, 2017 – by 0



Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm
 Case "17100090"
 nama = "LOLA"
 jurusan = "Teknik Informatika"
 Case "17100091"
 nama = "LILI"
 jurusan = "Manajemen Informatika"
 Case "17100092"
 nama = "PUTRI WAHYUNI"
 jurusan = "Sistem Informasi"
 Case "17100093"
 nama = "ZUBAIDAH"
 jurusan = "Teknik Mesin"
 Case "17100094"
 nama = "LULU"
 jurusan = "Teknik Komputer"
 End Select
 Txtnama = nama
 txtjurusan = jurusan
 txtquis.SetFocus

 End Sub


Private Sub Cmd2_Click()
Cbonpm.SetFocus
Cbonpm = ""
Txtnama = ""
txtjurusan = ""
txtquis = ""
txttugas = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""
End Sub

Private Sub Cmd3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Cbonpm.AddItem "17100090"
Cbonpm.AddItem "17100091"
Cbonpm.AddItem "17100092"
Cbonpm.AddItem "17100093"
Cbonpm.AddItem "17100094" 
End Sub

Private Sub Cmd1_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

PROGRAM 7 BP1 TUGAS 2

November 22, 2017 – by 0

Private Sub Cbonpm_Click()
Dim nama, jurusan, HM As String

Select Case Cbonpm
 Case "17100090"
 nama = "LOLA"
 jurusan = "Teknik Informatika"
 Case "17100091"
 nama = "LILI"
 jurusan = "Manajemen Informatika"
 Case "17100092"
 nama = "PUTRI WAHYUNI"
 jurusan = "Sistem Informasi"
 Case "17100093"
 nama = "ZUBAIDAH"
 jurusan = "Teknik Mesin"
 Case "17100094"
 nama = "LULU"
 jurusan = "Teknik Komputer"
 End Select
 Txtnama = nama
 txtjurusan = jurusan
 txtquis.SetFocus

 End Sub


Private Sub Cmd2_Click()
Cbonpm.SetFocus
Cbonpm = ""
Txtnama = ""
txtjurusan = ""
txtquis = ""
txttugas = ""
txtuts = ""
txtuas = ""
txtna = ""
txthm = ""

End Sub

Private Sub Cmd3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbonpm.AddItem "17100090"
Cbonpm.AddItem "17100091"
Cbonpm.AddItem "17100092"
Cbonpm.AddItem "17100093"
Cbonpm.AddItem "17100094"

End Sub
Private Sub Cmd1_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

PROGRAM 6 BP1 TUGAS 2

November 22, 2017 – by 0
Private Sub Check1_Click()
lbl2.FontBold = Check1.Value
End Sub

Private Sub Command1_Click()
    lbl2.Caption = text1.Text
End Sub

Private Sub Command2_Click()
   unload me
End Sub

Private Sub Opt1_Click()
    lbl2.ForeColor = vbBlue
End Sub

Private Sub Opt2_Click()
    lbl2.ForeColor = vbRed
End Sub



Private Sub Check2_Click()
    lbl2.FontItalic = Check2.Value
End Sub

PROGRAM 5 BP1 TUGAS 2

November 22, 2017 – by 0

Private Sub check1_Click()
If check1.Value = 1 Then
lbl1.FontBold = True
Else
lbl1.FontBold = False
End If
End Sub

Private Sub check2_Click()
If check2.Value = 1 Then
lbl1.FontItalic = True
Else
lbl1.FontItalic = False
End If
End Sub

Private Sub check3_Click()
If check3.Value = 1 Then
lbl1.FontStrikethru = True
Else
lbl1.FontStrikethru = False
End If

End Sub

Private Sub check4_Click()
If check4.Value = 1 Then
lbl1.FontUnderline = True
Else
lbl1.FontUnderline = False
End If
End Sub


Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Opt1_Click()
lbl1.ForeColor = vbRed
End Sub

Private Sub Opt2_Click()
lbl1.ForeColor = vbBlue

End Sub

Private Sub Opt3_Click()
lbl1.ForeColor = vbGreen
End Sub

Private Sub Opt4_Click()
lbl1.ForeColor = vbYellow
End Sub

PROGRAM 4 BP1 TUGAS 2

November 22, 2017 – by 0
Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
End Sub

Private Sub Command1_click()
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End Sub

Private Sub Command3_Click()
Unload Me
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.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4 = Val(Text1) + Val(Text2) - Val(Text3)
Text5 = Val(Text4) * 0.1
Text6 = Val(Text4) - Val(Text5)
End If
End Sub

Langganan: Postingan (Atom)