Wenn Abfage Hilfe

[derPat17]

Hallo,

ZUERST: ICH WEISS NET OB DAS DAS RICHTIGE UNTERFORUM IST, DA ICH MIT DELPHI NET SO VIEL ZUTUN HABE!

ich habe zwar in meiner Berufsschule damals Delphi gelernt, das ist aber nun fast 10Jahre her xD

Ich wollte mal wieder was in Delphi schreiben, weil ich in etwa wüsste, wie ich das machen kann.

Jedenfalls stehe ich nun vor einen Problem, ich wollte ein Ganz einfaches Noten-Programm schreiben.

soll heissen, ich klicke auf die Note auf den Griffbrett (Button) und ein Label gibt dann meine Notenposition an (soweit so gut, das ist ja noch einfach).

Nun möchte ich mit einem weiteren button abfragen, ob die Note im Edit Feld (normale Noten: ABCDEFG) und die Position (also net das ABCDEFG, sondern ein E1, E2, E3 usw.) im Label übereinstimmen, damit in einen weiteren Label entweder RICHTIG oder FALSCH kommt.
Und wenn Falsch, soll noch zusätzlich die richtige Note in einen weiteren Edit Feld erscheinen.

Das das ganze mit der when if else funktion machbar ist, ist mir klar, aber irgendwas stimmt mit den variablen oder so net?

[a.def]

Was ist "Position" und wie ist das bei dir umgesetzt? Also das E1, E2, E3?

[derPat17]

"Position" ist nix anderes als eine Text Hilfestellung für den User, welchen Button man anklickte in Form eines Textes im Label [und E1, E2 soll einfach der text sein, musik eben :)]

[derPat17]

zur verdeutlichung, ein Bild meiner Form:

http://www.bilder-upload.eu/thumb/d90759-1485801971.png

[Slipstream]

Vielleicht ist es ja schon zu spät und ich zu müde, um überhaupt noch was zu begreifen, aber ich habe wirklich nicht verstanden, was du eigentlich machen willst und wo dein Problem liegt. Das Bild, das du verlinkt hast, ist noch dazu viel zu klein, um darauf überhaupt was erkennen zu können.

Was mir noch aufgefallen ist: Es gibt acht Noten, nicht nur sieben: CDEFGAH.

Zitat:

Zitat von derPat17 (Beitrag 1360401)

Das das ganze mit der when if else funktion machbar ist, ist mir klar, aber irgendwas stimmt mit den variablen oder so net?

IF THEN ELSE kenne ich, aber was ist eigentlich eine when function?

[Klaus01]

.. ein Versuch
Du gibst in einem Editfeld Noten in Form von Buchstaben ein.
Wenn z.B. 'C' eingegeben wird - soll ein Text erscheinen der die Position auf dem "Griffbrett" beschreibt.

Ist das ungefähr richtig?
Grosse
Klaus

[p80286]

Es könnte sich um so etwas wie eine Tabulatur handeln. Nur was da richtig/falsch zu suchen hat ist mir schleierhaft.

Gruß
K-H

[Slipstream]

Zitat:

Zitat von p80286 (Beitrag 1360418)

Es könnte sich um so etwas wie eine Tabulatur handeln. Nur was da richtig/falsch zu suchen hat ist mir schleierhaft.

Oder er möchte eine zufällige Note in der Notentabulatur erscheinen lassen und der Anwender soll dann ins Editfeld reinschreiben, um welche Note es sich handelt. Und wenn er richtig geraten hat, dann erscheint im Label das Wort "Richtig", ansonsten "Falsch". Aber eigentlich wäre es die Aufgabe des Fragers, seine Frage so zu formulieren, dass jeder auf Anhieb versteht, was er will.

[p80286]

[OT]

Zitat:

Zitat von Slipstream (Beitrag 1360435)

Aber eigentlich wäre es die Aufgabe des Fragers, seine Frage so zu formulieren, dass jeder auf Anhieb versteht, was er will.

Das fällt ja auch einigen gestandenen Mitgliedern manchmal nicht leicht:stupid:
[/OT]

Gruß
K-H

[derPat17]

IF THEN ELSE kenne ich, aber was ist eigentlich eine when function?[/QUOTE]

Ja stimmt If .. ich sag ja, ich bin zu lange raus xD

Und nochmal ganz langsam

Ich habe ein griffbrett (Bild) mit buttons.

Jeder Button macht einen label text zu der ausgewählten Position (das funktioniert alles!)

Jetzt gebe ich in einem edit Feld die Note ein (AHCDEFG).

JETZT soll in einem extra Button geprüft werden, ob die Note im edit Feld mit der Notenposition im label stimmt?

Wenn net, dann kommt ein FALSCH mit dem Namen der richtigen Note (nochmal in einem extra label), wenn es stimmt, dann ein RICHTIG.

Hoffe es ist jetzt etwas klarer...

Soll ich das über variablen regeln oder so?

Mfg

[Luckie]

Dann vergleiche doch den Label Text mit dem Edit Text.

[derPat17]

Geht das so einfach?

If editnote.text:='A' and labelpos.caption:='E5'
Then ..
Else .. ;

Mfg

[Jumpy]

Nur ohne den Doppelpunkt...

[derPat17]

ok klappt soweit, ich habe nun

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
If edit1.text='F' and Labelnote.Caption:='E1'
then labelausgabe.Caption:='RICHTIG!'
else labelausgabe.Caption:='FALSCH!';
end;

es kommt aber
[Error]Unit1.pas(468): Operator not applicable to this operand type
(und er makiert die then zeile)

wenn ich aber das "and" weglasse, funktioniert es, aber er soll doch vergleichen. (Also wenn das und das dann...)

MFG

[Dalai]

Delphi-Quellcode:

If (editnote.text = labelpos.caption) Then ..
Else .. ;

Grüße
Dalai

[derPat17]

ok danke, und wie bekomme ich in else noch eine 2. anweisung rein dass er mir die Richtige Note falls Falsch in einem extra label anzeigt?

ein and geht ja net?

MFG

[Klaus01]

.. vielleicht so?

Delphi-Quellcode:

If (edit1.text='F') and (Labelnote.Caption:='E1') then

grüße
Klaus

[derPat17]

wenn ich das "and" und die 2. Anweisung weglasse geht es... ich möchte aber die 2. Anweisung :P

[Klaus01]

and

Code:

false and false -> false
false and true -> false
true and false -> false
true and true -> true

or

Code:

false or false -> false
false or true -> true
true or false -> true
true or true -> true

Was geht denn und was geht nicht?

Welche Werte habe denn
Edit1.text und Labelnote.caption wenn nicht geht?

Grüße
Klaus

[derPat17]

wie welche werte? na ein text ^^ label (caption) und im edit feld ( text)

[Dalai]

Nö, das ist nicht das Problem. Da ist noch ein Doppelpunkt zuviel im Vergleich. Unabhängig davon habe ich immer noch Verständnisprobleme, wohin das Ganze gehen soll. Die Art der Speicherung der Daten in grafischen Komponenten, hier Label und Edits, macht die Sache unnötig kompliziert. Denn das Endprodukt involviert doch bestimmt nicht nur den einen Stringvergleich - sind ja schlließlich mehrere Noten. Und viele Stringvergleiche sind unübersichtlich und fehleranfällig.

Grüße
Dalai

[Klaus01]

Delphi-Quellcode:

If (edit1.text = 'F') and (Labelnote.Caption = 'E1') then
  begin
    labelausgabe.Caption:='RICHTIG!'
    showMessage(Edit1.text+'  '+Labelnote.Caption);
  end
else 
  begin
    labelausgabe.Caption:='FALSCH!';
    showMessage(Edit1.text+'  '+Labelnote.Caption);
  end;  
end;

[derPat17]

ok ich habe das ganze doch noch hinbekommen ^^

danke für die hilfestellunggen und so ^^