Rabu, 22 November 2017

TUGAS 2 PROGRAM 6 BP1



Private Sub Cmdoke_Click()
lbltext1.Caption = txtnnm.Text
End Sub

Private Sub Cmdexit_Click()
End
End Sub

Private Sub Optbiru_Click()
lbltext1.ForeColor = vbBlue
End Sub

Private Sub Optred_Click()
lbltext1.ForeColor = vbRed
End Sub

Private Sub Chkbold_Click()
lbltext1.FontBold = Chkbold.Value
End Sub

Private Sub Chkitalic_Click()
lbltext1.FontItalic = Chkitalic.Value

End Sub

Related Posts:

  • TUGAS 2 PROGRAM 6 BP1 Private Sub Cmdoke_Click() lbltext1.Caption = txtnnm.Text End Sub Private Sub Cmdexit_Click() End End Sub Private Sub Optbiru_Click() lbltext1.ForeColor = vbBlue End Sub Private Sub Optred_Click() lblte… Read More
  • TUGAS 2 PROGRAM 5 BP1 Private Sub Cmdext_Click() End End Sub Private Sub Optred_Click() Lbltxt.ForeColor = vbRed End Sub Private Sub Optbiru_Click() Lbltxt.ForeColor = vbBlue End Sub Private Sub Opthijau_Click() Lbltxt.Fore… Read More
  • TUGAS 2 PROGRAM 7 BP1   Private Sub Form_Load() Cbonpm.AddItem "17100075" Cbonpm.AddItem "17200089" Cbonpm.AddItem "16200092" Cbonpm.AddItem "17200256" Cbonpm.AddItem "16100232" End Sub Private Sub Cbonpm_Click() Dim nama, jurus… Read More
  • TUGAS 2 PROGRAM 4 BP1 Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan) txtpajak = Val(txtgajik) * 0.05 txtgajid = Val(txtgajik) - Val(txtpajak) End Sub… Read More
  • TUGAS 2 PROGRAM 3 BP1 Private Sub cmdkeluar_Click() End End Sub Private Sub cmdproses_Click() txtgajik = Val(txtgajip) + Val(txttn) - Val(txtpotongan) txtpajak = Val(txtgajik) * 0.05 txtgajid = Val(txtgajik) - Val(txtpajak) End Sub … Read More

0 komentar:

Posting Komentar