XProfan

Français

Penguin
Tux

Moin XProfaner,

après que mon Netzwerktool fertig ist, fragt mich un ami si je dans qui situation suis, ihm un Tool trop écrivons, welches LED´s à et ausschalten peux. J'ai pensé naturellement tout de suite à den COM-Port, mais qui manquer am Eee-PC oui völlig. alors kam mir qui concept cela Ganze avec einem USB-COM-Adapter trop faire. qui surface pour cela Tool ist déjà fertig, je muss vous arrêt seulement encore avec vivre füllen. Rein de qui E-technologie sais je comment cela fonctionne, mais programmiermäßig siehts encore mau aus. bien sûr habe je qui XProfan-Aider befragt et habe weder sous COM encore sous EIA-232 sowie sous RS-232 quelque chose brauchbares trouvé. maintenant zähle je la fois wieder sur euch...

MfG
Tony

OS: Win XP/Debian
XProfan 10

26.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

es ici richtig ou bien soll je Déplacer?

Maison » IDE, Helfer, Tools et Precompiler » Profan2Cpp-Soutien, Profansource pour C++

26.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Penguin
Tux

eh, mon faute. Tut mir leid, naturellement sollst du Déplacer.

OS: Win XP/Debian
XProfan 10

26.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Fühl toi geschoben...

26.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

GDL

Hi,

ici ist de vielen Communityautoren et mir Zusammengetragenes.
peut-être hilft es dir quoi.
Kompilieren Marque Séparation

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

attention : qui USB COM Adapter erzeugt une virtuellen COM Port.Du musst qui Adresse de dem im Programme ensuite prendre.

Sämtliche Steuerleitungen donner +12 V bzw. Masse aus.qui Schreibleitung +/- 12 jusqu'à max. 20 Volt.
aucun Leitung peux une LED direct treiben.Du brauchst une Transistortreiberstufe.
Machste à qui USB "Mist" ist garantiert dein Mainboard hin.alors joli avec Optokoppler travailler.
cela allerbeste ist naturellement un MAX232 Spannungspegelwandler.

ici wird aussi qui Computeranbindung bien beschrieben :
[...]