Problem im Main-Script

Bruhcraft · 19. Oktober 2020

Ich habe in den Letzten Tagen mal einen Anfang eines Fahrzeug Scripts Angefangen.

Nun habe ich seit ich Eine Tueren.pas Datei hinzugefügt, welche noch keinerlei "Richtige" Einträge enthält und auf einmal Bekomme Ich den Fehler Identifier expected in Zeile 86( bezieungsweise die Erste procedure nach den Public Buttons)! Voher funktionierte noch alles Tadellos und Ist meines Erachtens auch nicht Falsch.

Main Script :

Code

{PUBLIC_VARS
FuehrerTuer_R: single;
FuehrerTuer_L: single;
Tuer_L_1_1: single;
Tuer_L_1_2: single;
Tuer_L_2_1: single;
Tuer_L_2_2: single;
Tuer_L_3_1: single;
Tuer_L_3_2: single;
Tuer_R_1_1: single;
Tuer_R_1_2: single;
Tuer_R_2_1: single;
Tuer_R_2_2: single;
Tuer_R_3_1: single;
Tuer_R_3_2: single;
v_Axle_mps_17,0_0: single;
v_Axle_mps_17,0_1: single;
v_Axle_mps_17,1_0: single;
v_Axle_mps_17,1_1: single;
v_ground: single;
a_ground: single;
M_Axle_N_0_0: single;
M_Axle_N_0_1: single;
M_Axle_N_1_0: single;
M_Axle_N_1_1: single;
MBrake_Axle_N_0_0: single;
MBrake_Axle_N_0_1: single;
MBrake_Axle_N_1_0: single;
MBrake_Axle_N_1_1: single;
CP_Throttle_full: single;
CP_bremse: single;
CP_Umschalthebel: single;
CP_Bremshebel: single;
CP_Tuerschliesser: single;
}
{PUBLIC_BUTTONS
Throttle_full;
ME_Fuehrertuer_L;
ME_Fuehrertuer_R;
ME_Fuehrertuer_L_zu;
ME_Fuehrertuer_R_zu;
Throttle;
Neutral;
Brake;
EmergancyBrake;
MaxBrake;
Tuerschliesser;
Umschalthebel_plus;
Umschalthebel_minus;
Bremshebel_plus;
Bremshebel_minus;
ME_Tuer_L_1_1;
ME_Tuer_L_1_2;
ME_Tuer_L_2_1;
ME_Tuer_L_2_2;
ME_Tuer_L_3_1;
ME_Tuer_L_3_2;
ME_Tuer_R_1_1;
ME_Tuer_R_1_2;
ME_Tuer_R_2_1;
ME_Tuer_R_2_2;
ME_Tuer_R_3_1;
ME_Tuer_R_3_2;
}
{$I StdElements.pas}
{$I TechElements.pas}
{$I Cockpit.pas}
{$I Fahrschalter.pas}
{$I Tueren.pas}
;
procedure Initialize;
begin
Cockpit_Initialize;
Fahrschalter_Initialize;
Tueren_Initialize;
end
;
procedure SimStep;
begin
Cockpit_SimStep;
Fahrschalter_SimStep;
end
;
procedure OnButton(id: string; value: boolean; cockpitIndex: byte);
begin
Cockpit_OnButton(id, value);
Fahrschalter_OnButton(id, value);
Tueren_OnButton(id, value);
end
;
end.

Alles anzeigen

Marcel Kuhnt · 19. Oktober 2020

Hinter den Includes darf kein Semikolon kommen.

Bruhcraft · 19. Oktober 2020

Vielen Dank Marcel,

das geht jetzt.

Jetzt soll meine völlig leere Türen Datei in Zeile 18 Fehler haben (Identifier expected.

Code

//####################################################################
//
//Variablen
//
//####################################################################
//var
//####################################################################
//
//INITIALISIERUNG
//
//####################################################################
procedure Tueren_Initialize;
begin
end;
;
//####################################################################
//
//FRAME/SIMSTEP
//
//####################################################################
procedure Tueren_SimStep;
begin
end
;
procedure Tueren_OnButton(id: string; value: boolean);
begin
end
;

Alles anzeigen

gt670dn · 19. Oktober 2020

Lösch mal Zeile 22.

Bruhcraft · 19. Oktober 2020

Hat nix gebracht

Pandemist · 19. Oktober 2020

Lade mal bitte alle Datein deines Scripts hoch bitte.

Ich habe da so eine Vermutung.

Bruhcraft · 19. Oktober 2020

Fahrschalter:

Code

//####################################################################
//
//Variablen
//
//####################################################################
var
Fahrtrichtung: integer;
Beschleunigungskraft: single;
Bremskraft: single;
//####################################################################
//
//INITIALISIERUNG
//
//####################################################################
procedure Fahrschalter_Initialize;
begin
end
;
//####################################################################
//
//FRAME/SIMSTEP
//
//####################################################################
procedure Fahrschalter_SimStep;
begin
//Fahrtrichtung Bestimmen
if (CP_Umschalthebel) < 0 then
begin
Fahrtrichtung := 1;
end
else if (CP_Umschalthebel) > 0 then
begin
Fahrtrichtung := -1;
end
else
begin
Fahrtrichtung := 0;
end
;
//Umschalt Geschwindigkeit
if (CP_Umschalthebel) = -1 then
begin
v_Axle_mps_17,0_0 := 25;
v_Axle_mps_17,0_1 := 25;
v_Axle_mps_17,1_0 := 25;
v_Axle_mps_17,1_1 := 25;
end
;
if (CP_Umschalthebel) = -2 then
begin
v_Axle_mps_17,0_0 := 50;
v_Axle_mps_17,0_1 := 50;
v_Axle_mps_17,1_0 := 50;
v_Axle_mps_17,1_1 := 50;
end
;
if (CP_Umschalthebel) = -3 then
begin
v_Axle_mps_17,0_0 := 60;
v_Axle_mps_17,0_1 := 60;
v_Axle_mps_17,1_0 := 60;
v_Axle_mps_17,1_1 := 60;
end
;
if (CP_Umschalthebel) = -4 then
begin
v_Axle_mps_17,0_0 := 62;
v_Axle_mps_17,0_1 := 62;
v_Axle_mps_17,1_0 := 62;
v_Axle_mps_17,1_1 := 62;
end
;
if (CP_Umschalthebel) = 1 then
begin
v_Axle_mps_17,0_0 := 15;
v_Axle_mps_17,0_1 := 15;
v_Axle_mps_17,1_0 := 15;
v_Axle_mps_17,1_1 := 15;
end
;
if (CP_Umschalthebel) = 2 then
begin
v_Axle_mps_17,0_0 := 25;
v_Axle_mps_17,0_1 := 25;
v_Axle_mps_17,1_0 := 25;
v_Axle_mps_17,1_1 := 25;
end
;
if (CP_Umschalthebel) = 0 then
begin
v_Axle_mps_17,0_0 := 0;
v_Axle_mps_17,0_1 := 0;
v_Axle_mps_17,1_0 := 0;
v_Axle_mps_17,1_1 := 0;
end
;
//Beschleunigungskraft bestimmen
if (CP_Throttle_full) <= 0 then
begin
Beschleunigungskraft := 4250 * CP_Throttle_full
end
else
begin
Beschleunigungskraft := 0
end
;
//Bremskraft bestimmen
if (CP_Bremshebel) <= 0 then
begin
Bremskraft := 1150 * CP_Bremshebel * -1
end
else
begin
Bremskraft := 0
end
;
//E-Lock
if (CP_Bremshebel) = -1 then
begin
if (v_ground) >= 0.1 then
begin
Bremskraft := 1250
end
else
begin
Bremskraft := 0
end
;
end
;
//Beschleunigung auf die Motren Umlegen
M_Axle_N_0_0 := Beschleunigungskraft * Fahrtrichtung;
M_Axle_N_0_1 := Beschleunigungskraft * Fahrtrichtung;
M_Axle_N_1_0 := Beschleunigungskraft * Fahrtrichtung;
M_Axle_N_1_1 := Beschleunigungskraft * Fahrtrichtung;
//Beschleunigung auf die Bremsen Umlegen
M_Axle_N_0_0 := Bremskraft;
M_Axle_N_0_1 := Bremskraft;
M_Axle_N_1_0 := Bremskraft;
M_Axle_N_1_1 := Bremskraft;
//Beschleunigung
if (TS_Beschleunigung.value) then
begin
M_Axle_N_0_0 := 5000;
M_Axle_N_0_1 := 5000;
M_Axle_N_1_0 := 5000;
M_Axle_N_1_1 := 5000;
end
else
begin
M_Axle_N_0_0 := 0;
M_Axle_N_0_1 := 0;
M_Axle_N_1_0 := 0;
M_Axle_N_1_1 := 0;
end
;
;

Alles anzeigen

Cockpit:

Code

//####################################################################
//
//Variablen
//
//####################################################################
var
TS_Beschleunigung: TPushButton;
TS_bremse: TPushButton;
T_Fuehrerstand_R: TStepSwitch;
T_Fuehrerstand_L: TStepSwitch;
TS_TuerenZu: TPushButton;
FS_Bremshebel: TStepSwitch;
FS_Umschalthebel: TStepSwitch;
//####################################################################
//
//INITIALISIERUNG
//
//####################################################################
procedure Cockpit_Initialize;
begin
FS_Umschalthebel.A := -4
FS_Umschalthebel.B := 2
FS_Bremshebel.A := -1
FS_Bremshebel.B := 6
T_Fuehrerstand_R.A := -1
T_Fuehrerstand_R.B := 1
end
;
//####################################################################
//
//FRAME/SIMSTEP
//
//####################################################################
procedure Cockpit_SimStep;
begin
CP_Throttle_full := TS_Beschleunigung.Pos;
CP_bremse := TS_bremse.Pos;
FuehrerTuer_R := T_Fuehrerstand_R.Pos;
FuehrerTuer_L := T_Fuehrerstand_L.Pos;
CP_Bremshebel := FS_Bremshebel.Pos;
CP_Umschalthebel := FS_Umschalthebel.Pos;
CP_Tuerschliesser := TS_TuerenZu.Pos;
end
;
procedure Cockpit_OnButton(id: string; value: boolean);
begin
if ((id = 'Throttle_full') or (id = 'Throttle' )) then begin Pushbutton_Press (TS_Beschleunigung, value) end
else if ((id = 'Bremshebel_plus') or (id = 'Brake') or (id = 'MaxBrake') or (id = 'EmergancyBrake')) then begin if StepSwitch_Plus (FS_Bremshebel, value) then end
else if ((id = 'Bremshebel_minus')or (id = 'Throttle' )) then begin if StepSwitch_Minus (FS_Bremshebel, value) then end
else if (id = 'Umschalthebel_plus') then begin if StepSwitch_Minus (FS_Umschalthebel, value) then end
else if (id = 'Umschalthebel_minus') then begin if StepSwitch_Plus (FS_Umschalthebel, value) then end
else if (id = 'Tuerschliesser') then begin Pushbutton_Press (TS_TuerenZu, value) end
else if (id = 'ME_Fuehrertuer_R') then begin if StepSwitch_Plus (T_Fuehrerstand_R, value) then end
else if (id = 'ME_Fuehrertuer_R_zu') then begin if StepSwitch_Minus (T_Fuehrerstand_R, value) then end
;
end
;

Alles anzeigen

und eben die Tech und Standart Elemente von Marcel

Pandemist · 19. Oktober 2020

Prüfe dein Script mal, ob du überall zu jedem begin auch ein end hast. Ich habe da schon an mehreren Stellen in deinem Script Probleme gesehen.

Helmut · 19. Oktober 2020

Zitat von Bruhcraft

procedure Fahrschalter_SimStep

Also wenn ich mich nicht verzählt habe fehlt da ein "end"

Was nimmst du denn für einen Editor. Macht der keine Syntaxhervorhebung, mit der man solche Probleme sieht?

Die Kombination "then end" fühlt sich auch etwas ungünstig an. Wenn du da Platzhalter setzen willst, dann kommt mir "then begin end" besser vor.

Bruhcraft · 20. Oktober 2020

Ich benutze Notepad++

Ich muss erlich sein, dass ich das einfach aus Julians Farzeugbau Tutorial übernommen habe.

Helmut · 20. Oktober 2020

Notepad ist erst mal keine schlechte Wahl, den benutze ich auch für etliche Dinge. Bei Pascal-Syntax sieht es etwas gewöhnungsbedürftig aus, weil beim Einklappen von Codeblöcken der Block mit dem "end" verschwindet, aber das "begin" mit einem Strich drunter stehenbleibt.

Aber die reine Darstellung hilft dir nicht weiter.

z.B. kommt dein scheinbarer Fehler aus der Tueren.pas in Wahrheit aus der Fahrschalter.pas. Du hast wie oben gesagt ein "end" zuwenig. Der Compiler merkt das aber erst weiter unten im Code. Durch die includes sieht der compiler eigentlich nur eine einzige - ziemlich lange - Datei und mault entsprechend genau da wo er den Fehler sieht, auch wenn die Ursache in einer ganz anderen Datei ist.

Wenn man das behebt knallt es in der Tueren.pas dahinter gleich wieder, diesmal weil du globale Variablen in mehreren Dateien parallel deklariert hast.

Du hast also einiges zu überarbeiten.

Auch solltest du dir den grundsätzlichen Aufbau von Pascal-Programmen mal in Ruhe ansehen und dir die Logik dahinter verinnerlichen. Sonst fischst du im Trüben. Besser mal mit kleinen übersichtlichen Skripten anfangen und langsam ausbauen. Natürlich lernt man am lebenden Objekt leichter, aber wenn das Ding zu groß ist verschluckt man sich.

Bruhcraft · 20. Oktober 2020

Vielen Dank für die Tipps.

Ich habe mittlerweile alle Errors beseitigt.

Das mit dem Aufbau von Pascal werde, und muss ich mir wirklich noch mal ansehen, da ich einiges doch noch nicht so ganz verstanden habe

Helmut · 20. Oktober 2020

Mach vielleicht mal ein paar Gehversuche mit dem Lazarus-Projekt: https://www.lazarus-ide.org/

Die Lotus Script-engine scheint für mich sehr Delphi-affin zu sein. Delphi ist der Ururenkel von Turbo-Pascal und mit Lazarus bist du da ziemlich dicht dran, ohne Geld reinstecken zu müssen.

Versuch zuerst einfach mal, ein Gefühl für die Sprachsyntax an sich zu gewinnen. Damit wirst du Anfängerfehler wie fehlende Strichpunkte los, oder schlechte Variablennamen. Dann versuch die prozedurale Programmierung zu verstehen, wie hängen Funktionsaufrufe zusammen, was verschachtelt man wie am besten. Dann kommen die Objekte und dann hast du das Handwerkszeug.

Als ich noch jung war, war Pascal DAS akademische Werkzeug zum Programmieren-lernen. Inzwischen ist das natürlich ein alter Hut. Aber ein sehr bequemer.

Marcel Kuhnt · 22. Oktober 2020

Zitat von Helmut

Dann kommen die Objekte

Nicht in der Script-Sprache. Da gibt es leider keine Objekte...

Helmut · 22. Oktober 2020

Zitat von Marcel Kuhnt

Da gibt es leider keine Objekte...

Mir ging es hier um das grundlegende Verständnis der Pascal-Sprache. So wie ich bisher das Skriptsystem erforscht habe, gibt es Typendefinitionen Txxxx, die auf den ersten Blick (da kam ich auf den Holzweg) den Objektdefinitionen von Borland Pascal (meine Zeit) und (vermutlich) Delphi ähneln. Da bin ich aber raus, mein letztes Delphi war damals Delphi 2 und damit hab ich nicht viel gemacht.

Aber nachdem der Kollege Bruhcraft mit typischen Programmier-Anfänger-Fehlern konfrontiert war (Variablenbezeichner, unpaarige Begin/Ends, der beliebte Strichpunkt) wollte ich ihm einfach einen Weg zeigen, erst mal das Prinzip zu verstehen. Hat man Pascal verstanden, wird man das Skriptsystem verstehen und als Bonus viele andere Programmiersprachen dazu.

Ich bin eben gerade selbst beim Versuch, das Skript-System zu verstehen und experimentiere mit Lazarus, einfach um eine Umgebung zu haben, in der ich typische Schlampereien vermeide um nicht jeder Fehlermeldung beim Import im Content-Tool einzeln hinterherlaufen zu müssen.

Wie schon bei Blender - wo ich immer noch bei einigen Themen durchhänge - geht es ja auch hier darum, eine sinnvolle Vorgehensweise zu finden.

Eine Art Skript-IDE im Content-Tool einzubauen wäre sicher übertrieben, also erscheint mir der Lazarus-Weg im Moment am besten.

Marcel Kuhnt · 22. Oktober 2020

Ich fand Deinen Beitrag auch sehr gut, ich wollte das nur ergänzen, für alle Fälle. Ebenso, wie ich hier nochmal ergänzen möchte: Die Konvention "T{xxx}" verwendet man im "echten" Delphi in der Tat für Objekt-Klassendefinitionen, aber auch für ganz normale Typen (numerischen oder Records) und in diesem Sinne werden sie auch im Script verwendet.