FreeProfan

RGH schrieb in XProfan.net :

Zitat

Ziel ist es, in den nächsten Wochen noch zu testen und ggf. Bugs zu fixen, um dann Version 1.0 setzen zu können. Dann werde ich die Quellcodes "bereinigen", um ihn als OpenSource für Lazarus/FreePascal freizugeben. Dann kann Profan weiterleben, wenn ich es nicht mehr weiter pflegen kann.

Hier nun alles, was man für die 32- oder 64-Bit Version benötigt!

UPDATE auf 0.95: 05.05.2016 - 01:30 Uhr (32 Bit) / 05.05.2016 - 01:35 Uhr (64 Bit)

Ist jetzt auch schon 7 Jahre her.

Von der Freigabe der Quellcodes für Lazarus/FreePascal war bislang

noch nichts zu sehen. Wäre ja evtl der eine oder andere da, der sich mit

Lazarus/Freepascal auskennt bzw. installiert hat und etwas weitermachen

will. Könnte ja auch eine eigene öffentliche Community draus werden,

wo viele Personen daran mitwirken.

Auch anders könnte man evtl. einigen Nutzen aus den Quellcodes ziehen,

was Compilerbau oder generelle Sachen betrifft.

Man braucht ja auch nicht alles auf Anhieb verstehen, gibt aber Denkanstöße

für eigene Quellcodes in XProfan.

Naja, was ich sagen wollte, ist, daß keine Forderungen gestellt bzw. Wünsche geäußert wurden, sondern

der Autor (RGH) selber diesen Vorschlag machte.

Und daß XProfan seit sieben Jahren nicht mehr gepflegt wurde, hast nur du oben behauptet. Aber Fakt ist, daß

im Mai 2021 die letzte Version (X4), bzw. ein Patch veröffentlicht wurde.

Das war am 11.05.2021.

Und eine neue Version von XProfan hatte ich auch nicht gemeint. Vielmehr könnten noch Funktionalitäten erweitert werden

und Baustellen bereinigt werden (siehe z.B. ProgEnd, das ab X4 nicht mehr funktioniert).

Das könnte, wie oben auch durch einen Patch geschehen. Das wäre schon mal wichtig.

Den ökonomischen Anreiz muß man natürlich außen vor lassen. Es gibt auch Sprachen, die erst durch die anhängende

Community erst richtig leben. Da machen User Module, die dann später von anderen Personen eingefügt werden.

Beliebt ist da JAVA und B4A. Da kamen auch schon manche Module von Usern, die Erel beim späteren Update hinzu

gefügt hatte. Ich kenne dies schon seit Basic4PPC bzw. BasicAndroid, wie es vorher hieß.

So gibt es auch für Delphi/FreePascal tonnenweise freie Units, die man einfach nutzen könnte.

Und XProfan kann man auch durchaus beruflich nutzen. Das war damals auch schon so, daß kleine oder mittlere Firmen

Profanprogramme nutzten. War ja auch für den schulischen Bereich (VHS) mit den Schulversionen so.

Ich persönlich fände es irgendwie schade, zumal XProfan zum Programmieren lernen doch sehr gut und leicht ist.

Ich hatte das gerade in einem anderen Forum (Kein Programmiererforum), wo dann ein paar Leute einem Laien

unbedingt C++ oder C# andrehen wollten. Wichtig ist doch, daß man zuerst mal die allgemeinen Grundlagen der

Programmierung (Variablen, Prozeduren, Funktionen, Schleifen, Abfragen usw.) beherrschen sollte, bevor man mit

solchen Boliden wie C++/C# anfängt.

Allein schon, wenn ich Python sehe, das im Standardsprachschatz noch keine GUI - Sachen hat. Da muß man schon

TKinter importieren und ja auch wissen, was dort alles an Funktionaltät drin steht. Genauso verhält es sich ja auch

mit C/C++ usw. Ohne Headerdateien ist man da aufgeschmissen.

Wo hat man denn noch alle Funktionitäten der Sprache in einem Interpreter oder Runtime und kann aus der Hilfe

alles gleich ausprobieren ? Sicher gibt es Libraries, die man ergänzend hinzu nehmen kann. Jetzt gehe mal zu B4A

und schaue nach den ganzen JAVA-Libs. Bis man dort fündig wird, vergeht einem Anfänger schon gerade die Lust.

Was ich noch dazu sagen wollte :

Es geht ja auch um FreeProfan. Da es das ja auch als 64Bit gibt, ist ja schon mal ein

gewisser Grundstock vorhanden. Damit ist es ja auch noch lauffähig, wenn es keine 32Bit

als Betriebssystem mehr geben sollte.

Insofern hätte es doch eine gewisse Zukunft verdient.

Was X4 betrifft :

Ich denke auch, daß RGH mit seinen Mühen für den Inline-Assembler in X4 aufs falsche Pferd

gesetzt hat. Klar, viele wollten das zwar haben, aber tatsächlich sind es ja nur wenige (Volkmar,

p.Specht usw.), die das benutzen können bzw. diese Ahnung in ASM haben. Es ist zwar ein nettes

Gimmik, aber für die Mehrheit der User nicht viel mehr, bzw. interessant. Es gab zwar auch noch ein

paar andere Neuerungen, was aber zum Neukauf bzw. Update sich wahrscheinlich für die User nicht lohnte.

Da wären meine damaligen Vorschläge, wie Drag&Drop, Netzwerkfähigkeit (nicht nur FTP), BLE und

einiges mehr, umzusetzen, die bessere Möglichkeit gewesen.

Was das Alter betrifft, denke ich da gerne an Udo Jürgens : Mit 66 Jahren.....

Zitat von p. specht

XProfan wird so lange leben als es nützliche, praxisgerechte XProfan-Programme gibt.

Das sehe ich auch so. Und für kleine Tools ist es ideal geeignet.

Wenn ich sehe, wenn man erst große Boliden anwerfen muß und Klimmzüge für ein Fenster und ein paar

Controls machen muß, ist XProfan ein Leichtgewicht.

Habe ich gerade in einem MikroController-Forum erlebt. Da wollte auch jemand, der zwar ASM-Programmierung

auf dem Controller beherrscht, aber keine Ahnung in PC-Programmierung hatte, ein kleines Programm, das eine

COM-Schnittstelle öffnet, Befehle sendet und Messdaten abholt. Als Gimmik dann noch eine Grafik mit einer Kurve.

Die anderen hatten ihn direkt mit API und QT, C/C# u.ä. beschwatzt. Mein Vorschlag, eine freie Version (11.2) von

Profan zu nehmen, aktzeptierte er nicht, weil ihm das angeblich nicht zukunftsfähig war. Und angeblich hätte er auch

wenig Zeit, sich da einzuarbeiten. Nun krebst er da schon 14 Tage lang rum und bekommt gerade mal ein Fenster

auf den Bildschirm, mit C++. Wenn ich da die Zeit rechne, die er im Forum rumkaspert, hätte er schon längst mit

Profan etwas gelernt und ein lauffähiges Programm erstellen können. Vielleicht, daß noch die Grafik gefehlt hätte.

Ich hatte ihm noch viel Glück gewünscht und war aus dem Thema dann raus.

Zitat von WalterK

Wenn man mehr benötigt, muss man sich dann eben (trotzdem) mit APIs, DLLs,... herumschlagen.

Was in XProfan aber auch möglich ist...

Und da kann man sich im Laufe der Zeit eine hübsche Sammlung anlegen, sei es als .ph, .inc oder als .pcu

Mit Create("Container", S) und SUBPROC wird alles noch übersichtlicher. Und finden kann man es auch noch

schnell, wenn man im Benutzermenü sich die entsprechenden Hilfedateien einbaut.

Einfach eine .exe erstellen mit dem Inhalt

ShellExec("DeineHilfe.chm", "open", 1)

und im Benutzermenü-Dialog einsetzen. Schon hat man seine dazu gehörige Hilfedatei griffbereit.

Mein letzter Eintrag sollte allgemein sein, nicht speziell für FreeProfan.

Die Containerfunktion gibt es erst seit X4.

Nicht, daß du vergeblich bei FreeProfan suchst.

Ja, bin auch schon seit dem Anfang dabei.

Das, was man noch nicht genutzt hat, kommt meistens erst, wenn man es braucht

Da ich aber auch das Update im Abbo am Anfang hatte und später alle Subscriptionen

mitgemacht hatte, blieb mir kaum etwas verborgen. Man lechzte ja förmlich nach jeder

neuen Funktionalität, die RGH so nach und nach einbaute.

Ich glaube, ich hatte das damals auf der PC-Magazin, früher DOS International o.ä.

gefunden.

Mit OpenGL will ich mich jetzt auch mal mehr beschäftigen.

Vielleicht geht es damit einfacher, Diagramme wie Messkurven, Grafen, Balkendiagramme u. ä.

zu zeichnen. Besonders das XPGL habe ich da im Visier. Vielleicht kann ich da meine Messdaten,

aufbereitet in einer .XPGL Datei, als Messkurve anzeigen.

Ein kleines Beispiel ist ja bei Profan schon dabei.

Habe schon mal was mit XPGL zusammen gebastelt.

Proc DrawGLScene
 oGL("Clear")
 oGL("Origin", 0.0, 0.0, -9.0)
 oGL("DrawXPGL", 0, 6)
 oGL("Show")
endproc



' Hauptprogramm

' -------------

Declare hWnd&, text&, ende%
Declare xpglnr%
Declare vertex#, color#

/*
/ testls.xpgl

LS;VC;6

-3, -2,  2; 1, 1, 0, 1
-2,  1,  0; 1, 0, 1, 1
0, -1, -2; 0, 1, 1, 1
1,  0, -1; 1, 0, 0, 1
2,  0,  0; 0, 1, 0, 1
3,  2,  1; 0, 0, 1, 1
*/

Dim vertex#, 6 * 6 * 8
Dim color#, 6 * 4 * 8
Float vertex#, 0 = -3, -2, 2, -2, 1, 0, 0, -1, -2, 1, 0, -1, 2, 0, 0, 3, 2, 1
Float color#, 0 = 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1


Window 600, 500
text& = create("text", %hWnd,"",10, 200, 550, 200)
oGL("Init", text&, 0, 0, 0, 1)
xpglnr% = oGL("CreateXPGL", "LS", "VC", 1, vertex#, color#, 0, 0)
oGL("UseXPGL", xpglnr%)

DrawGLScene()
ende% = 0
WhileNot ende%
  WaitInput
  DrawGLScene()
EndWhile
Dispose vertex#, color#
end

Jetzt muß ich nur noch herausfinden, wie ich die Koordinaten der x/y Achse umrechne und Skalen

und Beschriftungen anbringe. Evtl. wären Polygone zum weicheren Zeichnen besser.

Finde ich jetzt etwas leichter, als die herkömmliche Methode.

Was das Koordinatensystem betrifft, bräuchte man evtl statt sowas :

oGL("2D", X, Y, Z, SX, SY)

etwas für umgekehrt.

oGL("3D", X, Y, SX, SY, SZ)

wobei dann x, y Integer und die zurück gegebenen Werte (SX, SY, SZ) Float wären.

Wäre einfacher, als eine Umrechnungsmatrix zu bauen.