vba code in PowerPoint 2007 werkt niet bij iemand anders

Status
Niet open voor verdere reacties.
N

nielsvanputte

Nieuwe gebruiker
Lid geworden
23 jun 2012
Berichten
3
Hallo allemaal

Ik ben student biologie en voor het vak fauna & flora moeten wij heel veel plantenfamilies kennen
om dat om een aangename manier te leren had ik een quiz gemaakt in powerpoint met behulp van vba
Ik heb hier heel veel tijd en werk ingestoken en op alle computers in ons huis werkt het perfect maar als ik het bestand naar iemand anders doorstuur die dezelfde versie van office (nl. 2007) heeft werkt de vba code niet correct bij hem.


dit is de code:
Code: 
Dim fam_wet As String
Dim fam_ned As String
Dim score As Integer
Dim n As Integer
Dim dia As Integer
Dim punt_juist As Integer
Dim punt_fout As Integer
Dim punt_hint As Integer
Dim score_stop As Integer
Dim opnieuw As Integer
Dim aantal_juist As Integer
Dim aantal_fout As Integer
Dim aantal_hints As Integer
Dim aantal_gedaan As Integer





Public Sub starten()


'HIER KAN JE KIEZEN HOE DE PUNTEN WORDEN GEGEVEN!!!
    'Vul hieronder in hoeveel punten je wil krijgen per juist antwoord
                punt_juist = 2
    'Vul hieronder in hoeveel punten er moeten worden afgetrokken per juist antwoord
                punt_fout = 2
    'Vul hieronder in hoeveel punten er moeten worden afgetrokken per gevraagde hint
                punt_hint = 1
    'Vul hieronder in tot welke score je wil doorgaan
                score_stop = 200
                


score = 0
opnieuw = 0
aantal_juist = 0
aantal_fout = 0
aantal_hints = 0
aantal_gedaan = 0

    Randomize
    dia = Int(Rnd * 119) + 2
    ActivePresentation.SlideShowWindow.View.GotoSlide (dia)
    
   
   
    
    
End Sub

Public Sub controleren()
'slidenummer controleren
     n = ActivePresentation.SlideShowWindow.View.Slide.SlideNumber
'kijken bij welke familie slide hoort
    If 2 <= n And n <= 8 Then fam_wet = "Lycopodiaceae": fam_ned = "Wolfsklauwfamilie"
    If 9 <= n And n <= 18 Then fam_wet = "Equisetaceae": fam_ned = "Paardenstaartenfamilie"
    If 19 <= n And n <= 22 Then fam_wet = "Dennstaedtiaceae": fam_ned = "Adelaarsvarenfamilie"
    If 23 <= n And n <= 27 Then fam_wet = "Polypodiaceae": fam_ned = "Eikvarenfamilie"
    If 28 <= n And n <= 35 Then fam_wet = "Dryopteridaceae": fam_ned = "Niervarenfamilie"
    If 36 <= n And n <= 41 Then fam_wet = "Aspleniaceae": fam_ned = "Streepvarenfamilie"
    If 42 <= n And n <= 51 Then fam_wet = "Pinaceae": fam_ned = "Dennenfamilie"
    If 52 <= n And n <= 56 Then fam_wet = "Cupressaceae": fam_ned = "Cipresfamilie"
    If 57 <= n And n <= 59 Then fam_wet = "Taxaceae": fam_ned = "Taxusfamilie"
    If 60 <= n And n <= 69 Then fam_wet = "Araceae": fam_ned = "Aronskelkfamilie"
    If 70 <= n And n <= 75 Then fam_wet = "Alismataceae": fam_ned = "Waterweegbreefamilie"
    If 77 <= n And n <= 79 Then fam_wet = "Potamogetonaceae": fam_ned = "Fonteinkruidfamilie"
    If 79 <= n And n <= 82 Then fam_wet = "Liliaceae": fam_ned = "Leliefamilie"
    If 83 <= n And n <= 84 Then fam_wet = "Colchicaceae": fam_ned = "Herfsttijloosfamilie"
    If 85 <= n And n <= 89 Then fam_wet = "Orchidaceae": fam_ned = "Orchideeënfamilie"
    If 90 <= n And n <= 93 Then fam_wet = "Iridaceae": fam_ned = "Lissenfamilie"
    If 94 <= n And n <= 99 Then fam_wet = "Asparagaceae": fam_ned = "Aspergefamilie"
    If 100 <= n And n <= 102 Then fam_wet = "Amaryllidaceae": fam_ned = "Narcisfamilie"
    If 103 <= n And n <= 108 Then fam_wet = "Alliaceae": fam_ned = "Lookfamilie"
    If 109 <= n And n <= 112 Then fam_wet = "Sparganiaceae": fam_ned = "Egelskopfamilie"
    If 113 <= n And n <= 115 Then fam_wet = "Typhaceae": fam_ned = "Lisdoddefamilie"
    If 116 <= n And n <= 119 Then fam_wet = "Juncaceae": fam_ned = "Russenfamilie"
    If 120 <= n And n <= 126 Then fam_wet = "Cyperaceae": fam_ned = "Cypergrassenfamilie"
    If 127 <= n And n <= 140 Then fam_wet = "Poaceae": fam_ned = "Grassenfamilie"
    If 141 <= n And n <= 149 Then fam_wet = "Ranunculaceae": fam_ned = "Ranonkelfamilie"
    If 150 <= n And n <= 154 Then fam_wet = "Papaveraceae": fam_ned = "Papaverfamilie"
    If 155 <= n And n <= 159 Then fam_wet = "Droseraceae": fam_ned = "Zonnedauwfamilie"
    If 160 <= n And n <= 168 Then fam_wet = "Polygonaceae": fam_ned = "Duizendknoopfamilie"
    If 169 <= n And n <= 178 Then fam_wet = "Caryophyllaceae": fam_ned = "Anjerfamilie"
    If 179 <= n And n <= 180 Then fam_wet = "Portulacaceae": fam_ned = "Posteleinfamilie"
    If 181 <= n And n <= 186 Then fam_wet = "Geraniaceae": fam_ned = "Ooievaarsbekfamilie"
    If 187 <= n And n <= 188 Then fam_wet = "Lythraceae": fam_ned = "Kattenstaartfamilie"
    If 189 <= n And n <= 192 Then fam_wet = "Onagraceae": fam_ned = "Teunisbloemfamilie"
    If 193 <= n And n <= 200 Then fam_wet = "Salicaceae": fam_ned = "Wilgenfamilie"
    If 201 <= n And n <= 206 Then fam_wet = "Violaceae": fam_ned = "Viooltjesfamilie"
    If 207 <= n And n <= 209 Then fam_wet = "Euphorbiaceae": fam_ned = "Wolfsmelkfamilie"
    If 210 <= n And n <= 211 Then fam_wet = "Hypericaceae": fam_ned = "Hertshooifamilie"
    If 212 <= n And n <= 215 Then fam_wet = "Oxalidaceae": fam_ned = "Klaverzuringfamilie"
    If 216 <= n And n <= 232 Then fam_wet = "Fabaceae": fam_ned = "Vlinderbloemenfamilie"
    If 233 <= n And n <= 249 Then fam_wet = "Rosaceae": fam_ned = "Rozenfamilie"
    If 250 <= n And n <= 252 Then fam_wet = "Rhamnaceae": fam_ned = "Wegedoornfamilie"
    If 253 <= n And n <= 255 Then fam_wet = "Ulmaceae": fam_ned = "Iepenfamilie"
    If 256 <= n And n <= 259 Then fam_wet = "Cannabaceae": fam_ned = "Hennepfamilie"
    If 260 <= n And n <= 264 Then fam_wet = "Urticaceae": fam_ned = "Brandnetelfamilie"
    If 265 <= n And n <= 276 Then fam_wet = "Fagaceae": fam_ned = "Napjesdragersfamilie"
    If 277 <= n And n <= 279 Then fam_wet = "Myricaceae": fam_ned = "Gagelfamilie"
    If 280 <= n And n <= 289 Then fam_wet = "Betulaceae": fam_ned = "Berkenfamilie"
    If 290 <= n And n <= 303 Then fam_wet = "Brassicaceae": fam_ned = "Kruisbloemenfamilie"
    If 304 <= n And n <= 309 Then fam_wet = "Malvaceae": fam_ned = "Kaasjeskruidfamilie"
    If 310 <= n And n <= 317 Then fam_wet = "Sapindaceae": fam_ned = "Zeepbloemfamilie"
    If 318 <= n And n <= 320 Then fam_wet = "Balseminaceae": fam_ned = "Balsemienfamilie"
    If 321 <= n And n <= 327 Then fam_wet = "Primulaceae": fam_ned = "Sleutelbloemfamilie"
    If 328 <= n And n <= 336 Then fam_wet = "Ericaceae": fam_ned = "Heifamilie"
    If 337 <= n And n <= 343 Then fam_wet = "Boraginaceae": fam_ned = "Ruwbladigenfamilie"
    If 344 <= n And n <= 347 Then fam_wet = "Rubiaceae": fam_ned = "Sterbladigenfamilie"
    If 348 <= n And n <= 350 Then fam_wet = "Apocynaceae": fam_ned = "Maagdenpalmfamilie"
    If 351 <= n And n <= 353 Then fam_wet = "Solanaceae": fam_ned = "Nachtschadefamilie"
    If 354 <= n And n <= 359 Then fam_wet = "Convolvulaceae": fam_ned = "Windefamilie"
    If 360 <= n And n <= 364 Then fam_wet = "Oleaceae": fam_ned = "Olijffamilie"
    If 365 <= n And n <= 369 Then fam_wet = "Scrophulariaceae": fam_ned = "Helmkruidfamilie"
    If 370 <= n And n <= 386 Then fam_wet = "Lamiaceae": fam_ned = "Lipbloemenfamilie"
    If 387 <= n And n <= 402 Then fam_wet = "Plantaginaceae": fam_ned = "Weegbreefamilie"
    If 403 <= n And n <= 405 Then fam_wet = "Aquifoliaceae": fam_ned = "Hulstfamilie"
    If 406 <= n And n <= 408 Then fam_wet = "Araliaceae": fam_ned = "Klimopfamilie"
    If 409 <= n And n <= 416 Then fam_wet = "Apiaceae": fam_ned = "Schermbloemenfamilie"
    If 417 <= n And n <= 424 Then fam_wet = "Adoxaceae": fam_ned = "Muskuskruidfamilie"
    If 425 <= n And n <= 428 Then fam_wet = "Caprifoliaceae": fam_ned = "Kamperfoeliefamilie"
    If 429 <= n And n <= 433 Then fam_wet = "Campanulaceae": fam_ned = "Klokjesfamilie"
    If 434 <= n And n <= 461 Then fam_wet = "Asteraceae": fam_ned = "Composietenfamilie"
End Sub


Public Sub CommandButton1_Click()

    Call controleren
    
    
'invoer nakijken
    If invoerveld.Text = fam_wet Then
        score = score + punt_juist
        x = MsgBox(("Juist!     :)" & vbCrLf & vbCrLf & "score= " & score), vbOKOnly, "Flora Quiz")
        aantal_juist = aantal_juist + 1
    Else
        score = score - punt_fout
       x = MsgBox(("Fout!       :(" & vbCrLf & "het antwoord is:" & vbCrLf & vbCrLf & fam_wet & vbCrLf & fam_ned & vbCrLf & vbCrLf & "score= " & score), vbOKOnly, "Flora Quiz")
        aantal_fout = aantal_fout + 1
    End If
    

'veld leegmaken en "opnieuw" resetten
    invoerveld.Text = ""
    opnieuw = 0
    aantal_gedaan = aantal_gedaan + 1
'naar volgende dia gaan
       Randomize
    dia = Int(Rnd * 460) + 2
    ActivePresentation.SlideShowWindow.View.GotoSlide (dia)
    
    

    
End Sub







Public Sub CommandButton2_Click()
    Call controleren
    
   
'hint geven
    If opnieuw = 1 Then
    x = MsgBox("Je hebt al een hint gevraagd!", vbExclamation, "Flora Quiz")
    
    Else
    
    x = MsgBox(("De Nederlandse naam is: " & fam_ned & "."), vbInformation, "Flora Quiz")
    score = score - punt_hint
    opnieuw = 1
    aantal_hints = aantal_hints + 1
    End If
    
End Sub

        

Private Sub invoerveld_Change()

End Sub

Private Sub statistieken_Click()

x = MsgBox(("aantal planten gedaan: " & aantal_gedaan & vbCrLf & "score: " & score & vbCrLf & "aantal juiste antwoorden: " & aantal_juist & vbCrLf & "aantal foute antwoorden: " & aantal_fout & vbCrLf & "aantal hints gevraagd: " & aantal_hints), vbInformation, "Flora Quiz")
End Sub

Public Sub stop_button_click()
Answer = MsgBox("Ben je zeker dat je De grote Flora Quiz wil verlaten?", vbYesNo, "Flora Quiz")
If Answer = vbYes Then
Call statistieken_Click
x = MsgBox("Bedankt om deel te nemen!", vbOKOnly, "Flora Quiz")
ActivePresentation.SlideShowWindow.View.Exit

Else
'niets doen
End If
End Sub


Als hij op de commandbutton1 klikt dan krijgt hij niet te zien of zijn antwoord juist of fout was maar wordt de powerpoint voorstelling geminimaliseerd en verschijnt het VBA scherm waarbij de lijn CommandButton1_click in het geel gemarkeerd is.

De powerpoint voorstelling zelf kan je hier vinden: http://wtrns.fr/85FgbBSY1gHlfuU


Zit er toch ergens een fout in mijn code of een bepaalde opdracht die sommige versies van VBA misschien niet ondersteunen?

alvast heel hard bedankt voor jullie hulp, groeten

Niels Van Putte
 
Laatst bewerkt:
Ik heb Office 2010 en als ik de presentatie start en op een gegeven moment op de Start Quiz knop moet klikken gebeurd er helemaal niets.
Ik kan dan niks anders meer doen dat met de Esc toets de presentatie sluiten.
 
Ik kom met PP2010 niet verder dan dat PP de inhoud niet kan lezen.
Klik op herstellen en dat lukt dan niet.

Met PP vba heb ik geen ervaring.
Van Excel weet ik dat dit soms kan optreden als je van 2003 naar 2010 overstapt.
Geldt dat ook voor deze presentatie?

Verder valt me in de code op dat je publieke variabelen dimt
Dit moet m.i. zijn
Public variabele as ...
Een systeem Option Explicit (verplicht dimensioneren) zal zo niet werken.

Verder zal er dan iets in de code van controleren niet goed gaan bij het klikken op de button.
Wanneer je deze met F8 stap voor stap doorloopt, kun je zien waar het fout gaat.

Nogmaals, ik probeer je wat verder te helpen, maar houdt in je achterhoofd, dat ik geen specifieke PP VBA ervaring heb.

Mvg Leo
 
Laatst bewerkt:
beste leofact

zowel ik als diegene naar wie ik het bestand gestuurd heb hebben office 2007

Verder valt me in de code op dat je publieke variabelen dimt
Dit moet m.i. zijn
Public variabele as ...
Een systeem Option Explicit (verplicht dimensioneren) zal zo niet werken.
Klik om te vergroten...

Wat is juist "option explicit" en wat moet er dan nog achter Public variabele as komen?

met vriendelijke groeten

Niels Van Putte
 
Dat was een voorbeeld:
Vervang Dim door Public

Public aantal_gedaan As Integer

Option explicit is een instelling dat VBA dwingt om met gedeclareerde variabelen te werken.

Meer (engelse) informatie
 
Je gebruikt variabelen in verschillende macro's.
Dan moet je ze minimaal Private declareren.

Als je ze in verschillende macromodules (presentation, macromodules) wil gebruiken zul je ze public moeten declareren.

In jouw geval is Private voldoende;

Code: 
Private fam_wet As String

Ik krijg het binnengehaalde bestand ook niet geopend in PP 2010.

Mij lijkt dit handiger:


Code: 
Private Sub CommandButton1_Click()
   controleren ActivePresentation.SlideShowWindow.View.Slide.SlideNumber
end sub

Public Sub controleren(n)
    select case n
    case 2 to 8
       fam_wet = "Lycopodiaceae"
       fam_ned = "Wolfsklauwfamilie"
    case  9 to 18 
       fam_wet = "Equisetaceae"
       fam_ned = "Paardenstaartenfamilie"
    case 19 to  22 
       fam_wet = "Dennstaedtiaceae"
       fam_ned = "Adelaarsvarenfamilie"
    case 23 to  27 
       fam_wet = "Polypodiaceae"
       fam_ned = "Eikvarenfamilie"
    case 28 to 35 
        fam_wet ..... etc.
    - - - - - - -

End Sub
 
Laatst bewerkt:
Bedankt allemaal

Nu werkt het wel!


Heb de code nog een beetje geoptimaliseerd, dit is het resultaat geworden:

Code: 
Dim fam_wet As String
Dim fam_ned As String
Dim score As Integer
Dim n As Integer
Dim dia As Integer
Dim punt_juist As Integer
Dim punt_fout As Integer
Dim punt_hint As Integer
Dim score_stop As Integer
Dim again As Boolean
Dim aantal_juist As Integer
Dim aantal_fout As Integer
Dim aantal_hints As Integer
Dim aantal_gedaan As Integer
Dim x As Variant
Dim answer As Variant






Public Sub starten()


'HIER KAN JE KIEZEN HOE DE PUNTEN WORDEN GEGEVEN!!!
    'Vul hieronder in hoeveel punten je wil krijgen per juist antwoord
                punt_juist = 2
    'Vul hieronder in hoeveel punten er moeten worden afgetrokken per juist antwoord
                punt_fout = 2
    'Vul hieronder in hoeveel punten er moeten worden afgetrokken per gevraagde hint
                punt_hint = 1
    'Vul hieronder in tot welke score je wil doorgaan
                score_stop = 200
                


score = 0
again = False
aantal_juist = 0
aantal_fout = 0
aantal_hints = 0
aantal_gedaan = 0

    Randomize
    dia = Int(Rnd * 460) + 2
    ActivePresentation.SlideShowWindow.View.GotoSlide (dia)
    
   
   
    
    
End Sub

Public Sub controleren()
'slidenummer controleren
     n = ActivePresentation.SlideShowWindow.View.Slide.SlideNumber
'kijken bij welke familie slide hoort
Select Case n
    Case 2 To 8
    fam_wet = "Lycopodiaceae"
    fam_ned = "Wolfsklauwfamilie"
    Case 9 To 18
    fam_wet = "Equisetaceae"
    fam_ned = "Paardenstaartenfamilie"
    Case 19 To 22
    fam_wet = "Dennstaedtiaceae"
    fam_ned = "Adelaarsvarenfamilie"
    Case 23 To 27
    fam_wet = "Polypodiaceae"
    fam_ned = "Eikvarenfamilie"
    Case 28 To 35
    fam_wet = "Dryopteridaceae"
    fam_ned = "Niervarenfamilie"
    Case 36 To 41
    fam_wet = "Aspleniaceae"
    fam_ned = "Streepvarenfamilie"
    Case 42 To 51
    fam_wet = "Pinaceae"
    fam_ned = "Dennenfamilie"
    Case 52 To 56
    fam_wet = "Cupressaceae"
    fam_ned = "Cipresfamilie"
    Case 57 To 59
    fam_wet = "Taxaceae"
    fam_ned = "Taxusfamilie"
    Case 60 To 69
    fam_wet = "Araceae"
    fam_ned = "Aronskelkfamilie"
    Case 70 To 75
    fam_wet = "Alismataceae"
    fam_ned = "Waterweegbreefamilie"
    Case 77 To 79
    fam_wet = "Potamogetonaceae"
    fam_ned = "Fonteinkruidfamilie"
    Case 79 To 82
    fam_wet = "Liliaceae"
    fam_ned = "Leliefamilie"
    Case 83 To 84
    fam_wet = "Colchicaceae"
    fam_ned = "Herfsttijloosfamilie"
    Case 85 To 89
    fam_wet = "Orchidaceae"
    fam_ned = "Orchideeënfamilie"
    Case 90 To 93
    fam_wet = "Iridaceae"
    fam_ned = "Lissenfamilie"
    Case 94 To 99
    fam_wet = "Asparagaceae"
    fam_ned = "Aspergefamilie"
    Case 100 To 102
    fam_wet = "Amaryllidaceae"
    fam_ned = "Narcisfamilie"
    Case 103 To 108
    fam_wet = "Alliaceae"
    fam_ned = "Lookfamilie"
    Case 109 To 112
    fam_wet = "Sparganiaceae"
    fam_ned = "Egelskopfamilie"
    Case 113 To 115
    fam_wet = "Typhaceae"
    fam_ned = "Lisdoddefamilie"
    Case 116 To 119
    fam_wet = "Juncaceae"
    fam_ned = "Russenfamilie"
    Case 120 To 126
    fam_wet = "Cyperaceae"
    fam_ned = "Cypergrassenfamilie"
    Case 127 To 140
    fam_wet = "Poaceae"
    fam_ned = "Grassenfamilie"
    Case 141 To 149
    fam_wet = "Ranunculaceae"
    fam_ned = "Ranonkelfamilie"
    Case 150 To 154
    fam_wet = "Papaveraceae"
    fam_ned = "Papaverfamilie"
    Case 155 To 159
    fam_wet = "Droseraceae"
    fam_ned = "Zonnedauwfamilie"
    Case 160 To 168
    fam_wet = "Polygonaceae"
    fam_ned = "Duizendknoopfamilie"
    Case 169 To 178
    fam_wet = "Caryophyllaceae"
    fam_ned = "Anjerfamilie"
    Case 179 To 180
    fam_wet = "Portulacaceae"
    fam_ned = "Posteleinfamilie"
    Case 181 To 186
    fam_wet = "Geraniaceae"
    fam_ned = "Ooievaarsbekfamilie"
    Case 187 To 188
    fam_wet = "Lythraceae"
    fam_ned = "Kattenstaartfamilie"
    Case 189 To 192
    fam_wet = "Onagraceae"
    fam_ned = "Teunisbloemfamilie"
    Case 193 To 200
    fam_wet = "Salicaceae"
    fam_ned = "Wilgenfamilie"
    Case 201 To 206
    fam_wet = "Violaceae"
    fam_ned = "Viooltjesfamilie"
    Case 207 To 209
    fam_wet = "Euphorbiaceae"
    fam_ned = "Wolfsmelkfamilie"
    Case 210 To 211
    fam_wet = "Hypericaceae"
    fam_ned = "Hertshooifamilie"
    Case 212 To 215
    fam_wet = "Oxalidaceae"
    fam_ned = "Klaverzuringfamilie"
    Case 216 To 232
    fam_wet = "Fabaceae"
    fam_ned = "Vlinderbloemenfamilie"
    Case 233 To 249
    fam_wet = "Rosaceae"
    fam_ned = "Rozenfamilie"
    Case 250 To 252
    fam_wet = "Rhamnaceae"
    fam_ned = "Wegedoornfamilie"
    Case 253 To 255
    fam_wet = "Ulmaceae"
    fam_ned = "Iepenfamilie"
    Case 256 To 259
    fam_wet = "Cannabaceae"
    fam_ned = "Hennepfamilie"
    Case 260 To 264
    fam_wet = "Urticaceae"
    fam_ned = "Brandnetelfamilie"
    Case 265 To 276
    fam_wet = "Fagaceae"
    fam_ned = "Napjesdragersfamilie"
    Case 277 To 279
    fam_wet = "Myricaceae"
    fam_ned = "Gagelfamilie"
    Case 280 To 289
    fam_wet = "Betulaceae"
    fam_ned = "Berkenfamilie"
    Case 290 To 303
    fam_wet = "Brassicaceae"
    fam_ned = "Kruisbloemenfamilie"
    Case 304 To 309
    fam_wet = "Malvaceae"
    fam_ned = "Kaasjeskruidfamilie"
    Case 310 To 317
    fam_wet = "Sapindaceae"
    fam_ned = "Zeepbloemfamilie"
    Case 318 To 320
    fam_wet = "Balseminaceae"
    fam_ned = "Balsemienfamilie"
    Case 321 To 327
    fam_wet = "Primulaceae"
    fam_ned = "Sleutelbloemfamilie"
    Case 328 To 336
    fam_wet = "Ericaceae"
    fam_ned = "Heifamilie"
    Case 337 To 343
    fam_wet = "Boraginaceae"
    fam_ned = "Ruwbladigenfamilie"
    Case 344 To 347
    fam_wet = "Rubiaceae"
    fam_ned = "Sterbladigenfamilie"
    Case 348 To 350
    fam_wet = "Apocynaceae"
    fam_ned = "Maagdenpalmfamilie"
    Case 351 To 353
    fam_wet = "Solanaceae"
    fam_ned = "Nachtschadefamilie"
    Case 354 To 359
    fam_wet = "Convolvulaceae"
    fam_ned = "Windefamilie"
    Case 360 To 364
    fam_wet = "Oleaceae"
    fam_ned = "Olijffamilie"
    Case 365 To 369
    fam_wet = "Scrophulariaceae"
    fam_ned = "Helmkruidfamilie"
    Case 370 To 386
    fam_wet = "Lamiaceae"
    fam_ned = "Lipbloemenfamilie"
    Case 387 To 402
    fam_wet = "Plantaginaceae"
    fam_ned = "Weegbreefamilie"
    Case 403 To 405
    fam_wet = "Aquifoliaceae"
    fam_ned = "Hulstfamilie"
    Case 406 To 408
    fam_wet = "Araliaceae"
    fam_ned = "Klimopfamilie"
    Case 409 To 416
    fam_wet = "Apiaceae"
    fam_ned = "Schermbloemenfamilie"
    Case 417 To 424
    fam_wet = "Adoxaceae"
    fam_ned = "Muskuskruidfamilie"
    Case 425 To 428
    fam_wet = "Caprifoliaceae"
    fam_ned = "Kamperfoeliefamilie"
    Case 429 To 433
    fam_wet = "Campanulaceae"
    fam_ned = "Klokjesfamilie"
    Case 434 To 461
    fam_wet = "Asteraceae"
    fam_ned = "Composietenfamilie"
    End Select
    
End Sub


Public Sub CommandButton1_Click()

    Call controleren
    
    
'invoer nakijken
    If invoerveld.Text = fam_wet Then
        score = score + punt_juist
        x = MsgBox(("Juist!     :)" & vbCrLf & vbCrLf & "score= " & score), vbOKOnly, "Flora Quiz")
        aantal_juist = aantal_juist + 1
    Else
        score = score - punt_fout
       x = MsgBox(("Fout!       :(" & vbCrLf & "het antwoord is:" & vbCrLf & vbCrLf & fam_wet & vbCrLf & fam_ned & vbCrLf & vbCrLf & "score= " & score), vbOKOnly, "Flora Quiz")
        aantal_fout = aantal_fout + 1
    End If
    

'veld leegmaken en "opnieuw" resetten
    invoerveld.Text = ""
    again = False
    aantal_gedaan = aantal_gedaan + 1
'naar volgende dia gaan
       Randomize
    dia = Int(Rnd * 460) + 2
    ActivePresentation.SlideShowWindow.View.GotoSlide (dia)
    
    

    
End Sub







Public Sub CommandButton2_Click()
    Call controleren
    
   
'hint geven
    If again = True Then
    x = MsgBox("Je hebt al een hint gevraagd!", vbExclamation, "Flora Quiz")
    
    Else
    
    x = MsgBox(("De Nederlandse naam is: " & fam_ned & "."), vbInformation, "Flora Quiz")
    score = score - punt_hint
    again = True
    aantal_hints = aantal_hints + 1
    End If
    
End Sub

        

Private Sub invoerveld_Change()

End Sub

Private Sub statistieken_Click()

x = MsgBox(("aantal planten gedaan: " & aantal_gedaan & vbCrLf & "score: " & score & vbCrLf & "aantal juiste antwoorden: " & aantal_juist & vbCrLf & "aantal foute antwoorden: " & aantal_fout & vbCrLf & "aantal hints gevraagd: " & aantal_hints), vbInformation, "Flora Quiz")
End Sub

Public Sub stop_button_click()
answer = MsgBox("Ben je zeker dat je De grote Flora Quiz wil verlaten?", vbYesNo, "Flora Quiz")
If answer = vbYes Then
Call statistieken_Click
x = MsgBox("Bedankt om deel te nemen!", vbOKOnly, "Flora Quiz")
ActivePresentation.SlideShowWindow.View.Exit

Else
'niets doen
End If
End Sub


Groeten:)

Niels
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan