Prima Aji Pamungkas

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100076"   nama = "PRIMA AJI PAMUNGKAS"   jurusan = "Sistem Informasi"   Case "16100099"   nama = "LIZA OCTA"   jurusan = "Manajemen Informatika"   Case "15100077"   nama = "RIKI BOY"   jurusan = "Tehnik Informatika"   Case "15100099"   nama = "ZUBAIDAH"   jurusan = "Teknik Mesin"   Case "17100098"   nama = "RAKAN ADYA KESUMA"   jurusan = "Teknik Komputer"   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 = "&qu

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100076"   nama = "PRIMA AJI PAMUNGKAS"   jurusan = "Sistem Informasi"   Case "16100099"   nama = "LIZA OCTA"   jurusan = "Manajemen Informatika"   Case "15100077"   nama = "RIKI BOY"   jurusan = "Tehnik Informatika"   Case "15100099"   nama = "ZUBAIDAH"   jurusan = "Teknik Mesin"   Case "17100098"   nama = "RAKAN ADYA KESUMA"   jurusan = "Teknik Komputer"   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 = "&

Private Sub Chk1_Click() lbl2.FontBold = Chk1.Value End Sub Private Sub Chk2_Click()     lbl2.FontItalic = Chk2.Value End Sub Private Sub Cmd1_Click()     lbl2.Caption = txt1.Text End Sub Private Sub Cmd2_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 chkbold_Click() If chkbold.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub chkitalic_Click() If chkitalic.Value = 1 Then lbl1.FontItalic = True Else lbl1.FontItalic = False End If End Sub Private Sub chkstarikeout_Click() If chkstarikeout.Value = 1 Then lbl1.FontStrikethru = True Else lbl1.FontStrikethru = False End If End Sub Private Sub chkunderline_Click() If chkunderline.Value = 1 Then lbl1.FontUnderline = True Else lbl1.FontUnderline = False End If  End Sub Private Sub Cmd1_Click() Unload Me End Sub Private Sub Opt1_Click() lbl1.ForeColor = vbRed End Sub Private Sub Opt2_Click() lbl1.ForeColor = vbYellow End Sub Private Sub Opt3_Click() lbl1.ForeColor = vbBlue End Sub Private Sub Opt4_Click() lbl1.ForeColor = vbGreen End Sub

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