XProfan

Français

GDL

allô

writecom(handle&,string$)

peut sous WinME et Win98 ständig cela Programme abschmieren.
XP allez einwandfrei.

Getestet avec qui letzten Subscriptionslieferung de Xprofan 10
Kompilieren Marque Séparation

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&)

salut
Georg

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

[...]

02.06.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

GDL

allô Roland,

habe folgenden Code sur allen mir bekannten Rechnern avec NICHT WinXP Betriebssystem et Profan 8 jusqu'à zur letzten Subscribtionslieferung de X10 getestet.
dans allen Fällen hängt sich cela Programme chez writecom sur.qui Schnittstelle wird mais sans faute (erfolg%=0) ouvert.
sur Rechnern avec WinXP läufts einwandfrei.cela ganze fiel mir jusqu'à maintenant pas sur, là je toujours seulement avec qui RS232 lire habe.Einlesen allez aussi sous 95,98,ME.
Kompilieren Marque Séparation

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&à>