| |
|
|
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 |
|
|
| |
|
|
|
| es ici richtig ou bien soll je Déplacer?
Maison » IDE, Helfer, Tools et Precompiler » Profan2Cpp-Soutien, Profansource pour C++ |
|
|
| |
|
|
|
Penguin Tux | eh, mon faute. Tut mir leid, naturellement sollst du Déplacer. |
|
|
| |
|
|
|
| Fühl toi geschoben... |
|
|
| |
|
|
|
GDL | Hi,
ici ist de vielen Communityautoren et mir Zusammengetragenes. peut-être hilft es dir quoi. KompilierenMarqueSéparationDef 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 : [...]
ici gehts aussi um USB - Seriell [...]
salut Georg |
|
|
| |
|
|