ArduinoCroco

opencom #1, "COM3"
..................
closecom #1

' *********************************************************************
' Liaison serie / Arduino
' D'apres "coderJeff" sur le forum FreeBASIC
' https://www.freebasic.net/forum/viewtopic.php?f=18&t=27764#p262916
' *********************************************************************

const MAX_BUFFER = 40  ' Taille max de la chaine de caracteres

function opencom (n        as long,            _
                  COM_Port as string = "COM1", _
                  BaudRate as long   = 9600,   _
                  Parity   as string = "N",    _
                  DataBits as long   = 8,      _
                  StopBits as long   = 1) as boolean
  
   dim as string s
   dim as long res
  
   s = COM_Port & ":" & BaudRate & "," & Parity & "," _
       & DataBits & "," & StopBits & "," _
       & "CS0,DS0,CD0,RS"
  
   res = open com(s as #n)
   return cbool(res = 0)
end function

function closecom (n as long) as boolean
  return cbool(close(n) = 0)
end function

sub serial_print (n as long, s as string)
   print #n, s;
end sub

function serial_input_byte (n as long) as string
   if loc(n) > 0 then return input(1, #n)
end function

function serial_input (n as long, byref buffer as string) as boolean
   dim r as string
  
   ' read any response from Arduino
   do
      r = serial_read_byte(n)
      select case r

        ' end of response/string?
        case chr(10)
          return TRUE

        ' otherwise add to the buffer
        case else
          if len(buffer)  < MAX_BUFFER then buffer &= r
      end select
   loop until r = ""

   return FALSE
end function