Puntentelling

[sebas6]

hallo,

Ik moest in verband met school een programma schrijven waarin je 5 vragen moet beantwoorden en dan moet je een score geven op 5

Wanneer je een antwoord juist beantwoord krijg je +1 als je fout beantwoord -1 en als je niet beantwoord 0

Ik weet niet hoe ik hieraan moet beginnen iemand suggesties ?

Mvg Sebas

 

[sebas6]

Const vraag1 = "De aarde is is de 3de planeet gezien vanuit de zon."
Const antwvraag1 = 6
Const vraag2 = "Saturnus is de grootste planeet van ons zonnestelsel."
Const antwvraag2 = 7
Const vraag3 = "Mars is kleiner dan de aarde."
Const antwvraag3 = 6
Const vraag4 = "Mars staat korter bij de zon als de aarde."
Const antwvraag4 = 7
Const vraag5 = "Typisch voor Saturnus zijn zijn vele ringen."
Const antwvraag5 = 6
Dim score As Integer


Private Sub Form_Load()

naam = InputBox("Naam:", "Ingave naam")
klas = InputBox("Klas:", "Ingave klas")
dummy = MsgBox("Beantwoord volgende 5 vragen" & vbCrLf & "Denk goed na, verbeteren kan niet meer", vbOKOnly, "les 9")
start = MsgBox("Test starten?", vbYesNo, "Starten maar")
If start = vbNo Then
End
Else
vragen
End If

lblnaam.Caption = naam
lblklas.Caption = klas



End Sub

Public Sub vragen()
For vraagnr = 1 To 5
Select Case vraagnr
Case 1
antwoord1 = MsgBox("Is de aarde de derde planeet van het zonnestelsel.", vbYesNoCancel, "Vraag 1")
Case 2
antwoord2 = MsgBox("Saturnus is de grootste planeet van het zonnestelsel.", vbYesNoCancel, "Vraag 2")
Case 3
antwoord3 = MsgBox("Mars is kleiner dan de aarde.", vbYesNoCancel, "Vraag 3")
Case 4
antwoord4 = MsgBox("Mars staat korter bij de zon als de aarde.", vbYesNoCancel, "vraag4")
Case 5
antwoord5 = MsgBox("Typisch voor Saturnus zijn zijn vele ringen.", vbYesNoCancel, "vraag5")
End Select
Next
beoordeel
End Sub

Public Sub beoordeel()
score = 0
Select Case punten
Case 1
If antwoord1 = 6 Then
score = score + 1
Else
score = score - 1
End If
Case 2
If antwoord2 = 7 Then
score = score + 1
Else
score = score - 1
End If
Case 3
If antwoord3 = 6 Then
score = score + 1
Else
score = score - 1
End If
Case 4
If antwoord4 = 7 Then
score = score + 1
Else
score = score - 1
End If
Case 5
If antwoord5 = 6 Then
score = score + 1
Else
score = score - 1
End If
End Select

lblscore.Caption = score

End Sub

 

[sebas6]

Dit heb ik al, maar ik weet niet wat er fout aan is...

 

[sebas6]

Weet echt niemand hier een antwoord op ,
???

 

[old Hippy]

Wat voor taal gebruik je?
dit ken ik niet lblnaam.Caption = naam
wel lblnaam.Text= "naam"

 

[sebas6]

visual basic studio 2007
lblnaam.caption = naam

naam is hier een variabele, en lblnaam is een label ...
.caption = gelijk aan de .text van een textbox...

maar het probleem zit er in hoe ik dat kan doen als iemand 5 vragen beantwoord door op ja en nee te klikken, en dan moet ik de score berekenen, maar ik heb geen idee hoe ik dat kan doen;;;

 

[old Hippy]

Geen idee in visual studio 2008
werkt dat niet ik weet dus niet of het bij jou zou werken

maar in ieder geval zal je een ja of nee funtie van je msgbox moeten heben.

zo iets dus

Dim msg As String
Dim title As String
Dim style As MsgBoxStyle
Dim response As MsgBoxResult
msg = "Do you want to continue?"   ' Define message.
style = MsgBoxStyle.DefaultButton2 Or _
   MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
title = "MsgBox Demonstration"   ' Define title.
' Display message.
response = MsgBox(msg, style, title)
If response = MsgBoxResult.Yes Then   ' User chose Yes.
   ' Perform some action.
Else
   ' Perform some other action.
End If