| |
| |
|
GDL | Salut,
kam aujourd'hui per Zufall puis, dass folgende Routine zwar den Empfangspuffer ausliest, mais pas leert.
seulement si Je l' ausgeremten partie dazunehme gibts keinen Pufferüberlauf.
KompilierenMarqueSéparationdeclare comi1&,erfolg%,comwert$
cls
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)
proc lesen
comwert$=@ReadCom$(comi1&,1)
@ComError(comi1&)
whilenot comwert$=
comwert$=@ReadCom$(comi1&,1)
@ComError(comi1&)
wend
closecom(comi1&)
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)
endproc
whilenot 0
lesen
wend
closecom()
je nahm toujours à, dass le nombre qui gelesenen marque, den Puffer um cette Wert wieder freigibt.
Kennt de euch quelqu'un une Befehl zum Puffer effacer?
salut
Georg |
|
| |
| |
| |
|
|
GDL | Salut,
habe den Code eh bien avec Aider de Frank Steinberg modifiziert.maintenant gehts.
KompilierenMarqueSéparationdeclare comi1&,erfolg%,comwert$,SSuccess&
DEF @PurgeComm(2) !KERNEL32,PurgeComm
cls
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)
proc lesen
comwert$=@ReadCom$(comi1&,1)
@ComError(comi1&)
whilenot comwert$=
comwert$=@ReadCom$(comi1&,1)
@ComError(comi1&)
wend
closecom(comi1&)
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)
LET SSuccess& = @PurgeComm(comi1&,8)
drawtext 20,50,Erfolg : +str$(ssuccess&)
endproc
whilenot 0
lesen
wend
closecom(i1&)
Roland, je serait mir pour XProfan11 s'il te plaît Profaninterne Löschbefehle pour den Lese et Schreibpuffer désirer.merci.
salut
Georg |
|
| |
| |
| |
|
|
RGH | GDL
Roland, je serait mir pour XProfan11 s'il te plaît Profaninterne Löschbefehle pour den Lese et Schreibpuffer désirer.merci.
allô Georg,
c'est une gute concept! je werde cela juste la fois dans den passenden Forumsbereich (Propositions pour künftige XProfan-Versionen) kopieren!
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 09.03.2007 ▲ |
|
| |
|
(525)
Deutsch
English
Français
Español
Italia