RETNO STMIK PRINGSEWU

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100095"   nama = "ZEMA"   jurusan = "Sistem Informasi"   Case "17100096"   nama = "RETNO NURAINI"   jurusan = "Manajemen Informatika"   Case "17100097"   nama = "PAKI"   jurusan = "Tehnik Informatika"   Case "17100098"   nama = "SAADAH"   jurusan = "Teknik Mesin"   Case "17100099"   nama = " SITI"   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 = ""

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100095"   nama = "ZEMA"   jurusan = "Sistem Informasi"   Case "17100096"   nama = "RETNO NURAINI"   jurusan = "Manajemen Informatika"   Case "17100097"   nama = "PAKI"   jurusan = "Tehnik Informatika"   Case "17100098"   nama = "SAADAH"   jurusan = "Teknik Mesin"   Case "17100099"   nama = " SITI"   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 = &

Private Sub Chk1_Click() lblnama.FontBold = Chk1.Value End Sub Private Sub Cmdok_Click()     lblnama.Caption = txt1.Text End Sub Private Sub Cmdselesai_Click()    unload me End Sub Private Sub Opt1_Click()     lblnama.ForeColor = vbBlue End Sub Private Sub Opt2_Click()     lblnama.ForeColor = vbRed End Sub   Private Sub Chk2_Click()     lblnama.FontItalic = Chk2.Value End Sub

Private Sub Optred_Click() lbl1.ForeColor = vbRed End Sub Private Sub Optyellow_Click() lbl1.ForeColor = vbYellow End Sub Private Sub Optblue_Click() lbl1.ForeColor = vbBlue End Sub Private Sub optgreen_Click() lbl1.ForeColor = vbGreen 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 Command1_Click() Unload Me End Sub

Private Sub Cmdproses_click() Txtgk = Val(Txtgp) + Val(Txtt) - Val(Txtpo) txtpa = Val(Txtgk) * 0.1 Txtgd = Val(Txtgk) - Val(Txtpa) End Sub Private Sub Cmdulang_Click() Txtgp = "" Txtt = "" Txtpo = "" Txtgk= "" Txtpa= "" Txtgd = "" End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtt2.SetFocus End If End Sub Private Sub Txtt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtpo.SetFocus End If End Sub Private Sub Txtpo_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtgk = Val(Txtgp) + Val(Txtt) - Val(Txtpo) txtpa = Val(Txtgk) * 0.1 Txtgd = Val(Txtgk) - Val(Txtpa) End If End Sub