XProfan

// ...

while running%

    waitinput

    if clicked(Auswerten&)

        if getcheck(radiobutton3&)

            messagebox("Richtig", "Quiz", 0)

        else

            messagebox("leider falsch", "Quiz", 0)

        endif

    elseif clicked(beenden&)

        running% = 0

    endif

wend

Declare kleine_zahl&, alter&
Declare button_ende%, button_löschen%, button_auswerten%, Rahmen%[10], text%[10],RadionButton%[50]
Declare komma_zahlen!, preise!
Declare text$

proc hauptprogramm_skin

    window 0,0 - %maxx,%maxy
    UseBrush 1,@RGB(0,0,255)
    UsePen 3,5,@RGB(0,0,0)
    Rectangle 0,0 - %maxx-20, %maxy-100
    button_ende% = @Create("Button",%HWnd,"E N D E", %maxx -180,%maxy - 180,145,50)
    button_auswerten% = @Create("Button",%HWnd,"Auswerten", %maxx -330,%maxy - 180,140,50)
    button_löschen% = @Create("Button",%HWnd,"Löschen", %maxx -490,%maxy - 180, 150,50)
    Rahmen%[1] = @Create("GroupBox",%HWnd," Stimmt es, dass die Herstellung einer Cola-Dose etwa gleich viel kostet, wie die Herstellung des Colas, das darin enthaltenen ist?",20,10,850,250)
    Rahmen%[2] = @Create("GroupBox",%HWnd," Welches der unten genannten Lebensmittel enthält am meisten Eisen?",20,300,850,250)
    Rahmen%[3] = @Create("GroupBox",%HWnd," Wodurch 'trocknet' Sekundenkleber?",20,600,850,250)
    Rahmen%[4] = @Create("GroupBox",%HWnd," In welcher europäischen Stadt gibt es die meisten Brücken?",900,10,850,250)
    Rahmen%[5] = @Create("GroupBox",%HWnd," Wovon bekommen wir die meiste radioaktive Strahlung ab?",900,300,850,250)
    Rahmen%[6] = @Create("GroupBox",%HWnd," Was bekam man beim weltweit ersten Münzautomat für sein Geld?",900,600,850,250)
    RadionButton%[1] = @Create("RadioButton",Rahmen%[1],"ja, beides kostet etwa gleich viel",10,75,300,25)
    RadionButton%[2] = @Create("RadioButton",Rahmen%[1],"nein, das Cola ist teurer als die Dose",10,110,300,25)
    RadionButton%[3] = @Create("RadioButton",Rahmen%[1],"nein, die Dose ist teurer als das Cola",10,145,300,25)'x
    RadionButton%[4] = @Create("RadioButton",Rahmen%[2],"Schokolade",10,50,100,30)
    RadionButton%[5] = @Create("RadioButton",Rahmen%[2],"Spinat",10,90,100,30)
    RadionButton%[6] = @Create("RadioButton",Rahmen%[2],"Schokolade",10,130,100,30)'x
    RadionButton%[7] = @Create("RadioButton",Rahmen%[3],"Wärme",10,50,100,30)
    RadionButton%[8] = @Create("RadioButton",Rahmen%[3],"Feuchtigkeit",10,90,100,30)'x
    RadionButton%[9] = @Create("RadioButton",Rahmen%[3],"Sauerstoff",10,130,100,30)
    RadionButton%[10] = @Create("RadioButton",Rahmen%[4],"Hamburg",10,50,100,30)'x
    RadionButton%[11] = @Create("RadioButton",Rahmen%[4],"Venedig",10,90,100,30)
    RadionButton%[12] = @Create("RadioButton",Rahmen%[4],"Amsterdam",10,130,100,30)
    RadionButton%[13] = @Create("RadioButton",Rahmen%[5],"von Atomkraftwerken und radioaktivem Abfall",10,50,500,30)
    RadionButton%[14] = @Create("RadioButton",Rahmen%[5],"von zurückliegenden Atombomben-Tests",10,90,500,30)
    RadionButton%[15] = @Create("RadioButton",Rahmen%[5],"von der natürlichen Strahlung der Erde",10,130,500,30)'x
    RadionButton%[16] = @Create("RadioButton",Rahmen%[6],"Kaugummi",10,50,100,30)
    RadionButton%[17] = @Create("RadioButton",Rahmen%[6],"Brot",10,90,100,30)
    RadionButton%[18] = @Create("RadioButton",Rahmen%[6],"Wasser",10,130,100,30)'x

endproc

proc hauptprogramm_run

    WhileNot @Clicked(button_ende%)

        waitinput

        if @GetFocus(button_auswerten%)

            If GetCheck(RadionButton%[3]) = 1

                'DrawIcon 4, 400,145,  '-> richtig
                EnableWindow RadionButton%[1], 0
                EnableWindow RadionButton%[2], 0

            EndIf

            If GetCheck(RadionButton%[6]) = 1

                EnableWindow RadionButton%[4], 0
                EnableWindow RadionButton%[5], 0

            EndIf

            If GetCheck(RadionButton%[8]) = 1

                EnableWindow RadionButton%[7], 0
                EnableWindow RadionButton%[9], 0

            EndIf

            If GetCheck(RadionButton%[10]) = 1

                EnableWindow RadionButton%[11], 0
                EnableWindow RadionButton%[12], 0

            EndIf

            If GetCheck(RadionButton%[15]) = 1

                EnableWindow RadionButton%[13], 0
                EnableWindow RadionButton%[14], 0

            EndIf

            If GetCheck(RadionButton%[18]) = 1

                EnableWindow RadionButton%[16], 0
                EnableWindow RadionButton%[17], 0

            EndIf

        endif

        Case %scankey = 27 : Break

    EndWhile

endproc

proc hautprgramm_end

    @DestroyWindow(%hwnd)

endproc

'Hauptprogramm
hauptprogramm_skin
hauptprogramm_run
hautprgramm_end
end

ElseIf @Clicked(button_löschen%)

WhileLoop 1, 18

    EnableWindow RadionButton%[&LOOP], 1
    SetCheck RadionButton%[&LOOP], 0

EndW

Knopf% = @MessageBox ("Willst Du das Quiz starten?", "",292)

if knopf% = 6

    StarteQuiz()

endif

a>