While/Wend Problem
BlitzPlus Forums/BlitzPlus Beginners Area/While/Wend Problem
| ||
;CONSTANTS Const WINDOW_WIDTH=500 Const WINDOW_HEIGHT=400 Const WINDOW_FLAGS=15 ;EVENT CONSTANTS Const X_HIT=$803;The 'X' was hit Const GADGET_USED=$401;A gadget was used ;VARIABLES DESKTOP_WIDTH=ClientWidth(Desktop()) DESKTOP_HEIGHT=ClientHeight(Desktop()) ;This function is to get the program started Function Start() Main=CreateWindow("START UP GUI TEST #1",DESKTOP_WIDTH,DESKTOP_HEIGHT,WINDOW_WIDTH,WINDOW_HEIGHT,Main,15) Button=CreateButton("CREATE",WINDOW_WIDTH-300,WINDOW_HEIGHT-300,100,100,Main,1) Ev=WaitEvent() Es=EventSource() While Not KeyDown(1) Select Es Case Main: Blah=Confirm("Positive?",True) If Ev=$803 If Blah=1 Then End If Blah<>1 Then Notify("Find out what you"+Chr(10)+"want next time") EndIf EndIf EndIf End Select Wend End Function Start() End My problem is that the error 'Wend without While' pops up, Why? |
| ||
An 'End Select' command is missing, before 'Wend' |
| ||
Indent your code, and this sort of thing is easier to fix |
| ||
yep, indent = king, at a lot easier to read for us as well. |
| ||
I got it to work, I'm kind of using the biteme example under Blitz Plus Samples to assist me. I've been examining the code and have no idea what 'bDone' means; does anyone have any ideas? |
| ||
While KeyDown() <> True Shouldn't you be specifying a keycode with KeyDown()? |
| ||
Don't worry I fixed that, let me update the code... code updated. I'll work out any further problems on my own; CS_TBL how did you learn blitz+ in a few days!? |
| ||
Well, before B+ I was already doing B3d for some years (tho you'll never see me in those 3d forums as I was only doing 2d with it. In fact I did buy it back then, but I kinda lost my install and BUID :D In fact I don't really give a hoot about it since my forte will never be 3d anyway). Before B3d I was using the freeware B2d, and before that I was using QBasic for many years. Before that I used MSX-Basic (kinda lika GW-Basic). So if you add all Basics together I've now about 17 years of Basic experience spread over 6 Basics (MSX, QB, B2d, B3d, B+, Bmax). Needless to say I didn't learn B+ in a few days, but I did learn the new GUI stuff in a few days.. but that GUI is really simple anyway. My first 'real' B+ app was a small window that could load an 512x212 image with a 16-color palette. One could hoover the mouse over the image and see zoomed pixels in a corner. One could see the 16-color palette with its RGB values and one could copy/replace colors using both mousebuttons. So nothing fancy really. |
| ||
Ok, this is my first programming language, ever and I used to mess around with BlitzBasic a while back, nothing to complex; and now I'm really into it programming on average once a day. So, I guess I'm slow with this because of me being a begginer in programming in general and the fact that I'm a slow learner. |