Coms port and RAM disk

[mdijkens]

Yes, serial adapters over usb work fine in QB64pe.
Below the functions I created for this

Code: (Select All)

Errhandler: ' needed for ser.open% (ser$)

errorNum = Err: Resume Next



Function ser.open% (ser$)

  On Error GoTo Errhandler

  Open ser$ + ",N,8,1,BIN,CS0,DS0,RB8192" For Random As #88

  If errorNum = 0 Then serBytes$ = ser.read$

  On Error GoTo 0

  ser.open% = errorNum

End Function



Function ser.close$ ()

  ser.close$ = ser.read$

  Close #88

End Function



Sub ser.send (bytes$)

  Dim b As String * 1

  For i% = 1 To Len(bytes$)

    b = Mid$(bytes$, i%, 1)

    Put #88, , b

  Next i%

End Sub



Function ser.read$ ()

  Dim b As String * 1: resp$ = ""

  Do While Loc(88)

    Get #88, , b: resp$ = resp$ + b

  Loop

  ser.read$ = resp$

End Function