PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Logisch UND Verknüpfung???



hagbart
19.04.2006, 18:16
Hallo Leutz,

ich möchte eine Warneinrichtung für Licht AN bei meinem Auto bauen.
Die elektronik steht und funktioniert richtig gut nur ein Problem mit dem Programm hab ich noch.

Und zwar will ich eine Logisch UND (in Bascom ja AND) Verknüpfung machen Aber wenn ich dan einen der Eingänge schalte, summt mein summer los. Obwohl er erst summen soll wenn beide belegt sind.


Für die Hilfe danke ich schonmal im vorraus.
Mirko

linux_80
19.04.2006, 18:19
Hallo,

ich glaub, da brauchen wir mind. einen Ausschnitt aus deinem Programm, denn am AND alleine liegts wohl nicht.

BiGF00T
19.04.2006, 18:20
Kannst du den Code auch posten, den du dazu verwendest?

EDIT: mist, zu langsam :)

hagbart
19.04.2006, 18:37
Das Programm is noch nich ganz fertig.

$regfile = "4433def.dat"
$crystal = 3686400

Config Portd.3 = Output 'Relaisausgang
Config Portd.4 = Output 'Signalgeber
Config Portc = Output 'LED Anzeige
Config Pind.6 = Input 'Türkontakt
Config Pind.7 = Input 'Lichtschalter
Config Pinb.0 = Input 'Fernbedienung

Portd.6 = 0
Portd.7 = 0
Portb.0 = 0

'Config Adc = Single , Prescaler = Auto , Reference = on
'Start Adc

Signal Alias Portd.4
Relais Alias Portd.3
Rot Alias Portc.4
Gruen Alias Portc.5
Gelb Alias Portc.3

'Dim A As Integer

Do
'A = Getadc(1)
if Pind.7 and Pind.6 then
set Signal
end IF
Loop

PicNick
19.04.2006, 18:39
if Pind.7 and Pind.6 then..
Werter Kollege, irgendwie fehlt da was

if Pind.7 = 1 and Pind.6 = 1 then..
wäre zum Beispiel möglich

hagbart
19.04.2006, 18:44
upps muss ich woll vergessen haben, verdammt weil ich zwei pc hab wo das porg drauf is...

es muss so heißen
if Pind.7 = 0 and Pind.6 = 0 then

mfg Mirko

uwegw
19.04.2006, 19:43
Pullups nicht eingebaut/eingeschaltet und Brumm auf der Leitung?

hagbart
20.04.2006, 20:15
Also ich hab alles noch einmal überprüft und ich bekomme super saubere Signale.

Wenn ich die Eingänge einzel abfrage funktioniert es aber sobald ich die AND funktion einbinde geht es nich mehr.

Woran kann es noch liegen... Oder gibt es eine zweite lösung ohne umzulöten.

molleonair
20.04.2006, 20:40
if pind.7=0 then
if pind.6=0 then
set signal
end if
end if

so müßts auch gehen
Gruß Daniel