Hallo
wollte mal fragen ob es eine relaikarte gibt wo man einen display anschließen kann und per usb steuern kann oder per ethernet bzw. rs232. Mit 8 Relais. Am besten wo man mit seperaten netzteil betreiben kann und nicht mit usb. Wie viel Volt und ampere kann so eine relaiskarte schalten?
Mit freundlichen grüßen
xfx
Solche Karten gibts genügend, z.B. bei Quancom.de, USBREL8.
Pollin hat auch welche, aber die nur mit LPT.
Mit Display hab ich noch keine gesehen (Wozu eigentlich?).
Und wie viel die schalten können kommt drauf an, welche Relais verbaut werden.
Also des display sollte anzeigen welche relais an sind.
Und wie läuft des jetzt ab mit dem schalten per pc gibts da ne software?
Wie ist die stromversorgung für die relais per usb oder parallel?
Am liebsten wäre mir per externer stromversorgung.
Für die Anzeige, welche Relais an sind, verwendet man üblicherweise LEDs, die direkt am Relais hängen (Falschanzeigen vermeiden).
Software gibts da mit Sicherheit, sonst wär das ganze relativ sinnlos.
Bei der vom Conrad ist sogar der Quellcode mit dabei; eigentlich ideal.
Hab da auch noch eine Relaiskarte
von Conrad. Geht aber nur bis 24 V
und 4 A. Software muß man sich meist
selber schreiben. Bei mir war nur ein
alter mickriger GW-Basic Quellcode
dabei.
Deshalb hatte ich mir damals ein kleines
XProfan-Programm mit 8 Checkboxen zum
Schalten geschrieben. Das kann man auch
mit der Freeware Version 8 von XProfan
compilieren.
Bei Interesse kann ich es ja mal hier rein
stellen.
ich hab mir etz eins von conrad herrausgesucht mit 1,5A 6-24Volt.
190008-33
Wie minst du jetzt muss ich mir erst ein programm kaufen damit ich es steuern kann?
Hier mal der Code, falls ihn jemand braucht.
XProfan bekommt man hier :
www.xprofan.com
evtl @Clicked() durch @getfocus() ersetzen.
Declare hD%, hB%, schalt%, statusbar%, OK%, hcombo%
Declare comport%, f%, adresse%, kommando%, Pruefsumme%
Declare chk1%, chk2%, chk3%, chk4%, chk5%, chk6%, chk7%, chk8%
Declare daten%, com$, send$
daten% = 1
adresse% = 1
Proc GetCheckboxStates
If @GetCheck(chk1%)
daten% = SetBit(daten%, 0, 1)
Else
daten% = SetBit(daten%, 0, 0)
EndIf
If @GetCheck(chk2%)
daten% = SetBit(daten%, 1, 1)
Else
daten% = SetBit(daten%, 1, 0)
EndIf
If @GetCheck(chk3%)
daten% = SetBit(daten%, 2, 1)
Else
daten% = SetBit(daten%, 2, 0)
EndIf
If @GetCheck(chk4%)
daten% = SetBit(daten%, 3, 1)
Else
daten% = SetBit(daten%, 3, 0)
EndIf
If @GetCheck(chk5%)
daten% = SetBit(daten%, 4, 1)
Else
daten% = SetBit(daten%, 4, 0)
EndIf
If @GetCheck(chk6%)
daten% = SetBit(daten%, 5, 1)
Else
daten% = SetBit(daten%, 5, 0)
EndIf
If @GetCheck(chk7%)
daten% = SetBit(daten%, 6, 1)
Else
daten% = SetBit(daten%, 6, 0)
EndIf
If @GetCheck(chk8%)
daten% = SetBit(daten%, 7, 1)
Else
daten% = SetBit(daten%, 7, 0)
EndIf
EndProc
Proc GetComInput
Parameters id%
Declare in$
in$ = @ReadCom$(f%,8) ' 8 Zeichen einlesen
Case @Len(in$):SetText statusbar%, "Antwort : " + Str$(ord(in$))
EndProc
Proc Senden
' 4 Byte - Rahmen zum Senden erstellen
Pruefsumme% = XOR(XOR(kommando%, adresse%), daten%)
send$ = Chr$(kommando%) + Chr$(adresse%) + Chr$(daten%) + Chr$(Pruefsumme%)
WriteCom(f%, send$)
ComError(f%)
GetComInput(f%)
Sleep 1000
EndProc
Proc Dialog
'Dialogfenster erzeugen
hD% = @Create("Dialog",%DeskTop,"Relaisplatine 8fach seriell",100,100,600,400)
'Einen Button mit 'ENDE' erzeugen
hB% = @Create("Button",hD%,"&ENDE",10,10,60,25)
schalt% = @Create("Button", hD%, "&Schalten", 100, 10, 80, 25)
chk1% = @Create("CheckBox", hD%, "Relais 1", 350, 10, 100, 25)
chk2% = @Create("CheckBox", hD%, "Relais 2", 350, 40, 100, 25)
chk3% = @Create("CheckBox", hD%, "Relais 3", 350, 70, 100, 25)
chk4% = @Create("CheckBox", hD%, "Relais 4", 350,100, 100, 25)
chk5% = @Create("CheckBox", hD%, "Relais 5", 350,130, 100, 25)
chk6% = @Create("CheckBox", hD%, "Relais 6", 350,160, 100, 25)
chk7% = @Create("CheckBox", hD%, "Relais 7", 350,190, 100, 25)
chk8% = @Create("CheckBox", hD%, "Relais 8", 350,220, 100, 25)
' erste Checkbox setzen
SetCheck chk1%, 1
statusbar% = @Create("StatusWindow", hD%, "Ready !")
Clear OK% ' OK% auf 0 setzen
WhileNot Ok% ' solange OK% gleich 0 ist
' Hier in der Schleife warten wir mit WaitInput auf Benutzer - Eingaben
' Wir verwenden die in XProfan 10 neue Funktion @Clicked() statt @GetFocus()
WaitInput
If @Clicked(hB%)
'ENDE wurde angeklickt, OK% wird auf 1 gesetzt und somit
' die Schleife verlassen, das Fenster gelöscht und das Programm beendet.
Ok% = 1
ElseIf %Key = 2
' Hier wird das 'X' (rechts oben Schließen) ausgewertet
OK% = 1
ElseIf @Clicked(schalt%)
' Relais schalten.
kommando% = 3
adresse% = 1
daten% = 0
GetCheckboxStates ' Checkboxen auswerten u. Bits setzen
Senden
'@MessageBox("Ich bin der Autor : " + Name$, "Info", 0)
EndIf
EndWhile
'Dialogfenster (incl. Button, usw.) entfernen
@DestroyWindow(hD%)
EndProc
' Relaiskarte initialisieren
kommando% = 1
adresse% = 1
daten% = 0
f% = @OpenCom("COM1", 1024, 1024)
SetCom("COM1: 19200, N, 8, 1")
Senden
' Hier wird die Dialogbox (Procedur) aufgerufen
Dialog
' Programm Ende
CloseCom(f%)
End
Damit kannste richtige Windowsprogramme
erstellen. Ist zwar nur ein Bytecode-Compiler
(Profrun32.exe wird beim Linken dazu gelinkt)
aber für Anfänger und Fortgeschrittene einfach
zu erlernen.
Einfachstes Beispiel des berühmten Hello World,
kürzer gehts nimmer :
Cls
Print "Hello World !"
Waitkey ' damit das Programm nicht sofort geschlossen wird
End
PS : Wenn man die profrun32.exe vorher noch mit
UPX packt (siehe Anhang),wird die .exe noch halb
so groß.
also die relaiskarte is in nem schaltschrank verbaut woi man alles regelt.
Der schaltschrank ist ausem im gewächshaus und ich will es von innen am pc steuern. Es gibt so nen adapter wo man von lan auf usb wandeln kann würde des funktionieren zum steuern?
conrad.de
973526-20
@ USB-LAN-Adapter
Ich denke nicht, dass es so geht! Es gibt zwar USB-Verlängerung (Repreater) auch mit Netzwerkkabel - aber das nur als Zwischen-Verlängerung Für 2 USB-Stecker (übergeht damit die USB-5m-Begrenzung!)
Sinnvoller wäre ein "Single"-Notebook (eBay ab ca. 50 Euro) und dieses Notebook steuert die Relaiskarte und man steuert das Notebook dann via WLAN!
Ist relativ einfach zu realisieren und auch ideal, wenn man mal ohne Notebook unterwegs ist - da geht man an den Schaltschrank und gibt dort die "Befehle" direkt ein!
Kennste 24 - die Serie :D
@Abacom-Relaiskarte
Die haben nen eBay-Account, wo die eigendlich recht häufig die Relaiskarten verkaufen - wenn dort derzeit keine da ist - danng eh mal auf
www.abacom-online.de ! Dort im Shop kannste sie kaufen!
Die Relaiskarte bezieht ihren Strom vom USB-Port des Rechners, d.h. Sie funktioniert nur wenn du dein Notebook angeschlossen ist. Jetzt kann es natürlich sein, dass du dein Notebook mal mitnehmen oder auch Nachts nicht für jedermann sichtbar in einem Gewächshaus stehen lassen willst.
Kauf dir bei eBay ein altes Notebook und schließe daran die Relaiskarte(n) im Schaltschrank an und dann steuere diese dann direkt am Schaltschrank oder mit dem "guten" Notebook über WLAN, bzw. übers "Internet" mit einem einfachen PHP-Skript!
Ich habe für ein anderes Projekt mal ne Software mit PHP angefertigt (sind nur wenige Codezeilen!) wo man die angeschlossene(n) Relaiskarten dann ansteuert. Dabei ist es auch egal, ob die Steuerbefehle übers LAN/WLAN, Internet oder lokal am Rechner eingegeben werden!
Die verwendete Software war XAMPP-Lite (ein einfacher PHP-Server!).
Ich rate von der angebotenen Software von Abacom ab - ist zu "mächtig", wie man sagen würde! Zu viel Ballast für so simple Aufgaben!
Du kannst z.B. die Steuerung direkt über die Eingabeaufforderung (Ehemals DOS) geben - nichts anderes macht das PHP-Skript - dass eine Instanz startet und dann die "Order" eingibt und dann die Instanz beendet!
Powered by vBulletin® Version 4.2.5 Copyright ©2024 Adduco Digital e.K. und vBulletin Solutions, Inc. Alle Rechte vorbehalten.