Messages

2251

VB and the development of wizards / Re: Macro not working if called with M code

« on: June 25, 2015, 07:14:54 AM »

Hi,

by the way your code looks like a kind of homing/probing function.

why don't you use G28 or G31 (or M31 from CSMIO homepage)
for this job.

this macro solution will be imprecise anyway.

Thomas

2252

VB and the development of wizards / Re: Macro not working if called with M code

« on: June 25, 2015, 06:40:08 AM »

Hi,

modified yiur code a little bit. Hopefuly i can test tonight on my CSMIO machine.

Thomas

Sub Main()

  SoftLimitsOff
 
  DoOEMButton(204) 

  Xaxis = 0
  Yaxis = 1
  Zaxis = 2
  Plus = 0
  Minus = 1
 
  SetOEMDRO(3,10)
 

  If GetCsmioIn(6) = False Then
    JogOn(Zaxis,Plus)
  End If
 
  Do
 
    If GetCsmioIn(6) = True Then
      Exit Do
    End If
   
  Loop
   
  JogOff(Zaxis) 
 
  Sleep(1000)

 
  If GetCsmioIn(6) = True Then
     JogOn(Zaxis,Minus)
  End If
 
  Do
 
    If GetCsmioIn(6) = False Then
       Exit Do
    End If
        
  Loop
   
  JogOff(Zaxis) 
 
  Sleep(2000)
   
 
  DoOEMButton(141)
 

  Sleep(2000)
 
 
  Code("G01 Z-10 F1000")
  Sleep(2000)

End Sub

2253

VB and the development of wizards / Re: Macro not working if called with M code

« on: June 25, 2015, 05:26:34 AM »

Hi,

let us see your macros.

Thomas

2254

CS-Lab / Re: Retrofit CNC Bulleri FPM 2813-Osai controll with CSMIO-IP-A

« on: June 22, 2015, 03:47:46 PM »

Hi Emil,

any new info's ??

yust a question.

Thomas

2255

Brains Development / Re: compare immediate not working

« on: June 22, 2015, 03:36:39 PM »

Hi George,

7) If you are still struggling and needs to post for help hopefully Thomas or one of the other regular contributors will answer your call.

   I don't know where we would be without them.

Thanks Guys

George

Thank You

Thomas

2256

Brains Development / Re: compare immediate not working

« on: June 22, 2015, 02:52:05 AM »

Hi George,
back again.

in VB it would be easy, am i am sure that it will work
like this.

' tool position 1
If (IsActive(INPUT1) And IsActive(INPUT2) And IsActive(INPUT3) And Not IsActive(INPUT4)) Then
   SetCurrentTool( 1 )
End If

Thomas

2257

Brains Development / Re: compare immediate not working

« on: June 18, 2015, 04:38:10 PM »

Hi George,

i will be offline for a couple of day's.
if after this "day's" nobody got a brain
"solution" we will try to get this working
in VB.

Thomas

2258

General Mach Discussion / Re: feedrate changing after spindle stop part 2

« on: June 18, 2015, 11:24:54 AM »

Hi Fred,

sorry  i will be offline for a few days

Thomas

2259

Brains Development / Re: compare immediate not working

« on: June 18, 2015, 11:22:17 AM »

Hi,

i am not sure how it is done in brain.
i only know in VB script it is

SetCurrentTool( ToolNew )

Regards Thomas

2260

Brains Development / Re: compare immediate not working

« on: June 17, 2015, 04:55:01 PM »

Hi George,


for the moment i am on the road, that the (single) brain is to long.
so i would prevere to split this brain into two brains.
brain one for tool 1-4
brain two for tool 5-8

in my very back reminds there is soomething about
to "long" brains.

Thomas