XProfan

Dietmar
Horn

¡Hola,

el Thema Cards.dll haben Franco y yo letzte Semana auch sólo durchgekaut.

Mi Tests ergaben:

- Bajo Win 95 y 98 Es el DLL zwar disponible, aber vermutlich sólo 16 Bit (jedenfalls funktioniert ellos con XProfan no).
- Bajo Windows XP klappts wunderbar.
- Vista scheint seine Spielkarten woanders herzunehmen, jedenfalls podría Yo como nichts en Richtung *cards*.dll encontrar. Wenn uno el Cards.dll de XP en el Vista-Systemordner reinkopiert, klappts auch con XProfan.
- Bajo Windows 2000 podría Yo evtl. al Freitag testen, Windows ME Yo aktuell no disponible.

Un Alternative podría una private Cards.dll ser (Freeware), a el Franco una Link fand: [...]

Diesem Paket mentira auch todavía mehrere diferente Sätze Spielkarten en el Gif-Formato en.

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Frank
Abbing

Vista ha una Kartenset en uno Expediente system32/cardgames.dll gespeichert, sowie diverse otro Gráficos y Daten. El Resourcen son sin embargo völlig anders aufgebaut, como el cards.dll de älteren Systemen.
El cardgames-Dll scheint auch una Com-Dll a ser, jedenfalls podría Yo no Características en el Dll lokalisieren. El cards.dll hingegen bietet diverse Características a, en z.B. Karten en una HDC darzustellen. Ist also schwer una älteres Kartenspiel umzuschreiben de cards.dll después de cardgames.dll.

Frank
Abbing

Yo starte veces a la Intento:
Kompilieren Marca Separación

Declare x&,y&,text$

Proc paintCard

    Declare ktext$,kb&,kmod&,kcol&,kpie&,ksize#
    Dim ksize#,8
    Def GetTextExtentPoint32(4) ! "GDI32","GetTextExtentPoint32A"
    Parameters kx1&,ky1&,kx2&,ky2&, kpos&
    StartPaint -1
    Cls
    kcol&=0
    kmod&=kpos& MOD 4
    Case ((kmod&=1) or (kmod&=2)):kcol&=Rgb(255,0,0)
    ktext$="AAAA222233334444555566667777888899990000BBBBDDDDKKKK"
    RoundRect 0, 0 - kx2&, ky2&; 8,8
    ktext$=Mid$(ktext$, kpos&+1, 1)
    Case ktext$="0": ktext$="10"
    Usefont "Times New Roman",36,0,0,0,0
    TextColor 0,-1
    DrawText 4, 2, ktext$
    kpie&=GetTextExtentPoint32(%hdc,Addr(ktext$),Len(ktext$),ksize#)
    kpie&=Long(ksize#,0)+6
    ktext$="§"
    Case kmod&=1:ktext$="¨"
    Case kmod&=2:ktext$="©"
    Case kmod&=3:ktext$="ª"
    Usefont "Symbol",36,0,0,0,0
    TextColor kcol&,-1
    DrawText 4, 26, ktext$
    Usefont "Symbol",24,0,0,0,0
    TextColor kcol&,-1
    DrawText kpie&, 2, ktext$
    Usefont "Symbol",148,0,0,0,0
    TextColor kcol&,-1
    DrawText 4, (-10), ktext$
    EndPaint
    MCopyBmp 0,0 - 77,102 > kx1&,ky1&; 0
    Dispose ksize#

EndProc

Cls
MCls 77, 102
Randomize
y&=20

Whileloop 3

    Whileloop 14

        paintCard((&loop-1)*40, y&, 77, 102, Rnd(52))     52 verschiedene Karten im Set

    EndWhile

    y&=y&+120

EndWhile

WaitInput
ef='./../../funktionsreferenzen/XProfan/end/'>End

Frank
Abbing

Noch kleine Bugs gefunden y Code erneuert.

@Franco
Wenn ahora todavía alguien una Rutina dazu schreibt, el doppelte Karten verhindert, es alles OK !
Im anliegenden "Wurf" son z. B.
el Karo-8 dreimal y
el Cruz-Dame dreimal disponible.

doppelkarte.jpg	154 kB

Hochgeladen:	06.11.2008

Ladeanzahl:
		Descargar

@Franco: Hehe klasse ya muy lecker!

Posesiones veces a la pequeño Schatten hinzugefügt y vom mcls abgekoppelt para hPic...
Kompilieren Marca Separación

Gemerkt/Separiert von http://xprofan.com/thread.core?p=46942#46942
Declare x&,y&,text$
Def GetTextExtentPoint32(4) ! "GDI32","GetTextExtentPoint32A"

Proc paintCard

    Parameters kx1&,ky1&,kx2&,ky2&, kpos&
    Declare ktext$,kb&,kmod&,kcol&,kpie&,ksize#
    Dim ksize#,8
    var hPic&=create("hNewPic",kx2&,ky2&,$123456)
    StartPaint hPic&
    Cls
    kcol&=0
    kmod&=kpos& MOD 4
    Case ((kmod&=1) or (kmod&=2)):kcol&=Rgb(255,0,0)
    ktext$="AAAA222233334444555566667777888899990000BBBBDDDDKKKK"
    usepen 0,0,$AAAAAA
    useBrush 1,$AAAAAA
    RoundRect 1, 1 - kx2&, ky2&; 8,8
    dec kx2&,1
    dec ky2&,1
    usepen 0,0,$666666
    useBrush 1,$FFFFFF
    RoundRect 0, 0 - kx2&, ky2&; 8,8
    ktext$=Mid$(ktext$, kpos&+1, 1)
    Case ktext$="0": ktext$="10"
    Usefont "Times New Roman",36,0,0,0,0
    TextColor 0,-1
    DrawText 4, 2, ktext$
    kpie&=GetTextExtentPoint32(%hdc,Addr(ktext$),Len(ktext$),ksize#)
    kpie&=Long(ksize#,0)+6
    ktext$="§"
    Case kmod&=1:ktext$="¨"
    Case kmod&=2:ktext$="©"
    Case kmod&=3:ktext$="ª"
    Usefont "Symbol",36,0,0,0,0
    TextColor kcol&,-1
    DrawText 4, 26, ktext$
    Usefont "Symbol",24,0,0,0,0
    TextColor kcol&,-1
    DrawText kpie&, 2, ktext$
    Usefont "Symbol",148,0,0,0,0
    TextColor kcol&,-1
    DrawText 4, (-10), ktext$
    EndPaint
    Dispose ksize#
    drawPic hPic&,kx1&,ky1&;-1,$123456
    deleteObject hPic&

EndProc

Cls

while 1

    paintCard(100,100, 77, 102, Rnd(52))
    paintCard(250,100, 77*2, 102*2, Rnd(52))
    WaitInput

wend

href='./../../funktionsreferenzen/XProfan/end/'>End

cardsschatten.png	2 kB

Hochgeladen:	06.11.2008

Ladeanzahl:
		Descargar

Frank
Abbing

Sollte ya con Versión 10 laufen, IF.

@Horst: Derartige Routinen son ya fertig. Posesiones el en mi Artikel para Dietmars Buch ausführlich beschrieben.

Dietmar
Horn

¡Hola,

eigentlich Yo quería con el nächsten Actualización meines Lehrbuches todavía warten a Yo así algo más bin (a ahora sinds gerade veces ca. 480 Páginas).
Doch porque que aquí nun ya veces a Lingua gekommen es, voluntad Yo al Freitagabend una Actualización hochladen, si a dahin nichts dazwischenkommt.

Como se entonces en el Anhang bajo "Projekte" el Artikel de Franco con enthalten ser:

"Mein propio Freecell - oder cómo selber una Spiel programmiert",

einschließlich des Quellcodes y o.g. Freeware-Cards-DLL. Im Texto se Schritt para Schritt, auch para Programmieranfänger verständlich, erklärt, como Prozeduren y Características aufgebaut son y welche Logik hinter el individual Programmierschritten steckt. Lauffähig es esta Light-Versión de "BlackJack" de XProfan 10 - läßt se aber ligeramente auch para ältere XProfan-Versionen umschreiben. Yo habe el código para mich a XProfan 8.0 angepaßt, así Yo mi Schüler morgen así "quälen" kann.

Saludo
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]