Messages

61

VB and the development of wizards / Re: While IsMoving issue - Procedure - the loop freezes

« on: October 27, 2023, 01:55:34 AM »

here is an example for M6Start.M1s i made a while ago.
maybe this helps. in this case we worked with workpiece offset's related to the
selected tool.

you have to insert your offset's to Config -> fixtures

Code: [Select]

'get new tool number
newtool = GetSelectedTool()

'select Offset by toolnumber
If newtool = 1 Then
Code "G54"
End If
If newtool = 2 Then
Code "G55"
End If
If newtool = 3 Then
Code "G56"
End If
If newtool = 4 Then
Code "G57"
End If
If newtool = 5 Then
Code "G58"
End If
If newtool = 6 Then
Code "G59"
End If
If newtool = 7 Then
Code "G59P7"
End If
 
SetCurrentTool(newtool)
Code "G43H" & newtool



62

General Mach Discussion / Re: User Led not setting

« on: October 26, 2023, 03:19:23 AM »

see attachment

63

VB and the development of wizards / Re: While IsMoving issue - Procedure - the loop freezes

« on: October 25, 2023, 07:55:11 AM »

i use the While IsMoving on all of my machines without any problem.
but the "newest" of my machies is running on Win8.
so maybe Win11 causes the "problem"?

64

VB and the development of wizards / Re: While IsMoving issue - Procedure - the loop freezes

« on: October 25, 2023, 03:26:35 AM »

CS-Lab is recommending to use Version R3.043.022 for CSMIO controllers.
i have downgraded all my machines to this version, because i had some
strange behavios as well.

65

VB and the development of wizards / Re: HELP: How to export snapshots of desired coordinates from Mach3 to text/excel

« on: October 22, 2023, 09:10:02 AM »

here is a wizard i did couple of years ago.

needs to be unzipped into addon folder.

the two macros (M401.m1s and M403.m1s) have to be moved to your maco folder.

then you can run it by pick wizard

66

General Mach Discussion / Re: G31 Probing Stutters

« on: October 17, 2023, 11:25:42 AM »

is THC turned off during G31?

67

VB and the development of wizards / Re: change virtual keyboard

« on: October 12, 2023, 04:53:29 AM »

Code: [Select]

' TAST ASSE X
Global value As String
Global CanButtonpressed As Boolean

Sub Main
   'declare variables
   Dim Pos As Double
   Dim OldDroValue As Double
   Dim MinPos As Double
   Dim MaxPos As Double
   Dim DroNum  As Integer   
   'preset the variables
   MinPos = -1000.0
   MaxPos = 1000.0
   DroNum  = 800
   
   'get the actual DRO value
   OldDroValue = GetOemDro(DroNum)
   CanButtonpressed = false
   
   'show the virtual keyboard
   Call NumericKeyboard(DroNum,MinPos,MaxPos)   
   'get the new DRO value
   Pos = GetOEMDro(DroNum)   

End Sub

'TPS 01.12.2017
'numerische Eingabe
Function NumericKeyboard(ByVal DRONum As Integer , ByVal Min As Double , ByVal Max As Double) As Double
   Dim title As String
   value = "" 'GetOemDRO(DRONum)
   title = Header

   Speak ("  ASSE x") 'Avviso Vocale   
   Begin Dialog UserDialog1 410,10, 125, 240, "INSERIMENTO VALORI:"  , .Enable

   Picture 0, 0, 125, 210, "c:\mach3\bitmaps\Ita_Screenset\TASTIERA.bmp"
      PushButton 20, 10, 25, 25, "7", .but7
      PushButton 50, 10, 25, 25, "8", .but8
      PushButton 80, 10, 25, 25, "9", .but9

      PushButton 20, 40, 25, 25, "4", .but4
      PushButton 50, 40, 25, 25, "5", .but5
      PushButton 80, 40, 25, 25, "6", .but6
     
      PushButton 20, 70, 25, 25, "1", .but1
      PushButton 50, 70, 25, 25, "2", .but2
      PushButton 80, 70, 25, 25, "3", .but3

      PushButton 20, 100, 25, 25, ".", .butD
      PushButton 50, 100, 25, 25, "0", .but0
      PushButton 80, 100, 25, 25, "<-", .butB

      PushButton 20, 130, 25, 25, "+/-", .butN
      PushButton 50, 130, 25, 25, "00", .butA
      PushButton 80, 130, 25, 25, "Del", .butDel

      PushButton 20, 185, 40, 18,"OK", .OK
      PushButton 65, 185, 40, 18,"Cancel", .CAN
      TextBox 20, 160, 85, 18, .FText
      Text 50, 215, 100, 18," ASSE X"
   End Dialog

   Dim Dlg1 As UserDialog1

   Dlg1.FText = CStr(value)
   x = Dialog( Dlg1 )

   NumericKeyboard = CDbl(Dlg1.FText)
   If CDbl(Dlg1.FText) < Min Then NumericKeyboard = Min
   If CDbl(Dlg1.FText) > Max Then NumericKeyboard = Max
   If CanButtonpressed = false Then
    SetOEMDro(DRONum,NumericKeyboard)
   End If    
End Function

Function Enable( ControlID$, Action%, SuppValue%)

   Select Case Action%
      Case 1
         
      Case 2 'Button wurde gerückt
         If ControlID$ = "but0" Then
            value = CStr(value) + "0"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("0") 'Avviso Vocale
         End If
         If ControlID$ = "but1" Then
            value = CStr(value) + "1"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("1") 'Avviso Vocale           
         End If
         If ControlID$ = "but2" Then
            value = CStr(value) + "2"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("2") 'Avviso Vocale
         End If
         If ControlID$ = "but3" Then
            value = CStr(value) + "3"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("3") 'Avviso Vocale
         End If
         If ControlID$ = "but4" Then
            value = CStr(value) + "4"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("4") 'Avviso Vocale
         End If
         If ControlID$ = "but5" Then
            value = CStr(value) + "5"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("5") 'Avviso Vocale
         End If
         If ControlID$ = "but6" Then
            value = CStr(value) + "6"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("6") 'Avviso Vocale
         End If
         If ControlID$ = "but7" Then
            value = CStr(value) + "7"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("7") 'Avviso Vocale
         End If
         If ControlID$ = "but8" Then
            value = CStr(value) + "8"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("8") 'Avviso Vocale
         End If
         If ControlID$ = "but9" Then
            value = CStr(value) + "9"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("9") 'Avviso Vocale
         End If
         If ControlID$ = "butA" Then
            value = CStr(value) + "00"
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("0 0") 'Avviso Vocale
         End If
         If ControlID$ = "butD" Then
            If InStr(1,value,".") = 0 Then
            value = CStr(value) + "."
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("punto") 'Avviso Vocale
            End If
         End If
         If ControlID$ = "butB" Then
            value = Left(value,Len(value)-1)
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("indietro") 'Avviso Vocale
         End If
         If ControlID$ = "butN" Then
            If Left(value,1) = "-" Then
               value = "+" + CStr(Right(value,Len(value)-1))
               Speak ("piu' ") 'Avviso Vocale
            Else
               If Left(value,1) = "+" Then
                  value = "-" + CStr(Right(value,Len(value)-1))
               Else
                  value = "-" + CStr(value)
                  Speak ("meno ") 'Avviso Vocale
               End If   
            End If   

            DlgText "FText", CStr(value)
            Enable =1

         End If
         If ControlID$ = "butDel" Then
            value = ""
            DlgText "FText", CStr(value)
            Enable =1
            Speak ("cancella ") 'Avviso Vocale
         End If
         If ControlID$ = "OK" Then
            Enable = -1
         End If
         If ControlID$ = "CAN" Then
    CanButtonpressed = true
            Enable = -1
         End If
      Case 3 'Text verändert
         'MsgBox Dlg1.FText   
      Case Else
   End Select
   
   'Wert zurückgeben
   If Enable = -1 Then
      Enable = value
   End If

End Function     












68

German / Re: Bauteil ausrichten

« on: October 10, 2023, 12:01:48 PM »

Servus,

auf die Schnelle habe ich das hier:

https://www.machsupport.com/forum/index.php/topic,30803.msg215687.html#msg215687

Reply #6 !!

gefunden. Das Macro m1030.m1s schein eine Sonderrolle zu spielen !?
Davon musste ich bis jetzt auch nichts.

Gruß Tom

69

German / Re: Probleme mit Mach3 und Fräse

« on: September 29, 2023, 08:54:47 AM »

Servus Ralph,

die Step Signale wird Du mit einem normalen Voltmeter nicht vernünftig prüfen können,
dazu bräuchtest Du ein Oszilloskop.

Kannst Du Mal Mal Deine Profil Datei (Dein Profilname.xml) hier posten und vielleicht ein Paar Bilder
von der Treiberkarte?

Gruß Tom

70

German / Re: Probleme mit Mach3 und Fräse

« on: September 29, 2023, 06:27:59 AM »

Servus Ralph,

dann gehe ich da aus, das die Definition von den Step/Dir Pin's in den Motorausgängen nicht passt.

Kannst Du irgendwie nachverfolgen, welche Pin's zu welcher Achse gehen?

Gruß Tom