Logisch UND Verknüpfung???

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

Hallo,

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

Kannst du den Code auch posten, den du dazu verwendest?

EDIT: mist, zu langsam :)

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

Zitat:

---

if Pind.7 and Pind.6 then..

---

Werter Kollege, irgendwie fehlt da was

Zitat:

---

if Pind.7 = 1 and Pind.6 = 1 then..

---

wäre zum Beispiel möglich

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

Pullups nicht eingebaut/eingeschaltet und Brumm auf der Leitung?

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.

if pind.7=0 then
if pind.6=0 then
set signal
end if
end if

so müßts auch gehen
Gruß Daniel