if not abfragen

[xxsasch4xx]

wenn edit 2 und 3 beide gleichzeitig nicht 1 ergeben dann soll die meldung kommen dass es vorbei ist
also wenn eine der folgenen kombinationen auftritt soll die anweisung ausgeführt werden:
1 0
0 1
und
0 0

also wenn beide gleichzeitig 1 sind soll die anweisung nicht ausgeführt werden.
wie geht das?
will es aber mit dem not haben sonst müsste ich immer jede kombination abfragen die auftretn kann also 3 kombinationen insgesammt
mein ansatz war:

Delphi-Quellcode:

  begin
  if not(edit3.text='1') and not (edit2.text='1')
  then
  showmessage('vorbei')
  end;

[mkinzler]

Delphi-Quellcode:

if not ((edit3.text='1') and (edit2.text='1')) then ...

[DeddyH]

Deine Abfrage müsste doch funtionieren. Ansonsten versuche es mal mit

Delphi-Quellcode:

  begin
  if not((edit3.text='1') and (edit2.text='1'))
  then
  showmessage('vorbei')
  end;

[xxsasch4xx]

Delphi-Quellcode:

begin
  if not(edit3.text='1') and (edit2.text='1')
  then
  showmessage('vorbei')
  end;

wenn ich das so mache dann wird die ausgabe nur gemacht wenn
edit 3 = 0 und edit 2 = 1
so hatte ich das ja auch zuerst
und als ich dann umgeformt hab zu

Delphi-Quellcode:

begin
  if not(edit3.text='1') and not (edit2.text='1')
  then
  showmessage('vorbei')
  end;

kommt es nur zur ausgabe wenn beide gleich 0 sind
aber ich will ja auch dass es zur ausgabe kommt wenn eins der beiden auf 1 ist

[youuu]

Zitat:

Zitat von xxsasch4xx (Beitrag 1055297)

wenn edit 2 und 3 beide gleichzeitig nicht 1 ergeben dann soll die meldung kommen dass es vorbei ist
also wenn eine der folgenen kombinationen auftritt soll die anweisung ausgeführt werden:

Zitat:

Zitat von xxsasch4xx (Beitrag 1055297)

1 0
0 1
und
0 0

Wiederspricht sich das nicht?

Ich glaube du willst das hier? ( Auf 1 0, 0 1 und 0 0 bezogen)

Delphi-Quellcode:

begin
  if not(edit3.text='1') OR not (edit2.text='1')
  then
  showmessage('das game ist vorbei')
  end;

[xxsasch4xx]

also die anweisung soll nicht ausgeführt werdn wenn beide gleihczeitig 1 sind ansonsten soll immer ausgeführt werden!
sprich wenn beide 0 sind oder eins der beidn 1 ist!
aber sobald alle beide 1 sind soll nix mehr ausgeführt werden!
vieleicht war das in der ersten beschreibung etwas unschlüssig!

[youuu]

Delphi-Quellcode:

begin
  if not(edit3.text='1') OR not (edit2.text='1')
  then
  showmessage('das game ist vorbei')
  end;

Dann wohl so :)

[DeddyH]

Stimmt, OR statt AND. Oder eben die Lösung mit der äußeren Klammer. Oder die NOTs weglassen:

Delphi-Quellcode:

if (Edit2.Text <> '1') or (Edit3.Text <> '1') then

[xxsasch4xx]

Delphi-Quellcode:

  if not(edit4.text='1') OR not (edit5.text='1')

ja so funktioniert es aber ich versteh nicht warum da ein oder hinkommt und nicht ein and..

[youuu]

"And" sagt aus, das beide Edit Felder ungleich 1 seien müssen.
"OR" sagt, entweder Edit1 ungleich 1 oder Edit2 ungleich 1..

[DeddyH]

Das AND greift, wenn beide Bedingungen zutreffen, OR greift schon, wenn mindestens eine Bedingung zutrifft.

[xxsasch4xx]

wäre dann in der digitaltechnik eine nicht oder verküpfung oder?

[DeddyH]

Was meinst Du jetzt? Nicht oder (NOR) heißt ja, das Ergebnis einer Oder-Verknüpfung zu negieren.

[mkinzler]

Hier wird aber eine AND Verknüpfung negiert

[Sir Rufo]

Das hier

Zitat:

Zitat von DeddyH (Beitrag 1055299)

Delphi-Quellcode:

  begin
  if not((edit3.text='1') and (edit2.text='1'))
  then
  showmessage('vorbei')
  end;

ist das Gleiche wie das hier (alle Klammern beachten)

Zitat:

Zitat von youuu (Beitrag 1055302)

Delphi-Quellcode:

begin
  if not(edit3.text='1') OR not (edit2.text='1')
  then
  showmessage('das game ist vorbei')
  end;

denn

Code:

not A or not B = not ( A and B )
not ( A and B ) <> not A and B

Wer es nicht glaubt macht sich eine Wertetabelle ;)

[DeddyH]

IIRC (ist lange her) ändert eine Zusammenfassung/Auflösung in Verbindung mit NOT das AND immer in OR und umgekehrt.

Code:

not (a and b)
<=> not a or not b

not (a or b)
<=> not a and not b

[Aphton]

Des Problem's Lösung:

Delphi-Quellcode:

var
  e2, e3: Integer;
begin
  e2 := StrToInt( Edit2.Text ) mod 2;
  e3 := StrToInt( Edit3.Text ) mod 2;
  if Boolean( e2 xor e3 ) or ( e2 and e3 = 0 ) then
    ShowMessage( 'Vorbei' );
end;

[mkinzler]

Diese Lösung ist immer noch zu einfach :stupid:

[Aphton]

Man könnte ja - wenn man Lust darauf hat - die Bedingungsabfrage in die GPU verlagern, aber ... btw. das hätten wir übrigens schonmal und zwar als ein gewisses Forummitglied wissen wollte, wie man Zahlen negiert...
*Nostalgie

MfG

[DeddyH]

Außerdem würde wenn ich das richtig sehe jede Kombination ungerader Zahlen als gültig angesehen.

[BUG]

Zitat:

Zitat von DeddyH (Beitrag 1055329)

IIRC (ist lange her) ändert eine Zusammenfassung/Auflösung in Verbindung mit NOT das AND immer in OR und umgekehrt.

Und das Ganze ist bekannt unter dem Namen De Morgan'schen Regeln.

[David Martens]

wenn da nur 0 oder 1 drinstehen kann dann mach's doch einfach so:

Delphi-Quellcode:

begin
  if edit3.text='0' or edit2.text='0'
  then
    showmessage('vorbei')
end;

oder so, wenn es darauf ankommt das NICHT zwei Einsen drinstehen:

Delphi-Quellcode:

begin
  if edit3.text<>'1' or edit2.text<>'1'
  then
    showmessage('vorbei')
end;

[DeddyH]

Letzteres wurde bereits genannt. Außerdem hast Du die Klammern vergessen ;)