Messages

1091

VB and the development of wizards / Re: imagebox

« on: January 29, 2016, 03:24:15 AM »

Hi,

that is how i did it two years ago.

script from the file open button:

Code: [Select]

Dim objDialog
Dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")



' Create a dialog object
Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
objDialog.InitialDir = "C:\Programme\Platemaster\Projekte"
objDialog.Filter = "Programm|*.tap"
' Open the dialog and return the selected file name
If objDialog.ShowOpen Then


If filesys.FileExists(Left(objDialog.FileName, Len(Trim(objDialog.FileName)) - 4) + ".bmp") Then
filesys.CopyFile Left(objDialog.FileName, Len(Trim(objDialog.FileName)) - 4) + ".bmp", "C:\Mach3\Bitmaps\Platemaster\Anzeige.BMP"
    End If
LoadStandardLayout()
Sleep(3000)
LoadFile(objDialog.FileName)

Else
GetFileName = ""
End If


Thomas

1092

VB and the development of wizards / Re: Edge detection on input

« on: January 13, 2016, 05:51:45 PM »

can you see Input1 changing signal in diagnostic Screen ?

While is moving
Wend

is useless because no 'real' axis is moving.

TPS

1093

CS-Lab / Re: CSMIO/IP-S vs Panasonic Minas A5

« on: December 12, 2015, 05:02:54 AM »

TPS, does the above make sense to you and back up your suggested parameters?

not realy.

1094

CS-Lab / Re: CSMIO/IP-S vs Panasonic Minas A5

« on: December 10, 2015, 05:21:13 PM »

Hi Ziad,

only had time for a quick look.

i think

Pr0.06 --> 1
Pr0.07 --> 3

or

Pr0.06 --> 0
Pr0.07 --> 3

should be ok.

TPS

1095

General Mach Discussion / Re: CNC Lathe turret tool changer help?

« on: October 19, 2015, 09:21:46 AM »

Ok,

sounds good.

Thomas

1096

General Mach Discussion / Re: CNC Lathe turret tool changer help?

« on: October 19, 2015, 08:55:10 AM »

Ok let's try and error

please change

    'look for OEMTRIG1
    If Not IsActive(OEMTRIG1) Then

to

    'look for OEMTRIG1
    If IsActive(OEMTRIG1) = False Then

should be the same put try please.

Thomas

1097

General Mach Discussion / Re: CNC Lathe turret tool changer help?

« on: October 19, 2015, 08:25:42 AM »

Hi,

next try, the problem is i have no real trigger to lock the stop dog

Code: [Select]

Sub Main()
' -------------------------------------------------------------------------------
' TPS 19.10.2015 
' Toolchange for a 8 place turret (single step)
' V 5.0.1
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4
' charger seated is mapped to OEMTRIG1

'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   End
End If
 
If  tool > 8 Or tool < 1 Then 'check tool number to be in range
    Message (" Tool " & tool & " is not a valid Number 1-8 ONLY, ENDING Program RUN ")
    DoButton(3)
    End
End If


tryagain:

'get actual starttime
Starttime = Timer

Message "Moving to Tool# " &GetselectedTool()


   Akttime = Timer
   While Akttime - Starttime < 50 'try until timeout

    ActivateSignal(OutPut5)  'unlocks stop dog
    Sleep(1000)              'wait for a second
    ActivateSignal(OutPut6)  'turn air motor on
    Sleep(1000)              'wait for a second
    DeActivateSignal(OutPut5)    'locks stop dog
    Sleep(1000)              'wait for a second
    DeActivateSignal(OutPut6)    'turn air motor off
    Sleep(1000)

    'check the position
    If GetTurret() = tool Then
       GoTo finished
    End If   
       
    Akttime = Timer
    If Akttime - Starttime > 40 Then 'Timeout 20s
       Message("Turret timeout")
       DeActivateSignal(output5)    'locks stop dog
       Sleep(1000)                  'wait for a second
       DeActivateSignal(OutPut6)    'turn air motor off
       End
    End If
   Wend
   
finished:

   'recheck the turretpos and retry
   If  GetTurret() <> tool then
        GoTo tryagain
   End If


    'look for OEMTRIG1
    If Not IsActive(OEMTRIG1) Then
        DOButton(3)
        MsgBox("Tool changer not seated!")
        End
    End If   

    Message("Tool " & tool & " Loaded")
    SetCurrentTool( tool )
   
End Sub

 

'function to get the actual turret position
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End If
   
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End If

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End If

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End If
   
End Function
   

Thomas

1098

General Mach Discussion / Re: CNC Lathe turret tool changer help?

« on: October 19, 2015, 04:42:07 AM »

Ok,

her the first try of the "single step" version

Code: [Select]

Sub Main()
' -------------------------------------------------------------------------------
' TPS 18.10.2015 
' Toolchange for a 8 place turret (single step)
' V 5.0.0
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4
' charger seated is mapped to OEMTRIG1

'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   End
End If
 
If  tool > 8 Or tool < 1 Then 'check tool number to be in range
    Message (" Tool " & tool & " is not a valid Number 1-8 ONLY, ENDING Program RUN ")
    DoButton(3)
    End
End If

Dim StopDog as boolean

tryagain:

'get actual starttime
Starttime = Timer

Message "Moving to Tool# " &GetselectedTool()


   Akttime = Timer
   While Akttime - Starttime < 40 'try until timeout

    ActivateSignal(output5)  'unlocks stop dog
    StopDog = True
    Sleep(1000)              'wait for a second
    ActivateSignal(OutPut6)  'turn air motor on

   'wenn we left the turretpos lock the stop dog
    If GetTurret() = 0 Then
       DeActivateSignal(output5)    'locks stop dog
       StopDog = false
    End if

    If ((GetTurret() <> 0) and (StopDog = False)) Then
       DeActivateSignal(OutPut6)    'turn air motor off
       sleep(1000)
    End if

    'check the position
    If GetTurret() = tool Then
       GoTo finished
    End If   
       
    Akttime = Timer
    If Akttime - Starttime > 30 Then 'Timeout 20s
       Message("Turret timeout")
       DeActivateSignal(output5)    'locks stop dog
       Sleep(1000)                  'wait for a second
       DeActivateSignal(OutPut6)    'turn air motor off
       End
    End If
   Wend
   
finished:

   'recheck the turretpos and retry
   If  GetTurret() <> tool then
        GoTo tryagain
   End If


    'look for OEMTRIG1
    If Not IsActive(OEMTRIG1) Then
        DOButton(3)
        MsgBox("Tool changer not seated!")
        End
    End If   

    Message("Tool " & tool & " Loaded")
    SetCurrentTool( tool )
   
End Sub

 

'function to get the actual turret position
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End If
   
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End If

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End If

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End If
   
End Function
   

Thomas

1099

General Mach Discussion / Re: CNC Lathe turret tool changer help?

« on: October 19, 2015, 04:29:46 AM »

Hi Mike,

by reviewing the script i found a mistake,
pls try corrected code again.

Code: [Select]

Sub Main()
' -------------------------------------------------------------------------------
' TPS 18.10.2015 
' Toolchange for a 8 place turret
' V 4.0.1
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4
' charger seated is mapped to OEMTRIG1

'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   End
End If
 
If  tool > 8 Or tool < 1 Then 'check tool number to be in range
    Message (" Tool " & tool & " is not a valid Number 1-8 ONLY, ENDING Program RUN ")
    DoButton(3)
    End
End If

 
Dim NextTurretPos As Long
NextTurretPos = 0

'get actual starttime
Starttime = Timer

Message "Moving to Tool# " &GetselectedTool()

tryagain:

   ActivateSignal(output5)  'unlocks stop dog
   Sleep(1000)              'wait for a second
   ActivateSignal(OutPut6)  'turn air motor on
   
   While NextTurretPos <> tool 'turn until we are in the wright position
      NextTurretPos = GetNextTurret()

      'give the other inputs a chance
      If NextTurretPos <> 0 Then
        Sleep(50)
        NextTurretPos = GetNextTurret() 'read NextTurretpos again
      End if
     
      Akttime = Timer
      If Akttime - Starttime > 20 Then 'Timeout 20s
        Message("Turret timeout")
        DeActivateSignal(output5)    'locks stop dog
        Sleep(1000)                  'wait for a second
        DeActivateSignal(OutPut6)    'turn air motor off
        End
      End If
   Wend
   
   DeActivateSignal(output5)    'locks stop dog
   Sleep(1000)                  'wait for a second
   DeActivateSignal(OutPut6)    'turn air motor off
   sleep(1000)


   'recheck the turretpos and retry
   If  GetTurret() <> tool then
        GoTo tryagain
   End If


    'look for OEMTRIG1
    If Not IsActive(OEMTRIG1) Then
        DOButton(3)
        MsgBox("Tool changer not seated!")
        End
    End If   

    Message("Tool " & tool & " Loaded")
   SetCurrentTool( tool )
   
End Sub

 

'function to get the actual turret position
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End If
   
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End If

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End If

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End If
   
End Function
   

'function to get the next actual turret position
Function GetNextTurret() As Long
GetNextTurret = 0
    If IsActive(Input1) Then
        GetNextTurret = GetNextTurret + 1
    End If
   
    If IsActive(Input2) Then
        GetNextTurret = GetNextTurret + 2
    End If

    If IsActive(Input3) Then
        GetNextTurret = GetNextTurret + 4
    End If

    If IsActive(Input4) Then
        GetNextTurret = GetNextTurret + 8
    End If
   
    If GetNextTurret = 8 Then
        GetNextTurret = 1
    Else   
        GetNextTurret = GetNextTurret + 1
    End If
   
End Function


Thomas

1100

General Mach Discussion / Re: CNC Lathe turret tool changer help?

« on: October 18, 2015, 12:50:41 PM »

Ok Mike,

depending on the fact, that i am getting older
some processes of thinking taking more time.

so the function GetTurretpos() has got a little brother
witch is called GetNextTurretPos() witch will bring us
the possibility to touch the "brake" early enough to stop
in the wright position.

here the code:

Code: [Select]

Sub Main()
' -------------------------------------------------------------------------------
' TPS 18.10.2015  
' Toolchange for a 8 place turret
' V 4.0.0
' -------------------------------------------------------------------------------

' pin2 is mapped to Input1
' pin3 is mapped to Input2
' pin4 is mapped to Input3
' pin5 is mapped to Input4
' charger seated is mapped to OEMTRIG1

'get the new tool ---------------------------------------------------------------
tool = GetSelectedTool()

' nothing to do
If GetSelectedTool() = GetCurrentTool() Then
     message("Tool is the same NO tool change needed")
   End
End If
 
If  tool > 8 Or tool < 1 Then 'check tool number to be in range
    Message (" Tool " & tool & " is not a valid Number 1-8 ONLY, ENDING Program RUN ")
    DoButton(3)
    End
End If

 
Dim NextTurretPos As Long
NextTurretPos = 0

'get actual starttime
Starttime = Timer

Message "Moving to Tool# " &GetselectedTool()

tryagain:

   ActivateSignal(output5)  'unlocks stop dog
   Sleep(1000)              'wait for a second
   ActivateSignal(OutPut6)  'turn air motor on
  
   While NextTurretPos <> tool 'turn until we are in the wright position
      NextTurretPos = GetNextTurret()

      'give the other inputs a chance
      If ActTurretPos <> 0 Then
        Sleep(50)
        NextTurretPos = GetNextTurret() 'read NextTurretpos again
      End if
      
      Akttime = Timer
      If Akttime - Starttime > 20 Then 'Timeout 20s
        Message("Turret timeout")
        DeActivateSignal(output5)    'locks stop dog
        Sleep(1000)                  'wait for a second
        DeActivateSignal(OutPut6)    'turn air motor off
        End
      End If
   Wend
  
   DeActivateSignal(output5)    'locks stop dog
   Sleep(1000)                  'wait for a second
   DeActivateSignal(OutPut6)    'turn air motor off
   sleep(1000)


   'recheck the turretpos and retry
   If  GetTurret() <> tool then
        GoTo tryagain
   End If


    'look for OEMTRIG1
    If Not IsActive(OEMTRIG1) Then
        DOButton(3)
        MsgBox("Tool changer not seated!")
        End
    End If    

    Message("Tool " & tool & " Loaded")
   SetCurrentTool( tool )
  
End Sub

  

'function to get the actual turret position
Function GetTurret() As Long
GetTurret = 0
    If IsActive(Input1) Then
        GetTurret = GetTurret + 1
    End If
    
    If IsActive(Input2) Then
        GetTurret = GetTurret + 2
    End If

    If IsActive(Input3) Then
        GetTurret = GetTurret + 4
    End If

    If IsActive(Input4) Then
        GetTurret = GetTurret + 8
    End If
    
End Function
    

'function to get the next actual turret position
Function GetNextTurret() As Long
GetNextTurret = 0
    If IsActive(Input1) Then
        GetNextTurret = GetNextTurret + 1
    End If
    
    If IsActive(Input2) Then
        GetNextTurret = GetNextTurret + 2
    End If

    If IsActive(Input3) Then
        GetNextTurret = GetNextTurret + 4
    End If

    If IsActive(Input4) Then
        GetNextTurret = GetNextTurret + 8
    End If
    
    If GetNextTurret = 8 Then
        GetNextTurret = 1
    Else    
        GetNextTurret = GetNextTurret + 1
    End If
    
End Function
regards Thomas