XProfan

English

diimool25

Hello I brächte Help means we want one ''Quiz'' make and having because radioButtons as antwortmöglichkeiten.
how can I the now take on the if I on evaluate press the there standing the The response correctly. or wrong is

thanks for hilfen !!!

02/25/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

Hi! You can with the function GetCheck() Verify, whether a bestimmter Radiobutton select watts or not. If "Auswerten" clicked been is, must You means only Verify, whether the korrekte Radiobutton select is, or not.
Compile Mark Separation

// ...

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

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

02/25/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

How very must I because at hauptprogramm_rum make ?

Declare kleine_zahl&, alter&

Declare button_ende%, button_löschen%, button_auswerten%, welt%[10], Text%[10],RadionButton%[50]
Declare komma_zahlen!, prices!

Declare Text$

proc hauptprogramm_skin

window 0,0 - %maxx,%maxy
UseBrush 1,@RGB(0,0,255)
USEP 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)
welt%[1] = @Create("GroupBox",%HWnd," is correct it, that The making of/ one Cola-tin about same plenty cost, as making the Colas, the therein encompassed is?",20,10,850,250)
welt%[2] = @Create("GroupBox",%HWnd," which the under named provisions contains on the most iron?",20,300,850,250)
welt%[3] = @Create("GroupBox",%HWnd," by which 'trocknet' Sekundenkleber?",20,600,850,250)
welt%[4] = @Create("GroupBox",%HWnd," In which europäischen town there most bridges?",900,10,850,250)
welt%[5] = @Create("GroupBox",%HWnd," Wovon get we The meiste radioaktive Strahlung ex?",900,300,850,250)
welt%[6] = @Create("GroupBox",%HWnd," what got one at world-wide first Münzautomat for its money?",900,600,850,250)

RadionButton%[1] = @Create("RadioButton",welt%[1],"ja, both cost about same viel",10,75,300,25)
RadionButton%[2] = @Create("RadioButton",welt%[1],"nein, the Cola is expensive as The Dose",10,110,300,25)
RadionButton%[3] = @Create("RadioButton",welt%[1],"nein, The tin is expensive as the Cola",10,145,300,25) 'x

RadionButton%[4] = @Create("RadioButton",welt%[2],"Schokolade",10,50,100,30)
RadionButton%[5] = @Create("RadioButton",welt%[2],"Spinat",10,90,100,30)
RadionButton%[6] = @Create("RadioButton",welt%[2],"Schokolade",10,130,100,30)'x

RadionButton%[7] = @Create("RadioButton",welt%[3],"Wärme",10,50,100,30)
RadionButton%[8] = @Create("RadioButton",welt%[3],"Feuchtigkeit",10,90,100,30)'x
RadionButton%[9] = @Create("RadioButton",welt%[3],"Sauerstoff",10,130,100,30)

RadionButton%[10] = @Create("RadioButton",welt%[4],"Hamburg",10,50,100,30)'x
RadionButton%[11] = @Create("RadioButton",welt%[4],"Venedig",10,90,100,30)
RadionButton%[12] = @Create("RadioButton",welt%[4],"Amsterdam",10,130,100,30)

RadionButton%[13] = @Create("RadioButton",welt%[5],"By Atomkraftwerken and radioaktivem Abfall",10,50,500,30)
RadionButton%[14] = @Create("RadioButton",welt%[5],"By zurückliegenden Atombomben-Tests",10,90,500,30)
RadionButton%[15] = @Create("RadioButton",welt%[5],"By the natural Strahlung the Erde",10,130,500,30)'x

RadionButton%[16] = @Create("RadioButton",welt%[6],"Kaugummi",10,50,100,30)
RadionButton%[17] = @Create("RadioButton",welt%[6],"Brot",10,90,100,30)
RadionButton%[18] = @Create("RadioButton",welt%[6],"Wasser",10,130,100,30)'x

endproc

proc hauptprogramm_run
Repeat
waitinput
if @GetFocus(button_auswerten%)

endif
endif

until @Or(Clicked(button_ende%) , %scankey = 27)
endproc

proc hautprgramm_end
@DestroyWindow(%hwnd)
endproc

'Hauptprogramm

hauptprogramm_skin
hauptprogramm_run
hautprgramm_end

end

02/25/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

becomes well something difficult with the Coordinates, there with
Groupboxen worked becomes. The Radiobuttons go
then Yes relatively to Groupbox staid.
with your code becomes it well plainer his, with richtiger
response, The restlichen 2 Radiobuttons To deaktivieren.
with falser response You can then yet improve
and again evaluate let. therefore would I it time
so make :
Compile Mark Separation

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

The Radiobuttons can Yes with one new game in
of/ one Loop again enable.
with different play must one hold everything in Arrays or
lists hold(Fragetext, Answer, Solutions). with SetText RadionButton%[x],
"neuer Text" or SetText welt%[1], "neue Frage" can you then
The ask and Radiobutton-Texts Change.

but Perhaps has yet someone a idea.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

02/25/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

thanks !

do you know Perhaps How I it hinbekomme the if I on delete click the because The makieungen The I made have lane weg ?

02/25/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

H.Brill

simply with of/ one Loop and SetCheck !
so goes it :
Compile Mark Separation

ElseIf @Clicked(button_löschen%)

WhileLoop 1, 18

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

EndW

mach the in your Eventschleife moreover.

02/25/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

another question i want the itself before a messagebox opens and asks whether to the started wants so far have I it geschafft with Yes goes everything only if I No click opens itself the same again means I have it in Ner whilenot schleife so :

Clear end%

WhileNot end%

button% = @MessageBox ("Willst You, the quiz started?", "",292)

Case button% = 6 : end% = 1
EndWhile

How bekome I it there the if I on No click it itself closes ?

02/26/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Nico
Madysa

Hi,

if You want, that The Messagebox only once appear, alike what the User dial, must the box not of/ one Loop his.

One better Ansatz would it, the quiz in a procedure To verlagern and the procedure aufzurufen, if the User "ja" dial.
Compile Mark Separation

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

if knopf% = 6

    StarteQuiz()

endif

a>

XProfan X2
Win7 Home Premium, SP1, AMD Phenom(tm) II N830 Triple-Core Processor
Nico Madysa

02/26/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

thanks

02/26/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

How can I the make I still others ask can make means if I on enien button click open itself others ask ?

03/07/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

thanks but have now yourself a ösung found

03/07/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

diimool25

can me of/ one say How I the can make the me said becomes you have 3 of 6 correctly. ?

03/08/14 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

►

Answer

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

16.853 Views

Untitled	vor 0 min.
Erasmus.Herold	06/11/19
rquindt	05/08/18
Ernst	06/15/16
Joerg	06/09/16
More...

Themeninformationen

this Topic has 4 subscriber:

XProfan

RadioButtons

Answer

Topic-Options

16.853 Views

Themeninformationen

Privacy Policy