Helmi stmik pringsewu

Private Sub Combonpm_Click() Dim nama, jurusan, HM As String Select Case Combonpm Case "17100085" nama = "AGISTA UTAMI" jurusan = "Manajemen Informatika" Case "17100074" nama = "NUZUL RAMADHANI" jurusan = "Sistem Informasi" Case "17100103" nama = "HELMIYANTO" jurusan = "Sistem Informasi" Case "17100099" nama = "IRVAN BAHARI" jurusan = "Teknik Komputer Jaringan" Case "17100084" nama = "UUT ELOK PERMATA" jurusan = "Manajemen Informatika" End Select Textnama = nama Textjurusan = jurusan Textquis.SetFocus End Sub Private Sub Command2_Click() Combonpm.SetFocus Combonpm = "" Textnama = "" Textjurusan = "" Textquis = "" Texttugas = "" Textuts = "" Textuas = "" Textna = "" Texthm = "...

Private Sub Combonpm_Click() Dim Nama, Jurusan, Hm As String Select Case Combonpm  Case "17100085"  Nama = "AGISTA UTAMI"  Jurusan = "Manajemen Informatika"  Case "17100074"  Nama = "NUZUL RAMADHANI"  Jurusan = "Sistem Informasi"  Case "17100103"  Nama = "HELMIYANTO"  Jurusan = "Sistem Informasi"  Case "17100099"  Nama = "IRVAN BAHARI"  Jurusan = "Teknik Komputer Jaringan"  Case "17100084"  Nama = "UUT ELOK PERMATA"  Jurusan = "Manajemen Informatika"  End Select  Textnama = Nama  Textjurusan = Jurusan  Textquis.SetFocus End Sub Private Sub Command2_Click() Combonpm.SetFocus Combonpm = "" Textnama = "" Textjurusan = "" Textquis = "" Texttugas = "" Textuts = "" Textuas = "" Textna = "" T...

Private Sub Check1_Click() Label2.FontBold = Check1.Value End Sub Private Sub Check2_Click() Label2.FontItalic = Check1.Value End Sub Private Sub Command1_Click() Label2.Caption = Text1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Option1_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option2_Click() Label2.ForeColor = vbRed End Sub

Private Sub Optionred_Click() Label1.ForeColor = vbRed End Sub Private Sub Optionyellow_Click() Label1.ForeColor = vbYellow End Sub Private Sub Optionblue_Click() Label1.ForeColor = vbBlue End Sub Private Sub optiongreen_Click() Label1.ForeColor = vbGreen End Sub Private Sub checkbold_Click() If Checkbold.Value = 1 Then Label1.FontBold = True Else Label1.FontBold = False End If End Sub Private Sub checkitalic_Click() If Checkitalic.Value = 1 Then Label1.FontItalic = True Else Label1.FontItalic = False End If End Sub Private Sub checkstrikethru_Click() If Checkstrikethru.Value = 1 Then Label1.FontStrikethru = True Else Label1.FontStrikethru = False End If End Sub Private Sub checkunderline_Click() If Checkunderline.Value = 1 Then Label1.FontUnderline = True Else Label1.FontUnderline = False End If End Sub Private Sub Command1_Click() Unload Me End Sub

Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub cmdProses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdUlang_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 Cmdkeluar_Click() Unload Me End Sub Private Sub cmdProses_Click() Text4 = Val(Text1) + Val(Text2) - Val(Text3) Text5 = Val(Text4) * (0.1) Text6 = Val(Text4) - Val(Text5) End Sub Private Sub cmdUlang_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" End Sub

Private Sub Command1_Click() Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2 = Val(Text1) * 0.15 Text3 = Val(Text1) - Val(Text2) End If End Sub