English
Forum

RadioButtons

 

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  
 




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.
CompileMarkSeparation
// ...

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

 
02/25/14  
 




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  
 




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 :
CompileMarkSeparation
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  
 




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  
 




H.Brill
simply with of/ one Loop and SetCheck !
so goes it :
CompileMarkSeparation
ElseIf @Clicked(button_löschen%)

WhileLoop 1, 18

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

EndW
a>

mach the in your Eventschleife moreover.
 
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  
 




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  
 




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.
CompileMarkSeparation
Knopf% = @MessageBox ("Willst Du das Quiz starten?", "",292)

if knopf% = 6

    StarteQuiz()

endif

a>
 
02/26/14  
 




diimool25
thanks
 
02/26/14  
 




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  
 




diimool25
thanks but have now yourself a ösung found
 
03/07/14  
 




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




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

16.690 Views

Untitledvor 0 min.
Erasmus.Herold06/11/19
rquindt05/08/18
Ernst06/15/16
Joerg06/09/16
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie