XProfan

' 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