Hello Guest it is March 18, 2024, 10:21:16 PM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - TPS

51
German / Re: Dreh Programm stoppt wenn ich die Spindel starte
« on: October 30, 2023, 10:25:18 AM »
was hast Du bei

Config -> Ports&Pins -> Spindle Setup ->General Parameters

in die Delay Zeiten eingetragen?

52
German / Re: Softlimits Z Achse Drehmaschine
« on: October 30, 2023, 10:21:15 AM »
eigentlich müsstest Du -355mm eingeben.

53
but you can try to use G52 in M6Start macro, so it will only be excecuted once when tool changes.

54
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


55
General Mach Discussion / Re: User Led not setting
« on: October 26, 2023, 03:19:23 AM »
see attachment

56
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"?

57
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.

58
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

59
General Mach Discussion / Re: G31 Probing Stutters
« on: October 17, 2023, 11:25:42 AM »
is THC turned off during G31?

60
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