Springen naar inhoud


Tutorial info

  • Toegevoegd op: 20 mrt 2013 00:08
  • Bekeken: 1454
 


* * * * *
0 Beoordeling

string senden via com1 (in qbasic)

dag ,in het onderstaand prog lees ik data binnen via de com1 poort.
nu zou ik graag ook data(string) versturen maar dit lukt me niet.

is er iemand met een hint!
is geschreven in Qbasic

Alvast bedankt.

Geplaatst door Kris op20 mrt 2013 00:08
    ' DISPLAY
    '___________


    nomainwin

   WindowWidth = 400
    WindowHeight = 300
    texteditor #window.te, 0, 0, 391, 254 'The handle for our texteditor is #window.te
    graphicbox #window.gb, 800, 1, 10, 10
    open "UDR" for window as #window    'The handle for our window is #window
    print #window.gb, "when characterInput [getChar]"   'When the user presses a key go to [getChar]
    print #window, "trapclose [quit]"    'When the user closes our terminal window, go to [quit]
    print #window.te, "!autoresize";   'Tell the texteditor to resize with the terminal window
    print #window, "font courier_new 9";


    'Set the size of the communications buffer to 16K
    Com = 8192 * 2


    'Open communications port 1.  It's handle is #comm.
    open "COM1:9600,n,8,1" for random as #comm
    'open "COM1:9600" for random as #comm
    goto [loop]



    [loop]


    text$ = input$(#comm, lof(#comm))    'Get com port data
    if text$ <> "" then print #window.te, text$;    'Display com port data


if text$ <> "" then print #comm, "^A010006^E1^L0^K0  TEST ";    'SEND data to com port
    scan    'Check for input events


    goto [loop]

    end

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)