interrupting a script

[eeetee]

hi again:

thanks to a huge amount of help from the forum another app is functional!!

still one minor hitch that i can't seem to get through.

the app sends positional information to a solder paste dispenser in real time using jim chapman's sendstr.exe utility. the data is compiled one line at a time and then is sent to the serial port, followed by a short delay, until an eof is found. sometimes a problem is encountered by the operator (such as the paste running out) and i need to create an "emergency stop" button so that the operator can click the button and about the proceedure.

any suggestions?

existing code:

dim temp_text as c
dim temp_line as c
dim temp_len as n

fp=file.open("d:\pasteme\testpts.txt",file_ro_shared)
'debug(1)
while .not. fp.eof()
temp_text=fp.read_line() 'read the first line
temp_len=len(temp_text) 'how long was it?
for i=1 to temp_len 'process the entire line
temp_line=temp_line+" "+asc(substr(temp_text,i,1))
next
sys_shell("d:\pasteme\sendstr.exe 3 var->temp_line", 2)
sleep(1)
temp_line=""
end while
end

'debug(0)
fp.close()

thanks in advance one more time!!


best regards,

ed

[Tom Cone Jr]

RE: interrupting a script

Ed,

I'd look for a way to set a shared variable to a value that means 'STOP'. Then, I'd arrange for my script to check the value of that variable each time it loops through an element in your FOR ... NEXT loop. If it sees 'STOP' sitting there the script could end itself. This would permit the script to be interrupted in mid-line. If you don't need that precision, you could check the value of the variable after each line is finished.

-- tom

[Peter.Wayne]

RE: interrupting a script

the sleep() command will interfere, i think, with your ability to check for other events. you can use a timer event to fire every second, and then in between you can check for activity.
here is an example:

cnt=1
ui_modeless_dlg_box("Running",""%dlg%

{interval=1}
{timer=Start}
Watch me run;
;
{progress=50cnt}
%dlg%,""%code%
if a_dlg_button="Stop" then
   ui_modeless_dlg_close("Running")
end if
if a_dlg_button="Start" then
   ' your code to activate the serial port would
   ' go here
   cnt=cnt+1
   if cnt=51 then
      cnt=1
   end if
end if
%code%)

[eeetee]

RE: interrupting a script

good morning!

thanks tom and peter for your suggestions! i'll check them out later in the day.

thanks again!!

regards,

ed