wie lautet befehl: if .... oder if ... then ... end if. ??

hallo
ich habe über die suche leider nix gefunden.. auch die bascom hilfe hat nichts gebracht. (OR is zu kurz zum suchen)

ich bräuchte das codefragment für eine "If 1 - oder- If 2 - then" situation..

habe 2 IR sensonren in verschiedenen höhen.. wenn einer der beiden anschlägt soll das ausweichsprogramm gestartet werden..

bis jetzt hab ich versucht beide werte zusammenzuzählen.. aber das war eher mau..

Hab ich mich auch schon öffter gefragt nur nichts dazu gefunden.
Ich habe dann,beim ersten Fall, in eine Variable eine 1 geschrieben und wenn dann Fall zwei eintraf, die Variable ausgelesen. Stand da eine 1 drin, hat er was anderes gemacht, als wenn da eine 0 steht.

jon

Hallo

If Pind.1 = 0 or Pind.2 = 0 then
........
end if

Hi,

ja so wirds gemacht...

oder so... sieht nur schöner aus.

Code:

---


Config Portd = input

Dim Sensor_links As Bit
Dim Sensor_rechts as Bit

Sensor_links Alias Pind.1
Sensor_rechts Alias Pind.2

'--->Haubtprogramm<---
Do

  if Sensor_links = 1 or Sensor_rechts = 1 then gosub Ausweichen

  'restliche Code....

Loop

'--->Unterrutine<----
Ausweichen:

'Deine Ausweichrutine...

Return

---

okey cool danke.. hat funktioniert.. ich hätte es auch einfach mal früher ausprobieren können ;-)

Kann ich anstat dem "or" auch "and" einsetzten?

jon

Kannst Du , nur es wird nicht gehen weil das eine andere Logik ist.
Gento

Ah.
Das hab ich jetzt voll verstanden.
Wenn das von der Logik her nicht gehen würde, was kann ich dann verwenden?

jon

if b=0 and A=1 then
richtig ' beides stimmt
else
falsch ' beides oder eines stimmt nicht
end if


if b=0 or A=1 then
richtig ' b war 0 / oder A war 1 / oder b war 0 und A war 1
else
falsch ' weder b war 0 noch A war 1
end if

Danke! Ich denke, dass ich es jetzt verstanden habe.

jon

Wie werden If-Schleifen verschachtelt?
Möchte Und und Oder abfragen:

If X and ( Y or Z ) then

diese Variante akzeptiert Bascom allerdings nicht.

If X = 1 then
If Y = 1 or Z = 1 then
gosub TuWas
end if
end if

Oder:

If X = 1 then
If Y = 1 or Z = 1 then gosub TuWas
end if

Ja wunderbar... es klappt.
Danke!!! =P~