Français
Source/ Codesnippets

Karten spielen

 

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  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

3.330 Views

Untitledvor 0 min.
Member 862464112.05.2024
p.specht20.11.2021
Uwe Lang20.11.2021
Manfred Barei19.11.2021
plus...

Themeninformationen

cet Thema hat 1 participant:

H.Brill (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie