Memory Programm

[KillerMary]

Hey, danke erstmal an alle.


erstmal zu dir Badenpower.
ich kann dir das leider nicht komplett zeigen da es aus insgesamt aus viel zu vielen Formularen besteht.
und es geht mir nicht drum das ihr mir meine Aufgaben erledigt.
Ich versuche nur ne Lösung zu finden für das umdrehen von 2 karten. bei gleichem Bild bleiben sie offen bei verschiedenen Bildern müssen sie sich wieder umdrehen.

Sir Rufo, den Sinn so als Hintergrund ist uns mittlerweile plausibel.
der umsatz fällt und schwer, da ich persönlich sagen muss, unsere Lehrerin selbst nicht wirklich versteht was sie uns erklärt.. was schade ist. Nunja... da es ein einfach Informatikkurs ist, haben wir da nicht alles von Delphi erfahren.. und uns ist jetzt erst bewusst das das doch nicht so einfach ist wie wir dachten. Aber wir lernen ja auch daraus. Aber wir versuchen deine Starthilfe zu nutzen und fortzusetzen. Danke )))

Catbytes. Ich muss sagen dein Programm ist schon nice & ahnung habt ihr alle. & wir wären überaus glücklich und zu tiefst dankebar wenn du uns ein paar schnipsel geben würdest vll auch mit erklärung damit wir wissen was wir gerade genau schreiben.
Wichtig ist uns jetzt erstmal das öffnen von 2 karten und das vergleichen & umdrehen.

[Luckie]

Also wenn es nur um das Prinzip geht, dann sind Schaltflächen mit Zahlen am einfachsten. Dann fallen die ganzen grafischen Probleme weg. Auf meiner Webseite http://michael-puff.de/Programmierung/Delphi/Programme/ findet sich ein einfaches Memory. Die ganze Logik steckt in einer eigenen Klasse: MemoryCls.pas.

[Mavarik]

Zitat von KillerMary:

...da ich persönlich sagen muss, unsere Lehrerin selbst nicht wirklich versteht was sie uns erklärt.. was schade ist. Nunja... da es ein einfach Informatikkurs ist, haben wir da nicht alles von Delphi erfahren...

AUTSCH...

Vielleicht sollten wir dann doch mal online Schulungen für Lehrer anbieten...

[KillerMary]

Zitat von Mavarik:

Zitat von KillerMary:

...da ich persönlich sagen muss, unsere Lehrerin selbst nicht wirklich versteht was sie uns erklärt.. was schade ist. Nunja... da es ein einfach Informatikkurs ist, haben wir da nicht alles von Delphi erfahren...

AUTSCH...

Vielleicht sollten wir dann doch mal online Schulungen für Lehrer anbieten...

Also doof bin ich ja nun nicht wirklich wenn man mir das so erklärt das man es selbst versteht.

und eure Ideen sind es zu geil und alles Lösungen nur ich könnte mir in den Arsch beißen das ich die nicht umsetzen kann weil mir die Kenntnisse fehlen. 2 Jahre Delphi und doch nichts ordentliches gelernt.
aber echt lieb eure ganzen Ideen. Danke schonmal.

Komme mir noch dümmer vor :/

[p80286]

Zitat von Mavarik:

Vielleicht sollten wir dann doch mal online Schulungen für Lehrer anbieten...

Und was willst Du dann lehren? Zielgerichtetes Denken? Problemanalyse?
Oder Delphi-Syntax Stand Dx-200x-XEx ?

Sobald heutzutage ein Lehrer auffordert den Bleistift und ein Blatt Papier zu nutzen, ist er doch schon unten durch, und als hoffnungsloses Fossil abgestempelt.

Gruß
K-H

Zitat von KillerMary:

Komme mir noch dümmer vor :/

Was glaubst Du wie viele Jahre Programmiererfahrung hier versammelt sind?
Die meisten hier lernen trotzdem immer noch hinzu.

[KillerMary]

[QUOTE=p80286;1293767]

Zitat von Mavarik:

Was glaubst Du wie viele Jahre Programmiererfahrung hier versammelt sind?
Die meisten hier lernen trotzdem immer noch hinzu.

Das ist mir bewusst.

Aber alle Ideen die hier angesprochen werden probieren wir aus und nichts will funktionieren.

Wir haben auf dem Formular Schwierigkeit leicht 7 Paare.
und schreiben das in die Karten rein (also die TImage) ... und die drehen sich nicht um wenn nicht drin steht:


image15.visible:= false;

[p80286]

Zitat von KillerMary:

Aber alle Ideen die hier angesprochen werden probieren wir aus und nichts will funktionieren.

Wir haben auf dem Formular Schwierigkeit leicht 7 Paare.
und schreiben das in die Karten rein (also die TImage) ... und die drehen sich nicht um wenn nicht drin steht:


image15.visible:= false;

Ein paar ausführlichere Informationen (Sourcecode) könnten hier nicht schaden, und natürlich WAS funktioniert nicht. Gibt es eine Fehlermeldung oder was.. ?

Gruß
K-H

[BadenPower]

Zitat von p80286:

[Ein paar ausführlichere Informationen (Sourcecode) könnten hier nicht schaden,

Hatte ich in Post #14 bereits darum gebeten, denn wenn man keinen Ansatzpunkt zum helfen hat, wo soll man dann ansetzen.

Und es geht dabei nicht darum das Programm für Euch zu schreiben, sondern um die Stellen zu analysieren, wo es hapert.

[KillerMary]

es kommt keine Fehlermeldung.
wenn wir den Quelltext einschreiben passiert einfach nichts. die karte (deckkarte) verschwindet nicht mehr. das Programm läuft aber.

das vergleichen muss ja irgendwie stattfinden ...
und unsere Lehrerin meinte ein Zähler ist bei Images nicht möglich.

[KillerMary]

ich würde euch gern mein Programm zu senden... aber das ich hier leider nicht möglich und Quelltext hab ich eingefügt soweit vorhanden.
passt auf ich zeig euch Screens vom Programm.

das ist das Grundgerüst.
das ist bei jedem Thema mit leicht mittel schwer. und bei mittel und schwer sind es dann jeweils mehr karten.

Quelltext? fast leer, weil nichts funktioniert, aber bitte :

Code:

unit UnitAL;

interface

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

type
  TFormAL = class(TForm)
    Button2: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image15: TImage;
    Image16: TImage;
    Image17: TImage;
    Image18: TImage;
    Image19: TImage;
    Image20: TImage;
    Image21: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    Image13: TImage;
    Image14: TImage;
    Image22: TImage;
    Image23: TImage;
    Image24: TImage;
    Image25: TImage;
    Image26: TImage;
    Image27: TImage;
    Image28: TImage;
    procedure Button2Click(Sender: TObject);
    procedure Image15Click(Sender: TObject);
    procedure Image16Click(Sender: TObject);
    procedure Image17Click(Sender: TObject);
    procedure Image18Click(Sender: TObject);
    procedure Image19Click(Sender: TObject);
    procedure Image20Click(Sender: TObject);
    procedure Image21Click(Sender: TObject);
    procedure Image22Click(Sender: TObject);
    procedure Image23Click(Sender: TObject);
    procedure Image24Click(Sender: TObject);
    procedure Image25Click(Sender: TObject);
    procedure Image26Click(Sender: TObject);
    procedure Image27Click(Sender: TObject);
    procedure Image28Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormAL: TFormAL;
  zaehler: integer;

implementation

uses UnitStart;

{$R *.dfm}

procedure TFormAL.Button2Click(Sender: TObject);
begin
formstart.show;
end;

procedure TFormAL.Image15Click(Sender: TObject);
begin
image15.visible:=false;
end;

procedure TFormAL.Image16Click(Sender: TObject);
begin
image16.visible:= false;
end;

procedure TFormAL.Image17Click(Sender: TObject);
begin
image17.visible:= false;
end;

procedure TFormAL.Image18Click(Sender: TObject);
begin
image18.visible:= false;
{aufgedeckt:=
vergleicher()     }
end;

procedure TFormAL.Image19Click(Sender: TObject);
begin
image19.visible:= false;
end;

procedure TFormAL.Image20Click(Sender: TObject);
begin
image20.visible:= false;
end;

procedure TFormAL.Image21Click(Sender: TObject);
begin
image21.visible:= false;
end;

procedure TFormAL.Image22Click(Sender: TObject);
begin
image22.visible:= false;
end;

procedure TFormAL.Image23Click(Sender: TObject);
begin
image23.visible:= false;
end;

procedure TFormAL.Image24Click(Sender: TObject);
begin
image24.visible:= false;
end;

procedure TFormAL.Image25Click(Sender: TObject);
begin
image25.visible:= false;
end;

procedure TFormAL.Image26Click(Sender: TObject);
begin
image26.visible:= false;
end;

procedure TFormAL.Image27Click(Sender: TObject);
begin
image27.visible:= false;
end;

procedure TFormAL.Image28Click(Sender: TObject);
begin
image28.visible:= false;
end;

procedure TFormAL.FormCreate(Sender: TObject);
begin
If zaehler > 1 then
Zaehler := 0;
end;

end.