TUGAS BP VB 2.8

TUGAS BP VB 2.8

Private Sub cbonpm_Click() Dim nama, jurusan, Hm As String Select Case cbonpm.Text Case "17100059" nama = "usi...
TUGAS BP VB 2.7

TUGAS BP VB 2.7

Private Sub cbonpm_Click() Dim nama, jurusan, Hm As String Select Case cbonpm.Text Case "17100059" nama = "usi...
TUGAS BP VB 2.6

TUGAS BP VB 2.6

Private Sub chkb_Click() lbl2.FontBold = chkb.Value End Sub Private Sub chki_Click() lbl2.FontItalic = chkb.Value End...
TUGAS BP VB 2.5

TUGAS BP VB 2.5

Private Sub Chkb_Click() If Chkb.Value = 1 Then lblteks.FontBold = True Else lblteks.FontBold = False End If End...
TUGAS BP VB 2.4

TUGAS BP VB 2.4

Private Sub cmdproses_Click() Txtgk = Val(txtgapok) + Val(txttj) - Val(txtpt) Txtpj = Val(Txtgk) * 0.25 Txtgd= Val(Txtgk)...