XProfan

- Page 5 -

Paul
Glatz

so Klappts

12/08/10 ▲

Stefan
M.
Caillet

Hello Profaner,
Yes. with the obigen code shine The LED's, but with direktemAnsteuern the Ausgangs-Pins has not really plenty To do, because The LED's shine resp. glint apparently willkürlich.
what I urgently need, is the Possibility, The exits TXD, DTR and RTS aimed on 1 or 0 To settle, and as long as (To short to Prog.end)on the jeweiligen stood To let, and then again zurückzusetzen and the COM again To close.
means a real single Pin Control.
with the RSAPI.dll have I unfortunately too yet no success had.
knows of/ one of you, How I this in XProfan solve can?
the Program should under win XP (32bit) walk and the COM2 address.
for eure Help be I very grateful.
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

08/25/11 ▲

functions these function not?

Help

SetComExt(n1,n2,n3,n4,n5,n6,n7)

n1: LongInt - lever the seriellen interface
n2: Integer - RlsTimeOut in ms (only 16 bit)
n3: Integer - CtsTimeOut in ms (only 16 bit)
n4: Integer - DsrTimeOut in ms (only 16 bit)
n5: Integer - ? Happen?:
$0001: Binärer mode
$0002: Parity Check ON
$0004: CTS Handshaking ON
$0008: DSR Handshaking ON
$0010: DTR signal ON
$0020: DTR signal Handshaking
$0040: DSR check ON
$0080: XOFF continues Tx
$0100: XON/XOFF spending ON
$0200: XON/XOFF input ON (rather always $0300 for One- and spending settle)
$0400: Error Replacement ON
$0800: zero Stripping ON
$1000: RTS signal ON
$2000: RTS signal Handshake ($3000: RTS signal Toggle)
$4000: exits Read/Write with Error
($8000: without weight)
n6: Integer - Minimalzahl of characters in the Empfangsschlange,
before Xon gesendet becomes
n7: Integer - Maximalzahl of characters in the Empfangsschlange,
before Xoff gesendet becomes

lt. the Description in the Helpfile power these function still very what You describe.

08/25/11 ▲

functions the PureBasic-Program because?

08/25/11 ▲

- Page 6 -

Stefan
M.
Caillet

alas iF,
Why should I it me because so simply make, if I me on the Search after a complicated Lössung soo many hours keep busy can? - Ne many Thanks for your Help. so works it inspired, and moreover yet with very kompakten code. will be yet testing, whether The com too to several hours with eingeschalteten Led's again correctly close can. (because of the Notes, that the Receive buffer the COM regelmässig geleert go ought to - this If I do momentarily namely not).
but at least can I The Led's first controlled on..
Herzlichsten Thanks!
Stefan

salvo! ^^

PS: SetComExt was The first response already on the first Page: [...]

RGH

Beautiful, that the trouble resolved go could. I can The COM-stories self namely not any more testing, there my last computer with COM-Port to ca. two weeks from the local AVR (Müllabfuhr) at Elektroschrott abgeholt watts.

Greeting
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

Yes, but as i weitergelesen having, said Paul, it working not SetComExt, neither, if before it SetCom standing. thereafter went it then over The RSAPI until code the on and the LED's schaltete, but not aimed. thatswhy I had then the Topic over again aufgegriffen.

Stefan
M.
Caillet

@Frank: Pure Basic have I do not and therefore not tested. Auserdem must my Prog. too yet inquire on windows make, and there work I gladly with the, I already know. well, I could naturally one Profan Prog.write, the in the decisive momentum the PureBasic Prog. aufruft.
means: to PureBasic can I unfortunately nothing say.
nevertheless thanks for your Mitarbeit.
greeting Stefan

These integrally-integrally small computer - so 2 zigarettenschachtelngroß are -

The having interessanterweise often time again a RS232-com-Port.

such one computer lying already in the Moonbuggy.

gives but too RS232-Ports on USB.

iF (26.08.11)

gives but too RS232-Ports on USB.

Habsch now!

USB-Seriell-Adapter.

time look whether I so ne LED light or even one Relais schalte.

232.gif	3 kB

Hochgeladen:	10/21/11

Downloadcounter:
		Download

10/21/11 ▲

lOOOOl

working. ^_^

Compile Mark Separation

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

do{

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

}

can LED glint ^^

connected on GND and RTS.

vid-00023-20111021-2049.3gp	762 kB

Kurzbeschreibung:	video

Hochgeladen:	10/21/11

Downloadcounter:
		Download

10/21/11 ▲