er moeten 3 vakken ingelezen worden op 20 bv;nederlands,boekhouden,wiskunde
de norm is :geslaagd is degene die 50% behaalde ,ofwel op wiskunde of nederlands 40% maar dan op boekhouden 60%(verschillende combinaties mogelijk dus.
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub cmdbereken_Click()
lblresultaat.Visible = False
wiskunde = Trim(Val(txtwis.Text))
nederlands = Trim(Val(txtned.Text))
boekhouden = Trim(Val(txtboek.Text))
If wiskunde < 8 Or nederlands < 8 Or boekhouden < 8 Then
lblresultaat.Visible = True
lblresultaat.Caption = " niet geslaagd"
Exit Sub
Else
resultaat = wiskunde + nederlands + boekhouden
resultaat = (resultaat / 60) * 100
If resultaat >= 50 Then
lblresultaat.Visible = True
lblresultaat.Caption = resultaat & " % " & " op 100 " & vbCrLf & " geslaagd"
Else
lblresultaat.Visible = True
lblresultaat.Caption = "niet geslaagd"
End If
End If
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.