Launch PC-DMIS in Operator Mode through VB

I searched through the forum and couldn't find a solution for my issue.

I was wondering if it is possible to launch pc-dmis in operator mode from a script.

I made a front end GUI and wanted to be able to display pc dmis (in operator mode) while it's running a program. Right now I just hide everything besides the Execution window.

I'll attach the code I'm using to start pc dmis if it helps

TIA

Sub PCDMISProgramRun()


Dim PCDApp, PCDPartProgram, PCDProgramCommand


''

Set PCDApp = CreateObject("PCDLRN.Application") 'Opens PC-DMIS

    If Not PCDApp.WaitUntilReady(300) Then
        MsgBox "Machine did not initialize, Exiting"
        Exit Sub
    End If

    PCDApp.Visible = False

Parents

AndersI over 4 years ago

As an alternative, couldn't you start PC-DMIS in Operator mode with the Shell (or Excec, or whatever it's called in VB) function, and then use GetObject to connect to it?
I haven't tried it with Basic, but can definitely do it like that with my compiled Delphi Pascal programs.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Reply

AndersI over 4 years ago

As an alternative, couldn't you start PC-DMIS in Operator mode with the Shell (or Excec, or whatever it's called in VB) function, and then use GetObject to connect to it?
I haven't tried it with Basic, but can definitely do it like that with my compiled Delphi Pascal programs.
Cancel
Vote Up 0 Vote Down

Sign in to reply

Cancel

Children

No Data