XProfan

Español

Das
Dutzend

¡Hola
Yo war en el Tiempo de Profano 3 a Profano 7 ya bastante aktiv. Hatte danach una längere Haga una pausa y se habe me nun Profano 11 zugelegt. Yo sehe ya, Yo muß todavía einiges nachholen. Daher komme Yo nun a media ersten Problema. Immer, si yo Bilder lade, fehlen siempre algunos BMP´s, como z.B. en dieser Probe:
Kompilieren Marca Separación

DECLARE X%,Y%,B%,D%,A1$,A2$,A3$,A4$,X1%,Y1%,EBENE%
WINDOWSTYLE 31
WINDOWTITLE "FG-Mahjongg"
WINDOW 10,10-300,350
CLS @RGB(153,0,0)
X1%=20
Y1%=20
B%=2
D%=1
EBENE%=1

WHILE EBENE%<4

    Y%=Y1%

    WHILE Y%<250

        X%=X1%

        WHILE X%<180

            A1$="a_"+TRIM$(STR$(B%))+"_1.BMP"
            A2$="a_"+TRIM$(STR$(B%))+"_2.BMP"
            A3$="a_"+TRIM$(STR$(B%))+"_3.BMP"
            A4$="a_"+TRIM$(STR$(B%))+"_4.BMP"
            DrawPic A1$, X%, Y%; -1
            DrawPic A2$, X%+28, Y%; -1
            DrawPic A3$, X%, Y%+38; -1
            DrawPic A4$, X%+28, Y%+38; -1
            X%=X%+49

        ENDWHILE

        Y%=Y%+69

    ENDWHILE

    EBENE%=EBENE%+1
    X1%=X1%-6
    Y1%=Y1%-6

ENDWHILE

WAITINPUT
FIN

Bajo Profano 7 y Windows 2000 funktioniert dies sin Problemas (Como allerdings todavía con LoadBMP). Bajo Profano 11 y Windows Vista fehlt el letzte BMP.

Kann me alguien sagen, woran dies liegt.

Ps.: Wer Lust ha, de hecho puede mi Programas ansehen, el Yo ya con älteren Profano-Versionen erstellt habe. [...]

11.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das
Dutzend

Upps: Hier nochmals el Bild:

11.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Versuche vlt. veces en el Speicherbitmap (MCLS/ StartPaint -1) para dibujar y luego una MCopyBmp - obs Problema entonces auftritt.

11.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das
Dutzend

Das war mein erster Intento. Das fehlten incluso todavía mehr Bilder. Das eigenartige es, sobald Yo el Ventana verschiebe, voluntad el fehlende Bilder adecuado.

11.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Usted debe Dir veces mehrdimensionale Arrays ansehen y así una neuen Ansatz beginnen. Das debería el Verwaltung Deiner Bilder erheblich vereinfachen.
Außerdem kannst Usted mejor el Crear("Mapa de bits",...)/Crear("HPIC",...)-Möglichkeiten nutzen, como Usted entonces gezielt Bilder löschen kannst.
Kompilieren Marca Separación

A1$="a_"+TRIM$(STR$(B%))+"_1.BMP"

Yo seh en Deinem Code no, por qué B% como Variable auftaucht, si en el Bucle no verändert se.

Das eigenartige es, sobald Yo el Ventana verschiebe, voluntad el fehlende Bilder adecuado.

Tal vez veces una Repaint al Ende el Bucle einbauen?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

11.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das
Dutzend

Yo seh en Deinem Code no, por qué B% como Variable auftaucht, si en el Bucle no verändert se.

Yo habe de una größeren Ver código fuente esta kurzen zusammengebastelt, Nur a veranschauung

Usted debe Dir veces mehrdimensionale Arrays ansehen y así una neuen Ansatz beginnen.

Das podría Yo veces versuchen

@if: Lo funktioniert doch (Yo hatte una pequeño fehler instalado), aber hier se el gesamte Bildschirm auch sólo entonces adecuado, si yo el Ventana verschiebe, o Fenstergröße verändere.

Bajo 16 Bit-Farben funktioniert alles, y bajo 32-Bit-Farben no.

11.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Poste doch veces a la lauffähigen Code inclusive Bilddateien. Usted wirst entweder beim Erstellen des Codes determinar, woran lo liegt oder wir puede hier gemeinsam rauskriegen, wo lo hakt.

Lo funktioniert doch (Yo hatte una pequeño fehler instalado)

Usted siehst sí, daß wir así sólo blind raten puede.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

12.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das
Dutzend

Lo va en mein Mahjongg-Spiel, el Yo veces con Profano 5 ??? geschrieben, y später con Profano 7 erweitert habe. [...]

Immer otra vez bekomme Yo Mails, el Anwender con Vista schwierigkeiten así haben. (Bajo Win 98, ME, 2000 se ejecuta lo super). Tuve eigentlich pensamiento, si yo me Profano 11 hole, y simplemente neu Compiliere el problema es vom Tisch. Aber como tauchen todavía mehr Problemas en. Gestern bin Yo angefangen, todos Spiel neu a escribir, Falls no klappt, komme Yo otra vez. In el vielen neuen Características seit damals muß Yo mich sólo reinlesen. Heute puede ser lo determinado en einiges vereinfachen.
OGL wäre determinado auch una tolle Concepto, aber a Yo el gecheckt habe, vergeht wohl ni Tiempo.
Das Orginal de damals ha 1700 Programmzeilen, el möchte Yo euch no antun.

12.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Thomas
Freier

Tuve eigentlich pensamiento, si yo me Profano 11 hole, y simplemente neu Compiliere el problema es vom Tisch.

Mit el eingebundenen profalt.inc getestet oder con el XProfan 8.1 (ahora frei) compiliert?

Gruß Thomas
Windows XP SP2, XProfan X2

12.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das
Dutzend

Nein, el alten Befehle Yo ya getauscht (LoadBMP a DRAWPIC, DBOPEN() a DB("Open"), createtext() a create("Text") usw.)

12.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Sebastian
Sprenger

Hast du todavía el Vorschlag de Jörg gesehen, al Ende el Bucle el Befehl "repaint" a conjunto?

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

12.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Das
Dutzend

Das Funktioniert. En el Projekt Yo allerdings auch Bitmaps, el con MLoadBmp/MCopyBmp geladen voluntad, hier Yo weiterhin Problemas. El Solución Yo aber ya gefunden. Yo habe el Bitmaps zerschnitten, y lade esta nun con DRAWPIC. Dadurch fueron zwar de 3 BMP ca. 450 BMP, aber qué solls. En el momento speicher Yo esta en un DLL. Posesiones gerade otra vez una Mail obtener, diesmal ging lo en una Windows 7-Problema.

Yo danke euch sólo veces.