AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Zufalls Zahl Spiel mit Hilfe
Thema durchsuchen
Ansicht
Themen-Optionen

Zufalls Zahl Spiel mit Hilfe

Ein Thema von xDarkx · begonnen am 2. Feb 2011 · letzter Beitrag vom 3. Feb 2011
 
xDarkx

Registriert seit: 2. Feb 2011
4 Beiträge
 
#1

Zufalls Zahl Spiel mit Hilfe

  Alt 2. Feb 2011, 23:38
Sers,

So unser Lehrer hat uns eine Super Tolle.... Aufgabe gegeben

Wir sollten ein "Spiel" Programmieren wo eine Zahl von Delphi generiert wird und diese man dann Raten muss.
Bis hier hin habe ichs noch geschafft

Nun verlangt er aber von uns das wenn wir auf den Button "Hilf" klicken in der Memo erscheint in welchem Bereich die zahlt liegt.
z.B. von 20 bis 30
Das Problem ist allerdings das es nicht viele IF-Abfragen geben darf sondern wir das irgendwie Rechnen sollen und ich Kein Plan habe wie

Ebenfalls habe ich dazu programmiert das man mit Enter das Geschätzte abschicken kann und mit der Entferntaste das Memo wieder löschen.

Hier mal mein Momentaner Code soweit wie ich bin
Code:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private-Deklarationen }
    x: integer;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Clear;
  Edit1.Text := '';

  Randomize;

  x := Random(100);

  Memo1.Lines.Add('Anfangen !!!!!!!!!!')

end;

procedure TForm1.Button1Click(Sender: TObject);
var y : Integer;
begin
    y := StrToInt(Edit1.Text);

    if y < x then Memo1.Lines.Add(IntToStr(y) + ' Zu Klein')
    else if y > x then Memo1.Lines.Add(IntToStr(y) + ' Zu Groß')
    else if y = x then Memo1.Lines.Add(IntToStr(y) + ' PERFEKTTTTT!!!!!!!');
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ord(key)=13 then begin
    Form1.Button1Click(self);
    Edit1.Text := '';
  end;
end;


procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ord(key)=46 then begin
    Memo1.Clear;
    Memo1.Lines.Add('Anfangen !!!!!!!!!!')
  end;
end;

end.

Hoffe jemand kann mir helfen wie ich Weiter komme.

mfg

Geändert von xDarkx ( 2. Feb 2011 um 23:46 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz