English
Includes

cards - Gamecards

 
Cards - Gamecards draw

Download

1.885 kB
Hochgeladen:11/18/08
Downloadcounter508
Download
1.040 kB
Hochgeladen:11/18/08
Downloadcounter299
Download
1.040 kB
Hochgeladen:11/18/08
Downloadcounter281
Download
 
11/05/08  
 




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:  [...] 
11/05/08  
 




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.
 
11/05/08  
 




Frank
Abbing
I starte time a attempt:
CompileMarkSeparation
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
 
11/05/08  
 




Frank
Abbing
yet small Bugs found and code renewed.
 
11/05/08  
 



@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.

154 kB
Hochgeladen:11/06/08
Downloadcounter274
Download
 
11/06/08  
 



@Frank: Hehe class already very yummy!
 
11/06/08  
 



have time a small shadow added and of mcls abgekoppelt to that hPic...
CompileMarkSeparation
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

2 kB
Hochgeladen:11/06/08
Downloadcounter259
Download
 
11/06/08  
 




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.
 
11/06/08  
 




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:  [...] 
11/06/08  
 




Frank
Abbing
Please were yet, Dietmar. I have now additional these routine in my code installed, for drop, that The cards.dll not found becomes. strange-Dlls go therefore unnecessary and the Lerneffekt enhanced.
will be into next Meet my item adjust. whom code mail I you beforehand already by Mail to that try.
 
11/06/08  
 



Frank Abbing
ought to already with Version 10 walk, iF.


with the Lehrbuchversion likes the momentarily so his, The Communityversion can eachone discretionary use and aufproppen - XProfan 11 is currently.
 
11/06/08  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

54.270 Views

Untitledvor 0 min.
Gast.081508/25/24
Member 862464104/09/24
Daniel03/04/22
lange-jens10/12/19
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie