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