Ruleta – Delphi – Fórum – Programujte.com

Dobrý den, chtěl bych se zeptat, jestli někdo nemáte hotový zdrojový kód od rulety případně jestli by mi s ní někdo nepomohl. Děkuji

#1 mates
Klidně pomohl, s čím konkrétně?

Jo, s cim si neumis poradit?
- zobrazenim kolecka a rotujici kulickou po zpomalujici se spirale?
- pocitani skore pri padnuti cisla?
- neco jineho?

Moznosti vsazeni mas nekolik. Klidne muzes udelat pole vsech moznosti a odkazat na prislusny nasobek vyhry.
http://cs.wikipedia.org/wiki/Ruleta
http://www.casinocashjourney.com/…-layouts.htm
Kazde z toho mista, kam lze vsadit, bych dal jako klikatelne tlacitko.

Otazkou je, zda potrebujes neco tak sloziteho jako cela ruleta nebo ti staci jen par ciselek? Nebo treba jsem nasel googlem pod slovem roulete taky takovy ten rotujici kotouc s obrazky :)

#3 peter
No mám stažený plátno jako image a na plátnu mam daný buttony a potřeboval bych když kliknu na button na červené barvě, jakože sázka na červenou aby se automaticky dala sázka za 50 . Pak už jen podle toho co padne zda je sázka výherní či ne. Náhodné generování čísel tam už mém přes randomize. :)

Typy sazek mas na tech strankach kasina. Pravidla jsou takova, ze muzes vsadit i vic moznosti najednou.
Na vsechna mista, kde je mozne vsadit, umistis tlacitka. Nebo by slo mozna resit polohu x,y kliknuti a mit nekte tabulku s polohou vsech virtualnich tlacitek. Ale tlacitko je lepsi, pac ho muzes zviditelnit.
Pak mas tabulky s typem sazek a vyhrou. Tabulku s cislem tlacitka, seznamem cisel, kterych se sazka tyka, typem sazky. A tabulku vsazenych sazek.

tb_vyhry
id_vyhry, typ, vyhra
1, 'A', 35
2, 'B', 17 ...

tb_policka
id_policko, id_vyhry, cisla
1...
35, 1, 7
36...
66, 2, 0,1,4,7,10,13,16,19,22,25,28,31,34 ...

tb_sazky
id_sazka, id_hrac, id_policko, castka
1, 1, 35, 3000

tb_hraci
id_hrac, jmeno
1, Lojza

A mas z toho nekolik krasnych databazovych tabulek :) Samozrejme si to musis prepsat nejak do delphi a udelat zpusob vyhledavani radky v tabulce, neco jako hledej(jmeno_sloupce, hodnotu) vrati to cislo radku nebo -1. Kdyby jste mohli pouzi mssql, usnadnilo by ti to psani vlastni funkce :) Urcite to jde napsat snadneji v packalu/delphi, ale prijde mi, ze bude mnohem lepsi napsat si par univerzalnich funkci pro praci s tabulkou nez to resit nejakymi spesl funkcemi extra pro danou strukturu dat (nejakou obri tabulku).