Launch an asynchronous program

[angelo2449]

Hi Guis,

this code:
   [AltezzaDiVolo]



   run "C:\AutocadSupporto\LibertyTre\ScegliDrone.exe " + "C:\AutoCadSupporto\LibertyTre\ScegliDrone.tkn"



   open "C:\AutocadSupporto\Droni\HVolo.dat" for input as #18

       input #18, AltezzaDiVolo$

   close #18



   #main.altezza, using("#######.##", val(trim$(AltezzaDiVolo$)))



   wait



e
I would like the program to wait for the execution of > ScegiDrone < before collecting the variable > AltezzaDiVolo$ <.

How do I do it ?, Thanks.

[Rod]

You might use the notice command or the more complex api solution discussed here libertybasiccom.proboards.com/thread/768/run-command-wait

[mknarr]

See this in Alyce's Restaurant Shell Wait
Shell Wait

[angelo2449]

OK it works!
Do you know how I can close> Notice <with a command?
Thanks.

[Rod]

No, Notice requires user input. If the program you are running executes automatically and closes automatically and you know the time it takes to execute then you can just put a delay in the main program.


'issue the run command
Timer 500, [done]
wait

[done]
timer 0
'retrieve your variable

That would wait half a second then move on to get your file.

[angelo2449]

Thanks,
I solved the problem with this switch code

   open "C:\AutocadSupporto\DroniXXX.dat" for output as #3
   close #3

   if FileExists("C:\AutocadSupporto\DroniXXX.dat") then
       print "OK >>>>>>>>>>>>>>>>>>>>>"
       kill "C:\AutocadSupporto\DroniXXX.dat"
   end if

  ' ----------------------------
   function FileExists(FilePath$)
   dim FileExistsInfo$(1,1)    ' ritorna 0 (zero) se il file non esiste, 1 (uno) se esiste
   files "", FilePath$, FileExistsInfo$(
   FileExists = val(FileExistsInfo$(0,0))
   end function
' ------------------------------------------------

Now I will create 'C: Autocad Supporto\DroneXXX.dat' from
"C:\AutocadSupporto\LibertyTre\ScegliDrone.exe " + "C:\AutoCadSupporto\LibertyTre\ScegliDrone.tkn"
And everything will work!
Thanks, Angelo.

[Rod]

Ok, yes repetitively checking if a file exists is a way to wait for an ancillary program to complete.

[angelo2449]

This is the finished and working code:

  [AltezzaDiVolo]

   run "C:\AutocadSupporto\LibertyTre\ScegliDrone.exe " + "C:\AutoCadSupporto\LibertyTre\ScegliDrone.tkn"

   [Frena]

   if FileExists("C:\AutocadSupporto\Droni\Freno.dat") then
       kill "C:\AutocadSupporto\Droni\Freno.dat"

       open "C:\AutocadSupporto\Droni\HVolo.dat" for input as #18
           line input #18, AltezzaDiVolo$
           line input #18, TipoD$
       close #18

       #main.altezza, using("#######.##", val(trim$(AltezzaDiVolo$)))
   else
       #main.altezza, "In Attesa"
       goto [Frena]
   end if

   if FileExists("C:\AutocadSupporto\Droni\Freno.dat") then
       kill "C:\AutocadSupporto\Droni\Freno.dat"
   end if

   wait

Ciao Rod

[Carl Gundel]

Oct 27, 2019 16:58:19 GMT -5 Rod said:

Ok, yes repetitively checking if a file exists is a way to wait for an ancillary program to complete.

Usually the best way is to make the file with one name, and when you're done rename it to the filename that you will test for.  That way you won't accidentally proceed when the file is still open and being written to.

[angelo2449]

I have improved the code further, now it works perfectly without the use of files

   In the first program

   [Scegli.Salva]

   ....................
   ....................

   #scegli.edit, "!cls";
   #scegli.edit, "Controllo#";
   #scegli.edit, "!selectall";
   #scegli.edit, "!copy";

   ....................
   ....................

   wait

   ---------------------------------------------------

   In the second program

   [AltezzaDiVolo]

   on error goto[Errore]

   #main.editx, "!cls";
   #main.editx, "";
   #main.editx, "!selectall";
   #main.editx, "!copy";

   run "C:\AutocadSupporto\LibertyTre\ScegliDrone.exe " + "C:\AutoCadSupporto\LibertyTre\ScegliDrone.tkn"

   [Frena]

   #main.editx, "!cls";
   #main.editx, "!paste";
   #main.editx, "!contents? String$";

   timer 200, [Vai]
   wait

   [Vai]

   if trim$(String$) = "Controllo#" then

       if FileExists("C:\AutocadSupporto\Droni\HVolo.dat") then
           open "C:\AutocadSupporto\Droni\HVolo.dat" for input as #18
               line input #18, AltezzaDiVolo$
               line input #18, TipoD$
           close #18
       end if

       #main.altezza, using("#######.##", val(trim$(AltezzaDiVolo$)))
   else
       #main.altezza, "In Attesa"
       goto [Frena]
   end if

   wait


In this way, with a good string encoding it is possible to exchange any data with any language.
Ciao from Italy.