Die Magische 21

eldorado · Hält's aus hier Beiträge: 6

Hi,

also ich hab seit einiger Zeit spaß daran gefunden mit delphi zu arbeiten und ich will folgendes machen:

user defined image

Die Frage ist folgende:
Wie kann ich durch drücken von der Taste Neues Spiel Den Button Würfeln enabled machen.
Und folgenden Label wieder sichtbar: L_Anfang Das Spiel beginnt

ich habs mit dem befehl B_Wuerfel.text:=enabled;versucht aber das geht wohl nicht.

Außerdem will ich dass durch das drücken von WürfelnDie Augenzahl auf die bisherige Augensumme(E_AugSumm) ausaddiert und in dem Textfeld E_AugSumm ausgegebn wird.

Ich hoffe ich hab das thema in den richtigen bereich geöffnet und jemand kann mir helfen.
Danke

starsurfer · Verfasst: Sa 05.11.05 17:55

markieren

Delphi-Quelltext

1:
2:

button1.enabled:=true //oda false
label1.visible:=true //oda false

1: den Button aktivieren oda nich
2: den text anzeigen oda ausblenden

_________________
GEIZ IST GEIL! - Ihr Sozialamt

alzaimar · Verfasst: Sa 05.11.05 18:13

Bishärig? Da stehen mir die Haare zu Bärge!

_________________
Na denn, dann. Bis dann, denn.

eldorado · Hält's aus hier Beiträge: 6

hab ich etwa bishärig geschrieben?

naja mit dem unsichtabr und enable und so hab ich nun gemacht und es funktzt^^

aber wenn ich auf würfel drücke muss doch eine zahl kommen.

Und ich will, dass wenn diese zahl größer als 21 ist das Label Leider Zu Hoch gepokert auftaucht.
Und wenn es kleiner ist das Label Bisherige augensumme.

habs schon so versucht:
if e_AugSumm >=21
then L_Ende.Visible:=true;

eldorado · Hält's aus hier Beiträge: 6

alzaimar hat folgendes geschrieben:

Bishärig? Da stehen mir die Haare zu Bärge!

oh stimmt^^

ändere ich sofort

Alstar · Beiträge: 827

eldorado hat folgendes geschrieben:

[...]Und wenn es kleiner ist das Label Bishärige augensumme[...]

AUTSCH! Das zweite Mal ...

Alstar

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

(aber wenn ich auf würfel drücke muss doch eine zahl kommen.)
Nicht zwangsläufig was hast Du den schon als Code in deinem Prog.
Was klappt denn nicht ? Wie Würfelst Du ? Wie ist der Sinn des Spiels ?
Ohne Angaben kann man Dir schlecht helfen.

eldorado · Hält's aus hier Beiträge: 6

och man hört doch auch auf meine rechtschreib fehler zu korrigieren.

Hilft mir doch endlich einer...ich bin nah dran.

mir randomize hab ich es auch schon versucht aber mir fehlt irgendwas....

Alstar · Beiträge: 827

Jop. Nämlich random();. Ich schätze, dass Du ein ähnliches Spiel wie "17 und 4" (nur halt als Würfelspiel) machen möchtest?!

eldorado hat folgendes geschrieben:

och man hört doch auch auf meine rechtschreib fehler zu korrigieren.[...]

Was interessiert mich Pisa?! Ist doch nicht unser Turm!!

Alstar

eldorado · Hält's aus hier Beiträge: 6

Blackheart666 hat folgendes geschrieben:

(aber wenn ich auf würfel drücke muss doch eine zahl kommen.)
Nicht zwangsläufig was hast Du den schon als Code in deinem Prog.
Was klappt denn nicht ? Wie Würfelst Du ? Wie ist der Sinn des Spiels ?
Ohne Angaben kann man Dir schlecht helfen.

ich will, dass wenn ich auf Würfeln drücke bei E_AugSumm eine Zahl kommt.
Wenn diese zahl größer als 21 ist dann soll eben das eine label erscheinen und wenn die zahl kleiner ist dann das andere.

Also im grunde soll das werfen eines Würfels simuliert werden und die Augenzahl auf die bisherige Augensumme, was im edit feld steht aufaddiert werden und in den selben Edit feld ausgegeben werden.

das ist nur so ein test programm, damit ich sehe, wie das geht.

eldorado · Hält's aus hier Beiträge: 6

So Ich habs geschaft :lol:

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:

unit magic;

interface

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

type
  TF_magic = class(TForm)
    E_AugSumm: TEdit;
    L_Anfang: TLabel;
    L_Ende: TLabel;
    L_AugSumm: TLabel;
    B_Wuerfeln: TButton;
    B_NeuSpiel: TButton;
    B_Beenden: TButton;
    procedure B_WuerfelnClick(Sender: TObject);
    procedure B_NeuSpielClick(Sender: TObject);
    procedure B_BeendenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  F_magic: TF_magic;
  Augensumme:real;
implementation

{$R *.dfm}

procedure TF_magic.B_BeendenClick(Sender: TObject);
begin
close;
end;

procedure TF_magic.B_NeuSpielClick(Sender: TObject);
begin
B_Wuerfeln.Enabled:=true;
L_Anfang.Visible:=true;
L_Ende.Visible:=false;
L_AugSumm.Visible:=false;
B_NeuSpiel.Enabled:=false;
E_AugSumm.text:='0';
end;

procedure TF_magic.B_WuerfelnClick(Sender: TObject);
begin
B_NeuSpiel.Enabled:=true;
B_Wuerfeln.Enabled:=false;
L_Anfang.Visible:=false;

e_AugSumm.Text:= floattostr(Augensumme);

if Augensumme <=21
then L_AugSumm.Visible:=true;

if Augensumme >=21
then L_Ende.Visible:=true;

Randomize;
Augensumme:= Random (41) + 1;


end;

end.

Moderiert von Christian S.: Color- durch Delphi-Tags ersetzt

Einloggen, um Attachments anzusehen!

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

Hier mal ein Ansatz

markieren

Delphi-Quelltext

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

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
  i:= random(21)+1; {Zufallszahl}
  j:=i+StrToInt(Edit1.Text); {j ist gleich Zufallszahl + dem was im Edit steht}
  Caption:=IntToStr(j); {Ergebnis anzeigen}
  if j > 21 then Label1.Caption:='Verloren';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize; {Das nicht immer die selben Zahlen erscheinen}
end;

War wohl ein bischen zu Spät aber...
Aber das was Du vorhattest, und das was Du getan hast sind zwei Paar Schuhe.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme