[gort]

Have 2 vb script questions.

1. Need to have a VB script (fired off by a wizard button)
run an executable program outside of Mach3. Basically,
I have a program.exe that I want to start.

Since it is NOT a gcode program, most of the functions
are not appropriate. I also tried Tricking PLAYWAVE into
running it, but I can't get PLAYWAVE to even play a .wav file.

2. I need to have a VB script READ in data from a file to fill out
OEMDRO values for display purposes ONLY. Basically
the opposite of CODE.

Thanks,

Gort

[gort]

Can't figure out #1

Found an UGLY solution to #2
Use a .m1s file in the /Mach3 directory.
My C++ program writes to data_out.m1s, lines such as:

ModuleDRO = 1020
SetUserDRO(ModuleDRO, 1.234)

Then, the VB button script has the following lines:

If RunScript(“data_out”) < 0 then
Msgbox “data_out returned an error”
Else
REM Msgbox “Script ran”
End If

Result is it takes data from the Data_out file, and
the DRO #1020 displays the data, in this case displays 1.234

Ugly, but works,

GORT

[ger21]

Try asking on the Machsupport.com forum.

[george4657]

This is the code I use to execute an EXE file "Pcb_Leveller.exe"
I pass it the text file from a leveler program I run first

Start of Code:

Option Explicit
Dim fName As String
Dim pgmName As String
Dim loadPgm As String


fName = GetLoadedGCodeDir() + GetLoadedGCodeFileName()
SetUserLabel(100,fName)
pgmName = "C:\Mach3\Pcb_Leveller.exe " +fName
Shell(pgmName )

SetUserLabel(101,"Save digi as " + fName + "_digi.txt")

End of Code

If you do not need to pass info to the exe you just need

Option Explicit
Dim pgmName As String
pgmName = "C:\Mach3\Pcb_Leveller.exe "
Shell(pgmName )

George

[gort]

GREAT !!!!! THANKS !!!!!!
I used the bottom run only part, as I was already writing my input
data to a text file.

One question. The 4 lines at bottom run fine as a stand alone script
but...When I put them in middle of my existing vb script, I have to take
out the OPTION EXPLICIT line or it errors. Works fine with that line out.
?????

THANKS SO MUCH, I wasted days searching for this solution.

GORT

[george4657]

I always use Option Explicit as it forces dim all variables and this can show up bugs caused by using wrong name for a variable.

Re #2
I don't use it but the code below should work depending on format of your data:

Open "TESTFILE" For Input As #1 ' Open file.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, TextLine ' Read line into variable.
Print TextLine ' Print to Debug window.
Loop
Close #1 ' Close file.

George