XProfan

- Page 5 -

Paul
Glatz

Damit Klappts

08.12.2010 ▲

Stefan
M.
Caillet

Hallo Profaner,
ja. mit dem obigen Code leuchten die LED's, aber mit direktemAnsteuern der Ausgangs-Pins hat das nicht wirklich viel zu tun, denn die LED's leuchten resp. blinken scheinbar willkürlich.
Was ich dringend brauche, ist die Möglichkeit, die Ausgänge TXD, DTR und RTS gezielt auf 1 oder 0 zu setzen, und solange (bis kurz vor Prog.Ende)auf dem jeweiligen stand zu lassen, und dann wieder zurückzusetzen und die COM wieder zu schliessen.
Also eine echte einzel Pin Steuerung.
Mit der RSAPI.dll habe ich leider auch noch kein Erfolg gehabt.
Weiss einer von euch, wie ich dies in Xprofan lösen kann?
Das Programm soll unter win XP (32Bit) laufen und die COM2 ansprechen.
Für eure Aiuto bin ich sehr Dankbar.
Stefan

Ich habe grosses Glück, weil ich Mitmenschen helfen darf.
Entwicklungsumgebung:
XProfan11 , Win XP Pro 32Bit , Win XP Home ,Win7 HomePremium 64Bit
PC: P4/3GHz , 2GB RAM , 1700GB HD
Laptop: Intel Core 2 Duo /2,2GHz , 4GB RAM , 500GB HD

25.08.2011 ▲

Funktioniert diese Funktion nicht?

Aiuto

SetComExt(N1,N2,N3,N4,N5,N6,N7)

N1: LongInt - Handle der seriellen Schnittstelle
N2: Integer - RlsTimeOut in ms (nur 16 Bit)
N3: Integer - CtsTimeOut in ms (nur 16 Bit)
N4: Integer - DsrTimeOut in ms (nur 16 Bit)
N5: Integer - Flags:
$0001: Binärer Modus
$0002: Parity Check ON
$0004: CTS Handshaking ON
$0008: DSR Handshaking ON
$0010: DTR Signal ON
$0020: DTR Signal Handshaking
$0040: DSR Prüfung ON
$0080: XOFF continues Tx
$0100: XON/XOFF Ausgabe ON
$0200: XON/XOFF Eingabe ON (besser immer $0300 per Ein- und Ausgabe setzen)
$0400: Error Replacement ON
$0800: Null Stripping ON
$1000: RTS Signal ON
$2000: RTS Signal Handshake ($3000: RTS Signal Toggle)
$4000: Beendet Read/Write bei Fehler
($8000: ohne Bedeutung)
N6: Integer - Minimalzahl von Zeichen in der Empfangsschlange,
bevor Xon gesendet wird
N7: Integer - Maximalzahl von Zeichen in der Empfangsschlange,
bevor Xoff gesendet wird

lt. der Beschreibung in der Hilfedatei macht diese Funktion doch genau was Du beschreibst.

25.08.2011 ▲

Funktioniert das PureBasic-Programm denn?

25.08.2011 ▲

- Page 6 -

Stefan
M.
Caillet

Ach iF,
warum soll ich es mir denn so einfach machen, wenn ich mich auf der Cerca nach einer komplizierten Lössung soo viele Stunden beschäftigen kann? - Ne vielen Dank per Deine Aiuto. Damit klappt es hervorragend, und dazu noch mit sehr kompakten Code. Werde jetzt noch testen, ob sich die com auch nach mehreren Stunden mit eingeschalteten Led's wieder korrekt schliessen lässt. (wegen der Hinweise, dass der Empfangspuffer der COM regelmässig geleert werden sollte - dies Tue ich momentan nämlich nicht).
Aber zumindest kann ich die Led's erstmal kontrolliert einschalten..
Herzlichsten Dank!
Stefan

Salve! ^^

PS: SetComExt war die erste Antwort bereits auf der ersten Seite: [...]

RGH

Schön, dass das Problem gelöst werden konnte. Ich kann die COM-Geschichten selbst nämlich nicht mehr testen, da mein letzter Rechner mit COM-Port vor ca. zwei Wochen von der örtlichen AVR (Müllabfuhr) beim Elektroschrott abgeholt wurde.

Saluto
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

Stefan
M.
Caillet

Ja, aber als ich weitergelesen hatte, sagte Paul, es Funzt nicht mit SetComExt, auch nicht, wenn davor SetCom steht. Danach ging es dann circa die RSAPI bis zum Code der an und per sich die LED's schaltete, aber nicht gezielt. Drum hatte ich dann das Thema nochmals aufgegriffen.

Stefan
M.
Caillet

@Frank: Pure Basic habe ich nicht und deshalb auch nicht getestet. Auserdem muss mein Prog. auch noch Abfragen an Windows machen, und da arbeite ich gerne mit dem, was ich schon kenne. Gut, Ich potuto naturalmente ein Profan Prog.schreiben, das im entscheidenden Moment das PureBasic Prog. aufruft.
Also: zu PureBasic kann ich leider nichts sagen.
Dennoch Danke per Deine Mitarbeit.
Gruss Stefan

Diese ganz-ganz kleinen Rechner - die so 2 zigarettenschachtelngroß sind -

die haben interessanterweise öfter mal wieder einen RS232-Com-Port.

Solch ein Rechner liegt bereits im Mondauto.

Gibt aber auch RS232-Ports an USB.

iF (26.08.11)

Gibt aber auch RS232-Ports an USB.

Habsch nun!

USB-Seriell-Adapter.

Mal schauen ob ich damit ne LED leuchte oder sogar ein Relais schalte.

232.gif	3 kB

Hochgeladen:	21.10.2011

Downloadcounter:
		Download

21.10.2011 ▲

Kompilieren Markieren Separieren

lOOOOl

funzt. ^_^

long h=opencom("COM5",1024,1024)

do{

    print setComExt(h,,,,$1000,,)
    waitinput 500
    print setComExt(h,,,,,,)
    waitinput 500

}

lässt LED blinken ^^

Angeschlossen an GND und RTS.

vid-00023-20111021-2049.3gp	762 kB

Kurzbeschreibung:	Video

Hochgeladen:	21.10.2011

Downloadcounter:
		Download

21.10.2011 ▲