SAADAH STMIK PREINGSEWU

Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm, 2) S = Mid(Txtnpm, 3, 1) If S = "1" Then txtjur = "Sistem Informasi" txtps = "Diploma Dua" ElseIf S = "2" Then txtjur = "Manajemen Informatika" txtps = "Strata Satu" ElseIf S = "3" Then txtjur = "Tehnik Informatika" txtps = "Diploma Tiga" ElseIf S = "4" Then txtjur = "Manajemen & Komp. Akuntansi" txtps = "Diploma Empat" End If txturut = Right(Txtnpm.Text, 4) End Sub Private Sub Txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txtnpm.SetFocus End If   End Sub Private Sub Cmdkeluar_Click() Unload Me End Sub

Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm.Text, 2) S = Mid(Txtnpm.Text, 3, 1) If S = "1" Then txtjur.Text = "Sistem Informasi" ElseIf S = "2" Then txtjur.Text = "Manajemen Informatika" ElseIf S = "3" Then txtjur.Text = "Tehnik Informatika" ElseIf S = "4" Then txtjur.Text = "Manajemen & Komp. Akuntansi" End If S = Mid(Txtnpm.Text, 4, 2) If S = "01" Then txtps.Text = "Strata Satu" ElseIf S = "02" Then txtps.Text = "Diploma Tiga" ElseIf S = "03" Then txtps.Text = "Diploma Empat" ElseIf S = "04" Then txtps.Text = "Diploma Dua" End If txturut.Te...

Private Sub Command1_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Combo1 = "" End Sub Private Sub Command2_Click() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Text6 = "" Combo1 = "" End Sub Private Sub combo1_Click() Dim gapok, pajak, tunjangan, total As Variant Select Case Combo1.Text Case "I" gapok = 5500000 tunjangan = 250000 Case "II" gapok = 2000000 tunjangan = 250000 Case "III" gapok = 2500000 tunjangan = 250000 Case "IV" gapok = 3000000 tunjangan = 300000 Case Else gapok = 0 tunjangan = 0 End Select total = gapok + tunjangan pajak = total * 0.1 Text3= gapok Text4 = tunjangan Text5 = pajak Text6 = total - pajak End Sub Private Sub Form_load() Combo1.AddItem ...

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...