ZBasic Forum

Posted: **02 August 2007, 13:02 PM**

Hey,
I'm trying to interface a ZBasic to a MaxSonarEZ1 (http://www.maxbotix.com/uploads/LV-MaxS ... asheet.pdf), and have been running into a rather annoying problem. Whenever I attempt to request a pulse stream and the first data bits reach the ZBasic, it resets itself, or sometimes just freezes. Something bad is clearly happening as the chip receives the pulses, I've tried transistor isolation so it's something more than over current. My code is below,
Thanks for your help,
Nathaniel

Code: Select all

'-----------------------------------------------------------------------------------------------------------------
Public SonarOQ&#40;1 to 2&#41; as byte                'Sonar Queues
Public SonarIQ&#40;1 to 25&#41; as byte
Public datain&#40;1 to 10&#41; as byte                   'Dump data bytes from queues here
Public erflag as boolean

Private const TX as Byte = 5                     'Connected to serial output of Sonar
Private const RX as Byte = 6                     'connected to input of sonar for requesting data

Sub Main&#40;&#41;

  Call OpenQueue&#40;SonarOQ, 2&#41;
  Call OpenQueue&#40;SonarIQ, 25&#41;

  Do
    Call ClearQueue&#40;SonarOQ&#41;                     'Clears the output queue
    Call ClearQueue&#40;SonarIQ&#41;                     'Clears the input queue

    Call DefineCom3&#40;TX, 0, bx0000_1000&#41;          


    Call OpenCom&#40;3, 9600, SonarIQ, SonarOQ&#41;

    Call PutPin&#40;RX, 1&#41;                           'Trigger read cycle
    Call Delay&#40;0.01&#41;
    Call PutPin&#40;RX,0&#41;

    Call GetQueue&#40;SonarIQ, DataIn, 5, 0.1, erflag&#41;

    'Program never reaches this point with power to the sonar

    Debug.Print cstr&#40;erflag&#41;                     'Serial transmit a success?
    Call Delay&#40;0.01&#41;
    Call CloseCom&#40;3, SonarIQ, SonarOQ&#41;
  Loop
End Sub

Posted: **02 August 2007, 21:18 PM**

Try the variation below. I increased the size of the output queue since queues require a minimum array size of 10 bytes. I also moved the DefineCom() and OpenCom() calls outside the loop - those only need to be done once.

There are some timing constraints described in the datasheet for the sonar device. For example, it requires 250mS after power up before it can take a reading.

You might want to modify the code, temporarily, to simply output the bytes that it receives. That way, you might get a better idea of what's happening.

Code: Select all

Public SonarOQ&#40;1 to 11&#41; as byte                  'Sonar Queues
Public SonarIQ&#40;1 to 25&#41; as byte

Public datain&#40;1 to 10&#41; as byte                   'Dump data bytes from queues here
Public erflag as boolean

Private const TX as Byte = 5                     'Connected to serial output of Sonar
Private const RX as Byte = 6                     'connected to input of sonar for requesting data

Sub Main&#40;&#41;
  ' initialize RX pin, allow time for LV Max Sonar initialization
  Call PutPin&#40;RX, 0&#41;
  Call Delay&#40;0.25&#41;

  ' initialize queues and serial channel
  Call OpenQueue&#40;SonarOQ, SizeOf&#40;SonarOQ&#41;&#41;
  Call OpenQueue&#40;SonarIQ, SizeOf&#40;SonarIQ&#41;&#41;
  Call DefineCom3&#40;TX, 0, bx0000_1000&#41;          
  Call OpenCom&#40;3, 9600, SonarIQ, SonarOQ&#41;

  Do
    Call ClearQueue&#40;SonarOQ&#41;                     'Clears the output queue
    Call ClearQueue&#40;SonarIQ&#41;                     'Clears the input queue

    Call PulseOut&#40;RX, 0.01, 1&#41;                   'Trigger read cycle

    Call GetQueue&#40;SonarIQ, DataIn, 5, 0.1, erflag&#41;

    Debug.Print cstr&#40;erflag&#41;                     'Serial transmit a success?
    Call Delay&#40;0.05&#41;
  Loop
  Call CloseCom&#40;3, SonarIQ, SonarOQ&#41;
End Sub

Posted: **03 August 2007, 7:52 AM**

Thanks for your help, similar changes seem to have fixed it although I still worry it's a more intermittent problem..

On another note I need to poll through 4 sensors using the same com channel (different input pins), so I assume I need to close the com line using the closecom command, then redefine it and reopen it (without reopening the queue), but nothing I've tried seems to work and the moment I close the com line it seems to completely stop working. I never had this problem with the basicX and I'm completly lost as to what I'm doing wrong,
Thanks,
Nathaniel

Posted: **03 August 2007, 8:04 AM**

shrimpy wrote:similar changes seem to have fixed it although I still worry it's a more intermittent problem.

If you're worried about this I would suggest going back to the original code and making the changes incrementally in order to identify which changes affected the result. With that information, we can probably determine whether there is an underlying problem or if the result was expected.

shrimpy wrote:I need to close the com line using the closecom command, then redefine it and reopen it (without reopening the queue), but nothing I've tried seems to work and the moment I close the com line it seems to completely stop working.

This is a known problem. See http://www.zbasic.net/forum/post-3551.html?#3551 for the workaround. We expect to release a VM update shortly that, among other things, addresses this issue.

ZBasic Forum

Problem Interfacing with MaxSonar EZ1

Problem Interfacing with MaxSonar EZ1