sitistmikpringsewu

Private Sub HITUNG_Click() TXTDS = Val(TXTHA) * 0.1 TXTHAK = Val(TXTHA) - Val(TXTDS) End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub LAGI_Click() TXTHA = "" TXTDS = "" TXTHAK = "" TXTHA.SetFocus End Sub Private Sub TXTHA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TXTDS = Val(TXTHA) * 0.1 TXTHAK = Val(TXTHA) - Val(TXTDS) End If End Sub

Private Sub chkb_Click() If chkb.Value = 1 Then lbl1.FontBold = True Else lbl1.FontBold = False End If End Sub Private Sub chki_Click() If chki.Value = 1 Then lbl1.FontItalic = True Else lbl1.FontItalic = False End If End Sub Private Sub chks_Click() If chks.Value = 1 Then lbl1.FontStrikethru = True Else lbl1.FontStrikethru = False End If End Sub Private Sub chku_Click() If chku.Value = 1 Then lbl1.FontUnderline = True Else lbl1.FontUnderline = False End If End Sub Private Sub opnb_Click() lbl1.ForeColor = vbBlue End Sub Private Sub opng_Click() lbl1.ForeColor = vbGreen End Sub '17100002 bhadi rama dhani Private Sub opnr_Click() lbl1.ForeColor = vbRed End Sub Private Sub opny_Click() lbl1.ForeColor = vbYellow End Sub Private Sub QUIT_Click() Unload Me End Sub

Private Sub HITUNG_Click() TXTDS = Val(TXTHA) * 0.1 TXTHAK = Val(TXTHA) - Val(TXTDS) End Sub Private Sub KELUAR_Click() Unload Me End Sub Private Sub LAGI_Click() TXTHA = "" TXTDS = "" TXTHAK = "" TXTHA.SetFocus End Sub

Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100020" nama = "siti tasripah" jurusan = "Sistem Informasi" Case "17100002" nama = "Bahadi Rhamadani" jurusan = "Sistem Informasi" Case "17100003" nama = "Renaldi Zainal Arifin" jurusan = "Sistem Informasi" Case "17100004" nama = "Eka Kartika" jurusan = "Sistem Informasi" Case "17100006" nama = "Rosi elvia" jurusan = "Sistem Informasi" Case "17100008" nama = "M.Galih algofur" jurusan = "Sistem Informasi" End Select txtmhs.Text = nama tx...

Private Sub batal_Click() cbonpm.SetFocus cbonpm.Text = "" txtmhs.Text = "" txtjr.Text = "" txtnq.Text = "" txtnt.Text = "" txtut.Text = "" txtua.Text = "" txtna.Text = "" txthm.Text = "" End Sub Private Sub cbonpm_Click() Dim nama, jurusan, hm As String  Select Case cbonpm.Text Case "17100020" nama = "siti tasripah" jurusan = "Sistem Informasi" Case "17100002" nama = "Bahadi Rhamadani" jurusan = "Sistem Informasi" Case "17100003" nama = "Renaldi Zainal Arifin" jurusan = "Sistem Informasi" Case "17100004" nama = "Eka Kartika" jurusan = "Sistem Informasi" Case "17100006" nama = "Rosi elvia" jurusan = "Sistem Informasi" Case "17100008" nama = "M.Galih algofur" jurusan = "Sistem Informasi...

Private Sub KELUAR_Click(Index As Integer) Unload Me End Sub Private Sub PROSES_Click(Index As Integer) TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT) TXTPJ = Val(TXTGK) * 0.1 TXTGD = Val(TXTGK) - Val(TXTPJ) End Sub Private Sub TXTGP_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT) TXTPJ = Val(TXTGK) * 0.1 TXTGD = Val(TXTGK) - Val(TXTPJ) End If End Sub Private Sub ULANG_Click() TXTGP = "" TXTTJ = "" TXTPT = "" TXTGK = "" TXTPJ = "" TXTGD = "" TXTGP.SetFocus End Sub

Private Sub KELUAR_Click(Index As Integer) Unload Me End Sub Private Sub PROSES_Click(Index As Integer) TXTGK = Val(TXTGP) + Val(TXTTJ) - Val(TXTPT) TXTPJ = Val(TXTGK) * 0.1 TXTGD = Val(TXTGK) - Val(TXTPJ) End Sub Private Sub ULANG_Click() TXTGP = "" TXTTJ = "" TXTPT = "" TXTGK = "" TXTPJ = "" TXTGD = "" TXTGP.SetFocus End Sub