Français
Forum

LED à et ausschalten

 

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  
 



es ici richtig ou bien soll je Déplacer?

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




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


OS: Win XP/Debian
XProfan 10
26.07.2008  
 



Fühl toi geschoben...
 
26.07.2008  
 




GDL
Hi,

ici ist de vielen Communityautoren et mir Zusammengetragenes.
peut-être hilft es dir quoi.
KompilierenMarqueSé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 :
[...] 

ici gehts aussi um USB - Seriell
[...] 

salut
Georg
 
Windows7 Xprofan 8,9,10 [...]  [...] 
26.07.2008  
 



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

4.109 Views

Untitledvor 0 min.
Peter Max Müller13.11.2017
Ludwig Albien04.01.2013
Heiko Dix13.11.2012
Pedro Miguel17.09.2012

Themeninformationen

cet Thema hat 3 participant:

Penguin Tux (2x)
iF (2x)
GDL (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie