Spielzeitberechnungen.

LuGo · Beiträge: 33

Hallo,

hab schon wieder eine Frage. Ich programmiere derzeit ein Spiel, einen Feuerwehrsimulator. Da jedes Fahrzeug zur Einsatzstelle erst kommen muss, versuche ich die Fahrzeit zu programmieren.
Ich bin schon ungefähr soweit gekommen:

markieren

Delphi-Quelltext

1:
2:
3:
4:

var Strecke, Geschwindigkeit: Integer;
Fahrtzeit: Real;

Fahrtzeit := Geschwindigkeit div Strecke;

Ab hier komme ich nicht weiter. Ich würde gerne die Zeit, die das Fahrzeug noch braucht, anzeigen lassen.
Außerdem würde ich gerne die Zeit berechnen, in dem (wie in meinem Falle) 9 Feuerwehrmänner zum Einsatz kommen und dann zur Einsatzstelle fahren.

MfG

LuGo

Nersgatt · Verfasst: Mi 03.02.10 16:15

Naja, die Grundformel sollte doch klar sein, oder?

Geschwindigkeit = Strecke / Zeit

Diese Formel kannst Du doch zu jedem Parameter umstellen, den Du gerade berechnen möchtest. Dafür musst Du halt die anderen beiden wissen.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

LuGo · Beiträge: 33

Das hilft mir aber momentan nicht weiter. Ich kenne Strecke (Entfernung Feuerwache zum Einsatzort) und die Geschwindikeit meines Fahrzeugs (60 km/h oder einfach 60) und suche eine Berechnung der Zeit und dss abzählen derselbigen.

Nersgatt · Verfasst: Mi 03.02.10 16:30

Dann verstehe ich Dein Problem nicht.

Gegeben
Strecke 5 km
Geschwindigkeit 60 km/h

Gesucht:
Zeit (h)

Geschwindigkeit = Strecke / Zeit
Umstellung nach Zeit:
Zeit = Strecke / Geschwindigkeit

Zeit = 5 km / 60 km/h = 0,083333 h

Diese Berechnung in einem Timer, der z.b. 2x pro Sekunde das Ergebnis in einem Label ausgibt.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

LuGo · Beiträge: 33

Genau das meinte ich. Nur da ich Anfänger bin, weiss ich nicht was ich da jetzt machen soll. Wäre schön, wenn jetzt erklärt würde, was ich eintippen soll usw.

Bergmann89 · Verfasst: Mi 03.02.10 17:31

Hey,

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ZeitLabel.Caption := IntToStr(RestStrecke/Geschwindigkeit);
end;

ODER

markieren

Delphi-Quelltext

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  GesamtZeit := GesamtZeit - Timer1.Interval;
  ZeitLabel.Caption := IntToStr(GesamtZeit);
end;

procedure TForm1.StartEinsatzClick(Sender: TObject);
begin
  GesamtZeit := RestStrecke/Geschwindigkeit;
end;

das sollte es doch sein, oder?!

MfG Bergmann

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

Nersgatt · Verfasst: Do 04.02.10 10:11

LuGo hat folgendes geschrieben :

Genau das meinte ich. Nur da ich Anfänger bin, weiss ich nicht was ich da jetzt machen soll. Wäre schön, wenn jetzt erklärt würde, was ich eintippen soll usw.

Da wirst Du mal ein bisschen mehr Quellcode zeigen müssen und erklären, an welcher Stelle im Code zu genau hängst.

_________________
Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)

LuGo · Beiträge: 33

Ich habe hier im Forum gesucht und praktisch Hilfe gefunden.
Hier steht mein Forenbeitrag von heute morgen:
www.delphi-forum.de/viewtopic.php?t=97612

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme