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

 

Private Sub chklinux_Click()

    If Me.chklinux.Value = Checked Then

        biaya = Val(biaya) + Val(85000)

    Else

        If biaya > 0 Then

            biaya = Val(biaya) - Val(85000)

        End If

    End If

    Me.txtbiaya = Format(biaya, "Rp #,#")

End Sub

Private Sub chkmsoff_Click()

    If Me.chkmsoff.Value = Checked Then

        biaya = Val(biaya + 100000)

    Else

        If biaya > 0 Then

            biaya = Val(biaya) - Val(100000)

        End If

    End If

    Me.txtbiaya = Format(biaya, "Rp #,#")

End Sub

Private Sub chkphoto_Click()

    If Me.chkphoto.Value = Checked Then

        biaya = Val(biaya) + Val(150000)

    Else

        If biaya > 0 Then

            biaya = Val(biaya) - Val(150000)

        End If

    End If

    Me.txtbiaya = Format(biaya, "Rp #,#")

End Sub

Private Sub Command2_Click()

    Me.txtadmin = ""

    Me.txtalamat = ""

    Me.txtbiaya = ""

    Me.txtnama = ""

    Me.Text1 = ""

    admin = 0

    biaya = 0

    Me.txttotal = ""

    Me.chkinter.Value = Unchecked

    Me.chklinux.Value = Unchecked

    Me.chkmsoff.Value = Unchecked

    Me.chkphoto.Value = Unchecked

    Me.Option1.Value = False

    Me.Option2.Value = False

    Me.Option3.Value = False

    Me.Option4.Value = False

    Me.Option5.Value = False

    Me.Option6.Value = False

End Sub

Private Sub Command3_Click()

    If MsgBox("APAKAH ANDA YAKIN KELUAR?", vbQuestion + vbYesNo) = vbYes Then

        End

    End If

End Sub

Private Sub Form_Load()

    admin = 0

    biaya = 0

End Sub

Private Sub Option4_Click()

    If Option4.Value = True Then

        admin = 50000

        Me.txtadmin = Format(admin, "Rp #,#")

    End If

End Sub

Private Sub Option5_Click()

    If Option5.Value = True Then

        admin = 30000

        Me.txtadmin = Format(admin, "Rp #,#")

    End If

End Sub

Private Sub Option6_Click()

    If Option6.Value = True Then

        admin = 25000

        Me.txtadmin = Format(admin, "Rp #,#")

    End If

End Sub

Private Sub txtadmin_Change()

    On Error Resume Next

    Me.txttotal = Format(Val(admin) + Val(biaya), "Rp #,#")

End Sub

Private Sub txtbiaya_Change()

    On Error Resume Next

    Me.txttotal = Format(Val(admin) + Val(biaya), "Rp #,#")

End Sub