Er zijn 4 reacties in dit onderwerp

[Kris]

'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 textUDR$ <> "" then print #comm, "^A010006^E1^L0^K0  TEST "; 'SEND data to com port
scan 'Check for input events
goto [loop]
end

Wat schrijf ik verkeerd om data te verzenden via de com1 poort?

[josk79]

Wat gaat er fout? Foutmelding?

Wordt de input$ wel goed ontvangen?
Ben je je er bewust van dat er voor textudr= een apostrope staat?
Wordt textudr wel ergens gevuld?
Etc....


Ps: Qbasic, wie kent het nog eigenlijk?

[pascalbianca]

Misschien heb je hier iets aan.: http://www.ehow.com/...write-port.html
Als dit niet helpt , wil ik gerust even in de boeken neuzen, heb namelijk nog de Qbasic boeken van vroeger.

[Kris]

Alsvast bedankt voor jullie reactie.
ik heb het gisteren nacht nog gevonden.
blijkbaar werkt het zo wel:

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

'if textUDR$ <> "" then goto [test]
scan 'Check for input events
goto [loop]


[test]
print #comm, "^A010006^E1^L0^K0  TEST "; 'SEND data to com port
goto [loop]

[pascalbianca]

Ah fijn te horen