crdvb6x.dll

Скачать библиотеку crdvb6x.dll!!!

В прошлой статье я описывал как можно выводить карты в спрайтовой технике. 
Но это сложно. И не всегда нужно. Есть альтернатива этому сложному пути.
Я написал небольшую библиотечку, в которой неплохая колода ( сейчас работаю над улучшением,
это займёт несколько дней, когда я закончу изменения в библиотечке, то  выложу её сразу).
Вот полный мануал по её использовании. 
Внизу статьи скриншот тестовой программы. 
---------------------------------------------------------------------
Чтобы использовать колоду надо
crdvb6x.dll
Добавить в окне References

карты 100х133 пикселов!!! (установите в свойствах Image)

------------------------------должно быть обязательно
Dim card As crdvb6x
Dim x As Integer


Private Sub Form_Load()
Set card = New crdvb6x
x = 0
End Sub
---------------------------------методы:
gtc051(x) -изображение карт от 2 до туза (0-51)
gtj01(x) -изображение джокеров (0-1)
gtb09(x) -изображение рубашек (0-9)

gtnc(x) -получить номер карты (2-10, 11-валет,12-дама,13-король,14-туз)
gtncs(x) -получить название картами (стринг)
gtmc(x) -получить номер масти (1-буба,2-черва,3-трефа,4-пика)
gtmcs(x) -получить название масти (стринг)


-------------------------------Примеры вызова методов:

Set Image1.Picture = card.gtc051(x) 
Set Image1.Picture = card.gtj01(x)
Set Image1.Picture = card.gtb09(x)

 Label1.Caption = card.gtnc(x)
 Label1.Caption = card.gtncs(x)
 Label1.Caption = card.gtmc(x)
 Label1.Caption = card.gtmcs(x)

---------------------------------------------------------------------------------
Если х больше нужного числа, то ему возвращается значение 0 . Никаких ошибок не возникает!!!
---------------------------------------------------------------------------------

В будущей версии crdvb6x.dll я планирую ещё добавить кое-какие методы и изменю названии
чтобы не было путаницы!

Удачного вам и лёгкого написания карточных игр!!!

---

© ЯКВ-мистери 2000-2014     kestrens@mail.ru