| |
|
|
|
|
|
| |
|
|
|
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. |
|
|
| |
|
|
|
Frank Abbing | I starte time a attempt: CompileMarkSeparationDeclare 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. |
|
|
| |
|
|
|
| @Frank: Hehe class already very yummy! |
|
|
| |
|
|
|
| have time a small shadow added and of mcls abgekoppelt to that hPic... CompileMarkSeparationGemerkt/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
|
|
|
| |
|
|
|
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: [...] | 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. |
|
|
| |
|
|
|
| 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. |
|
|
| |
|
|