![]() Sub Quit Cdecl (Byval userdata As Any Ptr)ĮDIT:email with link for download sent to your private email. Times.WinId = AddStatusField(Cgui_Right, 20, Sub *buf = Str(*Loops) 'at location buf, make a string from value at location Loopsīutton.Quit = AddButton(500,350, "-Quit-", "uSec/Scan:") Loops = userdata 'get pointer from userdata Sub CreateStatusFieldText cdecl (byval userdata as Any ptr, byval buf as zstring ptr) PassCount) 'uSec / passcount = uSec per program loop mSec > (.OldmSec + 1000) Then 'if 1 sec has elapsed 'sets an Event in the queue so it gets called every userdata, 0, 0) 'This routine is called once before ProcessEvents, after that it ![]() 'Generate an Event that will be called, so Slaves get attention. Sub MachineProcess cdecl (byval userdata as any ptr) MkDialogue(500,38,"Please Wait: Testing & Initialising Environment", 0) ![]() InitCgui(1024,768,16) ' set to full screenĬguiYieldTimeslice (1) ' Allow slower loop time for faster mouse control. Code: Select all #include once "Project.bi"
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |