Functional overview

[Richard Cullin]

amazing how easy it looks after you figure it out

I will let you know if I ever get there

slight change used tableCount()  for tx loop limit
I will leave spindle off/on  as the are since the data will never change

Code: Select all

// Library Vfd-Spindle 
// Created  Wednesday, January 04, 2017 
// Author  rc       -- Do not edit above this line
  
 //  Enter Global vars below this line. 
//  the librarian no matter where they are, but its easier 
//  to find and edit them in one spot.
   
   
   
//  vfd stuff
   
global   myser = Serial();
 
 
// 
global  Vfd_Open = function()
{
myser.Open(6,9600);
myser.SendData("123");
print( "VFD opened"); 
SpindleSpeed(5500);
};
 
//this is a  HUANYANG vfd   control, 
//it will use rs485  to control a spindle
//on/off spindle, and speed 

global SpindleOn = function()
{
    vfd={0x01,0x03,0x01,0x01,0x31,0x88}; 
    myser.Table = vfd;
    myser.SendTable();
    print("Vfd Spindle was turned on");
    print("Set to Frequency " + GlobalGet("SpindleSpeed"));
};   
 
//this is a  HUANYANG vfd   control, 
//it will use rs485  to control a spindle
//on/off spindle, and speed  

global SpindleOff = function()
{
      
    vfd= table(0x01,0x03,0x01,0x08,0xF1,0x8E); 
    myser.Table = vfd;
    myser.SendTable();
    print("Spindle speed zeroed");
    
};  
 
 
global SpindleSpeed = function( speed )
{
    if( Engine.GetSpindleState() != 0)
     {
      CRC=0xffff;
      print("speed set to " + speed); 
      vfd=table(0x01,0x05,0x03,0,0,0); 
      freq=speed/55.0;
      freq=freq*100;
      vfd[3]=ToInt(freq/256);
      vfd[4]=ToInt(freq%256);  
      print("Frequency  set to " + freq );
&nbsp; &nbsp; &nbsp; for (inx=0;inx<tableCount(vfd);inx+=1)
&nbsp; &nbsp; &nbsp; {
&nbsp; &nbsp; &nbsp; myser.SendHex(vfd[inx]);
&nbsp; &nbsp; &nbsp; CRC=Crc16(CRC,vfd[inx]);
&nbsp; &nbsp; &nbsp; };
&nbsp; &nbsp; &nbsp; print("the CRC " + CRC);
&nbsp; &nbsp; &nbsp; myser.SendHex(ToInt(CRC/256));
&nbsp; &nbsp; &nbsp; myser.SendHex(ToInt(CRC%256));
&nbsp; &nbsp;  };
 
};&nbsp;  
 
// calculate a ccitt 16 bit crc on byte at a time
// preset crc to 0xffff to initialise a new calc



global&nbsp; Crc16 = function(crc,byte_in)
{
 //print("CRC " + byte_in );
 crc = crc ^&nbsp; byte_in ;
&nbsp; &nbsp; &nbsp; for (c=0;c<8;c+=1){
&nbsp; &nbsp; &nbsp; &nbsp;  if (crc&1)
&nbsp; &nbsp; &nbsp; &nbsp;  { 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  crc= ((crc>>1) ^0xa001 )&nbsp;  ;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }
&nbsp; &nbsp; &nbsp; &nbsp;  else
&nbsp; &nbsp; &nbsp; &nbsp;  {
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  crc= crc>>1;
&nbsp; &nbsp; &nbsp; &nbsp;  };
&nbsp; &nbsp; &nbsp;  };
return ToInt(crc);
};

[Ya-Nvr-No]

YaNvrNo helps me a tremendous amount in primary testing , Ive crashed him hundreds of times.. (probably thousands..), so I
really have to hand it to him for stamina.

Thanks Art, but I'm closer to a "glutton for punishment".

Admit I pushed you steadily with feedback, ideas and questions, as I knew that we both wanted a dedicated CNC laser controller. Then onto a robust toolbox of goodies including scripting to develop out of the box concepts for experimenting. The big plus is you have taught us a lot of things we never would have experienced without your creative abstract thinking, persistence and ability to bring it to life.

Still have a growing wish list. So we all are not done yet.  :D

Craig

[Richard Cullin]

had to make some more changes , vfd was not happy with  the data stream from setspeed  for some reason [there was 2 or 3 mS gaps between bytes]
would make a crctable function a nice feature
can't figure how to add elements to a table yet either ,that would be useful



this is much better

Code: Select all

// Library Vfd-Spindle 
// Created  Wednesday, January 04, 2017 
// Author  rc       -- Do not edit above this line
  

   
   
//  vfd stuff
//  the rs485 port   
global   myser = Serial();




 
 
// open and init the port 


global  Vfd_Open = function()
{
myser.Open(7,9600);
myser.SendData("123");
print( "VFD opened"); 

};
 
//this is a HUANYANG vfd spindle control, 
//it will use only rs485 port
//to control a the spindle
//on/off spindle, on or off and speed

global SpindleOn = function()
{
    
    vfd={0x01,0x03,0x01,0x01,0x31,0x88}; 
    myser.Table = vfd;
    myser.SendTable();
    print("Vfd Spindle was turned on");
    print("Set to Frequency " + GlobalGet("SpindleSpeed"));
};   
 
//this is a HUANYANG vfd spindle control, 
//it will use only rs485 port
//to control a the spindle
//on/off spindle, on or off an speed
 
global SpindleOff = function()
{
      
    vfd= table(0x01,0x03,0x01,0x08,0xF1,0x8E); 
    myser.Table = vfd;
    myser.SendTable();
    print("Spindle speed zeroed");
    
};  
 

//this is a HUANYANG vfd spindle control, 
//it will use only rs485 port
//to control a the spindle
//on/off spindle, on or off an speed
 
global SpindleSpeed = function( speed )
{
 
      CRC=0xffff;
      print("speed set to " + speed); 
      vfd=table(0x01,0x05,0x03,0,0,0,0,0); 
      freq=speed/55.0;
      freq=freq*100;
      vfd[3]=ToInt(freq/256);
      vfd[4]=ToInt(freq%256);      
      print("Frequency  set to " + freq );
&nbsp; &nbsp; &nbsp; for (inx=0;inx<(tableCount(vfd)-2);inx+=1)
&nbsp; &nbsp; &nbsp; {
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CRC=Crc16(CRC,vfd[inx]);
&nbsp; &nbsp; &nbsp; };
&nbsp; &nbsp; &nbsp; // print("the CRC " + CRC);
&nbsp; &nbsp; &nbsp; vfd[7]=ToInt(CRC/256);
&nbsp; &nbsp; &nbsp; vfd[6]=ToInt(CRC%256);
&nbsp; &nbsp; &nbsp; myser.Table = vfd;
&nbsp; &nbsp; &nbsp; myser.SendTable();
};&nbsp; 


// calculate a ccitt 16 bit crc on byte at a time
// preset crc to 0xffff to initialise a new calc


 
 
global&nbsp; Crc16 = function(crc,byte_in)
{
 //print("CRC " + byte_in );
 crc = crc ^&nbsp; byte_in ;
&nbsp; &nbsp; &nbsp; for (c=0;c<8;c+=1){
&nbsp; &nbsp; &nbsp; &nbsp;  if (crc&1)
&nbsp; &nbsp; &nbsp; &nbsp;  { 
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  crc= ((crc>>1) ^0xa001 )&nbsp;  ;
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }
&nbsp; &nbsp; &nbsp; &nbsp;  else
&nbsp; &nbsp; &nbsp; &nbsp;  {
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;  crc= crc>>1;
&nbsp; &nbsp; &nbsp; &nbsp;  };
&nbsp; &nbsp; &nbsp;  };
return ToInt(crc);
};
 

 
 
 

[Ya-Nvr-No]

How about something like this

Code: Select all

global SpindleSpeed = function( speed )
{
      CRC=0xffff;
      print("speed set to " + speed);
      vfd={0x0,0x0,0x0,0x0,0x0,0x88,0x0,0x0,0x0}; 
      vfd[0]=0x01;
      vfd[1]=0x05;    
      vfd[2]=0x03;   
      freq=(speed/55.0)*100;
      vfd[3]=ToInt(freq/256);
      vfd[4]=ToInt(freq%256);    
      FreeSetSpeed( MySpindleAxis, speed);
      print("Frequency set to : " + freq ); 
&nbsp; &nbsp; &nbsp; for (inx=0;inx<6;inx+=1)
&nbsp; &nbsp; &nbsp; {
&nbsp; &nbsp; &nbsp; &nbsp; print("vfd ",vfd[inx]);
&nbsp; &nbsp; &nbsp; &nbsp; CRC=Crc16(CRC,vfd[inx]);
&nbsp; &nbsp; &nbsp; }
&nbsp; &nbsp; &nbsp; print("the CRC " + CRC);
&nbsp; &nbsp; &nbsp; vfd[6]=ToInt(CRC%256);
&nbsp; &nbsp; &nbsp; vfd[7]=ToInt(CRC/256);
&nbsp; &nbsp; &nbsp; for (inx=0;inx<8;inx+=1)
&nbsp; &nbsp; &nbsp; {
&nbsp; &nbsp; &nbsp; &nbsp; print("the vfd["+ inx + "] " + vfd[inx]);
&nbsp; &nbsp; &nbsp; }
&nbsp; &nbsp; &nbsp; myser.Table = vfd;
&nbsp; &nbsp; &nbsp; myser.SendTable();
};&nbsp;  

[ArtF]

Hi:

>>can't figure how to add elements to a table yet either ,that would be useful

  To add, just do it.

ex:

vfd = { 1,2,3 };
vfd[7] = 6;

//you now have 8 elements in vfd, the ones not set are NULL.
// 1,2,3,NULL,NULL,NULL,NULL,6;

Art

[Richard Cullin]

thanks guys
adding elements  like this works perfectly

Code: Select all

global SpindleSpeed = function( speed )
{
 
      CRC=0xffff;
      print("speed set to " + speed); 
      //FreeSetSpeed( MySpindleAxis, speed);
      vfd=table(0x01,0x05,0x03);
      freq=speed/55.0;
      freq=freq*100;
      vfd[3]=ToInt(freq/256);
      vfd[4]=ToInt(freq%256); 
      vfd[5]=0;
      print("Frequency  set to " + freq );
&nbsp; &nbsp; &nbsp; for (inx=0;inx<tableCount(vfd);inx+=1)
&nbsp; &nbsp; &nbsp; {
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CRC=Crc16(CRC,vfd[inx]);
&nbsp; &nbsp; &nbsp; };
&nbsp; &nbsp; &nbsp; // print("the CRC " + CRC);
&nbsp; &nbsp; &nbsp; vfd[7]=ToInt(CRC/256);
&nbsp; &nbsp; &nbsp; vfd[6]=ToInt(CRC%256);
&nbsp; &nbsp; &nbsp; myser.Table = vfd;
&nbsp; &nbsp; &nbsp; myser.SendTable();
};&nbsp; 
 

if I wanted to add a speed dro  that read the spindle freq say 2 times / sec , are there any 'timers' or such available to schedule calls to dro update function

[Richard Cullin]

just to complete things the system call back script was altered also as below

Code: Select all

// Library SystemCallBacks 
// Created  Thursday, December 31, 2015 
// Author  Art       -- Do not edit above this line
  
//  Enter Global vars below this line. 
 
 
   
 
// This script will be called 
//whenever the system is going from 
//Enabled to Disable. It is called after the 
// system shuts down motion.
 
global OnDisable = function()
{

  myser.Close();   // shut vfd port
 
  print( "--System -- System Disabled.");
  //shut off any spindle since I use one..
  if( lookup("SpindleOff")) { SpindleOff(); };
  //shut down any other Estop process here..
};
 
 
//This script is called whenever 
//the system is going from disabled to
//enabled. It is called before removing Estop 
//conditions.
 
global OnEnable = function()
{

   Vfd_Open();  //  open vfd port

   print( "--System -- System enabling.");
};
 
//This script is called whenever 
//the user presses RUN if the run was allowed
 
global OnRun = function()
{
   
   print( "--System -- System about to run.");
};
 
//This script is called whenever 
//the user zeroes an axis, axis is a bitfield
//value, bit 1 is axis 1, bit 2 is axis 2....
//do not change the zero here, that would
//cause an infinite loop
 
global OnZero = function( axis )
{
   print( "--System -- User has zeroed an axis"  );
};
 
//This script is called whenever 
//the user homes an axis, axis is a bitfield
//value, bit 1 is axis 1, bit 2 is axis 2....
//called after homing and zeroing
 
global OnHome = function( axis )
{
   print( "--System -- User has homed an axis" );
};
 
//This script is called whenever 
//the user regens the toolpath
 
global OnRegen = function()
{
   print( "--System -- User has Regened the toolpath.");
};
 
//This script is called whenever 
//the Scripting system has reset and 
// reloaded all scripts. You may do additional 
// startup tasks here.
 
global OnAllScriptsLoaded = function()
{
   print( "--System -- System has reset Scripting system.");
};
  

[ArtF]

Hi Richard:

  Well, when it comes to timers theres a couple of ways. Sleep releases the thread and uses no system resources, the thread
goes to sleep until the time set. So sleep(1); will return to the program and things run until at least 1 second has gone by, and it returns.

So a routine like

while(1)
{
  SpindleFeed =...
  sleep(1);
}

  will run forever..updateing a dro every second.

if its a dro with motion, you can use blocks.

block("MotionUpdate"); is the same as saying sleep until an axis moves..but will be periodically called
every few seconds I believe  even if axis dont move..just to keep things in sync.

or you can use your own blocks.

block("MyUpdate"); will put a script to sleep until some other script calls
signal("MyUpdate");

  The combination of those two techniques handle almost any timing requirement..other than
reading time. I think theres a tick command in there.. Ill have to check..

Art

[Richard Cullin]

first try at getting some data back from vfd ,although the the vfd accepts the cmd and replies accordingly
myser.ReadData( 8 ) returns nothing  :-\

[the vfd takes at least 8mS to reply] see  pic for  cmd and response


global GetVfdSpeed = function( )
{

   vfd={0x01,0x04,0x03,0x01,0,0,0xA1,0x8E};
   myser.Table = vfd;
   myser.SendTable();
   sleep(1);
   string = myser.ReadData( 8 );
   print(string);
   vfdrpm=(ToInt(string[4])*256+ToInt(string[5]))*55/100;
   print("Rpm  read " +  vfdrpm );
   return vfdrpm;
};

[ArtF]

Check if myser.DataWaiting() is a value.

as a test maybe

while( !myser.DataWaiting() ) { yield()};
print( myser.DataWaiting() );
str = myser.GetData(8);
print( str );

just out of curiousity, it may tell me whats failing. I suspect I need to add a
GetHexData function..

Art

[Richard Cullin]

buff depth 19 
  Script MCode10() called 
attempt to call non function type

unknown(75) : str = myser.GetData();

callstack..
unknown(75): GetVfdSpeed
unknown(23): MCode10
unknown(1): __main
 
Variable ScriptError calls with current:1.0000


from  this
global GetVfdSpeed = function( )
{

    vfd={0x01,0x04,0x03,0x01,0,0,0xA1,0x8E};
    myser.Table = vfd;
    myser.SendTable();
    //sleep(1);

while( !myser.DataWaiting() ) { yield();};
print("buff depth " + myser.DataWaiting() );
str = myser.GetData();
print( "buffer "+str );




    string = myser.ReadData( 8 );
    print("got this " + string);
    vfdrpm=(ToInt(string[4])*256+ToInt(string[5]))*55/100;
    print("Rpm  read " +  vfdrpm );
    return vfdrpm;
};

[Richard Cullin]

buff depth 8 
got this  
buff depth now 0 
  Script MCode10() called 
operator getind bad operand int for string

unknown(84) :    vfdrpm=(ToInt(string[4])*256+ToInt(string[5]))*55/100;

callstack..
unknown(84): GetVfdSpeed
unknown(23): MCode10
unknown(1): __main
 
Variable RunState calls with current:1.0000
Variable InScript calls with current:0.0000
Variable ScriptError calls with current:1.0000
Variable Execute calls with current:0.0000


from code

global GetVfdSpeed = function( )
{

    vfd={0x01,0x04,0x03,0x01,0,0,0xA1,0x8E};
    myser.Table = vfd;
    myser.SendTable();
    //sleep(1);

while( !myser.DataWaiting() ) { yield();};
print("buff depth " + myser.DataWaiting() );
//str = myser.GetData();
//print( "buffer "+str );




    string = myser.ReadData( myser.DataWaiting() );
    print("got this " + string);
print("buff depth now " + myser.DataWaiting() );
    vfdrpm=(ToInt(string[4])*256+ToInt(string[5]))*55/100;
    print("Rpm  read " +  vfdrpm );
    return vfdrpm;
};

[ArtF]

Richard:

  I think, just as sending text is kinda special, so too is the difference between recieving text, and receiving data.
Ill change the code so that the myser.Table returns the data , itd be much easier to access.

Art

[Richard Cullin]

thanks art

[ArtF]

Richard:

 New version is online, if you call myser.ReadData() to get a string, at the same time
myser.Table is filled with integers of the incoming values. So to use byte 6,7 youd use

str = myser.ReadData( 8 );
byte6 = myser.Table[6];
byte7 = myser.Table[7]; //assuming byte 0 numbering of course..

Art