Beiträge von funkheld

Hallo, danke für die Hilfe.

Gruss

Hallo,guten Tag.

Wie kann man bitte diesen Wert : $FFABCDEE auf RGB kürzen : ABCDEE ?

Danke.

Hallo , Jens-Arne dein Programm ist super. Danke für deine Hilfe.

Brill deine Idee ist schon der erste Schritte.

Ich bekomme es mit meinen Wissen nicht so hin.

Die Bilder sind nicht größer wie 600x300 , also erträglich.

Danke.

Gruss

Danke.

Hallo, guten Tag.

Ich möchte bitte ein PNG-Bild laden , 60x60 Pixel und weitere PNG

Die Pixel möchte ich dann bitte abragen , welche Farbe sie haben und dann in eine Datei Speicher.

Wie geht das bitte?

Danke.

Ich habe mich jetzt von XProfan getrennt.

Spiele jetzt mit SDL-BBCBasic 64Bit.
Neueste Version 2025.

Wird regelmäßig erweitert.

Leicht zu programmieren , ich bin auch Anfänger mit 76 Jahren,

BBC BASIC - Write your own programs

Gruss

....lebt denn der alte Landauer noch.....

Gruss

Jens-Arne hat mit dem JRPC3 einige Krüppel-Hürden vom dem XPROFAN genommen für uns Porgrammierer. Dadurch ist da XPROFAN angenehmer geworden.

Auch Anfänger können jetzt damit umgehen.

Danke Jens-Arne für deine Entwicklung von JRPC3.

Gruss

Ich nehme JRPC3.

Hallo, grüss dich.

Ich spiele mit dem JRPC3 in XProfan4.

Habe WIN10.

Sie das Bild.

Dein Text haut nicht so hin von der Widergabe. Ist Teiweise hinter einem Button.

Hier ein Überblick über mein "The Spectrum" und den Datentransport mit XProfan4.

Gruss

Declare Web&
Declare page1$, page2$, page3$
page1$ = "http://192.168.0.1/upload.cgi"
Cls
Web& = Create("HTMLWin",%hWnd,page1$,1+4,10,10,600,300)
While 1
  WaitInput
EndWhile
End

Ich habe ein gekaufte Version XProfan4 mit Update XProfan4a.

Gruss

Warum ist hier so wenig los im Schlafsaal.....

Danke für die Info.

Damit kann ich jetzt mit XProfan4 Daten senden vom Notebook zum "The Spectrum" zur TOSHIBA mit flashair.

Das Fenster Success öffnet sich , wo ich die Daten vom Notebook
markieren kann.

Gruss

Declare Web&
Declare page1$, page2$, page3$
page1$ = "http://192.168.0.1/upload.cgi"
Cls
Web& = Create("HTMLWin",%hWnd,page1$,1+4,10,10,600,300)
While 1
   WaitInput
EndWhile
End

Den Zeitlichen Rahmen habe ich so ungefähr erkannt bei dir...

Dann schau mal bitte ob du eine gute lösung findest mit Xprofan :

Thema

http://192.168.0.1/upload.cgi starten mit Xprofan.

Hallo, guten Tag ihr Profis.



Wie kann man bitte diese "http starten : http://192.168.0.1/upload.cgi" mit Xprofan.



Danke.

Gruss

funkheld

18. Januar 2025 um 13:30

Danke.

Gruss

Hallo H.Brill kommst du auch noch zum Schlafen mit deinen vielen Sachen hier im Forum?

Hallo, guten Tag ihr Profis.

Wie kann man bitte diese "http starten : http://192.168.0.1/upload.cgi" mit Xprofan.

Danke.

Gruss

Danke für deine Hilfe.

Gruss

Habe etwas gefunden.

Mit der Maus kann ich das Programm anklicken und notepad++ öffnet die Datei.

Gruss

Declare Handle lb, liste, ME, btn1
Declare Long ende
Declare String datei
ende = 0
Window 1610,10-290, 700
btn1  = Create("Button", %HWnd, "Ende", 10, 10, 60, 25)
lb    = Create("Listbox", %HWnd, 0, 10, 50, 240, 400)
liste = Create("List", 0)
ChDir "c:\specemu\pebi-bas\"
ClearList
AddFiles "*.bas"
Move("ListToHandle", liste)
ClearList
Move("HandleToList", liste)
Move("ListToHandle", lb)
WhileNot ende
  WaitInput
  If Clicked(btn1)
     ende = 1
  ElseIf Clicked(lb)
     datei = GetString$(lb, GetCurSel(lb))
     WinExec ("c:\\notepad++\\notepad++.exe " + datei,1)
  EndIf
EndWhile
End

Ich halte garnichts davon XProfan mit Purebasic schminken um 64 Bit zu bekommen.

Für zur Zeit hier weniger als 50 User mit mir , die sich aus langeweile hier mal outen.

Damit betrügt man sich selber und entspricht auch nicht mehr XProfan mit 64bit-Delphi.

So schnell werden die 32-Bit nicht verschwinden.

"64bit-Delphi zu schenken..." Davon halte ich überhaupt nix.
Wer betreut es weiter wenn der Ein-Man-Entwickler anderweitig außer Betrieb geht?
Dafür ist das Risiko zu groß , oder macht das einer von Euch weiter und bildet mit dem
Entwickler eine Firma?

Ich finde man soll dieses XProfan so nehmen wie es ist und mit Wissen weitere gute Ideen
in das 32-Bit-Objekt stecken bis das der Tod dieses XProfan holt.

Brill und Arne sind ein großes Beispiel in Sachen neue Erweiterungen.
Ich selber bin ein alter Amatuer....

Gruss

Hallo, guten Tag.

Mit 76 Jahren möchte ich mal wieder mit dem X-Profan spielen. Habe Version 4.

Ich möchte bitte eine Datei von der Auflistung rechts auf dem Bild mit Taste x/y (rauf/runter scrollen) markieren und dann in einen String ablegen mit Taste z.

Die Maus dafür nehmen verstehe ich noch nicht. Darum nur mit der Tastatur.

Wer es bitte schafft kann auch meine leeren Button dafür nehmen.

Danke.

Gruss

Declare Handle lb, liste, ME, btn1, btn2, btn3, btn4, btn5
Declare Long ende
Declare string a
declare string b
declare string datei
declare string datei1
declare int i
 ende = 0
 Window 1300,10-0290, 600
lb    = Create("Listbox", %HWnd, 0, 10, 10, 200, 400)
liste = Create("List", 0)
btn1  = Create("Button", %HWnd, "", 10, 420, 80, 25)
btn2  = Create("Button", %HWnd, "", 10, 445, 80, 25)
btn3  = Create("Button", %HWnd, "", 100, 420, 80, 25)
btn4  = Create("Button", %HWnd, "", 100, 445, 80, 25)
btn5  = Create("Button", %HWnd, "", 100, 470, 80, 25)
ChDir "c:\specemu\pebi-bas\"
ClearList
AddFiles "*.bas"
Move("ListToHandle", liste)
ClearList
Move("HandleToList", liste)
Move("ListToHandle", lb)
WhileNot ende
  WaitInput
  If Clicked(btn1)
  endif
  If Clicked(btn2)
  endif
  If Clicked(btn3)
  endif
  If Clicked(btn4)
  endif
  If Clicked(btn5)
  endif
  If Clicked(lb)
  EndIf
EndWhile
End