Modellbahnsteuerung in Delphi

[Codehunter]

Moin! Ich habe eben zufällig diesen netten Artikel bei Heise entdeckt. Lohnt sich zu lesen.

[Sherlock]

Sehr schön!
Das Codebeispiel allerdings...smells :D
Und das kenne ich nur zu gut.:lol:

Sherlock

[Der schöne Günther]

Mit dem Codebeispiel lockt man sicher eine Menge Leute, sich Delphi näher anzuschauen. :oops:

Ich glaube ich habe ein neues Negativbeispiel für "Bringen sie ein paar beliebige Quellcodefragmente zum Bewerbungsgespräch mit"

[Union]

Sehr interessanter Artikel. Vor einiger Zeit habe ich auch mal irgendwo eine Doku darüber gesehen. Das Sourcebeispiel ist ... interessant. Besonders da dort schon ARC eingesetzt wird, dadurch spart man sich das Exceptionhandling :roll: Laut Wiki muß der Source ca. 10-12 Jahre alt sein, sieht aber aus wie 40.

[Insider2004]

Das Codebeispiel ist ja der reinste Horror. Das erinnert an Basic in Chip 1988. Aber der Erfolg gibt ihm Recht. Solange nur der Entwickler Hand anlegt ist alles gut!

[bernau]

"Dann mal Butter bei die Fische". Was ist schlecht. Ich sehe auch ein paar Punkte, aber Ihr habt kritisiert.

Vorab: Codeformatierung bitte aussen vor lassen, da in dem Artikel der Code einfach so reingepresst wurde. Der Code wird im Original wahrscheinlich besser formatiert sein.

[Codehunter]

Was ich eigentlich viel interessanter finde als das Codesample ist die Tatsache, dass da anscheinend 100 Rechner arbeiten. Jeder hat mit Sicherheit irgendwelche Spezialaufgaben und das Ganze wird dann von einem Delphi-Projekt koordiniert. Früher nannte man sowas mal Multi-Tier-Anwendung. Da bei dem Anwendungsfall im wahrsten Sinne viele kleine Rädchen nahezu in Echtzeit koordiniert werden müssen, finde ich das Ganze schon beachtlich.

Solange da nur ein Entwickler am Werk ist mag das Projektmanagement auch so OK sein. Aber was ist wenn der eine Entwickler mal ausfällt? Ist doch ein Paradebeispiel für SPoF. Ganz ehrlich, würde ich dort arbeiten in dem Wissen es hinge alles an einem einzigen Kollegen, ich hätte gewaltig Bauchschmerzen.

[Lemmy]

Hi,
fühl mich nicht angesprochen, weil ich die Sourcen nicht "horror" finde. Sind vielleicht anstregende...

was mich stört:
* Variablennamen (j, x, y,....)
* zu lange Prozedur

Allerdings ließe sich zumindest der zweite Punkt recht gut lösen, da aufgrund der KOmmentare schon Blöcke "vordefiniert" sind, d.h. das ließe sich einfach neu strukturieren (refaktoring), was auch die Problematik der Variablennamen recht schnell lösen würde.

Weiter deutet der Prozedurname darauf hin, dass es das auch für Autos, Busse,.. in ähnlicher Form geben wird, d.h. dass hier evtl. Potential zum Code-Einsparen da ist, wenn man das Projekt etwas anders strukturiert.

Allerdings muss ich schon sagen, dass ich schon deutlich schlechteren Code gesehen habe:
Prozedurkopf: Zeile 961
Prozedurbeginn: Zeile 2108 (dazwischen auf 1.200 Zeilen Inline-Prozeduren und -Funktionen)
ProzedurEnde: Zeile 2920

Der Var-Block der Prozedur liegt natürlich VOR den Inline-Prozeduren, so dass man das auch nicht so einfach auflösen kann

[Morphie]

• Variablennamen gehören bei mir in englischer Sprache deklariert. Aber das ist offenbar Geschmackssache. Grundsätzlich sollte man sich aber festlegen
  Delphi-Quellcode:

  VerschiebX, VerschiebY: integer;

  /
  Delphi-Quellcode:

  help: string;

• Gibt man den Variablen jetzt sprechende Namen oder nicht?
  Delphi-Quellcode:

  Breite, hoehe: integer;

  /
  Delphi-Quellcode:

  b2: tbitmap;

• Ständig wird auf ein Array über einen (für mich) zu langen Variablennamen zugegriffen... Übersichtlicher fände ich das einmalige zwischenspeichern in eine zusätzliche Variable.
  Delphi-Quellcode:

  SchiffeTMP[EinOderAuszublendeneNummer]

• Woher kommt denn EinOderAuszublendeneNummer? Ist das ein Feld, oder ein Property der Klasse? Oder eine globale Variable? Hätte man es vielleicht besser als Parameter der Methode deklarieren können? Es ist für mich nicht sofort ersichtlich.
• Kein Try-Finally-Schutzblock... Was, wenn es irgendwo zwischen
  Delphi-Quellcode:

  b2:=tbitmap.create;

  und
  Delphi-Quellcode:

  b2.free;

  knallt?

Nur so überflogen... Das ist allerdings meine subjektive Meinung. Da der Programmierer wohl allein an seiner Software arbeitet, kann der Code für ihn selbst möglicherweise übersichtlich genug sein.

[Union]

Zitat:

Zitat von bernau (Beitrag 1223027)

"Dann mal Butter bei die Fische". Was ist schlecht. Ich sehe auch ein paar Punkte, aber Ihr habt kritisiert.

Vorab: Codeformatierung bitte aussen vor lassen, da in dem Artikel der Code einfach so reingepresst wurde. Der Code wird im Original wahrscheinlich besser formatiert sein.

• Der Code ist nicht gegen Abstürze gesichert, es wid ein Objekt erzeugt (b2=TBitmap) und auch wieder freigegeben, aber es fehlt ein try Konstrukt.
• Das Array SchiffeTMP ist wohl global. Die gezeigte Prozedur weits vom Namen her daruf hin, dass sie in einem Thread aufgerufen wird. Es wird aber ohne entspechendes Locking auf das Array zugegriffen.
• Das Gleiche gilt für den Zugriff auf die "Zeichenfläche" QuellbildmitSchiffen
• Die Abfrage auf die Lage (Drehung in Grad) sollte besser mit case erfolgen. Zudem fehlt der else Zweig bei dem zweiten Abfrageblock - was geschieht bei ungültigen Daten, z.b. negative Gradzahlen oder > 360?

[Hansa]

Mir sind die Bezeichner zu lang. Bisschen abkürzen macht da nichts kaputt.

Delphi-Quellcode:

EinOderAuszublendeneNummer

Alleine das macht den Quelltext einfach zu breit. Noch schlimmer als zu lange Bezeichner sind allerdings zu stark abgekürzte !

Fakt aber ist, egal wie : die grösste Modellbahnanlage der Welt wird mit Delphi gesteuert. Und es funktioniert ! Stilistische Meckereien (auch meinerseits) 8-) ändern an dieser Tatsache nichts. Könnte als Referenz durchaus im Fall der Fälle zu gebrauchen sein.

[sx2008]

Diese Rechnerei mit Sin() und Cos() gehört verboten.
Da muss es doch Funktionen geben, die einen Punkt um seinen Ursprung drehen oder um einem Vektor verschieben.
Wenn man mit Koordinaten zu tun hat, dann muss man diese in einer Struktur (TPoint) oder einem Objekt zusammenfassen.

Falls der Programmierer hier mitliest wäre es nett wenn er sich melden würde.
Ich denke jeder hier hat Respekt vor seiner tollen Leistung aber der Programmierstil ist noch verbesserungsfähig. :wink:

[divBy0]

Ich finde die Namen sind zu lang, aber wenn der Programmierer damit zurecht kommt ist ja gut.

Hier wurde doch im Mai/Juni schon mal ein Link von einem Video gepostet, auch aus dem Miniaturwunderland Hamburg. Da war die Delphi-IDE ebenfalls zu sehen.

Wäre interessant, wenn sich der Programmierer mal melden würde, da er bestimmte Probleme ja mit Hilfe einiger Foren gelöst hat, ist er hier sehr wahrscheinlich sogar registriert.

[Der schöne Günther]

Jetzt habe ich es auch einmal gründlich gelesen, eine Sache möchte ich noch einmal unterstreichen und bei einer nachfragen:

- Da steckt schon FireMonkey drin.

- Die Einleitung sagt: "[...] über die zum Einsatz kommende Software berichten, die überraschenderweise mit Delphi erstellt wurde."

Was ist daran jetzt so sonderlich überraschend? Hat die Vergangenheit gezeigt, dass Delphi sich nicht für Eisenbahnen eignet?

[Hansa]

Zitat:

Zitat von Der schöne Günther (Beitrag 1223071)

überraschenderweise mit Delphi[/B] erstellt wurde[/I]."

Überrascht Dich das ? Mich nicht. Ich sehe da eher eine Reaktion auf das schlechte Delphi-Marketing. Mich wundert es jedenfalls nicht, dass so eine grosse Modellbahn über Delphi läuft. Über was sonst ?

[Der schöne Günther]

Vielleicht... über Javascript.

Auf Seiten wie Sourceforge hatte ich in den letzten Wochen meine Werbung zum Großteil über XE4, da wird ordentlich am Rad gedreht. Mich überrascht nur, dass der Artikel überhaupt etwas daran überraschend findet. Was konkret wäre denn weniger überraschend gewesen?

[Furtbichler]

Zitat:

Zitat von Hansa (Beitrag 1223040)

Mir sind die Bezeichner zu lang. Bisschen abkürzen macht da nichts kaputt.

Delphi-Quellcode:

EinOderAuszublendeneNummer

Alleine das macht den Quelltext einfach zu breit. Noch schlimmer als zu lange Bezeichner sind allerdings zu stark abgekürzte!

Am wichtigsten ist die Lesbarkeit. Wenn Du statt 'EinOderAuszublendendeNummer' einen anderen ausagekräftigen Namen anzubieten hast (und bitte keine Abkürzung), dann her damit. Kritisieren kann jeder, aber besser machen? ;-)

Ich habe mir abgewöhnt, Programme zu kritisieren, die funktionieren. Denn sie funktionieren, und das ist es, worauf es hier, speziell bei der one-man-show, ankommt. Das ein Refactoring notwendig wäre, speziell, um die Nachhaltigkeit der Software und der Anlage zu gewährleisten, steht auf einem anderen Blatt.

Der Code ist typisch für sehr schnell gewachsene Strukturen, d.h. eigentlich business as usual. Aber man muss sich hier nicht hinstellen, und die Länge der Bezeichner oder das Fehlen von Clean-Code Ansätzen in Abwesenheit des Autors kritisieren. Das macht man -finde ich- wenn man gefragt wird.

Leute! Es! funktioniert!

[Hansa]

Ich habe mich nicht beschwert. Die zu langen Indentifier sind als Anmerkung zu sehen, nicht als Kritik ! Z.B. könnnte man ja statt Nummer zumindest mal Nr schreiben, ohne den Sinn des Ganzen unlesbar zu machen.

[p80286]

Gefallen tut's mir nicht, aber das ist Geschmackssache und aus "HoehederErstenUeberLastmeldung" kann man ja ganz fix C23_786 machen.
Aber wie schon mal angedeutet, das ist eine "One Man Show" und sie funktioniert.
Dafür Hut ab.
Was die DAU-Features angeht, solange diese Software nicht das MiWuLa verläßt und keiner auf die Idee kommt sie als Beispiel für Hochsprachenmaschinensteuerung zu nutzen, ist alles ok .

Gruß
K-H

[Furtbichler]

Zitat:

Zitat von Der schöne Günther (Beitrag 1223084)

Mich überrascht nur, dass der Artikel überhaupt etwas daran überraschend findet. Was konkret wäre denn weniger überraschend gewesen?

Delphi ist ein Exot, und von daher ist es überraschend. Ganz einfache Wahrscheinlichkeitsrechnung. Nicht überraschend wäre Java, C und vielleicht C# gewesen.

Es wäre ebenso überraschend, wenn sie in Lisp geschrieben wäre. Rein von der Wahrscheinlichkeit her.

[Sir Rufo]

Für mich ist das überraschend einfach nur ein Stilmittel, um den Artikel interessanter zu machen und den Leser bis zum Schluss zu fesseln (hat ja wohl auch funktioniert).

Bei der ausführlichen Beschreibung mit Quelltextauszug (unerheblich ob Spaghetti-Code oder nicht, obwohl eigentlich besser, weil der zu Diskussionen anregt) kommt es einem in den Sinn, dass es sich hier auch um Werbung handelt - mehr für Delphi/Emba als für das Miniatur Wunderland.

Noch bekannter ist ja eigentlich Skype, aber bei der größten Modelleisenbahn der Welt ist die Komplexität deutlich fühlbarer, und der Wow, das geht mit Delphi? Respekt!-Effekt ist erheblich größer.

Bei Skype wäre es lediglich ein Toll, Delphi kann also Nachrichten von einem Computer zum Anderen schicken

Fazit: Nicht so viel in das überraschend hinein interpretieren ;)

[Morphie]

Zitat:

Zitat von Sir Rufo (Beitrag 1223147)

Noch bekannter ist ja eigentlich Skype, aber bei der größten Modelleisenbahn der Welt ist die Komplexität deutlich fühlbarer, und der Wow, das geht mit Delphi? Respekt!-Effekt ist erheblich größer.
Bei Skype wäre es lediglich ein Toll, Delphi kann also Nachrichten von einem Computer zum Anderen schicken

Ist Skype wirklich noch (in der aktuellen Version) mit Delphi geschrieben?
Microsoft hat Skype doch vor über 2 Jahren für 8,5 Milliarden Dollar aufgekauft... Würde mich wundern, wenn Microsoft die Weiterentwicklung in Delphi realisiert...

Man schaue sich nur die unterstützten Plattformen an: WinRT, Win32, OSX, Linux, Windows Phone, Android, iOS, BlackBerry usw.

[Lemmy]

Zitat:

Zitat von Sir Rufo (Beitrag 1223147)

Bei Skype wäre es lediglich ein Toll, Delphi kann also Nachrichten von einem Computer zum Anderen schicken

falsch gedacht. "Nicht mal das kann Delphi" *), denn nur die Windows-Gui ist mit Delphi gemacht, das wirklich wichtige ist in C++
http://blog.marcocantu.com/blog/why_...ed_delphi.html

Zitat:

Zitat von Morphie (Beitrag 1223149)

Ist Skype wirklich noch (in der aktuellen Version) mit Delphi geschrieben?
Microsoft hat Skype doch vor über 2 Jahren für 8,5 Milliarden Dollar aufgekauft... Würde mich wundern, wenn Microsoft die Weiterentwicklung in Delphi realisiert...

warum nicht? Die werden mit sicherheit auch eine Delphi IDE laufen haben, schon allein um zu schauen was die Konkurrenz so macht. Und warum soll man zu den 8,5 Mrd noch ein paar tausender drauf legen, nur um ein paar hundert $ für die IDe einzusparen um was zu ersetzen was aktuell recht fehlerfrei läuft?


Edit: *) nicht falsch verstehen: klar kann das Delphi, aber halt nicht bei Skype

[Lemmy]

-gelöscht-

[Daniel]

"Die Bezeichner sind zu lang", "Die Kommentare sind Mist".

Ehrlich gestanden habe ich mich geschämt, als ich die Kommentare im Heise-Forum gelesen habe. Da wird ein Software-Projekt vorgestellt, welches eine der größten Modellbahnen betreibt und das soll dann alles an Kritik sein?
Unabhängig davon, ob die Anlage mit Delphi, C# oder javaScript gesteuert wird, hat Gerrit hier mit diesem Projekt ein Statement gesetzt und der durchschlagende Erfolg gibt ihm Recht.

Das heißt nicht, dass man Dinge nicht anders machen könnte, aber von gestandenen Entwicklern hätte ich fundierteres Feedback erwartet.

[Morphie]

Zitat:

Zitat von Lemmy (Beitrag 1223152)

Zitat:

Zitat von Morphie (Beitrag 1223149)

Ist Skype wirklich noch (in der aktuellen Version) mit Delphi geschrieben?
Microsoft hat Skype doch vor über 2 Jahren für 8,5 Milliarden Dollar aufgekauft... Würde mich wundern, wenn Microsoft die Weiterentwicklung in Delphi realisiert...

warum nicht?

Naja, gerade wenn nur die Oberfläche in Delphi entwickelt wurde, würde ich diese doch kurzerhand in die hauseigene Sprache (.NET WPF z.B.) übernehmen, wenn ich dafür bei MS verantwortlich wäre... Allein weil ich nicht von einem Konkurrenzprodukt abhängig sein möchte.

Zitat:

Zitat von Daniel (Beitrag 1223154)

Das heißt nicht, dass man Dinge nicht anders machen könnte, aber von gestandenen Entwicklern hätte ich fundierteres Feedback erwartet.

Ich denke jeder hier weiß, wie viel Arbeit, Zeit und Leidenschaft in diesem Projekt steckt, darüber muss man gar nicht diskutieren. Ich selbst habe auch großen Respekt vor der Leistung des Programmierers und war fasziniert, als ich es das erste Mal gesehen habe.
Nichtsdestotrotz können wir aus Programmierersicht nur den gezeigten Codeausschnitt bewerten, und der ist für meinen Geschmack verbesserungswürdig.
Ich kann daran nichts verwerfliches erkennen, aufzuzeigen, was wir an dem Code anders machen würden. Ich denke niemand hat das bösartig gemeint.

Ich finde es übrigens ganz interessant, mal reale Delphi-Projekte zu sehen, bzw. zu sehen wie andere Programmierer so arbeiten.

[Sir Rufo]

Egal was alle dazu sagen, IMHO wird das nicht mehr geändert werden.

Die Bahn wird ständig weitergebaut bzw. mit neuen Features bestückt, die dann auch Änderungen im Programm nach sich ziehen und das mit einer Geschwindigkeit, die es einer One-Man-Show zeitlich nicht ermöglicht hier noch parallel ein Refactoring zu betreiben.

Nein, der Code wird dadurch auch nicht besser, aber wer schon die Hälfte des Atlantiks schwimmend überquert hat, der dreht auch nicht um, um ein Schiff zu bauen, weil es damit ja schneller und komfortabler geht.

Das Refactoring oder die aktuelle Entwicklung müssten also ausgelagert werden, allerdings sind da (Einzelkämpfer-) Programmierer wie Mütter mit ihren Kindern:

"Nicht anfassen, nur gucken!" ;)

[JasonDX]

Ich hab mich überhaupt gefragt, wieso gerade dieses Codestück gezeigt wird. Es ist nicht wirklich schön, zeigt keine Delphi-spezifischen Features, und hat im Endeffekt nicht viel mit der Modellbahn zu tun. Ich kann den Entwickler sogar verstehn, dass fürs UI nicht wirklich viel Zeit investiert wird, und auch mal smelly Code länger stinkt.
Mich würde vielmehr interessieren, wie die Steuerungslogik dahinter aussieht. Dessen Codestruktur, und die (hoffentlich) eingesetzten Test- und Sicherungssysteme wären 1. interessanter und 2. wahrscheinlich deutlich sauberer entwickelt als die rotierte Anzeige von irgendwelchen Bildchen im UI...

[Codehunter]

Ich denke, die Zeitungsredaktion hat den Autor nach einem Codesample gefragt und er hat sich überlegt, mit welchem Stück Code er möglichst wenig an die Konkurrenz verraten würde.

[Furtbichler]

Zitat:

Zitat von Sir Rufo (Beitrag 1223158)

...aber wer schon die Hälfte des Atlantiks schwimmend überquert hat, der dreht auch nicht um, um ein Schiff zu bauen, weil es damit ja schneller und komfortabler geht.

Nette Metapher, aber leider... entweder geht einem vorher doch die Puste aus oder man muss -so ein Mist- weiter nach Japan.

Da wäre der Umweg am Anfang vielleicht doch eine gute Idee gewesen.

Merke: Murphy sieht und trifft dich. Immer. Aber wem sag ich das ;-)

[p80286]

Da hab ich dann meine Mittagspause auf der Heise Seite verbracht und ich muß Euch alle mal loben.
Selten habe ich so viel Genialität/Kreativität... und was auch immer auf einem Haufen gesehen. Da ist hier das Klima doch wahrhaftig angenehmer.
Ich hab ein Beispiel aus den Kommentaren heraus gesucht, was meiner Meinung nach die Diskussion gut beschreibt:

Zitat:

> >
> > Achtens:
> > while length(help)<3 do
> > help:='0'+help;
> >
> > Bin mir sicher dass seine Funktion falsch ist. Weil bei Ihm käme bei
> > help := “1“ => “01001“ raus. Kann gewollt sein glaube ich aber nicht.
>
> Wenn help mit 1 vorbelegt wird und es kommen nur 0 vorne dazu wie
> soll dann 01001 rauskomment ?
Zugegeben da habe ich mich geirrt. Hatte ein help += '0' + help
gedacht.
Ändert aber nicht dass hier Format verwendet werden sollte.

Gruß und schönes WE
K-H

[Union]

Durch Zufall las ich heute einen Artikel in der c't über diese Modellbahn. Fazit war:

• Der Entwickler setzt XE2 ein
• Er ist nach eigener Aussage auf dem Stand der 90er und deshalb Pascal
• Würde er nochmal anfangen so hätte er lieber einen C-Dialekt gelernt
• Der Betrieb läuft mit 260 Mitarbeitern, da vieles nicht automatisiert werden kann

[Codehunter]

Dass er da XE2 einsetzt ist mir nun wieder neu. Das sagt aber auch einiges über den Projektcode aus. So schlecht kann er dann auch wieder nicht sein, wenn sich so ein gewachsenes Projekt von D4 oder D7 auf XE2 portieren ließ. Meistens ist es ja so gewesen, dass man bei solchen Anlagensteuerungen auf proprietäre Komponenten gesetzt hat, die es für neue Delphis nicht mehr gibt.

[Helmi]

Gerit Steckenpferd(e) sind die Licht-, Auto-, Flugzeug- und Schiffsteuerung (wobei die letzte nicht abgeschlossen ist) programmiert. Die Zugsteuerung ist nicht von ihm. Da wird die Software Railware eingesetzt. Diese ist aber auch in Delphi geschrieben

[Der schöne Günther]

Eisenbahnen scheinen ja zu einem Spezialgebiet für Delphi zu werden. Ich würde gerne mal wissen, was die Deutsche Bahn für Software nutzt um ihre Züge zu kontrollieren 8-)

[Furtbichler]

Hmmm. Delphi ist einfach nur eine Programmiersprache. Vermutlich wird sie nur von Randgruppen, Modelleisenbahnliebhabern und anderen Sonderlingen, Waldschraten und eremitierten Pascalprogrammierern verwendet. An sich eher ein exotisches Alleinstellungsmerkmal, aber hier insbesondere auch ein Qualitätsmerkmal, würde ich annehmen, denn nachdem was sich hier in diesem Forum tummelt, sind die Randgruppen und Waldschrate doch ziemlich kompetent und dann passt das schon (Außerdem war ich der Erste, der "Hier" geschrien hat, als Waldschratrandgruppenpfilzhüte zu vergeben waren).

Ich habe einige Dinge mit Delphi und Hardwarezeugs machen müssen und -hey- solange es kein Ring-0-Treiber sein muss, geht das echt gut, jedenfalls hübscher und übersichtlicher als mit dieser komischen Sonderzeichenprogrammiersprache namens ("Mein ungewaschener kleiner") C.

[Helmi]

Zitat:

Zitat von Der schöne Günther (Beitrag 1241518)

Eisenbahnen scheinen ja zu einem Spezialgebiet für Delphi zu werden. Ich würde gerne mal wissen, was die Deutsche Bahn für Software nutzt um ihre Züge zu kontrollieren 8-)

Na ja - bei so viel Verspätung reicht ne Schützsteuerung :-)

die Fahrkartenautomaten sind nebenbei bemerkt mit Windows XP

viel Spass :-)