1. Radio Buttons
- Posted by msuclay at hotmail.com May 06, 2001
- 482 views
Hey guys, Thanks for the great forum. I have a problem that I have been working on and cannot find the answer. I would appreciate any and all help. Thanks. Below is a small program that I have written to try to solve the problem that I am having. If you take a look at the program you will see a series of 5 rows. Each row has 3 radio buttons and an edit box for a number. With this program I would like to be able to select 1 radio button per row. This program will only allow 1 radio button per page. If the user selects the left radio button I would like for it to multiply the value entered in the edit box time 1. If the user selects the middle radio button I would like for it to multiply the value entered in the edit box times 2. If the user selects the right radio button I would like for it to multiply the value entered in the edit box times 3. Then display the answer in the total box at the bottom. Thanks again, Clay ------------------------------------------ include win32lib.ew with trace without warning global constant panelwin = create( Window, "Load", 0, Default, Default, 230, 320, 0 ), abtitle9 = create( LText, "Value", panelwin, 86, 10, 50, 40, 0 ), x = create( EditText, "", panelwin, 85, 38, 50, 20, 0 ), y = create( EditText, "", panelwin, 85, 66, 50, 20, 0 ), z = create( EditText, "", panelwin, 85, 96, 50, 20, 0 ), xx = create( EditText, "", panelwin, 85, 126, 50, 20, 0 ), yy = create( EditText, "", panelwin, 85, 156, 50, 20, 0 ), title1 = create( LText, " 1", panelwin, 1, 5, 20, 30, 0 ), title2 = create( LText, " 2", panelwin, 26, 5, 20, 30, 0 ), title3 = create( LText, " 3", panelwin, 51, 5, 20, 30, 0 ), a = create( Radio, "", panelwin, 5, 40, 15, 10, 0 ), b = create( Radio, "", panelwin, 30, 40, 15, 10, 0 ), c = create( Radio, "1", panelwin, 55, 40, 23, 10, 0 ), d = create( Radio, "", panelwin, 5, 68, 15, 10, 0 ), e = create( Radio, "", panelwin, 30, 68, 15, 10, 0 ), f = create( Radio, "2", panelwin, 55, 68, 23, 10, 0 ), g = create( Radio, "", panelwin, 5, 98, 15, 10, 0 ), h = create( Radio, "", panelwin, 30, 98, 15, 10, 0 ), i = create( Radio, "3", panelwin, 55, 98, 23, 10, 0 ), j = create( Radio, "", panelwin, 5, 128, 15, 10, 0 ), k = create( Radio, "", panelwin, 30, 128, 15, 10, 0 ), l = create( Radio, "4", panelwin, 55, 128, 23, 10, 0 ), m = create( Radio, "", panelwin, 5, 158, 15, 10, 0 ), n = create( Radio, "", panelwin, 30, 158, 15, 10, 0 ), o = create( Radio, "5", panelwin, 55, 158, 23, 10, 0 ), total = create( LText, "Total", panelwin, 1, 185, 100, 30, 0 ), output = create( EditText, "", panelwin, 85, 185, 50, 20, 0 ), line1 = create( LText, "----------------------------------------", panelwin, 0, 175, 300, 10, 0 ), line2 = create( LText, "----------------------------", panelwin, 100, 175, 300, 10, 0 ), cal = create( PushButton, "Calculate", panelwin, 10, 230, 60, 30, 0 ) procedure onClick_cal() atom one, two, three, four, five, totall one = getNumber( x ) two = getNumber( y ) three = getNumber( z ) four = getNumber( xx ) five = getNumber( yy ) totall = (one+two+three+four+five) setText( output, sprintf("%8.2f",totall)) end procedure onClick[ cal ] = routine_id("onClick_cal") WinMain( panelwin, Normal )
2. Re: Radio Buttons
- Posted by Irv Mullins <irvm at ellijay.com> May 06, 2001
- 493 views
On Sun, 06 May 2001, msuclay at hotmail.com wrote: > Hey guys, > > Thanks for the great forum. I have a problem that I have been working on > and cannot find the answer. I would appreciate any and all help. Thanks. > > Below is a small program that I have written to try to solve the problem > that I am having. If you take a look at the program you will see a series > of 5 rows. Each row has 3 radio buttons and an edit box for a number. With > this program I would like to be able to select 1 radio button per row. This > program will only allow 1 radio button per page. If the user selects the > left radio button I would like for it to multiply the value entered in the > edit box time 1. If the user selects the middle radio button I would like > for it to multiply the value entered in the edit box times 2. If the user > selects the right radio button I would like for it to multiply the value > entered in the edit box times 3. Then display the answer in the total box > at the bottom. > Just enclose the buttons that have to work "together" - meaning clicking one clears the others in its group - in a group control (the outline box thingy) So, for the above, you'd have 3 groups, one for each row. Regards, Irv
3. Re: Radio Buttons
- Posted by Travis Beaty <travisbeaty at arn.net> May 06, 2001
- 497 views
This is a multi-part message in MIME format. ------=_NextPart_000_0022_01C0D62D.0F048240 charset="Windows-1252" Give this a whirl! -- Travis -- > Below is a small program that I have written to try to solve the problem > that I am having. If you take a look at the program you will see a series > of 5 rows. Each row has 3 radio buttons and an edit box for a number. With > this program I would like to be able to select 1 radio button per row. This > program will only allow 1 radio button per page. If the user selects the > left radio button I would like for it to multiply the value entered in the > edit box time 1. If the user selects the middle radio button I would like > for it to multiply the value entered in the edit box times 2. If the user > selects the right radio button I would like for it to multiply the value > entered in the edit box times 3. Then display the answer in the total box > at the bottom. > > Thanks again, > > Clay ------=_NextPart_000_0022_01C0D62D.0F048240 Content-Type: application/octet-stream; name="msu.exw" Content-Transfer-Encoding: quoted-printable Content-Disposition: attachment; filename="msu.exw" include win32lib.ew with trace without warning global constant panelwin =3D create( Window, "Load", 0, Default, Default, 230, 320, 0 ), abtitle9 =3D create( LText, "Value", panelwin, 86, 10, 50, 40, 0 ), x =3D create( EditText, "", panelwin, 85, 38, 50, 20, 0 ), y =3D create( EditText, "", panelwin, 85, 66, 50, 20, 0 ), z =3D create( EditText, "", panelwin, 85, 96, 50, 20, 0 ), xx =3D create( EditText, "", panelwin, 85, 126, 50, 20, 0 ), yy =3D create( EditText, "", panelwin, 85, 156, 50, 20, 0 ), title1 =3D create( LText, " 1", panelwin, 1, 5, 20, 30, 0 ), title2 =3D create( LText, " 2", panelwin, 26, 5, 20, 30, 0 ), title3 =3D create( LText, " 3", panelwin, 51, 5, 20, 30, 0 ), -- START EACH GROUP WITH WS_GROUP a =3D create( Radio, "", panelwin, 5, 40, 15, 10, WS_GROUP ), b =3D create( Radio, "", panelwin, 30, 40, 15, 10, 0 ), c =3D create( Radio, "1", panelwin, 55, 40, 23, 10, 0 ), d =3D create( Radio, "", panelwin, 5, 68, 15, 10, WS_GROUP ), e =3D create( Radio, "", panelwin, 30, 68, 15, 10, 0 ), f =3D create( Radio, "2", panelwin, 55, 68, 23, 10, 0 ), g =3D create( Radio, "", panelwin, 5, 98, 15, 10, WS_GROUP ), h =3D create( Radio, "", panelwin, 30, 98, 15, 10, 0 ), i =3D create( Radio, "3", panelwin, 55, 98, 23, 10, 0 ), j =3D create( Radio, "", panelwin, 5, 128, 15, 10, WS_GROUP ), k =3D create( Radio, "", panelwin, 30, 128, 15, 10, 0 ), l =3D create( Radio, "4", panelwin, 55, 128, 23, 10, 0 ), m =3D create( Radio, "", panelwin, 5, 158, 15, 10, WS_GROUP ), n =3D create( Radio, "", panelwin, 30, 158, 15, 10, 0 ), o =3D create( Radio, "5", panelwin, 55, 158, 23, 10, 0 ), total =3D create( LText, "Total", panelwin, 1, 185, 100, 30, 0 ), output =3D create( EditText, "", panelwin, 85, 185, 50, 20, 0 ), line1 =3D create( LText, "----------------------------------------", = panelwin, 0, 175, 300, 10, 0 ), line2 =3D create( LText, "----------------------------", panelwin, 100, = 175, 300, 10, 0 ), cal =3D create( PushButton, "Calculate", panelwin, 10, 230, 60, 30, 0 ) procedure onClick_cal() atom one, two, three, four, five, totall one =3D getNumber( x ) two =3D getNumber( y ) three =3D getNumber( z ) four =3D getNumber( xx ) five =3D getNumber( yy ) totall =3D (one+two+three+four+five) setText( output, sprintf("%8.2f",totall)) end procedure onClick[ cal ] =3D routine_id("onClick_cal") WinMain( panelwin, Normal ) ------=_NextPart_000_0022_01C0D62D.0F048240--