Attribute VB_Name = "Module1"
Option Explicit
'Programa para testear el envio y recepcion de datos
'desde el puerto serie com1 del BasixC24 hasta el PC
'con la ayuda de un radio modem. En el PC se utiliza un
'programa que envia una serie de comandos y muestra
'en la pantalla lo que devuelve el BasicX24.
'Recordar que no se puede utiliza Debug.Print para
'enviar datos al PC mediante radio modem porque da
'errores y los datos no llegan correctamente.
'(c) 2005 Pablo Pompa

  Dim InBuff(1 To 30) As Byte
  Dim OutBuff(1 To 30) As Byte
  Dim Comando As String
  Dim Orden(1 To 5) As Byte
  Dim Conta As Integer

Public Sub Main()
  Call OpenQueue(InBuff, 30)
  Call OpenQueue(OutBuff, 30)
  Call OpenCom(1, 19200, InBuff, OutBuff)
  Do
    Conta = GetQueueCount(InBuff)
    If Conta > 4 Then
      Call GetQueue(InBuff, Orden, 5)
      Comando = Chr(Orden(1)) & Chr(Orden(2)) & Chr(Orden(3)) & Chr(Orden(4)) & Chr(Orden(5))
      If Comando = "cmd01" Then
        Call PutQueueStr(OutBuff, "Recibido Comando 1" & Chr(13) & Chr(10))
        Call PutPin(26, 0)             'Enciende el led verde
      End If
      If Comando = "cmd02" Then
        Call PutQueueStr(OutBuff, "Recibido Comando 2" & Chr(13) & Chr(10))
        Call PutPin(26, 0)             'Enciende el led verde
      End If
      If Comando = "cmd03" Then
        Call PutQueueStr(OutBuff, "Recibido Comando 3" & Chr(13) & Chr(10))
        Call PutPin(26, 0)             'Enciende el led verde
      End If
      If Comando = "cmd04" Then
        Call PutQueueStr(OutBuff, "Recibido Comando 4" & Chr(13) & Chr(10))
        Call PutPin(26, 0)             'Enciende el led verde
      End If
      Call Delay(0.1)                  'Retardo para el envio
      Call ClearQueue(InBuff)          'Limpia el bufer de recepcion
      Call PutPin(26, 1)               'Apaga el led verde
    End If
  Loop
End Sub