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

[nooob]

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..

[Jon]

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

[Lord Crumb]

Hallo

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

[Sommer]

Hi,

ja so wirds gemacht...

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




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

[nooob]

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

[Jon]

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

jon

[Gento]

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

[Jon]

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

jon

[Gento]

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

[Jon]

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

jon

[-sepp-]

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

If X and ( Y or Z ) then

diese Variante akzeptiert Bascom allerdings nicht.

[Marco78]

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

[-sepp-]

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