|
|
Post by ptitjoz on Jun 19, 2018 20:38:43 GMT 1
Hello I tested this little code by searching a little in the documentation and on the forum. Can we do more simple or more optimized?
Thank you for your advice Regards
Joz
INCLUDE "./../Lib/hug.bac"
'----------------------------------------------------------------------
SUB SubClean
TEXT(Edit1,"")
END SUB
SUB RadioGroup1(NUMBER widget)
SELECT widget
CASE Radio1
IF GET(widget) THEN TEXT(Edit1,GRAB$(widget)&NL$)
CASE Radio2
IF GET(widget) THEN TEXT(Edit1,GRAB$(widget)&NL$)
END SELECT
END SUB
SUB RadioGroup2(NUMBER widget)
SELECT widget
CASE Radio3
IF GET(widget) THEN TEXT(Edit1,GRAB$(widget)&NL$)
CASE Radio4
IF GET(widget) THEN TEXT(Edit1,GRAB$(widget)&NL$)
CASE Radio5
IF GET(widget) THEN TEXT(Edit1,GRAB$(widget)&NL$)
END SELECT
END SUB
'----------------------------------------------------------------------
Form1 = WINDOW( "BaCon bouttons-radios et groupes", 400, 300 )
'----------------------------------------------------------------------
Frame1=FRAME(160,80)
SETPROPERTY(Frame1,"tooltip-text","choix dans groupe 1")
ATTACH(Form1,Frame1,10,10)
Label1=MARK("Groupe 1",150,30)
ATTACH(Form1,Label1,10,10)
' Création des boutons radio du RadioGroup1 se rattachant au boutton 1
' le premier bouton radio a toujours le numéro 0 (3ème argurment)
' les autres, du groupe, ont le nom du premier boutton (3ème argument ici RadioGroup1)
Radio1 = RADIO("Boutton Radio 1",150,25,0)
ATTACH( Form1, Radio1,20,40 )
CALLBACK(Radio1, RadioGroup1)
Radio2 = RADIO("Boutton Radio 2", 150, 25,Radio1)
ATTACH(Form1, Radio2, 20, 60)
CALLBACK(Radio2, RadioGroup1)
'----------------------------------------------------------------------
Frame2=FRAME(160,100)
SETPROPERTY(Frame2,"tooltip-text","choix dans groupe 2")
ATTACH(Form1,Frame2,10,110)
Label2=MARK("Groupe 2",150,30)
ATTACH(Form1,Label2,10,110)
Radio3 = RADIO("Boutton Radio 3",150,25,0)
ATTACH( Form1, Radio3,20,140 )
CALLBACK(Radio3, RadioGroup2)
Radio4 = RADIO("Boutton Radio 4",150,25,Radio3)
ATTACH(Form1, Radio4,20,160)
CALLBACK(Radio4, RadioGroup2)
Radio5 = RADIO("Boutton Radio 5", 150, 25,Radio3)
ATTACH(Form1, Radio5,20,180)
CALLBACK(Radio5, RadioGroup2)
'----------------------------------------------------------------------
Button1=STOCK("gtk-quit", 80, 25)
ATTACH(Form1, Button1, 150, 250)
CALLBACK(Button1,QUIT)
Button2=BUTTON("Effacer",80,25)
ATTACH(Form1, Button2,20,250)
CALLBACK(Button2,SubClean)
'----------------------------------------------------------------------
Edit1=EDIT(160,220)
ATTACH(Form1,Edit1,200,10)
'----------------------------------------------------------------------
DISPLAY
|
|
|
|
Post by bigbass on Jun 20, 2018 18:35:38 GMT 1
Hello Joz  made it an easier first step demo then you can see what the other demo is doing with more code added as a second step Joe
INCLUDE "hug.bac"
'INCLUDE "./../Lib/hug.bac"
'=======================
SUB RadioGroup1
'=======================
'--- clear text
TEXT(Edit1,"")
IF GET(Radio1) == TRUE THEN
TEXT(Edit1,GRAB$(Radio1)&NL$)
END IF
IF GET(Radio2) == TRUE THEN
TEXT(Edit1,GRAB$(Radio2)&NL$)
END IF
END SUB
Form1 = WINDOW( "BaCon bouttons-radios et groupes",400, 200 )
Frame1=FRAME(160,80)
SETPROPERTY(Frame1,"tooltip-text","choix dans groupe 1")
ATTACH(Form1,Frame1,10,10)
Label1=MARK("Groupe 1",150,30)
ATTACH(Form1,Label1,10,10)
Radio1 = RADIO("Boutton Radio 1",150,25,0)
ATTACH( Form1, Radio1,20,40 )
CALLBACK(Radio1, RadioGroup1)
Radio2 = RADIO("Boutton Radio 2", 150, 25,Radio1)
ATTACH(Form1, Radio2, 20, 60)
CALLBACK(Radio2, RadioGroup1)
Button1=BUTTON("Quit", 80, 25)
ATTACH(Form1, Button1, 300, 160)
CALLBACK(Button1,QUIT)
Edit1=EDIT(160,80)
ATTACH(Form1,Edit1,200,10)
DISPLAY
|
|
|
|
Post by ptitjoz on Jun 21, 2018 8:09:41 GMT 1
Hello bigbass,
Thank you for working on the subject.
I tried your code that seems to work but if I put in comment the line that erases the Edit, it does not work properly. Indeed if I click on a radio boutton the line is always displayed 2 times
In my code I do not have this problem.
Regards
|
|
|
|
Post by ptitjoz on Jun 21, 2018 9:25:35 GMT 1
Hi a new method
Only 1 line in SUB for all buttons
INCLUDE "./../Lib/hug.bac"
'----------------------------------------------------------------------
SUB SubClean
TEXT(Edit1,"")
END SUB
SUB SubRadio(NUMBER widget)
IF GET(widget) THEN TEXT(Edit1,GRAB$(widget)&NL$)
END SUB
'----------------------------------------------------------------------
Form1 = WINDOW( "BaCon boutons-radios et groupes", 400, 300 )
'----------------------------------------------------------------------
Label0=MARK("<i>Test sur boutons radio : Version 02c</i> ",250,30)
ATTACH(Form1,Label0,40,275)
'----------------------------------------------------------------------
Frame1=FRAME(160,80)
SETPROPERTY(Frame1,"tooltip-text","choix dans groupe 1")
ATTACH(Form1,Frame1,10,10)
Label1=MARK("Groupe 1",150,30)
ATTACH(Form1,Label1,10,10)
' Création des boutons radio du RadioGroup1 se rattachant au bouton 11
' le premier bouton radio a toujours le numéro 0 (3ème argurment)
' les autres, du groupe, ont le nom du premier bouton (3ème argument ici Radio11)
Radio11 = RADIO("Bouton Radio 1:1",150,25,0)
ATTACH( Form1, Radio11,20,40 )
CALLBACK(Radio11, SubRadio)
Radio12 = RADIO("Bouton Radio 1:2", 150, 25,Radio11)
ATTACH(Form1, Radio12, 20, 60)
CALLBACK(Radio12, SubRadio)
'----------------------------------------------------------------------
Frame2=FRAME(160,100)
SETPROPERTY(Frame2,"tooltip-text","choix dans groupe 2")
ATTACH(Form1,Frame2,10,110)
Label2=MARK("Groupe 2",150,30)
ATTACH(Form1,Label2,10,110)
Radio21 = RADIO("Bouton Radio 2:1",150,25,0)
ATTACH( Form1, Radio21,20,140 )
CALLBACK(Radio21, SubRadio)
Radio22 = RADIO("Bouton Radio 2:2",150,25,Radio21)
ATTACH(Form1, Radio22,20,160)
CALLBACK(Radio22, SubRadio)
Radio23 = RADIO("Bouton Radio 2:3",150, 25,Radio21)
ATTACH(Form1, Radio23,20,180)
CALLBACK(Radio23, SubRadio)
'----------------------------------------------------------------------
Button1=STOCK("gtk-quit", 80, 25)
ATTACH(Form1, Button1, 150, 250)
CALLBACK(Button1,QUIT)
Button2=BUTTON("Effacer",80,25)
ATTACH(Form1, Button2,20,250)
CALLBACK(Button2,SubClean)
'----------------------------------------------------------------------
Edit1=EDIT(160,220)
ATTACH(Form1,Edit1,200,10)
'----------------------------------------------------------------------
DISPLAY
Regards
Joz
|
|
|
|
Post by vovchik on Jun 21, 2018 12:04:58 GMT 1
Dear Joz and Joe,
Thanks for those very clear and simple examples. They should probably be cross-posted somewhere under HUG for easy reference.
With kind regards,
vovchik
|
|
|
|
Post by bigbass on Jun 21, 2018 16:42:21 GMT 1
Hello Joz For the demo I used the RADIO (and tried to keep it simple by only modifying the posted demo given ) There are differences between radioboxes and checkboxes and how they should be used correctly This goes into greater detail www.nngroup.com/articles/checkboxes-vs-radio-buttons/The radiobox has to be TRUE or FALSE only one answer one choice yes or no The checkbox can allow multiple options I can post at later time a basic demo example using checkboxes then you would need to use SELECT/CASE Joe |
|
|
|
Post by ptitjoz on Jun 21, 2018 18:11:25 GMT 1
Hello Joz For the demo I used the RADIO (and tried to keep it simple by only modifying the posted demo given ) There are differences between radioboxes and checkboxes and how they should be used correctly This goes into greater detail www.nngroup.com/articles/checkboxes-vs-radio-buttons/The radiobox has to be TRUE or FALSE only one answer one choice yes or no The checkbox can allow multiple options I can post at later time a basic demo example using checkboxes then you would need to use SELECT/CASE Joe Hello Bigdass
Thank you for your explanations and your contribution.
Indeed, to obtain the same result, there are several methods.
hanks also for the link.
Regards
|
|
|
|
Post by ptitjoz on Jun 21, 2018 18:14:14 GMT 1
Dear Joz and Joe, Thanks for those very clear and simple examples. They should probably be cross-posted somewhere under HUG for easy reference. With kind regards, vovchik Thank you vovchik With kind regards,
Joz |
|
