Support Forum / Форум поддержки

' SLIDER OBJECT ' usage: value=slider(title$,xtop,ytop,height,xtouch,ytouch,mode) '    where: '        value = return value (percentage between 0 and 100) '        title$ = name, displayed at the bottom '        xtop and ytop = left upper corner of slider '        height = length of the scale in the...

' Memory game using new touch statement (version 2) ' option base 1 dim m(8,8),xy(2) gosub init_prog             ' initialization cls ! turns=0 tab_gen(m,t_size,sc)          ' generate table with values disp(m,t_size,sc)             ' display the tableau loop6: get_xy(xy,t_size,sc)          ' get fi...

I knew about the bug,the remedy is to add the following statement in the function get_xy, just before the end def statement : if xy(1)>size then xy(1)=size ! if xy(2)>size then xy(2)=size I implemented this fix, but still have similar error I am unable to reproduce the error, not on my iPad and not...

Nice Game Oldie :D While trying it out in a 6x6 i got an error message... ( see the attached "print-screen" ) Welcome on this board Operator, even if it is to point at my bugs! :oops: I knew about the bug,the remedy is to add the following statement in the function get_xy, just before the end def s...

Removed due to stupid error (reserved word used as variable name)
Version 2 is uploaded

Oil company simulation game (version 2) This simulation consists of an infinite number of rounds (periods) in which one must try to make an oil company as succesfull as possible. The game ends with bankruptcy if you make a mess of it or by simply hitting the cross in the right upper side of the wind...

' oil company simulation game ' version 2 ' option base 1 dim stat(45,45),oil(45,45),glob(45,45),nveld(6),parm(50) dim mes$(60),cons(100,4) gosub prog_init period: per=per+1 ! parm(25)=per disp(stat) numbers() balance(per,parm,cons,oil,mes$) button "glo" title "Global search" at 16,760 size 160,40 b...

My largest program (the oil company simulation, about 1100 lines) is running nicely under the new version. Thanks for this version. The only thing is the conversion in the "draw text" command, which is very easy to overcome. What about the uploaded programs in the program section of this forum, who ...

option base 1 dim cities$(26) for i=1 to 26   read cities$(i)   next i data "Amsterdam","Bangkok","Caracas","Dublin","Edinburgh" data "Fremont","Groningen","Helsinki","Inverness","Jakarta" data "Kano","London","Moskow","Nairobi","Osaka" data "Proletarskiy","Quatar","Riad","Sydney","Tunis" data "Ulm"...

Very interesting code! I have several comments: 1. You can safely write IF BUTTON_PRESSED("ok") THEN instead of IF BUTTON_PRESSED("ok")=1 THEN Yep, thanks 2. You can use GRAPHICS CLEAR x,x,x to clear screen instead of FILL RECT 0,0 TO ... Thanks again, must read manual now and then :? Currently if ...