XProfan

Okrea ( [...]

) et RedCube II ( [...]

) qui appliqué Start- et Endtesten courir chez Dir sans Absturz? si oui ensuite gibts une Weg.

quoi ist avec ...

iF (23.07.11)

Probiere aussi la fois si StartTest chez Dir pas abstürzt si Du la fois seulement den Fensterstil 80 mets.

RICOSCH

Hi IF,
Votre Progis courir et qui DEMO "Planeten"
Fensterstyle habe je alles versucht si 80 ou bien normales la fenêtre, hängt sich sur !

ist es un Problem si je oGL("SetName", anzahl%) alors avec einer Variable versehe ? car seulement so bekomme je doch mon Bilderobjekte Beschrifftet ?

I LOVE TOOLS

Noe, exposition... @oGL("SetName", N) -> N: LongInt - Kennzeichen -

égal obs une numerische Konstante ou bien Variable ist -

Roland écrit erfahrungsgemäß chez den Parameterbeschreibungen De toute façon (comment ici aussi) oui c'est ca hin quoi erwartet wird.

là es chez Je ne abstürzt bleibt Dir vlt. erstmal wohl seulement sur une minimalen Voir le texte source herauszubekommen wohin là qui Unterschied z.B. entre Deinem- et dem Planetendemo ist.

E.T.

Bei'm magasin qui Bilder, pour Verzeichnis sélection:

...et si cela Prog eigene Bilder ins Startverzeichnis auspackt, devrait cet chez Programme-Ende s'il te plaît aussi wieder entfernt volonté

bb-error.jpg	34 kB

Hochgeladen:	27.07.2011

Downloadcounter:
		Download

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Hatter alors mon AddFiles- et "if there is no image then end" - Verschlimmbesserung alors wieder étendu.

RICOSCH

dans dem déjà vorhanden quelltext ist cela avec dem Starttest et endtest avec drin
alors ici
[...]

et cela avec qui Verschlimmbesserung musste je doch erstmal comprendre et nachvollziehen. Wärst Du so lieb et fügst es nochmal avec un ?

et @ E.T. si cela Programme normal finissez wird alors avec ESC volonté aussi qui angelegten Temp-Bilder gelöscht, cela là ne Fehlermeldung entre funkt habe je pas attentive.

et s'il te plaît pas juste fünzig bilder magasin

zum testen reichen so 10 - 20 stück,
ist oui encore ne la quantité trop 1faire.
chez mir meckert il De toute façon la fois rum "soviele Elemente sommes pas da" et soweiter.
et s'il te plaît pas alzuernst prendre cela ganze, dankeschön

I LOVE TOOLS

simple cette ganzen Krims ici velours unnötige Variablen entfernen:
Kompilieren Marque Séparation

pfad$   = GetDir$("@")
Pfad$   = pfad$ + "\\*.jpg"
bilder$ = FindFirst$(pfad$)
AddFiles bilder$

WhileNot %IOResult

    bilder$=FindNext$()
    addfiles bilder$
    inc counter%

endwhile

ifnot instr(".jpg",bilder$) = 0

    messagebox("Es wurden keine jpg Files gefunden !!","Fehler",0)

endif

...

whilenot anzahl% = counter%

    DATEI$ = ListBoxItem$(anzahl%)
    bild& = Create("hsizedPic",-1,  Datei$,200,120,1)
    casenot bild& : continue
    texture%[i% + 1] = oGL("getTextureBMP",bild&,1)
    Namen$[anzahl%] = Datei$
    deleteObject bild&'IF ergänzung
    ...
    inc i%
    inc anzahl%

endwhile

et ersetzen dans quelque chose comme comment:
Kompilieren Marque Séparation

addFile "*.jpg"
cas %getCount=-1 : end messageBox("Keine Bilder","Keine Bilder",0)

whileLoop 0,%getCount+1

    bild& = Créer("hsizedPic",-1,  listBoxItem$(&loop),200,120,1)
    casenot bild& : continue
    texture%[&loop+1] = oGL("getTextureBMP",bild&,1)
    Namen$[&loop+1] = listBoxItem$(&loop)
    deleteObject(bild&)

RICOSCH

merci IF,
là steckt encore zuviel vieille une école dans mir, qui avec dem Boucle kannte je là pas.
qui jetzigen zeilen sommes viel compakter. maintenant coutume je aussi seulement encore avec addfiles *.gif; addfiles *.bmp ... ergänzen ,?

I LOVE TOOLS

oui c'est ca! ^ ^

simple:
Kompilieren Marque Séparation

addFiles "*.jpg"
addFiles "*.bmp"
addFiles "*.png"
...

whileLoop 0,%getCount+1

RICOSCH

so avec Deiner gekürzten variante bekomme je toujours un "Bitmap pas ladbar"
muss la fois gucken wohin es maintenant wieder hagt.

mais cela avec dem Setname et Starttest habe je rausgefunden !
Am calculateur meiner fille fonctionne es Tatelos, j'écris que voici mais sur sonem mini Netbook Medion Akoya e1212. Habe zwar déjà den mobile Intel Grafik treiber
aktualisiert. qui ist mais aussi encore de 2008. je bekomme toujours un Windowsfehler
cela quoi avec qui iglicd32.dll pas stimmt, alors définitif grafikkarten problem.

I LOVE TOOLS

>> alors définitif grafikkarten problem.

bof! si Okrea et RedCube II chez Dir courir ensuite liegt es mais aussi am Code et Du devrait vlt. versuchen herauszubekommen sous welchen Bedingungen es courir wäre.