| |
|
|
H.Brill | Hab la fois avec qui QCARD32.DLL gespielt.
Herunterladen externer Télécharger
' Link zum Télécharger : https://lbpe.wikispaces.com/QCard01
Déclarer Handle qc, btn1, btn2, btn3, btn4, text1, text2
Déclarer Int ende, knum, kwert, la couleur, pont, jolly, pont1[52], pont2[52], Deckblatt[5], Joker[4]
Déclarer String cardcolor
Def %CardWidth 71
Def %CardHeight 96
Def %NumCards 52
qc = ImportDll("QCard32.dll", »)
ende = 0
Titre de la fenêtre "Karten avec qui QCARD32.DLL"
Fenêtre 840, 600
btn1 = @Créer("Button", %HWnd, "Ende", 10, 10, 60, 25)
btn2 = @Créer("Button", %HWnd, "Deal", 80, 10, 60, 25)
pont = InitializeDeck(%HWnd)
SetCurrentBack(4)
InitDecks()
Randomiser
WhileNot ende
WaitInput
Si @Clicked(btn1)
ende = 1
ElseIf @Clicked(btn2)
knum = Tour(52)
jolly = Tour(4)
SetCardStatus(pont1[knum], 1)
DealCard(%HWnd, pont1[knum], 100, 350)
DealCard(%HWnd, Joker[jolly], 10, 350)
kwert = GetCardValue(pont1[knum])
la couleur = GetCardSuit(pont1[knum])
Select la couleur
CaseOf 1 : cardcolor = "Kreuz"
CaseOf 2 : cardcolor = "Karo"
CaseOf 3 : cardcolor = "Herz"
CaseOf 4 : cardcolor = "Pik"
EndSelect
DrawText 200, 380, " "
DrawText 200, 380, "Farbe : " + cardcolor + ", Wert : " + Str$(kwert)
EndIf
Cas %Key = 2 : ende = 1
Endwhile
FreeDll qc
Fin
Proc InitDecks
Déclarer Int z, x
WhileLoop 0, 51
pont1[&LOOP] = &LOOP + 1
pont2[&LOOP] = &LOOP + 53
Endwhile
z = 105
WhileLoop 0, 4
Deckblatt[&LOOP] = z
Inc z
Endwhile
z = 110
WhileLoop 0, 3
Joker[&LOOP] = z
Inc z
Endwhile
WhileLoop 0, 51
SetCardStatus(pont1[&LOOP], 0)
SetCardStatus(pont2[&LOOP], 0)
DrawCard(%HWnd, pont1[&LOOP], 5, 50)
Endwhile
x = 100
WhileLoop 0, 3
DrawCard(%HWnd, Joker[&LOOP], x, 50)
Inc x, 140
Endwhile
x = 10
WhileLoop 1, 10
DrawSymbol(%HWnd, 3, x, 250)
Inc x, 80
Endwhile
ENDPROC
Scheint droite bien trop son. Lien de téléchargement steht im Voir le texte source 1. la ligne. |
|
|
| Benutze XPROFAN X3 + FREEPROFAN Wir sind die XProfaner. Sie werden von uns assimiliert. Widerstand ist zwecklos! Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.
Was die Borg können, können wir schon lange. | 14.06.2015 ▲ |
|
|
|