Springen naar inhoud


- - - - -
Solved

Data Verzenden Via Com1 In Qbasic

Data COM1 Qbasic

  • Log in a.u.b. om te beantwoorden
Er zijn 4 reacties in dit onderwerp

#1 Kris

Kris

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 12 apr 2013 02:55
Inzender

Geplaatst op 20 maart 2013 - 00:38

'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?

#2 josk79

josk79

    Master Developer

  • Leden
  • PipPipPipPipPip
  • 614 berichten
    Laatst bezocht 07 apr 2020 23:55

Geplaatst op 20 maart 2013 - 05:25

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?


#3 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 20 maart 2013 - 07:45

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.

#4 Kris

Kris

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 12 apr 2013 02:55
Inzender

Geplaatst op 20 maart 2013 - 21:48

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]


#5 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4382 berichten
    Laatst bezocht 19 sep 2022 18:25
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 20 maart 2013 - 22:15

Ah fijn te horen :)





Ook met taq Solved, Data, COM1, Qbasic voorzien

0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


[Solved] 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)