| |
| |
|
GDL | ¡Hola,
kam heute por Zufall darauf, dass folgende Rutina zwar el Empfangspuffer ausliest, pero no leert.
Nur si yo el ausgeremten Teil dazunehme gibts no Pufferüberlauf.
KompilierenMarcaSeparacióndeclare 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()
Yo nahm siempre a, dass el número el gelesenen Signo, el Puffer en esta Valor otra vez freigibt.
Kennt de euch alguien Befehl para Puffer löschen?
Servus
Georg |
|
| |
| |
| |
|
|
GDL | ¡Hola,
habe el código nun con Ayuda de Franco Steinberg modifiziert.Jetzt gehts.
KompilierenMarcaSeparacióndeclare 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, Yo sería me para XProfan11 Por favor, Profaninterne Löschbefehle para el Lese y Schreibpuffer wünschen.Gracias.
Servus
Georg |
|
| |
| |
| |
|
|
RGH | GDL
Roland, Yo sería me para XProfan11 Por favor, Profaninterne Löschbefehle para el Lese y Schreibpuffer wünschen.Gracias.
¡Hola Georg,
el es una gute Concepto! Yo voluntad el igual veces en el passenden Forumsbereich (Propuestas para künftige XProfan-Versionen) kopieren!
Saludo
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 ▲ |
|
| |
|
(1.112)
Deutsch
English
Français
Español
Italia