XProfan

Español

GDL

¡Hola

writecom(handle&,cadena$)

lässt bajo WinME y Win98 ständig el Programa abschmieren.
XP va einwandfrei.

Getestet con el letzten Subscriptionslieferung de Xprofan 10
Kompilieren Marca Separación

cls
declare comi&,erfolg%,text&[60],daten$,name$,fehler%
==================================================================

proc empfangen

    name$=@ReadCom$(comi&, 1)
    @ComError(comi&)
    casenot name$="":return

    WhileNot name$ = ""

        name$=@ReadCom$(comi&, 1)
        @ComError(comi&)

    EndWhile

endproc

==================================================================

proc senden

    Folgenden Befehl Remen, dann kein Absturz unter WinME und Win98
    fehler%=WriteCom(comi&,daten$)
    ComError(comi&)

endproc

======================================================================
comi&=opencom("Com2:",4096,4096)
erfolg%=SetCom("COM2:9600,N,8,1")
daten$=chr$(255)

WhileLoop 50

    daten$=chr$(255)
    senden
    empfangen

EndWhile

waitinput
closecom>(comi&)

Servus
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

02.06.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hola Roland,

habe folgenden Code en allen me bekannten Rechnern con NICHT WinXP Betriebssystem y Profano 8 a a letzten Subscribtionslieferung de X10 getestet.
In allen Fällen hängt se el Programa en writecom en.El Schnittstelle se aber sin Fehler (erfolg%=0) geöffnet.
Auf Rechnern con WinXP läufts einwandfrei.Das todo fiel me a ahora no en, como Yo siempre sólo el RS232 eingelesen habe.Einlesen va auch bajo 95,98,ME.
Kompilieren Marca Separación

cls
declare komi&,erfolg%,daten$,fehler%
komi&=opencom("Com2:",2048,2048)
erfolg%=SetCom("COM2:9600,N,8,1")
print erfolg%
fehler%=WriteCom(komi&,"W")
print fehler%
ComError(komi&)
waitinput
closecom(komi&a>