Hilfe: Kleine Fragen beim Scripten

Fabian13 · 25. Mai 2019

Hallo,

Ich habe ein Problem. Bei der Programmierung meiner U-Bahn, mit genau 40 Türen, dachte ich mir, dass ich eine Funktion erstelle. Damit das script halt nicht ganz unübersichtlich wird. Nur krieg ich das irgendwie nicht hin und das Content-Tool wirft mir alle möglichen Fehlermeldungen entgegen, damit ich es ja nur nicht schaffe.

Kann mir vielleicht irgendwer helfen was beim Script nicht funktioniert, ich bin da bei funktionen in Pascal noch nicht so gewohnt.

Hier die notwendigen Teile des scripts (Für die Tür L1)

Code: TypV_Main.pas

{PUBLIC_VARS
...
Door_L1_pos_x: single;
Door_L1_pos_y: single;
...
CP_TasteDIR_Door_L1: single;
...
DoorL1: single;
...

Code: Tueren.pas

const
DOOR_SPEED_S = 1;
DOOR_LIFT_PART = 0.15;
var
...
Door_L1_pos: single;
...
procedure DoorOpen(var Door_pos: single; var Door_pos_x: single; var Door_pos_y: single);
begin
begin
if Door_pos < 1 then
Door_pos := Door_pos + 1/DOOR_SPEED_S * Timegap
else
Door_pos := 1;
end;
if Door_pos < DOOR_LIFT_PART then
begin
Door_pos_x := Door_pos * 1/DOOR_LIFT_PART;
Door_pos_y := 0;
end
else
begin
Door_pos_x := 1;
Door_pos_y := (Door_pos - DOOR_LIFT_PART) * 1/(1-DOOR_LIFT_PART)
end;
end;
...
procedure Tueren_SimStep;
begin
if ((TS_ZentralAuf_L.value) and (v_ground = 0)) then
begin
DoorLAll := 1;
DoorLClose := 0;
end;
if ((TS_Freigabe_L.value) and (v_ground = 0)) then
begin
DoorL := 1;
DoorLClose := 0;
end;
if (TS_Schliessen_L.value) then
begin
DoorLClose := 1;
DoorL := 0;
DoorLAll := 0;
DoorL1 := 0;
...
end;
if (TS_DIR_Door_L1.value) then
begin
DoorL1 := 1;
end;
...
// Türe L1
if ((DoorLAll = 1) or ((DoorL = 1) and (DoorL1 = 1))) then
begin
DoorOpen(Door_L1_pos; Door_L1_pos_x; Door_L1_pos_y);
end;
...

Alles anzeigen

Am Ende kommt auch noch das Schließen der Türe, aber da habe ich mich bei der Funktion/Prozedur noch nicht probiert.

(Falls Script-stücke fehlen, einfach bescheid sagen)

Kann mir da jemand helfen?

Heidetorf · 25. Mai 2019

Es wäre ganz nützlich, zu wissen, was genau für Fehlermeldungen angezeigt werden. Ansonsten kann dir wahrscheinlich keiner weiterhelfen.

Fabian13 · 25. Mai 2019

Der aktuelle ist: [Error] Tueren.pas(141:23): comma (',') expected

Nur passt da ein komma irgendwie garnicht hin und wenn ichs doch hinmache, kommt [Error] Tueren.pas(141:12): Unknown identifier 'Door_'

Bisschen habe ich das gefühl der gibt mir einfach willkürlich Fehlermeldungen...

Übrigens, Zeile 141 ist diese:

Code: Tueren.pas

// Türe L1
if ((DoorLAll = 1) or ((DoorL = 1) and (DoorL1 = 1))) then
begin
DoorOpen(Door_,L1_pos; Door_L1_pos_x; Door_L1_pos_y);
end;

Busfanat · 26. Mai 2019

Die Position des Kommas ist falsch.

Code

DoorOpen(Door_L1_pos, Door_L1_pos_x, Door_L1_pos_y);

so könnte es funktionieren. Die Variablen werden bei der Deklaration durch Semikola getrennt, beim Funktionsaufruf durch Kommata.

Fabian13 · 26. Mai 2019

Jetzt wiederum spuckt er mir folgenden Fehler aus: [Error] Tueren.pas(141:47): Variable expected

Die Variable Door_L1_pos_y habe ich aber wie die anderen beide ja auch deklariert

Marcel Kuhnt · 27. Mai 2019

Du übergibst "Door_L1_pos_y" als "var"-Variable. Das geht leider nicht, weil erstere als Public-Variable deklariert ist. Diese wird intern anders behandelt (ist mehr so eine Art "Übergabe-Information").

Fabian13 · 27. Mai 2019

Achso, ok. Wie muss ich es dann machen? Statt var PUBLIC_VARS hinmachen oder?

Marcel Kuhnt · 27. Mai 2019

Nein. Du benötigst eine lokale "Zusatzvariable", die du der Prozedur gibst. Die wird oben mit "var" deklariert, also so, wie Door_L1_pos. Dann könnte es so aussehen:

Code

var
tempx, tempy: single;
...
DoorOpen(Door_L1_pos, tempx, tempy);
Door_L1_pos_x := tempx;
Door_L1_pos_y := tempy;

Fabian13 · 27. Mai 2019

Aah, ok, dann verstehe ich. Ich bin zwar ne Woche weg, aber dann teste ich es. Danke schonmal im voraus

Fabian13 · 6. Juni 2019

Also, jetzt hab ichs getestet und es funktioniert, vielen Dank

-------------------------------------

Jetzt habe ich da noch eine kleine Frage:

Ich wollte mir mal eine provisorische LZB scripten, nur muss ich da auslesen wie viele Meter die Bahn die ganze Zeit fährt. Warum: Ich wollte eine Variable machen, wo immer steht wie viele Meter es noch sind. Der erste Wert wird von einer speziellen FIS-Datei vorgegeben und dann wird diegefahrene Strecke davon abgezogen. Nur, wie lese ich am besten die gefahrene Strecke ab?

gt670dn · 6. Juni 2019

Du kennst den Timegap (also wieviel Zeit seit der letzten Berechnung verstrichen ist), du kennst die Geschwindigkeit des Fahrzeuges... die daraus resultierende Formel überlasse ich dir!

Fabian13 · 17. Juli 2019

Ich schreibs einfach hier wieder rein, ich glaube das passt hier recht gut.

Ich wollte mir jetzt für mein IBISeine Uhrzeit basteln als String-Variable. Das problem ist nur, die TimeOfDay wird als Single ausgegeben und ich weiss nicht, wie ich diese zu einem String umwandeln kann. Geschafft habe ich, nach einigem probieren und suchen im internet nur von einer integer zum String, nur spielt die Uhrzeit dann verrückt. (TimeOfDay: integer;)

Hier ist mal mein jetziger code (Ich weiss, die Berechnungen zur Uhrzeit stimmen noch nicht, ist erstmal nur zu Testzwecken)

Code: TypV_IBIS

{PUBLIC_VARS
$Display : string;
texID_draw : integer;
Time : string;
TimeOfDay : integer;
Hour : integer;
HourStr : string;
Minute : integer;
MinuteStr : string;
Second : integer;
SecondStr : string;
}
procedure write;
begin
Hour := TimeOfDay * 24;
Minute := TimeOfDay * 24 * 60;
Second := TimeOfDay * 24 * 60 * 60;
HourStr := IntToStr(Hour);
MinuteStr := IntToStr(Minute);
SecondStr := IntToStr(Second);
Time := (HourStr+':'+MinuteStr+':'+SecondStr)
$Display :=
'07.15.2019 '+Time+#13#10+' ... ';
end;

Alles anzeigen

Marcel Kuhnt · 17. Juli 2019

Die Herangehensweise ist grundsätzlich richtig, aber Du hast übersehen, dass eine "menschenlesbare" Uhrzeit ja immer die Minuten anzeigt, die zu den ganzen Stunden hinzugerechnet werden müssen! In Deinem Fall gibst du aber die Minuten (und Sekunden) seit Tagesbeginn an, was ziemlich große Zahlen sind! Außerdem muss "TimeOfDay" als Single deklariert werden und deshalb auch gerundet werden.

Daher muss wie folgt berechnet werden:

Code

procedure write;
var
temptime: single;
begin
temptime := TimeOfDay * 24; // temptime = Zeit seit Mitternacht in Stunden (mit Bruchteilen)
Hour := trunc(temptime); // ganze Stunden
temptime := (temptime - Hour) * 60; //temptime = Zeit seit der letzten vollen Stunde in Minuten (mit Bruchteilen)
Minute := trunc(temptime); // ganze Minuten
temptime := (temptime - Minute) * 60; //temptime = Zeit seit der letzten vollen Minute in Sekunden (mit Bruchteilen)
Second := trunc(temptime); // ganze Sekunden
...
end;

Alles anzeigen

Fabian13 · 17. Juli 2019

Vielen dank, es hat funktioniert. Jetzt muss ich nur noch fragen wenn ich schon dabei bin, welche variable gibt mir an welcher Tag es ist. (Als bspw. 17 Juli 2019 oder 17.7.2019 oder was auch sonst es ist)

Fabian13 6. Juni 2019