Entwickler-Ecke :: Thema anzeigen - Zeit sichtbar verstreichen lassen

*Jenny* - So 03.01.10 14:33

Danke erstmal für die hilfreichen Antworten ich werde mal versuchen auf die Fragen einzugehen, muss allerdings dazu sagen das ich Delphi erst seit 3 Monaten haben aber ich werds versuchen.

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:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Spieler: TPanel;
    Ball: TPanel;
    CPU: TPanel;
    stand: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private-Deklarationen }
    //procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  var CPU_top,Spieler_top : integer;
  var ball_top,ball_left, ball_x, ball_y : integer;
  var limit_oben,limit_unten,limit_links,limit_rechts : integer;
  var geschwindigkeit, differenz, schwierigkeit : integer;
  var b, bMehrspieler : boolean;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    b:=false;
    if not (checkbox1.Checked=true) then b:=true; //wer fängt an? false=CPU, true=Spieler
    if checkbox2.Checked=true then bMehrspieler:=true;
    if checkbox2.Checked=false then bMehrspieler:=false;
    geschwindigkeit:=StrToInt(edit1.text);
    ball_x:=StrToInt(edit1.text);
    ball_y:=StrToInt(edit1.text);                       //geschwindigkeit etc. festlegen, start!
    Stand.Caption:='0:0';
    sleep(500);
    Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//ball top
  if ball_top < 8 then
  begin
    ball_top:=8;
    ball_y:= - ball_y;
  end;
  if ball_top > 568 then
  begin
    ball_top:=568;
    ball_y:= - ball_y;
  end;
  ball_top:=ball_top + ball_y;
  ball.Top:=ball_top;
//ball left
  if ((ball_left < 49) and (ball_top>CPU_top-1) and (ball_top<CPU_top+153)) then
  begin
    geschwindigkeit:=geschwindigkeit+1;     //
    ball_y:=ball_y+1;                       //    ball/schläger schneller werden lassen (KI ruckelt)
    ball_x:=ball_x+1;                       //
    b:=true;        //ball wechselt richtung
  end;
  if (ball_left > 975) and (ball_top>Spieler_top-1) and (ball_top<Spieler_top+153) then
  begin
    geschwindigkeit:=geschwindigkeit+1;     //
    ball_y:=ball_y+1;                       //    ball/schläger schneller werden lassen
    ball_x:=ball_x+1;                       //
    b:=false;       //ball wechselt richtung
  end;
//nicht abgeprallt
  if (ball_left>1020) or (ball_left<4) then
  begin
    if ball_left > 1020 then stand.caption:=IntToStr(StrToInt(copy(stand.Caption, 0, pos(':', stand.Caption)-1)) + 1) + copy(stand.Caption, pos(':', stand.Caption), MaxInt);
    if ball_left < 4 then stand.caption:=copy(stand.Caption, 0, pos(':', stand.Caption)) + IntToStr(StrToInt(copy(stand.Caption, pos(':', stand.Caption)+1, MaxInt)) + 1);
    ball.top:=240;
    ball.Left:=512;                       //
    CPU.Top:=200;                         //                   nächstes spiel: punktestand ändern, alles auf anfang
    Spieler.Top:=200;                     //
    CPU_top:=200;
    Spieler_Top:=200;
    ball_top:=240;
    ball_left:=512;
    geschwindigkeit:=StrToInt(edit1.text);
    ball_x:=StrToInt(edit1.text);
    ball_y:=StrToInt(edit1.text);
    differenz:=0;
    b:=false; //wer fängt an? false=CPU, true=Spieler
    if not (checkbox1.Checked=true) then b:=true; //wer fängt an? false=CPU, true=Spieler
    timer1.Enabled:=false;
    if (copy(stand.Caption, pos(':', stand.Caption)+1, MaxInt)=edit2.text) then   //wenn jmd edit2.text punkte erreicht hat, ende
    begin
      showmessage('Spiel zuende du hast gewonnen');
      exit;
      end;
    if (copy(stand.Caption, 0, pos(':', stand.Caption)-1)=edit2.text) then
    begin
      showmessage('Spiel zuende du hast verloren');
      exit;

    end;
    sleep(500);
    timer1.Enabled:=true;
    exit;
  end;
  if b=false then ball_left:=ball_left - ball_x;        //     in welche richtung soll der ball?
  if b=true then ball_left:=ball_left + ball_x;         //
  ball.left:=ball_left;
//CPU
  if bMehrspieler=false then
  begin
    if(ball_left < 350) then // hier kann man den schwierigkeitsgrad der KI einstelllen kleiner=leichter(weniger zeit zu reagieren) größer=schwerer(mehr zeit zu reagieren) --> 512(mitte)=unschlagbar
    begin
      differenz := CPU_top+76 - ball_top;
      if(differenz < 0) then CPU_top := CPU_top + geschwindigkeit else CPU_top := CPU_top - geschwindigkeit;
      if (CPU_top < 8) then CPU_top := 8;
      if (CPU_top > 440) then CPU_top := 440;
      CPU.Top := CPU_top;
    end;
  end;
//Steuerung mit den Pfeiltasten
  if GetAsyncKeystate(VK_UP) < 0 then
  begin
    Spieler_top := Spieler_top - geschwindigkeit;          //
    if (Spieler_top < 8) then Spieler_top := 8;            //
    if (Spieler_top > 440) then Spieler_top := 440;        // Schläger nach oben
    Spieler.Top := Spieler_top;                            //
  end;
  if GetAsyncKeystate(VK_DOWN) < 0 then
  begin
    Spieler_top := Spieler_top + geschwindigkeit;          //
    if (Spieler_top < 8) then Spieler_top := 8;            //
    if (Spieler_top > 440) then Spieler_top := 440;        // Schläger nach unten
    Spieler.Top := Spieler_top;                            //
  end;
// 2ter Spieler (Optional: bMehrspieler=true)
  if bMehrspieler=true then
  begin
    if GetAsyncKeystate(VK_CAPITAL) < 0 then
    begin
      CPU_top := CPU_top - geschwindigkeit;          //
      if (CPU_top < 8) then CPU_top := 8;            //
      if (CPU_top > 440) then CPU_top := 440;        // Schläger nach oben
      CPU.Top := CPU_top;                            //
    end;
    if GetAsyncKeystate(VK_SHIFT) < 0 then
    begin
      CPU_top := CPU_top + geschwindigkeit;          //
      if (CPU_top < 8) then CPU_top := 8;            //
      if (CPU_top > 440) then CPU_top := 440;        // Schläger nach unten
      CPU.Top := CPU_top;                            //
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
  b:=false; //wer fängt an? false=CPU, true=Spieler
  DoubleBuffered := true;
  CPU_top:=200;
  Spieler_Top:=200;
  ball_top:=240;                         //startzustände etc.
  ball_left:=512;
  ball_x:=5;
  ball_y:=5;
  geschwindigkeit:=5;
  differenz:=0;
end;




procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57, #8, #44, #13, #46]) then key := #0;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in [#48..#57, #8, #44, #13, #46]) then key := #0;
end;

end.

Das ist jetzt das ganz normale pong welches ich mal programmiert habe....hatte mir schon bereits gute vorschläge von euch zum Thema Pong durchgelesen und muss sagen es war sehr hilfreich =)
Vllt hilft der Quelltext....

Moderiert von Narses: Delphi-Tags hinzugefügt

jaenicke - So 03.01.10 15:32

*Jenny* hat folgendes geschrieben :

Delphi-Quelltext

1:
2:

    b:=false; //wer fängt an? false=CPU, true=Spieler
    if not (checkbox1.Checked=true) then b:=true; //wer fängt an? false=CPU, true=Spieler

Vergleiche mit true im if, also sowas wie "if x = true then" können ganz böse [http://www.delphi-forum.de/viewtopic.php?p=548760#548760] ins Auge [http://www.delphi-treff.de/tutorials/objectpascal/programmierung-mit-boolean-werten/page/4/] gehen...
Zudem ist das hier unnötig:

Delphi-Quelltext

1:	b := not CheckBox1.Checked;

Globale Variablen sind auch keine gute Idee, insbesondere, wenn du später einmal mehrere Instanzen von Formularen verwendest. Zudem verdirbt es jegliche Übersicht.

Um das richtig umzusetzen kannst du GetTickCount benutzen, das ist die Zeit seit Systemstart in Millisekunden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TForm1 = class(TForm)
  private
    FStartTime: Cardinal;

// beim Start:
  FStartTime := GetTickCount();

// zur Anzeige:
  LabelX.Caption := IntToStr((GetTickCount() - FStartTime) div 1000) + ' Sekunden';

DelphiProgrammer97 hat folgendes geschrieben :

so müsste das funktionieren mit zeit runterzählen

Wenn es nicht um Genauigkeit geht, sondern nur um irgendein Zählen als visueller Gag, dann geht das so, ja... ;-)

Hidden - So 03.01.10 15:57

*Jenny* =),

Für drei Monate sieht das glaube ich schon erstaunlich gut aus(wenn ich so an meine Mitschüler denke, ich bin nämlich selbst noch für ein Vierteljahr Schüler :mrgreen:) :zustimm:
Ein Paar Tipps hätte ich aber doch noch(das macht euer Lehrer vielleicht auch falsch, stammt also nicht notwendigerweise von dir/euch):

Alle Variablen außer Form1: TForm sollten dem Formular gehören(Im Abschnitt "private"). Mit Globalen Variablen kann man sich besonders bei größeren Projekten viel Ärger einhandeln. :)

Delphi-Quelltext

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

type
  TForm1 = class(TForm)
    {..}
  private
    FCPU_top, FSpieler_top: Integer;
    FBall_top, FBall_left, FBall_x, FBall_y: Integer;
    FLimit_oben, FLimit_unten, FLimit_links, FLimit_rechts: Integer;
    FTempo, FDfferenz, FSchwierigkeit: Integer;
    Fb, FbMehrspieler: Boolean;
  private
    //procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
  public
    { Public-Deklarationen }
  end;

Was ist 'b'? Vars sollten nach ihrer Bedeutung benannt werden, nicht nach ihrem Typ.
Vergleiche auf true/false sind generell unnötig, werden aber trotzdem immer wieder gerne gemacht. So ist if not (checkbox1.Checked=true) then b:=true; äquivalent zu if not checkbox1.Checked then b:=true;. Das geht, weil '=' im Prinzip auch nur true/false zurückgibt. Was Passiert denn, wenn b den Wert true annimmt? Dann ist 'true = true' = 'true'. Ist b 'false', so ist 'true = false' = 'false'. Ein solcher Vergleich b = true/false nimmt also immer den Wert b/not b der Variable(oder dessen Negation) an.

Je nachdem, was b für eine Bedeutung hat, geht wahrscheinlich auch b := not Checkbox1.Checked;.

Eine Unit erhält sehr viel Übersicht, wenn man mit mehr Prozeduren arbeitet. Statt mehr doer weniger alles in eine zu quetschen, würde ich weitere hinzufügen(auch unter 'private', und dann unten deklarieren:

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:

type
  TForm1 = class(TForm)
    {..}
  proceduire Button1Click({..});
  private
    //Variablen
  private
    //Prozeduren und Funktionen
    procedure AnBandeAbprallenLassen;
    function SpielEnde: Boolean;
    function SpielerEinPunkte: Integer;
  end;

implementation

{$R *.dfm}

procedure TForm1.Button1Click({..});
begin
  AnBandeAbprallenLassen;
  if SpielEnde then Exit;
  BewegeBall;
end;

procedure AnBandeAbprallenLassen;
begin
  //hier die lange Sache mit dem ball_links > WandLinks etc. rein
end;

function SpielEnde: Boolean;
begin
  {..}
  result := true/false;
end;


function SpielerEinPunkte: Integer;
begin
  reusult := 42;
end;

((Statt Geschwindigkeit nehme ich immer Tempo, unschlagbar kürzer^^))

Mit dem Timer ist glaube ich alles gesgt, das wiederhole ich jetzt nich nochmal^^

E: Bezüglich der Kollionsabfrage. Der Ball braucht eine Größe, nicht nur eine Position. Entweder stellst du ihn als Kreis dar, oder als Rechteck. Dann bestimmst du in jedem Timerstep für die Positionen der Boni, ob der Bonus sich "im Ball" befindet.
Für ein Rechteck geht das am leichtesten, nämlich exakt so wie du geprüft hast, ob der ball über eine der Tischkanten geht kannst du prüfen, ob der Boni innerhalb der Ballkanten geht.
Für einen Kreis ginge das mit Pythagoras: Im Ball <=> (x-xBall)*(x-xBall) + (y-yBall)*(y-yBall) <= 25, für einen Ball mit Radius 5.

mfG,

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!