PureBoard

Dank an Euch beide, Kaeru Gaman und cxAlex für die schnelle Hilfe!

Gruß
WeEf

Hallo,

nach langer Zeit habe ich jetzt einmal wieder versucht, meine in einer älteren Version von PureBasic geschriebenen Programme zu bearbeiten.
Diese bleiben aber bei

CreateGadgetList(WindowID(0))

regelmäßig mit einer Fehlermeldung stehen.
Ich nehme an, dass es hierfür einen Ersatz gibt, den ...

Hallo edel,

danke!
Klappt prima, genau wie gewünscht!

Hallo,

für den Upload auf meine Homepage benutze ich eine Datei mit dem Namen XYZ.txt
Diese Datei enthält Angaben zu Dateien, die hochgeladen werden sollen, so dass diese an der richtigen Stelle erscheinen usw.
Da es sich manchmal um grosse Mengen handelt, wäre es natürlich wünschenswert, diese ...

Hallo edel,

kleine Ursache - große Wirkung!
Das scheint mein Problem zu lösen, jedenfalls führten diverse Versuche zum Erfolg.
Also herzlichen Dank!

Hallo,

nach wie vor habe ich Probleme mit umfangreichem Zahlenmaterial in Dateien, die für Lottosysteme weiter ver- und bearbeitet werden müssen.
Ich betreibe eine kostenlose System-Homepage und bekomme zu meinen eigenen aus aller Welt Lottosysteme zugeschickt.
Diese müssen auf Gewinne usw ...

Hallo Macros,

danke!
Läuft einwandfrei, ist kürzer und sieht besser aus!

Hoechstzahl = Val(InputRequester("Eingabe","Bitte Hoechstzahl eingeben:","") )
Reihen=Hoechstzahl*(Hoechstzahl-1)/2*(Hoechstzahl-2)/3*(Hoechstzahl-3)/4*(Hoechstzahl-4)/5*(Hoechstzahl-5)/6
Debug(Reihen)

Hallo,

ich habe mir bisher wie oben geholfen und gehofft, dass ginge irgendwie einfacher wie z ...

Hallo,

in GFA-Basic kann man z. B.

X=Combin(49, 6)

verwenden und erhält das Ergebnis 13983816.
Gibt es das auch in PureBasic?
Wie lautet der entsprechende Befehl?

Hallo zusammen,

ich lese die Daten wie folgt ein:

;Prozedur Zahlen einlesen
Procedure.l GetAscNum()
EODF.l=0
Outp.l=0
Inp.l=0
Repeat
inp = ReadByte()
Until inp >= 48 And inp <= 57
outp = (inp-48)
Repeat
inp = ReadByte()
If inp >= 48 And inp <= 57
outp * 10
outp + (inp-48)
Else
EODF = 1
EndIf ...