XProfan

' Link zum Download : https://lbpe.wikispaces.com/QCard01
Declare Handle qc, btn1, btn2, btn3, btn4, text1, text2
Declare Int ende, knum, kwert, farbe, deck, jolly, Deck1[52], Deck2[52], Deckblatt[5], Joker[4]
Declare String cardcolor
Def %CardWidth 71
Def %CardHeight 96
Def %NumCards 52
qc = ImportDll("QCard32.dll", "")
ende = 0
WindowTitle "Karten mit der QCARD32.DLL"
Window 840, 600
btn1  = @Create("Button", %HWnd, "Ende", 10, 10, 60, 25)
btn2  = @Create("Button", %HWnd, "Deal", 80, 10, 60, 25)
deck = InitializeDeck(%HWnd)
SetCurrentBack(4)
InitDecks()
Randomize

WhileNot ende

    WaitInput

    If @Clicked(btn1)

        ende = 1

    ElseIf @Clicked(btn2)

        knum = Rnd(52)
        jolly = Rnd(4)
        SetCardStatus(Deck1[knum], 1)
        DealCard(%HWnd, Deck1[knum], 100, 350)
        DealCard(%HWnd, Joker[jolly], 10, 350)
        kwert = GetCardValue(Deck1[knum])
        farbe = GetCardSuit(Deck1[knum])

        Select farbe

            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

    Case %Key = 2 : ende = 1

EndWhile

FreeDll qc
End

Proc InitDecks

    Declare Int z, x

    WhileLoop 0, 51

        Deck1[&LOOP] = &LOOP + 1
        Deck2[&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(Deck1[&LOOP], 0)
        SetCardStatus(Deck2[&LOOP], 0)
        DrawCard(%HWnd, Deck1[&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