Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Mein erstes Programm ohne Hilfe.

   
    by Luckie, 23. Feb 2011
  Ah ja. Und wie stellst du dir vor dass wir dir helfen sollen?
  
  
  Meinst du nicht auch, dass wenn es den geben würde wir ihn dir gegeben hätten oder du ihn mit Google gefunden hättest? :roll:
  
  Und was meinst du, wie viel Spaß es macht, wenn du was nützliches programmierst -- und wenn es nur für dich ist?
• Forum: Programmieren allgemein

  AW: Mein erstes Programm ohne Hilfe.

   
    by Luckie, 23. Feb 2011
  procedure TForm1.Timer1Timer(Sender: TObject);
  begin
  Gauge1.Progress := Gauge1.Progress + 1;
  If Gauge1.Progress = 21 then Timer1.Interval := 5000;
  If Gauge1.Progress = 26 then Timer1.Interval := 1;
  If Gauge1.Progress = 48 then Timer1.Interval := 1000;
  If Gauge1.Progress = 57 then Timer1.Interval := 100;
  If Gauge1.Progress = 60 then Timer1.Interval := 1;
  If Gauge1.Progress = 95 then...