Opasarkisto: Visual Basic: Korttipeliohjelmointi

Windowsin mukana tulevan cards.dll-kirjaston avulla voi helposti tehdä näyttäviä korttipelejä. Tässä oppaassa kerrotaan, kuinka kirjastoa voi käyttää Visual Basicista käsin. Teemme myös esimerkkiprojektin, joka esittelee kyseisen kirjaston käyttöä.

Johdanto

Windowsin pasianssi kuuluu todennäköisesti maailman pelatuimpiin tietokonepeleihin. Alunperin pasianssi ei erillistä DLL-kirjastoa tarvinnut, vaan kortit olivat pelissä itsessään. Sittemmin sellaiset pelit kuin vapaakenttä ja hertta alkoivat käyttää cards.dll:ta ja nykypäivänä monet Windowsille tehdyt korttipelit käyttävät tätä kirjastoa.

Kirjaston käyttämiseen on useita syitä. Ensinnäkin kortit löytyvät valmiiksi Windowsista, jolloin peliohjelman koko pienenee. Kortit ovat myös selkeät ja melko tyylikkäät. Tämän lisäksi kirjaston funktioita on helppo käyttää.

Kirjaston funktiot

Kirjasto sisältää viisi funktiota: cdtInit, cdtDraw, cdtDrawExt, cdtAnimate ja cdtTerm. Funktiot määritellään käyttöön esimerkiksi moduulitiedostossa seuraavaan tapaan.

'Pelikortit sisältävän kirjasto nimi voi olla myös cards32.dll - vaihda tarvittaessa.

Declare Function cdtInit Lib "cards.dll" (dx As Long, dy As Long) As Long

Declare Function cdtDrawExt Lib "cards.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal dx As Long, ByVal dy As Long, ByVal iCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long

Declare Function cdtDraw Lib "cards.dll" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal iCard As Long, ByVal iDraw As Long, ByVal clr As Long) As Long

Declare Function cdtAnimate Lib "cards.dll" (ByVal hdc As Long, ByVal cd As Long, ByVal X As Long, ByVal Y As Long, ByVal ispr As Long) As Long

Declare Function cdtTerm Lib "cards.dll" () As Long

Aina ensimmäiseksi on kutsuttava cdtInit-funktiota, joka alustaa pakan ja palauttaa kortin leveyden ja korkeuden. Tärkein funktioista on cdtDraw, joka piirtää halutun kortin ruudulle. cdtDrawExt on muuten sama kuin cdtDraw, paitsi että se osaa venyttää korttia. cdtAnimate laittaa korttien kääntöpuolet elämään. Esimerkiksi kädestä nousee ässä ja robotin valot liikkuvat. Viimeinen funktio on cdtTerm, joka lopettaa kirjaston käyttämisen.

Funktioiden käyttö tarkemmin

Tässä listassa on selostettuna kaikki parametrit, joita edellä mainituille funktioille voi antaa. Pituuksissa on huomattava, että cards.dll käyttää pikseleitä, kun taas Visual Basicin yksikkö on oletuksena twip.

• cd on animaatio kortin numero. Numerot ovat: 56 - robotti, 63 - yölinna, 64 - palmuranta ja 65 - ässäkäsi.
• clr määrittää kortin taustavärin (RGB), jota tarvitaan piirtotavoissa 3 ja 4.
• dx on kortin leveys.
• dy on kortin korkeus.
• hdc eli ikkunan tunniste määrittää, mihin ikkunaan kortti tulee piirtää.
• iCard määrittää piirrettävän kortin. Numerot 0-51 ovat tavalliset kortit numerojärjestyksessä siten, että ensin ovat kaikki ässät, sitten kakkoset, sitten kolmoset jne. Numerot 54-65 taas ovat korttien pakkavaihtoehtoja.
• iDraw määrittää piirtotavan. 0 tarkoittaa tavallista, 1 on kääntöpuoli, 2 piirtää kortin käänteisväreissä, 3 on taustan värinen "tyhjä kortti" (kuten pasianssissa ovat alussa tyhjät ässien paikat), 4 on taustan värinen suorakulmio, 5 on muuten samanlainen kuin 3, paitsi että kortti on läpinäkyvä, 6 piirtää X-kortin (pakkaa ei voi selata) ja 7 piirtää O-kortin (pakka kääntyy ympäri).
• ispr määrittää animaatiossa kuvan numeron. Kuvien numerot ovat 0-1 yölinnassa ja muissa 0-3.
• X on kortin vasemman yläkulman x-koordinaatti.
• Y on kortin vasemman yläkulman y-koordinaatti.

Animaation tekeminen

Eräissä pakkavaihtoehdoissa on animaatio. Näitä ovat robotti (56), yölinna (63), palmuranta (64) ja ässäkäsi (65). Robotissa mittarit liikkuvat ja valot vilkkuvat, yölinnassa lepakot "lentävät" taivaalla, palmurannassa aurinko saa aurinkolasit ja näyttää kieltä, ja ässäkädessä hihasta nousee silloin tällöin neljäs ässä. Animaation kuvat vaihtuvat 250 millisekunnin välein. Palmurannassa ja ässäkädessä animaatio näytetään noin minuutin välein, muissa jatkuvasti.

Esimerkkiohjelma

Tähän oppaaseen liittyy esimerkkiohjelma, joka sisältää yksinkertaisen esimerkin jokaisen yllämainitun funktion käytöstä. Voit kopioida paketin tästä (6,4 kt).