XProfan

Español

Penguin
Tux

Moin XProfan,

después de mein Netzwerktool fertig es, fragt mich una Freund si Yo en el Lage bin, ihm una Tool a escribir, welches LED´s a y ausschalten kann. Pensé natürlich inmediatamente a el COM-Port, aber el fehlen al Eee-PC sí völlig. Also kam me el Concepto el Ganze con un USB-COM-Adapter a hacer. El Oberfläche para el Tool es ya fertig, Yo muss ellos sólo sólo todavía con Leben füllen. Rein de el E-Technik weiß Yo como el se ejecuta, aber programmiermäßig siehts ya otra vez mau de. Selbstverständlich Yo el XProfan-Ayuda befragt y habe weder bajo COM todavía bajo EIA-232 sowie bajo RS-232 algo brauchbares gefunden. Jetzt zähle Yo veces otra vez en euch...

MfG
Tony

OS: Win XP/Debian
XProfan 10

26.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Bist hier correcto oder se Yo mover?

Casa » IDE, Helfer, Tools y Precompiler » Profano2Cpp-Apoyo, Profansource después de C++

26.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Penguin
Tux

Oh, mein Fehler. Tut me leid, natürlich sollst du mover.

OS: Win XP/Debian
XProfan 10

26.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Fühl Usted geschoben...

26.07.2008 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

GDL

Hi,

hier es de vielen Communityautoren y me Zusammengetragenes.
Tal vez hilft lo dir qué.
Kompilieren Marca Separación

Def Createfile(7) !"kernel32.dll","CreateFileA"
Def Getlasterror(0) !"kernel32.dll","GetLastError"
Def Formatmessage(7) !"Kernel32.dll","FormatMessageA"
Def Escapecommfunction(2) !"kernel32.dll","EscapeCommFunction"
Def Getcommmodemstatus(2) !"kernel32.dll","GetCommModemStatus"
Def &Clrbreak 0
Def &Clrdtr 6
Def &Clrrts 4
Def &Setbreak 8
Def &Setdtr 5
Def &Setrts 3
Def &Setxoff 1
Def &Setxon 2
Def &Cts_on $10
Def &Dsr_on $20
Def &Ring_on $40
Def &Rlsd_on $80
Declare Hport&  porthandle
Declare Modemstatus& Modemstatus
Declare Ret&, Message#

Proc Lasterrorstring nur um den Text des letzten Fehlers von GetLastError zu bekommen

    Dim Message#,1029
    Declare Buffer&, Flags&,Source&,Language&,Arguments&, Errorstring$
    Buffer& = 1024
    Flags& = $1000
    Language& = 0~lang_neutral
    Clear Message#
    Formatmessage((Flags&),Addr(Source&),Getlasterror(),(Language&),Message#,Addr(Buffer&),Addr(Arguments&))
    Errorstring$ = Trim$(String$(Message#,0))
    Dispose Message#
    Return Errorstring$

Endproc

Hport& = Createfile("COM2",0,0,0,3,0,0)opencom("COM2",1024,1024)
Print "Porthandle :",Hport&
Print
Ret& = Escapecommfunction(Hport&,&Setdtr)
Print "DTR setzen"
Case Ret& = 0 : Print "Fehler"
Print Lasterrorstring()
Ret& = Escapecommfunction(Hport&,&clrdtr)
Print "DTR rücksetzen"
Case Ret& = 0 : Print "Fehler"
Print Lasterrorstring()
waitinput
-----am besten einen Schalter zwischen DTR und z.B. CTS setzen
Ret& = Getcommmodemstatus(Hport&,Addr(Modemstatus&))
Print
Print "Status der Eingänge ermitteln"
Case Ret& = 0 : Print "Fehler"
Print Lasterrorstring()
-----Maskierung um an die einzelnen Bits zu kommen

If Ret&

    Casenot Modemstatus& & $Ff : Print "alles auf LOW"
    Case Modemstatus& & &Cts_on : Print "CTS ON"
    Case Modemstatus& & &Dsr_on : Print "DSR ON"
    Case Modemstatus& & &Ring_on : Print "Ring ON"
    Case Modemstatus& & &Rlsd_on : Print "RLSD ON"

Endif

Waitinput
Print "Start"
Declare Zeit&,Stop&,Count&
Zeit& = &Gettickcount

Whilenot Stop&

    Whileloop 10

        Ret& = Getcommmodemstatus(Hport&,Addr(Modemstatus&))
        print modemstatus&,"";
        Inc Count&

    Endwhile

    Sleep 1
    Case &Gettickcount - Zeit& > 50 : Stop& = 1

Endwhile

Print ""
Print &Gettickcount - Zeit&
Print "durchläufe :",Count&
Closecom(Hport&pan>
Waitinput

Achtung : Der USB COM Adapter producido una virtuellen COM Port.Usted musst el Adresse de el en el Programa entonces nehmen.

Sämtliche Steuerleitungen geben +12 V o. Masse de.El Schreibleitung +/- 12 a max. 20 Volt.
Keine Leitung kann una LED direkt treiben.Usted necesidad una Transistortreiberstufe.
Machste a el USB "Mist" es garantiert dein Mainboard hin.Also schön con Optokoppler trabajo.
Das allerbeste es natürlich una MAX232 Spannungspegelwandler.

Hier se auch el Computeranbindung bien beschrieben :
[...]