Weiterlernen

[milos]

Erstmal Willkommen in der Delphi-PRAXIS

Wow, toll zu sehen das ich nicht der einzige bin der so Krank () im Kopf war um von sich aus gefallen an sowas zu finden und sich selbst an zu eignen. (War damals 10 und als ich mich hier angemeldet habe 11/12 Jahre alt lol)

Ich denke auch das man mit einfachem "Learning by doing" am schnellsten und für sich am besten voran kommt. Bücher sind heutzutage zu schnell veraltet und vieles findet man in der Delphi Language Reference und Sachen dazu findet man online genügend z.B. das sieht doch ziemlich simpel und brauchbar aus für den Anfang.

Natürlich kannst du auch immer hier nachfragen falls du nirgends Informationen dazu findest.

Freundliche Grüsse

[mensch72]

1. Schön, das du etwas Spass am Programmieren gefunden hast
2. Schön, das du mit Pascal in Form von Delphi zurecht kommst
3. Schön, das du auch "alleine" weitermachen/weiter kommen willst

Meiner Erfahrung.. das Allerwichtigste: erhalte dir den Spaß !!!
Schnelle kleine Programme die dir selbst und anderen was zeigen können, sind anfangs wichtiger wie schönes internes Programmdesign was aber nur ein paar Textausgaben macht.
Wenn du irgendwann selbst erkennst, das du deinen Code strukturieren musst, weil du nach ein paar Monaten in deinem Quelltext nicht mehr durchblickst, dann ist das eine wichtige Erkenntnis, und dann macht auch das "säubern" / neu und "schön" schreiben des Programms Spass.

Wenn du Delphi im Kopf hast, solltest du in dein Hobby etwas Geld investieren. Hole dir ein aktuelles RadStudio Berlin 10.1pro als Schulversion für 165Eur. (das Geld ist nur zum Lernen investiert, denn offiziell darfst du kein eigenes Programm was du damit erstellt hast an andere weitergeben... auch wenn es weh tut, es ist als SSL trotzdem sehr PREISWERT!!!)

http://www.edv-buchversand.de/produc...ition%2C%20SSL

Wenn du später weißt was du machst und was du willst, kannst du immernoch die Opensource Sachen ala Lazerus,Freepascal,CodeTyphon dir anschauen und für Programme zur Weitergabe nutzen, bzw. einen Chef finden der dir eine Vollversion von Delphi kauft

(wenn du kein Geld für ne IDE ausgeben WILLST oder aus Prinzip nur mit Opensource und kostenloser Software arbeiten möchtest, dann wirst du mit Delphi/RadStudio nicht glücklich

[teodorfon]

Abend alle,wollte jetzt kein thread für mein problem aufmachen,das lernen geht schon ein wenig voran aber leider weiss nicht genau warum mein "loop" (hoff dass der begriff gut gewählt ist) nicht funktioniert.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if shape1.Left>=0 then begin
timer1.Interval:=100;
shape1.Left:=shape1.Left+30;
if shape1.Left=150 then timer1.Enabled:=false;
if timer2.Enabled=false then timer1.Enabled:=true;  //geht nicht .____.
end;
end;
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if timer1.Enabled=false then begin
timer2.Interval:=100;
shape1.left:=shape1.Left-30;
if shape1.Left=0 then timer2.Enabled:=false;
end;
end;
end.

Wollte ein wenig mit den Shapes rumspielen...

[blawen]

- Verwende für Quelltexte im Forum möglichst immer die Delphi-Tags (Helm-Symbol)
- Rücke den Code möglichst sinnvoll ein, dies bringt nicht nur Dir eine bessere Übersicht.
- Direkte Überprüfung auf True oder False ist schlecht, besser Du verwendest folgende Form

Delphi-Quellcode:

if Timer1.Enabled then....
if NOT Timer1.Enabled then...

Zitat:

Delphi-Quellcode:

procedure tform1.timer1timer(sender: Tobject);
begin
  if shape1.left >= 0 
  then begin
    timer1.interval := 100;
    shape1.left     := shape1.left + 30;
    if shape1.left    = 150   then timer1.enabled:=false;
    if timer2.enabled then timer1.enabled := true;  //Macht keinen Sinn -> ev. falscher Timer?
  end;
end;

procedure tform1.timer2timer(sender: Tobject);
begin
  if timer1.enabled
  then begin
    timer2.interval := 100;
    shape1.left     := shape1.left - 30;
    if shape1.left = 0 then timer2.enabled := false;
  end;
end;

end.

Die Procedure tform1.timer1timer wird aufgerufen, wenn der Timer1 aktiv ist und das definierte Intervall abgelaufen ist.
Insofern macht die beanstandete Zeile keinen Sinn - der Timer1 läuft ja bereits. Ich nehme mal an, dass Du eigentlich den Timer2 starten willst?

[teodorfon]

Das problem ist das,das programm sich nicht "wiederholt" nachdem timer1 und timer2 einmal ausgeführt wurden stopt das programm...
if timer2.enabled = false then timer1.enabled:=true; //geht nicht .____. <---Mein versuch den loop zu wiederholen wen er einmal ausgeführt wurde.

[blawen]

Zitat von teodorfon:

Das problem ist das,das programm sich nicht "wiederholt" nachdem timer1 und timer2 einmal ausgeführt wurden stopt das programm...
if timer2.enabled = false then timer1.enabled:=true; //geht nicht .____. <---Mein versuch den loop zu wiederholen wen er einmal ausgeführt wurde.

Die Timer laufen grundsätzlich solange, bis sie gestoppt werden.

Code:

Stopp-Bedingungen
Timer 1: shape1.left = 150
Timer 2: shape1.left = 0

Untersuchen wir mal Timer1.
Annahme Shape.Left ist zu Beginn "0". Somit müsste der Timer1 genau 5x ausgeführt werden und danach stoppen.
In diesem Zusammenhang wäre es besser für die Abbruchbedingung ">= 150" einzusetzen.
Aber wie wird der Timer1 wieder gestartet? (gilt auch für Timer2)

Timer2:
Die Zeile

Delphi-Quellcode:

if timer1.enabled  
  then begin

macht irgendwie keinen Sinn... ebenso timer2.interval := 100;

Delphi-Quellcode:

procedure tform1.timer1timer(sender: Tobject);
begin
  if shape1.left >= 0
  then begin
    timer1.interval := 100;
    shape1.left := shape1.left + 30;

    if shape1.left = 150 
    then begin 
      timer1.enabled := false;
      timer2.enabled := true;
    end;  

  end;
end;

procedure tform1.timer2timer(sender: Tobject);
begin
  if timer1.enabled  
  then begin
    timer2.interval := 100;
    shape1.left := shape1.left - 30;

    if shape1.left <= 0 
    then begin
      timer1.enabled := true;
      timer2.enabled := false;
    end; 

  end;
end;

end.

[Sir Rufo]

Nimm einfach einen Timer, lass den einfach immer durchlaufen und ändere die Schrittweite ab.

Delphi-Quellcode:

TForm1 = class( TForm )
...
private
  FShapeIncrement: Integer;
public
  procedure AfterConstruction; override;
end;

procedure TForm1.AfterConstruction;
begin
  inherited;
  // Startwert festlegen
  FShapeIncrement := 30;
end;

procedure TForm1.Timer1OnTimer( Sender: TObject );
var
  newLeft: Integer;
  maxLeft: Integer;
begin
  newLeft := Shape1.Left + FShapeIncrement;
  maxLeft := Shape1.Parent.ClientWidth - Shape1.Width;

  if newLeft <= 0
  then
    begin
      newLeft := 0;
      FShapeIncrement := - FShapeIncrement;
    end
  else if newLeft >= maxLeft
  then
    begin
      newLeft := maxLeft;
      FShapeIncrement := - FShapeIncrement;
    end;

  Shape1.Left := newLeft;
end;

[blawen]

Folgender Code funktioniert: (Bedingung Shape1.Left ist zu Beginn = 0)

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if shape1.left < 150 then shape1.left := shape1.left + 30;

  if shape1.left >= 150
  then begin
    timer2.enabled := true;
    timer1.enabled := false;
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if shape1.left > 0 then shape1.left := shape1.left - 30;

  if shape1.left <= 0
  then begin
    timer1.enabled := true;
    timer2.enabled := false;
  end;
end;

Aber ich gebe Sir Rufo Recht, ein Timer ist besser