Welcome, Guest. Please login or register.
Did you miss your activation email?
July 31, 2014, 04:38:26 PM

Login with username, password and session length
Search:     Advanced search
* Home Help Search Calendar Links Login Register
  Show Posts
Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 »
71  Mach Discussion / VB and the development of wizards / Re: For Loops inside of If Statement Help Please on: February 13, 2010, 11:10:04 AM
Acualy your code is fine... you have a
Code:
_"FLAME OUT WARNING
which means you are putting it on the next line Wink
Take out the
Code:
_
and it will be right.
72  Mach Discussion / General Mach Discussion / Re: reverse run on: February 13, 2010, 11:00:00 AM
After the Feed hold issue a Stop command and it should work fine
73  Mach Discussion / VB and the development of wizards / Re: HELP!! I'm about to pull my hair out on: February 08, 2010, 08:44:35 AM
Could you also try to use
Code:
Sleep(250)
rather then
Code:
Code  "G4 P0.25" 'Pause for Dro to update.
74  Mach Discussion / General Mach Discussion / Re: m30 question on: February 04, 2010, 09:33:52 AM
You would need to use: M1030.m1s to detect a M30 call.  Wink
75  Mach Discussion / General Mach Discussion / Re: Interfacing Mach3 with my App on: January 23, 2010, 03:25:58 AM
Code:
DoOEMButton(706)
76  Mach Discussion / VB and the development of wizards / Re: MacroPump Doesnt Run on: January 17, 2010, 09:47:43 PM
Great to hear!
I wasn't sure that was what you wanted, but you can make changes and maybe have it force it back to MM mode or something Smiley
77  Mach Discussion / VB and the development of wizards / Re: MacroPump Doesnt Run on: January 17, 2010, 05:34:59 PM
I give the user 2 seconds to change it to MM after the estop is hit or it estops the sytem again.

Code:
Dim Inch_mode As Boolean
Dim Estopped As Boolean

Estopped = GetOEMLED(800)
Inch_mode = GetOEMLED(801)

If(Inch_mode)Then

'Is the sytem estopped already
If Not(Estopped)Then
'Estop system
DoOEMButton(1021)

End If

While(GetOEMLED(800))
MESSAGE "Went Into Inch Mode:"&i
sleep(250)
Wend

'Give the user time to change to mm?
Sleep(2000)

End If
78  Mach Discussion / VB and the development of wizards / Re: MacroPump Doesnt Run on: January 17, 2010, 01:50:06 PM
Hi Phil,

Let me get a better idea of sequence of events.

If the machine goes into Inch mode, no matter what it is doing Estop(reset) the system, send a message about being in Inch mode and wait for a "reset" before removing the message?
Are you using the VB popup message display or the Mach label message display?
Jason
79  Mach Discussion / VB and the development of wizards / Re: MacroPump Doesnt Run on: January 16, 2010, 05:47:17 PM
Great,

You can put a sleep in there to clear the message.

Code:
Dim Inch_LED_boolean As Boolean
Inch_LED_boolean = GetOEMLED(801)
If(Inch_LED_boolean = True)Then
MESSAGE " Went Into Inch Mode"
Sleep(2000)'2 seconds
MESSAGE ""
End If


...you might want to use a userlabel or ticker as well as well.

In Screen4 you'll want to drop a Userlabel or ticker:

Code:
SetUserLabel 12, "You must enter a whole number of holes"
SetTicker 205, "This is a very long error message because you seem to have done something very silly"

80  Mach Discussion / VB and the development of wizards / Re: MacroPump Doesnt Run on: January 15, 2010, 12:21:01 PM
You'll need to use "GetOEMLED"... but more important use "True/False":

Code:
Dim Inch_LED_boolean As Boolean
Dim Inch_LED_interger As Integer

Inch_LED_boolean = GetOEMLED(801)
Inch_LED_interger = GetOEMLED(801)

MsgBox "boolan "&Inch_LED_boolean
MsgBox "Number "&Inch_LED_interger

'Number way
If(Inch_LED_interger = -1)Then
MsgBox "Number lookup"
End If

'Boolean way
If(Inch_LED_boolean = True)Then
MsgBox "boolean lookup"
End If

'Boolean way with out  ==
If(Inch_LED_boolean)Then
End If

'Boolean way with out  ==
If Not(Inch_LED_boolean)Then
End If
Pages: « 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 »
Powered by MySQL Powered by PHP Powered by SMF 1.1.19 | SMF © 2013, Simple Machines Valid XHTML 1.0! Valid CSS!