Memory Programm

[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.

[DeddyH]

Du kannst auch die unbedingt benötigten Dateien (namentlich *.pas, *.dfm und *.dpr) des Projekts in ein Zip-Archiv packen und das an Deinen Beitrag anhängen. Und dass nicht vorhandener Quelltext auch nichts tut, sollte klar sein.

[Sir Rufo]

Ich würe mal sagen, das ist - gelinde gesagt - gar nichts. Ein paar Images auf einer Form und ein paar Click-Handler.

Das bekommt "jeder" nach 2 Stunden Schulung hin.

Vielleicht erläuterst du einmal, was du von Delphi kennst?

• Records
• Arrays
• Klassen
• Listen

Wenn keins von denen, dann solltest du dich mit einem Grundlagen-Tutorial auseinandersetzen.

[KillerMary]

in info hatten wir behandelt :

Schleifen (for-to-do, repeat-until)
dann records... so dann eig berechnugnen damit Zinssatz Berechnung und das in Tabellen übertragen.

arrays
sowas wie ne Buchführung wo Daten von einer Person eingegeben werden unter einer nummer gespichert werden und abgerufen werden könnten dieser Nummer.
nunja und dann haben wir uns das komplette letzte Halbjahr mit Kryptologie beschäftigt. und zufallszahlen. da haben wir eigentlich nichts mit Delphi gemacht.

[BadenPower]

Ähm, ja... ich dachte, dass Programm sei soweit fertig, ausser dass das Umdrehen und weglegen der Karten nicht funktioniert.

Aber hier fehlt ja die komplette Programmlogik.

Wollt Ihr bei der Darstellung der Bilder mit zwei übereinanderliegenden Images bleiben, also Bild und Deckblatt getrennt?

[KillerMary]

wenn das zu umständig ist kann man das noch ändern ._.

das programm ist ja nurnoch der teil mit umdrehen vergleichen und offen lassen oder wieder umdrehen.

[DeddyH]

Naja, dieses "nur noch" ist aber doch eben die komplette Spiellogik.

[KillerMary]

schon ._. oh mahn