SAADAH STMIK PREINGSEWU

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100078"   nama = "SAADAH FATIMATUZ Z "   jurusan = "Sistem Informasi"   Case "17100079"   nama = "MPUR"   jurusan = "Manajemen Informatika"   Case "17100080"   nama = "RIKI CANDRA"   jurusan = "Tehnik Informatika"   Case "17100081"   nama = "UBAIDILA"   jurusan = "Teknik Mesin"   Case "17100082"   nama = "YOGA"   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 = "" End Sub

Private Sub Cbonpm_Click() Dim nama, jurusan, HM As String Select Case Cbonpm   Case "17100078"   nama = "SAADAH FATIMATUZ Z "   jurusan = "Sistem Informasi"   Case "17100079"   nama = "MPUR"   jurusan = "Manajemen Informatika"   Case "17100080"   nama = "RIKI CANDRA"   jurusan = "Tehnik Informatika"   Case "17100081"   nama = "UBAIDILA"   jurusan = "Teknik Mesin"   Case "17100082"   nama = "YOGA"   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 = "" End S

  Private Sub Chk1_Click() lbl2.FontBold = Chk1.Value End Sub Private Sub Chk2_Click() lbl2.FontItalic = Chk2.Value End Sub Private Sub Command1_Click() lbl2.Caption = txt1 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 checkbold_Click() If checkbold.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub checkitalic_Click() If checkitalic.Value = 1 Then lbl1.FontItalic = True Else lbl1.FontItalic = False End If End Sub Private Sub checkstarikeout_Click() If checkstarikeout.Value = 1 Then lbl1.FontStrikethru = True Else lbl1.FontStrikethru = False End If End Sub Private Sub checkunderline_Click() If checkunderline.Value = 1 Then lbl1.FontUnderline = True Else lbl1.FontUnderline = False End If  End Sub Private Sub Cmdexit_Click() Unload Me 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 Cmd1_click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Cmd2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" 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   Private Sub Cmd3_Click() Unload Me End Sub

Private Sub Cmd1_click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * 0.1 Text6 = Val(Text4) - Val(Text5) End Sub Private Sub Cmd2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub Private Sub Cmd3_Click() Unload Me End Sub