Zahlenfolge

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Zahlenfolge

    Hallo zusammen,

    ich hab hier so ne Aufgabe, die mir leichte Kopfscmerzen bereitet (für die Profies unter euch ist diese Aufgabe warscheinlich banal, aber ich als Anfänger......haha kp :roll: )

    Die Aufgabe:
    Der Computer schreibt eine Folge von Ziffern auf den Bildschirm, die nach 3 Seckunden gelöscht wird. Der Spieler muss sich diese Folge merken und anschließend eingeben. Wenn er richtig eingegeben hat, wird die Folge um eine Ziffer verlängert. Das Spiel läuft so lange, bis die Zifferfolge falsch eingetippt wird.

    Dazu habe ich jezt folgenden Code

    Quellcode

    1. unit ZusatzU;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, ExtCtrls, StdCtrls;
    9. type
    10. TForm1 = class(TForm)
    11. Timer1: TTimer;
    12. Label1: TLabel;
    13. Edit1: TEdit;
    14. Button1: TButton;
    15. Label2: TLabel;
    16. Label3: TLabel;
    17. Label4: TLabel;
    18. Button2: TButton;
    19. procedure Timer1Timer(Sender: TObject);
    20. procedure Button1Click(Sender: TObject);
    21. procedure FormCreate(Sender: TObject);
    22. procedure Button2Click(Sender: TObject);
    23. private
    24. { Private declarations }
    25. public
    26. { Public declarations }
    27. end;
    29. var
    30. Form1: TForm1;
    31. anZ : Integer = 4;
    32. Z : Integer;
    34. implementation
    36. {$R *.dfm}
    38. Function MakeZ(anZ : Integer) : String;
    39. var str : String;
    40. i : Integer;
    41. begin
    42. str := '';
    43. if anZ = 1 then str := IntTostr(random(800)+100)
    44. else
    45. begin
    46. for i := 1 to anZ do
    47. str := str + IntTostr(random(10));
    48. delete(Str,Length(Str),1);
    49. end;
    50. result := str;
    52. end;
    55. procedure TForm1.Timer1Timer(Sender: TObject);
    56. begin
    57. Edit1.Visible:=true;
    58. Label1.Visible:=false;
    59. Timer1.Enabled:=false;
    60. Button1.Enabled:=true;
    61. end;
    63. procedure TForm1.Button1Click(Sender: TObject);
    64. begin
    65. Edit1.Visible:=false;
    66. Button1.Enabled:=false;
    67. if edit1.Text = label1.Caption then
    68. begin
    69. Showmessage('Das ist richtig!');
    70. inc(anZ);
    71. Label1.Caption := MakeZ(anZ);
    72. edit1.Text := '';
    73. label1.Visible := true;
    74. end
    75. else
    76. Showmessage('Leider Falsch! Du konntest dir '+IntToStr(anZ)+ ' Ziffern merken!');
    77. timer1.enabled:=true;
    79. end;
    81. procedure TForm1.FormCreate(Sender: TObject);
    82. begin
    83. randomize;
    84. label1.Caption := MakeZ(anZ);
    86. end;
    88. procedure TForm1.Button2Click(Sender: TObject);
    89. begin
    90. Form1.Close;
    91. end;
    93. end.
    Alles anzeigen


    Das Problem ist jezt, dass zwar immer ne zahl zu komm, aber die folge nicht weiter geführt wird, also:
    375
    8402
    23196 usw.

    anstatt:
    384
    3842
    38428 usw.

    Wie müsste das ganze richtig lauten? Würde mich über eure Hilfe freuen.

    Und danke schon mal im vorraus...

  • Du generierst ja auch jedes Mal einen komplett neuen String.
    Nimm doch einfach den vorhandenen String und füge eine Ziffer am Ende hinzu. Dann brauchst du die Anzahl auch gar nicht mehr übergeben. Den String kannst du dann ja global (also im ganzen Prog verfügbar) machen.
    Außerdem solltest du den Zufallsgenerator beim Programmstart erst noch starten, da die Zahlen sonst per random() nicht wirklich zufällig werden.

  • Also ich hab grad gesehen, dass der Fehler hierdrin liegt

    Quellcode

    1. procedure TForm1.Button1Click(Sender: TObject);
    2. begin
    3. Edit1.Visible:=false;
    4. Button1.Enabled:=false;
    5. if edit1.Text = label1.Caption then
    6. begin
    7. Showmessage('Das ist richtig!');
    8. inc(anZ);
    9. Label1.Caption := MakeZ(anZ); //hier der Fehler
    10. edit1.Text := '';
    11. label1.Visible := true;
    12. end
    13. else
    14. Showmessage('Leider Falsch! Du konntest dir '+IntToStr(anZ)+ ' Ziffern merken!');
    15. timer1.enabled:=true;
    17. end;
    Alles anzeigen


    Hier wird immer wieder eine neue zufallszahl erzeugt, aber wie bekomme ich es hin, dass die zahl in einer variable gemerkt wird und dann eine einstellige zufallszahl hinterher gehängt wird?

    Ich glau ich steh grad voll auf ner laaaaaaaaaaaangen leitung :oops:

  • Hab mal die Unit geändert.
    Hoffe, nun hast du ne Idee, hab nicht geprüft, obs so funktioniert, aber die Idee kannste sicher übernehmen:
    (alles kommentiert)

    Quellcode

    1. unit ZusatzU;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, ExtCtrls, StdCtrls;
    9. type
    10. TForm1 = class(TForm)
    11. Timer1: TTimer;
    12. Label1: TLabel;
    13. Edit1: TEdit;
    14. Button1: TButton;
    15. Label2: TLabel;
    16. Label3: TLabel;
    17. Label4: TLabel;
    18. Button2: TButton;
    19. //das musste noch anpassen
    20. procedure Timer1Timer(Sender: TObject);
    21. procedure Button1Click(Sender: TObject);
    22. procedure FormCreate(Sender: TObject);
    23. procedure Button2Click(Sender: TObject);
    24. private
    25. { Private declarations }
    27. //hier fügen wir jetzt unsere Zahlenfolge hinzu, damit die jederzeit verfügbar ist
    28. Zahlenfolge:string;
    30. public
    31. { Public declarations }
    32. end;
    34. var
    35. Form1: TForm1;
    36. //überflüssig: anZ : Integer = 4;
    37. Z : Integer;
    39. implementation
    41. {$R *.dfm}
    43. //das war einmal: Function MakeZ(anZ : Integer) : String;
    44. //jetzt machen wir:
    45. procedure zahlhinzu;
    46. begin
    47. Zahlenfolge = Zahlenfolge+inttostr(random(10));
    48. //radom(10) erzeugt eine Ziffer von 0 bis 9;
    49. end;
    52. procedure TForm1.Timer1Timer(Sender: TObject);
    53. begin
    54. Edit1.Visible:=true;
    55. Label1.Visible:=false;
    56. Timer1.Enabled:=false;
    57. Button1.Enabled:=true;
    58. end;
    60. procedure TForm1.Button1Click(Sender: TObject);
    61. begin
    62. Edit1.Visible:=false;
    63. Button1.Enabled:=false;
    64. if edit1.Text = label1.Caption then
    65. begin
    66. Showmessage('Das ist richtig!');
    67. ZahlHinzu;
    68. Label1.Caption := Zahlenfolge;
    69. edit1.Text := '';
    70. label1.Visible := true;
    71. end
    72. else
    73. //Länge des Strings
    74. Showmessage('Leider Falsch! Du konntest dir '+length(Zahlenfolge)+ ' Ziffern merken!');
    75. timer1.enabled:=true;
    76. //Zahlenfolge löschen
    77. Zahlenfolge = '';
    79. end;
    81. procedure TForm1.FormCreate(Sender: TObject);
    82. begin
    83. randomize;
    84. label1.Caption := MakeZ(anZ);
    86. end;
    88. procedure TForm1.Button2Click(Sender: TObject);
    89. begin
    90. Form1.Close;
    91. end;
    93. end.
    Alles anzeigen


    Aber wie gesagt:
    Mit radomnize(); oder so erst den Zufallsgenerator starten! Schau mal ind er Delphi Hilfe!