XProfan

Yo bin me sicher el Georg hier helfen kann...

Pedro
Santos

¡Hola

Schreibe überall anstatt id% mejor id$ also una cadena variable

Gruss

Pedro

Windows XP Home
Xprofan 10

Herbert
N.

¡Hola
Des con el String is net des problem ,oder denkst Si es usted el lo otro probleme verursacht ? Hab al Anfang brav siempre COM1 eingetragen ,des con id% tener de el Ayuda ( Beispielprogramm ) si Yo veces el Anschluss ändern voluntad ( bin faul y schreib net gern ......)

aber trotzdem Gracias

Herbert
N.

Und wer is Georg??

Bzw como kann I, con ihm Kontakt aufnehmen diesbezüglich?

gruss Herbert

Jac
de
Lad

1. Hier lacht niemand, Yo tener incluso ewig Profano² 5.0 benutzt.

2. Usted hast en deinem Ver código fuente einiges con Variables vertauscht:
- id$ anstelle des Handles el Schnittstelle angegeben (siehe ReadCom, WriteCom, Comerror)
- id$ oft en Gänsefüßchen gesetzt (macht uno con Variables nie!)
- id$ wurde como Integer declariert (muss aber una String ser)

Hier veces el korrigierte Ver código fuente (si él funktioniert kann Yo por desgracia, no sagen, como Todavía nie con Com gearbeitet habe y no Com-Karten habe):
Kompilieren Marca Separación

Declare H%,E%,A$,B$,C$,D$,E$,F$,G$
Declare Init$,Kanal1$,id$,Pause&
@Closecom(h%)

Proc Pause Unnötig, da besser durch Sleep!

    Let Pause& = &Gettickcount
    Let Pause& = @Add(Pause&,100)

    While @Gt(Pause&,&Gettickcount)

    Wend

Endproc

Font 1
Let id$ = COM1
Let H% = @Opencom(id$,1024,1024)
@Setcom(Add$(id$,:19200,N,8,1))
@Setcomext(id$,10,0,0,$0001,0,0)
Let F$ = @Readcom$(id$,4)
Pause
Sleep 100
Let G$ = @Comerror(id$)
Pause
Sleep 100
Let Init$=Chr$(1),Chr$(5),Chr$(2),Chr$(6)
Let Kanal1$=Chr$(3),Chr$(5),Chr$(8),Chr$(14)
Print  Fehler : ;@Comerror(h%)
@Writecom(H%,Init$)
Sleep 100
@Readcom$(h%,4)
Sleep 100
@Writecom(H%,Kanal1$)
Sleep 100
Print Init$
Print id$
Let F$ = @Readcom$(h%,4)
Sleep 100
Print  Fehler : ;@Comerror(h%)
Print  Gelesen : ;F$
Sleep 100
Print  Gelesen : ;@Readcom$(h%,4)
Sleep 100
@Closecoms=s2>(h%)

Yo hoffe, el hilft dir más!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

GDL

¡Hola,

hier mein Testprogramm
Kompilieren Marca Separación

cls
declare comm3%,fehler%,anzahl%,daten$

proc raus

    comm3%=@OpenCom(COM1,2048,2048)
    fehler%= @SetCom(COM1:9600,N,8,1)
    daten$=@AnsiToOem$(5)
    anzahl%=@WriteCom(comm3%,daten$)
    fehler%=@ComError(comm3%)
    daten$=ReadCom$(comm3%,1)
    case daten$ <> :Print daten$
    sleep 100
    fehler%=@ComError(comm3%)
    daten$=@OemToAnsi$(daten$)
    case daten$=:daten$=nichts
    drawtext 10,100,Schnittstellenfehler senden : +str$(fehler%)
    drawtext 10,120,Gesendete Datenpakete    : +str$(anzahl%)
    drawtext 10,140,Empfangene Datenpackete  : +daten$
    drawtext 10,160,Schnittstellenfehler empfangen : +str$(fehler%)
    @CloseCom(COMM3%)

endproc

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

whilenot 0

    raus

wend

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

[...]

GDL

¡Hola
hier veces kurz ausgebessert
Kompilieren Marca Separación

Declare H%,E%,A$,B$,C$,D$,E$,F$,G$
Declare Init$,Kanal1$,Id%,Pause&
@Closecom(COM1)

Proc Pause

    Let Pause& = &Gettickcount
    Let Pause& = @Add(Pause&,100)

    While @Gt(Pause&,&Gettickcount)

    Wend

Endproc

Font 1
Let Id% = COM1
Let H% = @Opencom(COM1,1024,1024)
@Setcom(COM1:19200,N,8,1)
@Setcomext(COM1,10,0,0,$0001,0,0)
Let F$ = @Readcom$(H%,4)
Pause
Let G$ = @Comerror(h%)
Pause
Let Init$=Chr$(1),Chr$(5)Chr$(2),Chr$(6)
Let Kanal1$=Chr$(3),Chr$(5),Chr$(8),Chr$(14)
Print  Fehler : ;@Comerror(h%)
@Writecom(H%,Init$)
Pause
@Readcom$(h%,4)
Pause
@Writecom(H%,Kanal1$)
Pause
Print Init$
Print h%
Let F$ = @Readcom$(h%,4)
Pause
Print  Fehler : ;@Comerror(h%)
Print  Gelesen : ;F$
Pause
Print  Gelesen : ;@Readcom$(h%,4)
Pause
@Closecom(h%)
waitinput

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

[...]

GDL

Nochmal Yo

lass dich Por favor, no por COM3 irritieren, habe hay mein Versuchsboard hängen.

Posesiones hay el Compiler así eingestellt, dass el a empfangene Byte en eins aumenta se y luego zurückgeschickt se.Su Daten voluntad zwar gesendet, pero no erkannt.Erst el Daten en el Sinestar encargado schleife voluntad erkannt.
Kompilieren Marca Separación

Declare H%,E%,A$,B$,C$,D$,E$,F$,G$
Declare Init$,Kanal1$,Id%,Pause&,anzahl%
@Closecom(COM1)

Proc Pause

    Let Pause& = &Gettickcount
    Let Pause& = @Add(Pause&,100)

    While @Gt(Pause&,&Gettickcount)

    Wend

Endproc

Font 1
Let Id% = COM1
Let H% = @Opencom(COM3,1024,1024)
@Setcom(COM3:19200,N,8,1)
@Setcomext(COM1,10,0,0,$0001,0,0)
Let F$ = @Readcom$(H%,4)
Pause
Let G$ = @Comerror(h%)
Pause
Let Init$=Chr$(1),Chr$(5)Chr$(2),Chr$(6)
Let Kanal1$=Chr$(3),Chr$(5),Chr$(8),Chr$(14)
Print  Fehler : ;@Comerror(h%)
@Writecom(H%,Init$)
Pause
@Readcom$(h%,4)
Pause
@Writecom(H%,Kanal1$)
Pause
Print Init$
Print Kanal1$
Let F$ = @Readcom$(h%,4)
Pause
Print  Fehler : ;@Comerror(h%)
Print  Gelesen : ;F$
Pause
Print  Gelesen : ;@Readcom$(h%,4)
Pause
=================================================================================

whilenot 0

    settimer 100
    waitinput
    killtimer
    init$=001			Hier die Anzahl der Sendebytes
    anzahl%=@Writecom(H%,Init$)
    Let G$ = @Comerror(h%)
    pause
    Let F$ = @Readcom$(h%,4)
    Let G$ = @Comerror(h%)
    drawtext  10,150,Eingang : +f$
    drawtext  10,170,Gesendet : +str$(anzahl%)

wend

@

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

[...]

Peter
Max
Müller

Tal vez veces como schauen:
[...]

Ciao

XProfan X3, X4ß, Win 10.1

27.02.2006 ▲

Jac
de
Lad

Yo bin neugierig geworden: Yo sería gern una Karte con LCD a el seriellen Schnittstelle ansprechen. Sombrero alguien ne Idea, wo Yo una kostengünstige herbekomme, el con XProfan programmierbar es?

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

02.03.2006 ▲

RGH

¡Hola,
gerade, lo que el serielle Schnittstelle angeht, así ha lo en el Laufe el Tiempo algunos wesentliche Detailverbesserungen gegeben!
Für aktuelle schnelle Rechner Es el Erweiterung ausa XProfan 9 wichtig: El TimeOuts puede extra eingestellt voluntad. Normalerweise es el pero no nötig. In früheren Versionen fueron el TimeOuts en Profano voreingestellt. Leider führet esta Voreinstellung en schnelleren Rechnen en eingen Fällen dazu, daß el Verbindung no korrekt zustande kommt.
Ab Versión 9.1 es auch el Senden y Empfangen uno individual Null-Bytes kein Problema mehr.

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

03.03.2006 ▲