Rechenlernprogramm für Kids (Fenster???)

DUMMY_260 · Verfasst: Do 04.10.07 11:10

1. "Darstellung der Aufgabe" in den drei Editfeldern. DIe richtige Zahl in eines von drei Feldern schreiben. In die beiden anderen Felder kommt eine beliebige Zahl.
Lösung:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

edit1.text := inttostr(random(irgendwas)); 
edit2.text := inttostr(random(irgendwas)); 
edit3.text := inttostr(random(irgendwas)); 

TEdit(FindComponent('edit'+inttostr(random(3)+1))).text := floattostr(ergebnis);

Nun steht Die richtige Zahl in eines von drei Edit-Feldern wenn das kind nun auf das Richtige feld klickt soll nun eine Anzeige kommen ShowMessage('Gewonnen'); oder ShowMessage('Verloren'); wie mache ich das habe dan keine Ahnung da ich noch Anfänger bin bedanke mich scho im voraus für alle Lösungs vorschlage bzw Lösungen

Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Do 04.10.2007 um 12:16
Moderiert von Narses: Delphi-Tags hinzugefügt

ZeitGeist87 · Verfasst: Do 04.10.07 11:52

Hallo!

In das OnClick-Ereignis des Edit-Feldes:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TMeineForm.MeinEditOnClick(Sender: TObject);
begin;
 if strtoint(MeinEdit.text) = Ergebnis then
  showmessage('Gewonnen')
 else
  showmessage('Verloren');
end;

LG
Stefan

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

DUMMY_260 · Verfasst: Do 04.10.07 11:58

Recht herzlichen dank ich werde es auspropiern

elundril · Verfasst: Do 04.10.07 12:51

eine anregung noch: bist du sicher das du es mit editfeldern machen willst??

lg elundril

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

elundril hat folgendes geschrieben:

bist du sicher das du es mit editfeldern machen willst?

Welche Komponente böte sich denn deiner Meinung nach eher an? Wenn ich Zahleneingaben mache, tippe ich sie meistens, so auch Kinder, und das kann das Edit doch ziemlich gut, oder?

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

ZeitGeist87 · Verfasst: Do 04.10.07 13:04

paint^^
und dann ocr^^

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

DUMMY_260 · Verfasst: Do 04.10.07 13:04

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus, StdCtrls, Buttons, jpeg, ImgList;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Memo1: TMemo;
    Image1: TImage;
    Beenden1: TMenuItem;
    Hilfe1: TMenuItem;
    Info1: TMenuItem;
    ImageList1: TImageList;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Beenden1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Info1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

VAR
Zahl1, Zahl2, ergebnis: integer;


procedure TForm1.Beenden1Click(Sender: TObject);
begin
Form1.Close;
end;



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:= MessageDlg('Wirklich beenden?',
               mtConfirmation,
               [mbYes,mbNo],
               0) = mrYes;
end;


procedure TForm1.Info1Click(Sender: TObject);
begin
  Form3.ShowModal;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := '+';
Zahl1 := StrToInt(Edit4.Text);
Zahl2 := StrToInt(Edit5.Text);
ergebnis := Zahl1 + Zahl2;
edit1.text := inttostr(random(3));
edit2.text := inttostr(random(5));
edit3.text := inttostr(random(11));
TEdit(FindComponent('edit'+inttostr(random(3)+1))).text := floattostr(ergebnis);
end;

procedure TForm1.Button2Click(Sender: TObject);
VAR
Zahl1, Zahl2, ergebnis: integer;
begin
Label1.Caption := '-';
Zahl1 := StrToInt(Edit4.Text);
Zahl2 := StrToInt(Edit5.Text);
ergebnis := Zahl1 - Zahl2;
edit1.text := inttostr(random(3));
edit2.text := inttostr(random(5));
edit3.text := inttostr(random(11));
TEdit(FindComponent('edit'+inttostr(random(3)+1))).text := floattostr(ergebnis);
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.text := '';
edit2.text := '';
edit3.text := '';
edit4.text := '';
edit5.text := '';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit4.MaxLength := 2;
Edit5.MaxLength := 2;
end;

procedure TForm1.Edit1Click(Sender: TObject);
begin
 IF StrToInt(Edit1.Text) - ergebnis then showmessage('Gewonnen') else showmessage('Verloren');
end;

end.

Fehler 126 kommt bei mir dann ausdruck muß BOOlean sein kannst du mir da noch mal aushelfen danke

Zitat:

bist du sicher das du es mit editfeldern machen willst?

Ja welche komponente bitte sich denn da noch an ?

ZeitGeist87 · Verfasst: Do 04.10.07 13:06

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Edit1Click(Sender: TObject);
begin
 IF StrToInt(Edit1.Text) - ergebnis then showmessage('Gewonnen') else showmessage('Verloren');
end;

Probiers mal mit =

LG
Stefan

Moderiert von Narses: Quote- durch Delphi-Tags ersetzt

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.

DUMMY_260 · Verfasst: Do 04.10.07 13:08

ja stimmt hätte ich eigentlich wissen sollen! :oops:

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

JayEff hat folgendes geschrieben:

elundril hat folgendes geschrieben:

bist du sicher das du es mit editfeldern machen willst?

Welche Komponente böte sich denn deiner Meinung nach eher an? Wenn ich Zahleneingaben mache, tippe ich sie meistens, so auch Kinder, und das kann das Edit doch ziemlich gut, oder?

Label, Panel, Button, o.ä.
Zumindest, wenn ich richtig verstanden hab, was DUMMY_260 vorhat... Da gehts nämlich nicht darum, dass die Kids die Zahlen selbst eintippen, sondern nur auf die richtige von drei möglichen Lösungen klicken!

_________________
Anonymes Eckenkind

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

DUMMY_260 hat folgendes geschrieben:

DIe richtige Zahl in eines von drei Feldern schreiben.

Miri hat folgendes geschrieben:

Da gehts nämlich nicht darum, dass die Kids die Zahlen selbst eintippen, sondern nur auf die richtige von drei möglichen Lösungen klicken!

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

jojo-sp · Verfasst: Do 04.10.07 13:43

Bahnhof, Kaiser von China

:gruebel:

Wenn der kleine Schreihals ... ehmm das Kind die Zahl eingeben soll, dann reicht ein Edit zum Eingeben, wobei aber beim onKeyPress buchstaben abgefangen werden sollten.

Falls nicht, kann man doch einfach ne Radiogroup nehmen und die richtige Id des Ergebnisses prüfen.

oder bin ich jetzt total auf dem Weg des Nachwachsenden Rohstoffs???

_________________
Ist der Ruf erst ruiniert, lebts sich gänzlich ungeniert...
Wilhelm Busch (1832 - 1908)

jackle32 · Verfasst: Do 04.10.07 14:01

Also ich würde, wenn es nur darum geht auf das richtige Ergebnis zu klicken Button empfehlen. Is glaub ich für Kinder am leichtesten zu erfassen, dass sie einfach auf einen Button klicken, da Button doch weit verbreitet sind und die Grundfunktionalität auch schon den meisten Kinder bekannt sein dürfte.

Wenn du drei Ergebnisse hast nimm einfach drei Button, in deren Eigenschaft "Caption" du die drei Zahlen schreibst und dann eine Prozedur entwirfst, die du bei allen drei Button im "OnClick"-Ereignis aufrufen kannst.

Könnte dann so ungefähr aussehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

[...]
Button1.Caption := IntToStr(Zahl1);
Button2.Caption := IntToStr(Zahl2);
Button3.Caption := IntToStr(Zahl3);

[...]

procedure TForm1.ButtonClick(Sender: TObject);
begin
  if StrToInt((Sender as TButton).Caption)) = Ergebnis then
    ShowMessage('Gewonnen')
  else
    ShowMessage('Verloren');
end;

Geht natürlich auch mit drei verschiedenen OnClick-Prozeduren, muss aber nicht sein. Was du halt noch machen musst is die Zahlen zufällig auf die Button zuweisen, damit das richtige Ergebniss nicht immer im gleichen steht.

Gruß Jack

_________________
Es gibt keine dummen Fragen, nur dumme Antworten.

Miri · Beiträge: 657 Delphi 3 Prof., Delphi 2005 PE

DUMMY_260 hat folgendes geschrieben:

1. "Darstellung der Aufgabe" in den drei Editfeldern. DIe richtige Zahl in eines von drei Feldern schreiben. In die beiden anderen Felder kommt eine beliebige Zahl.
Lösung:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

edit1.text := inttostr(random(irgendwas)); 
edit2.text := inttostr(random(irgendwas)); 
edit3.text := inttostr(random(irgendwas)); 

TEdit(FindComponent('edit'+inttostr(random(3)+1))).text := floattostr(ergebnis);

Nun steht Die richtige Zahl in eines von drei Edit-Feldern

Wenn ich das richtig verstehe:
Es gibt 3 Edit-Felder. Die werden programmseitig mit zufälligen Zahlen gefüllt.

DUMMY_260 hat folgendes geschrieben:

wenn das kind nun auf das Richtige feld klickt soll nun eine Anzeige kommen

Das Kind sucht sich die richtige davon raus und klickt drauf.

Und imho wären dafür Buttons o.ä. eher für gedacht!

_________________
Anonymes Eckenkind

elundril · Verfasst: Fr 05.10.07 14:10

genau dieses hab ich gemeint. da eh nur klicks verlangt werden und keine eingaben ist es besser buttons zu verwenden, da edits von kinders vermutlich mit einer eingabe assoziiert werden.

lg elundril

P.S: für die sprachrichtigkeit von fremdwörtern übernehm ich keine verantwortung, ebensowenig wie für die folgeschäden der Leser.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme