Rabu, 29 Mei 2013

PROGRAM MENGHITUNG BIAYA PENDAFTARAN KURSUS DENGAN VB

"MENGHITUNG BIAYA PENDAFTARAN KURSUS"

1.      LISTING PROGRAM
Dim biaya, admin As Long
Private Sub chkinter_Click()
    If Me.chkinter.Value = Checked Then
        biaya = Val(biaya) + Val(90000)
    Else
        If biaya > 0 Then
            biaya = Val(biaya) - Val(90000)
        End If
    End If
    Me.txtbiaya = Format(biaya, "Rp #,#")
End Sub