XProfan

Dietmar
Horn

Hi,

the Topic Cards.dll having Frank what about me latest week too first durchgekaut.

My Tests ergaben:

- under Win 95 and 98 is the DLL of course present, but presumably only 16 bit (anyway functions tappt im dunkeln with XProfan not).
- under Windows XP works wonderful.
- Vista shining its Gamecards elsewhere herzunehmen, anyway could I there nothing in direction *cards*.dll find. If one The Cards.dll of XP into Vista-Systemordner reinkopiert, works too with XProfan.
- under windows 2000 could I evtl. on the friday testing, windows ME have I currently not available.

an alternative could a private Cards.dll his (Freeware), to the Frank a Link found: [...]

this pkg lying too yet several different Sätze Gamecards in the Gif-stature with.

Greeting
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 has one Kartenset in a File system32/cardgames.dll stored, as well as diverse others Graphics and data. The Resources are however completely differently aufgebaut, as the cards.dll from older Systemen.
The cardgames-Dll shining too a com-Dll To his, anyway could I no functions in the Dll lokalisieren. The cards.dll against bid diverse functions on, circa z.B. cards on a HDC darzustellen. So heavy one älteres pack of cards umzuschreiben of cards.dll to cardgames.dll.

Frank
Abbing

I starte time a attempt:
Compile Mark Separation

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='./../../Function-References/XProfan/end/'>End

Frank
Abbing

yet small Bugs found and code renewed.

@Frank
If yet someone a routine moreover writes, The double cards prevented, is everything OK !
in the adjacent "Wurf" are z. B.
The Karo-8 thrice and
The Cross-lady thrice present.

doppelkarte.jpg	154 kB

Hochgeladen:	11/06/08

Downloadcounter:
		Download

@Frank: Hehe class already very yummy!

have time a small shadow added and of mcls abgekoppelt to that hPic...
Compile Mark Separation

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='./../../Function-References/XProfan/end/'>End

cardsschatten.png	2 kB

Hochgeladen:	11/06/08

Downloadcounter:
		Download

Frank
Abbing

ought to already with Version 10 walk, iF.

@Horst: Derartige routines are already ready. have the in my item for Dietmars book in detail described.

Dietmar
Horn

Hi,

really wished I with the next Update of my Lehrbuches yet Waiting To I so something moreover be (yet sinds straight time ca. 480 pages).
still because that here now already time to Language come is, I will on the friday evening one Update Upload, if by then nothing dazwischenkommt.

there becomes then in the attachment under "Projekte" the item of Frank with include his:

"Mein own Freecell - or How one yourself one game programmiert",

including the Source code and the o.g. Freeware-Cards-DLL. in the Text becomes step for step, too for Programmieranfänger verständlich, declared, as Procedures and functions aufgebaut are and which Logik behind whom individual Programmierschritten stick. executable is these Light-Version of "BlackJack" ex XProfan 10 - can itself but slight too for ältere XProfan-versions paraphrase. I have whom code for me on XProfan 8.0 angepaßt, so I mean schoolboy tommorrow so "quälen" can.

Greeting
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: [...]