Ampelschaltung

Du brauchst ja auch nur einen Schaltzustand. Die Ampelphasen werden jeweils als Gruppen zusammengefasst und somit kannst du 5 Ampeln seperat schalten.
 
Das ist schon klar, aber so kann ich meine Steuerung erweitern ohne immer neue Strippen ziehen zu müsse.

MfG
PoNr
 
Servus,
gestern haben wir uns ein Relais Modul beim conrad geholt. Das wird über den Druckerprot angeschlossen. Weiß jemand, wie ich mit VB. Einen der 25 pole öffnen kann?
 
Hi, kein Problem
habe gestern mein Tutorial angefangen, dauert aber doch wesentlich länger da ich mir jetzt überlegt habe noch eine Digitale In/Out Karte zubauen. Die KArte hat dann 64 Eingänge und 64 Ausgänge.

Also um in VB den Drucker port anzusprechen brauchst du die InpOut32.dll (habe ich als Anhang eingefügt.

Die fügst du in dein Projekt ein. Dann kannst du in VB 8 Kanäle ansteuern (Pin 1 - 8).
Damit also alle 8 Relais.
Hier der Code um die DLL einzubinden:
Code: 
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
Das machst du am besten in ein Modul.

Hier der Code um die Ports anzusprechen:
Code: 
Dim A,B,C,D,E,F,G,H,J As Byte
Dim Port as String

Port = "h378"

J = A+B+C+D+E+F+G+H
Out Port, J
Für die Variable Port setzt du deinen Port.
J ist die Ausgabevariable.
A = Ausgang 1
B = Ausgang 2
C = Ausgang 3
D = Ausgang 4
E = Ausgang 5
F = Ausgang 6
G = Ausgang 7
H = Ausgang 8
Um nun einen Ausgang auf 1 zu setzen, weißt du ihm den richtigen Wert zu:
0 bedeutet das der Ausgang Aus ist. (z.B.: A = 0 / B = 0)
A = 1 bedeutet Ausgang 1 An.
B = 2 beduetet Ausgang 2 An
C = 4 bedeutet Ausgang 3 An.
D = 8 bedeutet Ausgang 4 An.
E = 16 bedeutet Ausgang 5 An.
F = 32 bedeutet Ausgang 6 An
G = 64 bedeutet Ausgang 7 An.
H = 128 bedeutet Ausgang 8 An.
J = A+B+C+D+E+F+G+H (Es werden alle Ausgänge zusammen gezählt)

Wenn alle Aus sein sollen, reicht folgendes: J = 0
Wenn alle An sein sollen, reicht folgendes: J = 255

Ich hoffe ich habs erklären können, ansonsten einfachnochmal fragen.
 

Anhänge

  • inpout32.zip
    11,7 KB · Aufrufe: 192
Hab ich das so richtig verstanden:
Wenn ich will dass Port 1,3 u 5 offen sind muss ich:
A=1
B=0
C=2
D=0
E=4
F=0
G=0
H=0
J=A+B+C+D....
J hat dann den Wert 7 und das müssten dann 00000110 sein.
 
Nein, s meinte ich das nicht,
also:
A steht für Ausgang 1
B steht für Ausgang 2
C steht für Ausgang 3
D steht für Ausgang 4
E steht für Ausgang 5
F steht für Ausgang 6
G steht für Ausgang 7
H steht für Ausgang 8

Um nun Ausgang 1,3 und 5 an zu schalten, musst du folgendes machen:
A = 1
B = 0
C = 4
D = 0
E = 16
F = 0
G = 0
H = 0

Also wenn du nun A,B,C,D,E,F,G,H auf 0 setzt, sind die Ausgänge nicht asktiv.
Um die Ausgänge zu aktivieren, musst du für
A die 1 setzen # Ausgang 1 ist an
B die 2 setzen #Ausgang 2 ist an
C die 4 setzen
D die 8 setzen
E die 16 setzen
F die 32 setzen
G die 64 setzen
H die 128 setzen
Die bytes werden immer um das doppelte gesteigert.

Bzw. so wie du das gemacht hast wäre es richtig, aber ich würd ein diesem Schema bleiben.
Es muss halt immer der richtige J wert rauskommen.
Bei 255 sind halt alle an.
Wenn du 1,3,5 an haben wilslt muss J = 21 (wenn ichmich nicht verrechnet habe)!
ICh hoffe ich hab mich jetzt besser ausgedrückt !
 
Boa,
64 Ein- und Ausgänge, soviele anwendungen hätte ich da jetzt gar net. Aber mir fällt da schon noch was für ein ^^
Ich freue mich schon wahnsinnig aufs Tutorial. Kannst du schon sagen, wieviel das Hardware-Technisch kostet? Bei Reichelt oder Conrad.

mfg
 
Weiß no net genau wird aber teurer werden. Das Modul hat 30 Euro gekostet dann noch LED's, Kabel bisher gesamt ca 70 Euro. Das sin keine 64 Ausgänge. Der Druckerport hat glaub 25 Pole. Über das Relais Modul können wir acht verschiedene stromkreise anschließen.
 
Hallo

Für größere Lasten würde ich keine Relais nehmen. Die sind zu teuer. Ein Triac z.B TIC206 oder ein BT136 kostet 70ct. + Optokoppler mit Nullspannungsdetect 90 ct.
und schon sind Lasten ungekühlt bis 1500 W schaltbar. Mit einem BCD-Wandler die fast nix kosten sind 32 Zustände schaltbar und nicht wie immer gesagt wird nur 8
 
Um antworten zu können musst du eingeloggt sein.

Neue Beiträge

Zurück