Mein erstes Programm ohne Hilfe.

[Connor Temple]

Nachdem ich mir die Tutorials mal zu Gemüte geführt hab, hab ich eben innerhalb von ein paar Minuten tatsächlich ein kleines, aber lauffähiges Programm zum Installieren einer nicht vorhandenen Software programmiert.
Über Kritik würde ich mich freuen, das es wirklich mein erstes Programm, ohne jegliche Art von Hilfe ist.

Mfg
Connor Temple

[hans ditter]

Zunächst mal eine Frage: Wird mit dem Programm tatsächlich ein Programm installiert, oder ist das nur eine Simulation?
Dann gefällt mir das ganz gut, vor allem der Anhalten-Button finde ich gut, hat was. Wozu der Neustart-Button gut sein soll, weiß ich nicht.
Jedoch solltest du noch irgendwie klar machen, ob die Installation gerade läuft oder ob sie gerade angehalten ist.

Als letztes: Du könntest noch ein bisschen am Design basteln. Ist aber fast das unwichtigste am Ganzen... ;)

LG; hans ditter

[Connor Temple]

Das ist nur ne Simulation, aber wirkt fast wie echt, oder?
Ja, der Timer verändert an mehreren Stellen seine Intervalle und da werd ich wohl nochmal was hinbauen, irgendeinen Funtext, oder so.
Der Neustart-Button ist halt um nach der "Installation" zurückzusetzen, oder auch schon mittendrin, und um das Label wieder verschwinden zu lassen.

[Luckie]

Delphi-Quellcode:

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 Timer1.Interval := 10000;
If Gauge1.Progress = 98 then Timer1.Interval := 1000;
If Gauge1.Progress = 100 then Label1.Visible := True;
end;

Die gesamte Schöpfungskraft besteht also darin den Fortschrittsbalken der Gauge Komponente zu setzen. :gruebel:

[Capa]

:) warum nicht jeder fängt klein an ;)
aber das mit der Formatierung is viel schlimmer *hust*

[-187-]

Jetzt wird auf jedem Rechner die gleiche Installationszeit simuliert. Versuch noch mal einen zufälligen Timer einzubauen.
Tipp: Randomize, Random()

Viel Erfolg :D

PS: Der Neustart Button müsste eher "Reset" heißen. Achja, welche Tutorials musstest du durchgehen um dieses Werk zu meistern :D

[implementation]

Daraus könntest du eine case-Verzweigung machen:

Delphi-Quellcode:

case Gauge1.Progress of
  21: Timer.Intervall := 5000;
  26, 60: Timer.Intervall := 1;
  48, 98: Timer.Intervall := 1000;
  57: Timer.Intervall := 100;
  95: Timer.Intervall := 10000;
  100: Label1.Show;
end;

:wink:

[Connor Temple]

Ich hab nochmal ein bisschen dran rumgebastelt...

Ich hab mir den Delphi Crashkurs mal so halb durchgelesen und danach ein bisschen mit den Werkzeugen rumgespielt...

Das mit dem zufälligen Timer wollte ich auch schon versuchen, aber naja, wie hier so schön gesagt wurde, jeder fängt klein an.

Und ja, mit dem Gauge-Balken, ist das denn so schlimm?

Und Case werde ich mir demnächst in Ruhe mal anschauen, nicht zuviel auf einmal, das verwirrt dann doch zu sehr, ich bin froh, dass es überhaupt ein bisschen läuft.^^

[-187-]

Naja case und if hab ich mir schon gleichzeitig angeschaut und verglichen. Es ist ziemlich simple: Case kannst du nur bei abzählbaren Typen verwenden. Wozu das ganze? Wenn es an komplexere if..else..if Verschachtelungen geht dann kann man mit case den Code übersichtlich und kürzer gestalten.

[Connor Temple]

Okay, ich werds mir demnächst wirklich mal ansehen, hört sich gut an.
Was mich noch interessiert, wie kann ich den PC nach Ablauf der Gauge-Leiste runterfahren?
Welchen Befehl muss man dafür eingeben? Shutdown -s -t 0 ?
So meinte nen Kumpel das... Aber ich glaub nicht, dass das klappt, dann meckert Delphi doch wieder...