| Autor |
|
|
|
BID = 31674
Kai_Sch
Neu hier
Beiträge: 36
|
|
Hallo Leute, ich brauche dringend folgende Schaltung - mir scheint der Atmel ist dafür am besten geeignet, aber auch wenn es anders geht, nehm ich die hilfe gern an.....also folgendes will ich in die elektronische tat umsetzen
wenn an leitung "eingang" länger als 3 sek 12V (tendiert leider sprunghaft zwischen 11,80V und 12,3V) führ dann
1. relais a zieht für 1 sek an
2. relais b zieht für 2 sek an
3. 30 sek pause
4. relais a zieht für 1 sek an
dies soll alles auch passieren, wenn leitung "eingang" nur 5 oder 8 sek die fast 12V führt.....
wer kann mir da helfen?
|
|
BID = 31677
Jornbyte
Moderator
Beiträge: 7435
|
|
Schau dir mal den Wait-Befehl in Bascom an, der Rest ist ein Kinderspiel.
_________________
mfg Jornbyte
Es handelt sich bei dem Tipp nicht um eine Rechtsverbindliche Auskunft und
wer Tippfehler findet, kann sie behalten. |
|
BID = 31682
Kai_Sch
Neu hier
Beiträge: 36
|
joah, das sagst so einfach 
aber wie das mit "länger als 3 sek 12V" machen? und wie genau dafür sorgen,daß einer der ausgänge auf 12V geschaltet wird?
Leider sind meine Bascom-Kenntnisse als auch atmel-erfahrungen mehr als gering....
|
BID = 31768
Jornbyte
Moderator
Beiträge: 7435
|
Das Proggi könnte in Bascom so aussehen:
$regfile = "4433def.dat" 'oder was hast du da für einen?
$crystal = 8000000 'Quarzfrequenz in MHz, hier sind es 8MHz
Config Portb = Input 'Port B ist Eingang
Config Portd = Output 'Port D ist ausgang
Warten:
Wait 3 '3 Sekunden warten
If Pinb.0 = 0 Then 'Port B 0 abfragen
Goto Warten 'wenn es nich gesetzt ist, warten
End If
If Pinb.0 = 1 Then 'nun ist der Eingang auf Hight
Set Pind.0 'Relai A 1 Sekunde Ein
Wait 1
Reset Pind.0
Set Pind.1 'Relai B 2 Sekunden Ein
Wait 2
Reset Pind.1
Wait 30 '30 Sekunden Pause
Set Pind.0
Wait 1 'Relai A 1 Sekunde Ein
Reset Pind.0
End If
Warten1:
If Pinb.0 = 1 Then 'warten bis Eingang wieder Low ist
Goto Warten1
Else
Goto Warten 'Eingang ist Low, also auf ein neues Hight warten
End If 'dh. Programm wieder von Anfang an
End 'end program
_________________
mfg Jornbyte
Es handelt sich bei dem Tipp nicht um eine Rechtsverbindliche Auskunft und
wer Tippfehler findet, kann sie behalten.
|
