Topics

1

VB and the development of wizards / Read out G-Code list in the top right corner of mach3

« on: January 07, 2011, 02:58:30 AM »

Hello,

for a script i should exactly know, if g31 is active (not if the probe led is on).

I thought it could be easy to read out the active g-code list on the top right corner of mach3 where all active g codes are listet (G54 G90 G00 ......)

It seems to be a label called mode.

Do any of you have an idea how to read out the codes?

Thank you

Joachim

2

VB and the development of wizards / Set Ports and Pins Active High/Low with VB?

« on: December 27, 2010, 04:54:06 AM »

Hello,

i wonder if it is possible with VB to change the active high/low of an input or output pin with vb?

I do not to want to create a signal, i want to change if a switch is read as high or low.

Thank you

Joachim

3

Mach SDK plugin questions and answers. / Any setuip information for the videoprobe plugin in download section?

« on: April 22, 2010, 02:08:08 AM »

Hello,

i have searched a long time to get informations about how to set up camera and laser for the videoprobe (scan) plugin in the download section.

Could anybody please tell me where to find more about it, especially setup of laser and camera?

Thank you very much

Joachim

4

VB and the development of wizards / SLOW JOG RATE OEMDRO ?

« on: April 02, 2010, 05:07:21 AM »

Hello,

i am wondering if the slow jog rate has an oemdro which can be set in VB?

For Feedrate for example i use OEMDRO 18 , but i can't find anything about slow jog rate...

Can anybody please help?

Thank you

Joachim

5

VB and the development of wizards / Why Dialogbox is flashing

« on: March 27, 2010, 02:06:24 PM »

Hi,

i wrote a small code for some kind of touch-screen-functionality.
Works really well, but everytime a button is pressed the Dialogbox-Window is "flashing".

Is there any way to stop this flashing of the box?

Thank You!

Code:

Dim Eingabe As String

Begin Dialog Maintdlg1 10,10, 350,200, "Zahlenwert Eingeben X="
     
      TEXT 10,24, 50,12, "Wert X:"
      TEXTBOX 60, 22, 280, 12,.nameStr
      'OKBUTTON 80, 54, 40, 12,.okbtn
      'OPTIONBUTTON 130, 80, 40, 12,"0"
     
      PUSHBUTTON 20, 160, 40, 18,"0"
         
      PUSHBUTTON 20, 130, 40, 18,"1"
      PUSHBUTTON 80, 130, 40, 18,"2"
      PUSHBUTTON 140, 130, 40, 18,"3"
     
     
      PUSHBUTTON 20, 100, 40, 18,"4"
      PUSHBUTTON 80, 100, 40, 18,"5"
      PUSHBUTTON 140, 100, 40, 18,"6"
     
      PUSHBUTTON 20, 70, 40, 18,"7"
      PUSHBUTTON 80, 70, 40, 18,"8"
      PUSHBUTTON 140, 70, 40, 18,"9"
     
      PUSHBUTTON 80, 160, 40, 18,"."
     
      PUSHBUTTON 140, 160, 40, 18,"ENT"
     
     
      PUSHBUTTON 200, 160, 40, 18,"+"
     
      PUSHBUTTON 260, 160, 40, 18,"-"
     
     
     
      End Dialog
 
  Dim Maintbox As Maintdlg1                 
      Do
       
 
       'Dialog Maintbox
       
       button = Dialog (Maintbox)
       
       If button < 11 Then
       
       Maintbox.nameStr = Maintbox.nameStr & button -1
       
       Else
       
       If button = 11 Then
       
       Maintbox.nameStr = Maintbox.nameStr & "."
       
       End If
       
       If button = 13 Then ' "+"
       
       
       If Left(Maintbox.nameStr,1)="+" Or Left(Maintbox.nameStr,1)="-" Then
     
      Maintbox.nameStr = Right(Maintbox.nameStr, Len(Maintbox.nameStr)-1) '### Vorzeichen löschen
       
       End If
       
                 
       Maintbox.nameStr = "+" & Maintbox.nameStr
       
       End If
       
       
        If button = 14 Then ' "-"
       
        If Left(Maintbox.nameStr,1)="+" Or Left(Maintbox.nameStr,1)="-" Then
     
      Maintbox.nameStr = Right(Maintbox.nameStr, Len(Maintbox.nameStr)-1) '### Vorzeichen löschen
       
       End If

                 
       Maintbox.nameStr = "-" & Maintbox.nameStr
       
       End If

       
             
       
       
       End If
       
           
      Loop Until button=12
     
      Eingabe = Maintbox.nameStr
     
       
      SetDro(0,Val(Maintbox.nameStr))

6

VB and the development of wizards / How to insert a Userdefined (intelligent) Label

« on: March 25, 2010, 08:22:14 AM »

Hello,

i know how to set / get Data from a Userdefined Label (SetUserlabel 1 , "Hello")

But i do not know how to insert a label into the screen of mach 3...?

Just an example:

I want to place a label in the top left of the mach 3 screen.

I want to use the label to give textinformation to the user like "Program done" and so on.

How can i create / place a userdefined label?

Normaly i use MachSreen as editor, but i do not see something to insert userdefined label, only normal ones...

Thank you very much!!

Elgundis