Habe gerade gesehen, daß der Autor von PureBasic (Fred) jetzt auch AI Coding benutzt.
Schade, daß Roland nichts mehr macht. Da gäbe es doch bestimmt auch was für Delphi.
This release is a bit special, as it's the first one where we really use AI assisted coding to do it. After a long setup to explain to Claude how to work with the PureBasic source tree and VM, the result is really amazing !
j
Na, dann ist ja alles bestens.
Wird halt schwierig, wenn man windowskonforme Funktionalitäten aushebeln möchte.
PS: Ich arbeite ja auch außerdem mit PureBasic. Aber für so kleine Haus-und Hofprogramme reicht mir oft auch XProfan. Zumal man es ja auch so schön 'quick and dirty' machen kann. Da ist mir manchmal die Debugger - Ausgabe bei PureBasic lästig und eine Konsolenausgabe zu altbacken. Da ist mir auch die verschachtelte Eventschleife manchmal lästig. Das geht halt bei XProfan viel leichter.
Zum Erlernen und kleine Programme und wo es nicht auf Geschwindigkeit ankommt, ist XProfan für mich immer noch gut brauchbar. Ich plane sogar in einer neuen Unterabteilung bei der VHS in der Gemeinde (Gemeinsam digital vor Ort, generationenübergreifend lernen, gestalten, profitieren, wachsen) einen kleinen Programmierkurs mit XProfan mit der Freeware 11.2a. Letzten Samstag gab es da eine Vorstellungsrunde.
Bin mal gespannt, was daraus wird.
Vielleicht ist sowas auch für andere Gemeinden eine Anregung.
Aber es wird immer der Mausklick gebraucht.
Naja, wie willst du denn sonst den Scrollbalken bewegen, um einen anderen TopIndex zu bekommen ?
Das funktioniert doch, wie gewünscht :
Declare Handle gb, Long topIndex
Window 600, 400
gb = Create("GridBox", %HWnd, "RGB;0;80;R;2;50;G;2;50;B;2;50", 0, 10, 10, 300, 150)
WhileLoop 1, 20
AddString(gb, Str$(&LOOP * 1000) + "|100|150|200")
EndWhile
While 1
WaitInput
topIndex = SendMessage(gb, 4135, 0, 0)
SetText %HWnd, Str$(topindex) ' in Titelzeile schreiben
EndWhile
EndSo ist es auch eigentlich angedacht. Der Scrollbalken schiebt die nicht sichtbaren Elemente in den sichtbaren Bereich, wo der Anwender dann evtl. einen Mausklick oder per Tastatur einen Eintrag auswählen kann.
Dein Vorhaben ist da sehr speziell. Die Schwierigkeit wird wohl sein, wie man an die momentane Position des vertikalen Scrollbalkens der Gridbox kommt. Vielleicht kann man ja auch etwas mit SubClassing der Gridbox erreichen.
Ach, ich habe gerade gesehen, daß du das Problem schon vor 11 Jahren hattest : Forum/SetTopIndex und GetTopIndex für Gridboxen XProfan
Und keiner konnte helfen. 
Kommst du da mit SetCurSel oder SelectString() auch nicht weiter. Die markieren ja den gewünschten Eintrag automatisch. Praktisch, das, was du händisch mit der Maus machst.
Hast du evtl. einen kleinen Beispielcode ?
Vielleicht findest du ja auch was bei xprofan.net. Dort gibt es ja tonnenweise Codes.
Sowie ich es im Bild sehe, sind die Farbbalken extra, also nicht in der Gridbox ?
Willst du sowas, wo beim Klick auf die Farbbalken zum entsprechenden Eintrag gescrollt wird ?
Ja, mal schauen, ob es Interessenten gibt. Bei dem Treff hatte uns auch eine Frau von der VHS erzählt. Die hatten vor Jahren mal so einen Windows-Kurs angeboten. Da war sie und drei weitere Teilnehmer und der Kurs fand mangels Beteiligung nicht statt. Der Dozent hatte aber angeboten, für jeden Teilnehmer einen Einzeluntericht zu Hause zu machen.
Das war dann auch so ein Hype, der sehr schnell verflogen war. Es gibt ja auch viele (wie ich), die Windows und auch später XProfan im Selbststudium erlernt haben.
Schlimmstenfalls wird es auch bei mir darauf hinaus laufen. Aber ich finde, daß so ein Kurs (den man durchaus auch alleine durcharbeiten kann) besser in begleitender Weise erfolgen soll. Ich mache vor, die anderen machen nach und üben dann zuhause. So ähnlich war schon vor 45 Jahren bei meinem Ausbildereignungsbrief das Motto. Ich denke, das hat bis heute noch Bestand.
Naja, wenn man, so wie ich, so kleine Haus- und Hofprogramme schreibt, fällt das natürlich nicht so auf. Meistens wird ja die Hauptzeit eines kleinen GUI-Programmes durch Warten auf den Anwender verbraten. Da stört ja auch die interne Message-Behandlung (WaitInput) von XProfan nicht. Man hat ja schon damals, als es noch die XT und später die AT Computer gab, gewaltige Unterschiede zwischen XT und AT gemerkt. Und der Pentium war dann noch schneller. Ich hatte das damals ausgetestet mit einer über 10.000 Einträgen großen csv-Datei (US Postleitzahlen : z.b. 20570,Washington,DC). Beim XT brauchte das noch ca. 8 - 10 Sekunden und beim AT vielleicht 3 - 5 Sekunden. Da war es schon erstaunlich, was so ein höherer Prozessortakt schon ausmacht.
Daß xprofan.net wieder funktioniert, finde ich klasse. Für mich (und auch für andere) ist es ja immer noch eine riesige Fundgrube für Quellcodes. Da bin ich selber noch am Überlegen, wie ich das z.b. auf CD bannen könnte. XProfan.net fällt ja immer mal wieder aus und irgendwann wird es wohl ganz verschwunden sein. Wenn man sowas auf CD hätte ? Vielleicht könnte ja auch der Betreiber der Seite so eine CD herstellen und vertreiben. Halt Selbstkosten + kleiner Gewinnanteil + Versand. Ich denke da an ca. 10 - 15 € pro CD/DVD. Ist halt für diejenigen, die XProfan treu geblieben sind und natürlich auch für Anfänger, Fortgeschrittene und auch für allgemein. Sowas sollte eigentlich nicht so schnell verloren gehen.
Das gleiche gilt auch für die Downloads wie z.b Profan11.2a, FreeProfan und die ganzen kostenfreien DLLs (Listview.dll, ProSpeed.dll, deine DLLs usw.)
Irgendwann können Interessierte das auch nicht mehr downloaden.
PS: Bin mal gespannt, wie es bei PureBasic weitergeht. Das deutsche Forum ist ja auch schon halb verwaist. Da gibt es manchmal wochenlang gar keine neuen Einträge. Dort schaue ich ja auch regelmäßig rein.
So hatte ich ja auch einen Kurs als .pdf entwickelt, um die Programmierlogik (wahr = 1, falsch = 0) in Verbindung mit den Kontrollstrukturen und Vergleichsoperatoren nahe zu bringen. Am Ende kommt dann ein Adressprogramm mit Benutzeroberfläche (GUI) heraus. Ursprünglich hatte ich vor, sowas in der Kneipe zu machen. Ich bin Stammgast in 2 Kneipen in den umliegenden Dörfern. Diese hätten jeweils auch ein Nebenzimmer einschließlich Beamer und Leinwand. Da könnte jeder seinen Laptop mitbringen. Ich mache vor, die anderen machen nach. Wer keine Laptop hat, könnte sich ja neben einen Teilnehmer setzen und auch mitlernen. So war mal meine Vorstellung. Es wäre ja nicht nur für XProfan interesant, sondern könnte ja auch als Sprungbrett für andere Sprachen sein.
Leider ist es aber so, daß immer weniger Stammgäste kommen. Wenn man dann noch diejenigen abzieht, die keinen PC oder Interesse haben, bleiben da kaum welche übrig. Somit habe ich das ganze auch wieder verworfen. Aber neulich, in unserem Amtsblatt hat jemand inseriert, der in Zusammenarbeit mit der VHS Räumlichkeiten zur Verfügung gestellt bekommt. Inklusive neuer großer Bildschirme. Da hatte ich prompt mal Kontakt aufgenommen und letzen Samstag war dann so ein Kennenlern-Treff. Auch ein Repair-Cafe wurde an diesem Tag eröffnet. Es kamen auch ein paar Leute, die auch ihre Ideen vorstellten. In einem Monat werden wir dann weiter sehen. Ich habe mal ein Bild von dem Artikel in den Illinger Seiten angehängt, damit du siehst, um was es eigentlich geht. Vielleicht kann ich auf diese Weise mein Wissen teilen und welche Meinung hast du dazu ?
Kann es leider nicht testen. Habe noch einen PC von 2014 und der Laptop ist von 2016.
Ist ja auch nur interessant, wenn man wie oben WinExec nutzt oder auch Threads oder vielleicht auch. größere Datenmengen verarbeiten muß.
Kommen zwei Betrunkene aus der Kneipe und gehen nach hause.
Sagt der eine : Du, Sepp, warum gehst du so bucklig ?
der andere : Ich habe in die Hose geschissen.
der eine : Du, ich auch. Aber ich gehe trotzdem gerade.
der andere : Aber ich bin ja noch nicht fertig !
Da RGH jetzt nur noch sehr selten lesend im XProfan - Unterforum zu sehen ist, wird es wohl auch nichts mehr werden. Und wenn er mal lesend zugegen ist, ist er neuerdings nur im Hauptforum zu sehen und nicht wie sonst im Unterforum Zukunft von XProfan.
Ich finde XProfan immer noch genial, gerade wenn es darum geht, die Programmierlogik (Kontrollstrukturen in Verbindung mit den Vergleichsoperatoren usw.) zu erlernen bzw. zu verstehen. Da XProfan ziemlich schmerzfrei ist, kann man das jemandem mit ein paar Zeilen Code sehr gut beibringen. Daher kann XProfan auch gut als Sprungbrett für andere Sprachen fungieren. Die Programmierlogik funktioniert ja bei den anderen Sprachen genauso, mal abgesehen von einer etwas geänderten Syntax (z.b. bei C/C++ kein EndIf und Endwhile, sondern geschweifte Klammern) und ASM.
Das ist auch das Hauptziel meines Kurses. Es ist ja das Salz in der Suppe bei der ereignisorientierten Programmierung. Erst, wenn man das verstanden hat, macht das Programmieren erst wirklich richtig Sinn.
Neulich, als ich mit einem Kollegen in der Stadt war, sahen wir eine junge Frau, die auf dem Gehweg beim Gehen ihren Allerwertesten so schön hin und her schwenkte. Da der Kollege auch so interessiert schaute, sagte ich zu ihm : Das ist bestimmt eine Terroristin ! Er : Wie kommst du denn da drauf ? Ich sagte : Na, schau mal, die hat doch einen Bomben-Arsch.
Kneipenkurse zu geben halte ich für vergeblich, aber probiere es.
Ich sehe das mehr in meinem persönlichen Umfeld und nicht im Internet. In meinem Umfeld sind halt die Kumpels und Bekannte, mit denen man öfter spricht. Klar ist, daß das nach einigen Kursen ausgelutscht sein wird, aber ich habe immerhin noch etwas Wissen vermitteln können. Vielleicht kommen da durchs Weitersagen ja ein paar Kurse zusammen. Ich finde es halt schöner, wenn man nach so einem Kursteil noch bei einem Bierchen zusammen sitzt und noch etwas fachsimpelt. Und Fragen können da auch noch schnell beantwortet werden. Ich hatte auch schon an die VHS gedacht. Aber die ist etwas zu weit weg und da wird kaum jemand hinfahren. Und evtl noch Geld ausgeben, auch wenn es nur eine kleine Gebühr wäre, macht wohl auch niemand. Aber wir sind ja hier auch aufm Land. Deshalb soll es ja vorerst auch nur ein Pilotprojekt sein.
Du könntest Google Drive nutzen, dort lassen sich Dateien hochladen und öffentlich schalten. Kostet nichts. Den Link kannst du dann hier im Forum posten und Volkmar bitten, den Thread oben sichtbar zu halten.
Hier im Forum wird es ja auch immer weniger. Außer von mir und evtl Dir und 2 - 3 andere schreibt keiner mehr. Da ist es auch sehr ruhig geworden. Und außerdem will ich ja diejenigen erreichen, die mit Programmierung und Profan noch nie was am Hut hatten und vielleicht einfach nur mal neugierig auf die Programmierlogik usw. sind.
Was die Dateien anbetrifft, die kann ich bei übersichtlicher Teilnehmerzahl auch einzeln auf den Laptops installieren. Da wird bestimmt der eine oder andere dabei sein, dem man da noch helfen muß (Verknüpfung auf dem Desktop anlegen usw.).
Aber das Google Drive behalte ich mal im Hinterkopf.
Hallo,
Das Forum Xprofan.net ist ja mittlerweile öfters nicht mehr zu erreichen. Da kann man ja auch nichts mehr reinstellen. Mir geht es hier um meinen etwas anderen Profankurs, den ich hier auch schon reingestellt habe. Aber hier findet der neue Besucher diesen Kurs nicht direkt. Nun kam mir der Gedanke, meinen Kurs bei XProfan.de reinzustellen. Möglichst direkt unter dem Download von Profan11.2a, das ja als Freeware angeboten wird. Somit findet ein Anfänger alles an einem Platz. Leider kann man aber dort nichts reinstellen. Nun zu meiner Frage :
Wer betreibt denn die Seite von XProfan.net ? Ist das Roland selber oder doch jemand anderes ?
Roland selber brauche ich ja nicht mehr zu kontaktieren. Der antwortet ja nicht mehr. Selbst Jens Driese (JDS-Software) , der XProfan auch vertreibt, mit dem ich kürzlich mal Mailkontakt hatte, schrieb mir, daß ihm RGH nicht mehr antwortet. Ist zwar jetzt schade, aber zum Erlenen der Programmierlogik und noch mehr, finde ich meinen Kurs recht gut und so immer noch empfehlenswert. Gerade, weil man doch mit Profan recht einfach schon Ergebnisse erhält. Wo gibt es sowas noch : Ein Cls, ein Print "irgendwas" und ein Waitkey und schon sieht man ein Ergebnis.
Vielleicht weiß ja jemand mehr.
PS: Ich plane mal, im Herbst meinen Profankurs in einer Kneipe im Nebenraum (natürlich völlig kostenlos) anzubieten. Einen Beamer und auch WLAN hat ja mittlerweile jede Kneipe, sodaß man da seinen Bildschirm vom Laptop auf die Leinwand spiegeln könnte. Die Teilnehmer bringen dann ihrer Laptop mit. Somit könnte ich meinen Kurs zusammen mit den Kursteilnehmern durcharbeiten. Besser ist es ja, wenn man nicht nur liest, sondern auch interaktiv mitmachen kann. Dann geht vieles noch einfacher. Mal sehen, ob ich da wenigstens ein paar Leute dafür begeistern kann. Ich bin ja am Wochende Stammgast und kenne somit auch einige. Der Kurs würde dann etwa vier doppelte Schulstunden umfassen, also pro Woche ein Kursteil. Am besten an dem Tag, wo etwas Leerlauf für den Wirt ist und er dann diesen Abend füllen kann.
Sch...e, wenn man bei allem zu logisch denkt !
Wäre es da nicht möglich, daß der Admin den Exceltreiber + DSN auf dein eigenes Verzeichnis legt. Halt wie oben schon gesagt. Aber wahrscheinlich kommt da auch ein Eintrag in die Registry. Ansonsten geschieht die Einrichtung ja mit windowseigenen Mitteln. Er braucht da nichts Fremdes.
Da könntest du mal nachfragen. Bleibt aber noch die Frage, ob XProfan auch mit Netzwerkpfaden klarkommt. Ist auch schade, daß momentan XProfan.net offline ist. Dort wärst du bestimmt auch fündig geworden.
Jedenfalls könntest du damit deine Excel-Tabelle mit db("sqlExec",...) in eine Gridbox verfrachten, deine Daten entsprechend ändern und wieder zurück schreiben.
Das Schreibrecht könnte ja auch nur für ein vom Administrator installiertes Excel gelten.
An deiner Stelle würde ich zuerst mal den Systemadministrator fragen, ob überhaupt so eine .exe erlaubt wird. Sowas sehen die oft als ganz ganz böse an. Als ich vor 6 -8 Jahren noch als Verkaufsfahrer arbeitete, wollte ich auch so ein Tourenplan-Programm in die Firma einbringen. Jeder Verkaufsfahrer hatte ja einen PC-Arbeitsplatz, um seine Bestellungen einzugeben. Da war dann auch Pustekuchen.
Jetzt nur mal so, nicht daß du dir erst unnötige Arbeit machst und zum Schluß wird nichts daraus.
Geht es nur darum, Daten zu schreiben/ändern oder willst du ganze Mappen o. ä. erstellen ?
Da könnte man evtl. auch über ODBC was machen. Den ODBC Datenquellen Administrator (32 Bit) suchen unter (WIN-Start - ODBC) und starten. Dann beim ersten Reiter (Benutzer DSN) den Button hinzufügen drücken. Da kommt eine ganze Liste von Treibern. Auch ein Excel Treiber ist dabei. Dann noch einen Ordner wählen und Namen vergeben.
Ich hatte zwar nie ein Excel gehabt, aber vielleicht könntest du damit weiterkommen. Der Rest steht ja in der Profanhilfe.
Ist ja schon erstaunlich, wie die KI neue Funktionen für XProfan erfindet :
Sie können XProfan als Controller nutzen, um Excel fernzusteuern, Tabellen zu befüllen,
Zellen auszulesen, Makros auszuführen oder Daten für Auswertungen zu übergeben.
Die Interaktion läuft dabei im Hintergrund über die COM-Schnittstelle von Windows.
Hier ist ein einfaches, funktionsfähiges Beispiel, wie Sie aus einem XProfan-Skript heraus
eine Excel-Instanz starten, Daten in eine Zelle schreiben und die Arbeitsmappe sichtbar machen
:xprofan
// OLE-Objekt für Excel initialisieren
Declare Excel&
Excel& = Create("OleObject", "Excel.Application")// Überprüfen, ob das Objekt erfolgreich erstellt wurde
If Equ(Excel&, 0)
MessageBox("Excel ist nicht installiert!", "Fehler", 16)
End
EndIf// Excel im Hintergrund sichtbar machen (optional)
SetOleProperty(Excel&, "Visible", 1)
Create("OleObject" gibt es doch gar nicht !
Ja, schade, daß RGH das nicht in seinem Inline-Assembler integriert hat.
Das zeigt mir z.b. die KI :
Cls
Set("AsmMode", 2) // 2 = Assembler-Modus aktiv
// Inline-Assembler Funktion definieren
ASM "GetHardwareRandom", 0
mov eax, 0 // EAX Register zurücksetzen
@loop:
rdseed eax // Echte Zufallszahlen in EAX laden
jnc @loop // Wenn CF=0 (kein Zufall verfügbar), zurückspringen
ret // Rückgabe des Wertes in EAX
ENDASM
// Funktion aufrufen und ausgeben
Var Long randVal = GetHardwareRandom()
Print "Echter Zufallswert: "; randVal
WaitInput