Hello Guest it is December 08, 2019, 06:06:45 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

801
General Mach Discussion / Re: Only X-axis motor is working
« on: March 21, 2018, 03:34:03 AM »
You were correct. I had the power supply on the wrong side. I feel so dumb.

Hooked it up correctly and the weird thing is nothing changed.

X still works. The other three axis do not work.

So, did I burn out two boards with them being hooked up backwards? And why would this stupid thing work with the X-axis no matter how it's hooked up? I know this is stepping outside of the Mach3 software questions at this point and do appreciate the help I've received.

so have you tried to swap X an Y Step/Dir Connection on your breakout board ?

have you configured enable pin14 now ?

can you please post your XML ?

your axis dro's are changing on Screen if you move the other axis ?



802
General Mach Discussion / Re: Only X-axis motor is working
« on: March 20, 2018, 03:56:22 PM »
insight -> 100 points

803
VB and the development of wizards / Re: 2 scripts 1 button
« on: March 20, 2018, 11:59:04 AM »
create a Folder C:\mach3\test
copy a couple of files there
Change the path in the macro
test again

804
General Mach Discussion / Re: Random jolts?
« on: March 20, 2018, 11:55:50 AM »
or some other Software on the pc, witch frezes all

805
General Mach Discussion / Re: Only X-axis motor is working
« on: March 20, 2018, 11:54:38 AM »
ok, i have rotated my pic, and put both underneath,
just to avoid optical Illusion.

and now i am out of ideas to Point you to the fault

806
VB and the development of wizards / Re: 2 scripts 1 button
« on: March 20, 2018, 08:51:38 AM »
Looks like i has something to do with your file attributes (see Picture)

can cou cross check with gcode lavori files ?

807
VB and the development of wizards / Re: 2 scripts 1 button
« on: March 20, 2018, 08:02:11 AM »
---the jobs \ gcode section works well

you mean "GCODE LAVORI" ?

are you sure the files are in C:\mach3\gcode ?

because here it works

808
VB and the development of wizards / Re: 2 scripts 1 button
« on: March 20, 2018, 07:22:31 AM »
for the Moment i do not understand what you mean,
the script loads here any GCode file in c:\Mach3\GCode

809
VB and the development of wizards / Re: 2 scripts 1 button
« on: March 20, 2018, 06:40:34 AM »
Code: [Select]
Sub Main()
 Begin Dialog SelectCentering 430,250,125,96,"SELEZIONA GCODE"
   OKButton 15,68,40,14
   CancelButton 70,68,40,14
   GroupBox 12,5,100,52,"GCODE",.GroupBox1
   OptionGroup .OptionGroup1
   OptionButton 20,20,70,8," GCODE LAVORI",.OptionButton1
   OptionButton 20,40,70,8," GCODE MACH3"  ,.OptionButton2
  End Dialog

  Dim Dlg1 As SelectCentering
  Button = Dialog (Dlg1)
 
  If Button = 0 Then Exit Sub
  Selected  = Dlg1.OptionGroup1

  'laser is selected ************************************************************
  If Selected = 0 Then '*********************************************************
 
       
   'Gcode Selection Box
   Dim MyList()
   Begin Dialog GcodeFileDlgL 60, 60, 190, 220, "LAVORI Gcode ", .DlgFuncL
   ListBox 10, 10, 150, 180, MyList(), .List1, 2
   CancelButton 42, 198, 40, 12
   OKButton 90, 198, 40, 12
   
   End Dialog
   
   
   Dim frame As GcodeFileDlgL
   
'   Dim frame As GcodeFileDlg
   
   ' Show the GcodeFile dialog
   button =Dialog(frame)

   
  End If '**************************************************************
 
 
 
  'web is selected ****************************************************
  If Selected = 1 Then '***********************************************
 
     'Gcode Selection Box
   Dim MyList()
   Begin Dialog GcodeFileDlgM 60, 60, 190, 220, "MACH3 Gcode ", .DlgFuncM
   ListBox 10, 10, 150, 180, MyList(), .List1, 2
   CancelButton 42, 198, 40, 12
   OKButton 90, 198, 40, 12
   End Dialog
   
   
   Dim frame1 As GcodeFileDlgM
   
   
   ' Show the GcodeFile dialog
   button = Dialog(frame1)

     
     
  End If '***********************************************
   
End Sub   

Function DlgFuncL( controlID As String, action As Integer, suppValue As Integer)
   
   
   Select Case action
   Case 1 ' Initialize
   temp = Dir( "C:\LAVORI\GCODE\*.*" )
   count = 0
   While temp <> ""
   count = count + 1
   temp = Dir
   Wend
   Dim x() As String
   ReDim x(count)
   x(0) = Dir( "C:\LAVORI\GCODE\*.*" )
   For i = 1 To count
   x(i) = Dir
   Next i
   DlgListBoxArray "List1", x()
   
   Case 2 ' select
   If controlID = "OK" Then
   LoadFIle("C:\LAVORI\GCODE\" &DlgText("List1"))
   End If
   
   End Select
   
End Function

Function DlgFuncM( controlID As String, action As Integer, suppValue As Integer)
   
   
   Select Case action
   Case 1 ' Initialize
   temp = Dir( "C:\MACH3\GCODE\*.*" )
   count = 0
   While temp <> ""
   count = count + 1
   temp = Dir
   Wend
   Dim x() As String
   ReDim x(count)
   x(0) = Dir( "C:\MACH3\GCODE\*.*" )
   For i = 1 To count
   x(i) = Dir
   Next i
   DlgListBoxArray "List1", x()
   
   Case 2 ' select
   If controlID = "OK" Then
   LoadFIle("C:\MACH3\GCODE\" &DlgText("List1"))
   End If
   
   End Select
   
End Function

   



810
so the quick and easy check would be to hook a oszilloscope to the puls Input of the Controller.