Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2011, 18:11   #1
Николай1
Пользователь
 
Регистрация: 05.06.2011
Сообщений: 15
По умолчанию Добавить в тотализатор возможность делать ставки.

Игра практически сделана, но не знаю как сделать чтобы в начале игры было 1000 долларов. Можно ставить любую сумму, не превышающую, той, что есть.
Вот код игры:
Цитата:
unit Unit1;

var
Form1: TForm1;
var
n: integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
n:=0;
end;

procedure TForm1.StartClick(Sender: TObject);
begin
n:=0;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
randomize;
Ronaldo.Left:= Ronaldo.Left+random(10);
Ramos.Left:= Ramos.Left+random(10);
Arteta.Left:= Arteta.Left+random(10);
Bolt.Left:= Bolt.Left+random(10);

if Ronaldo.Left> 700 then
if Ronaldo.Tag=0 then
begin
n:=n+1;
Ronaldo.Tag:=n;
label1.Caption:='Ðîíàëäó-'+ Inttostr(Ronaldo.Tag)+'ìåñòî';
end;


if Ramos.Left> 700 then
if Ramos.Tag=0 then
begin
n:=n+1;
Ramos.Tag:=n;
label2.Caption:='Ðàìîñ-'+ Inttostr(Ramos.Tag)+'ìåñòî';
end;


if Arteta.Left> 700 then
if Arteta.Tag=0 then
begin
n:=n+1;
Arteta.Tag:=n;
label3.Caption:='Àðòåòà-'+ Inttostr(Arteta.Tag)+'ìåñòî';
end;


if Bolt.Left> 700 then
if Bolt.Tag=0 then
begin
n:=n+1;
Bolt.Tag:=n;
label4.Caption:='Áîëò-'+ Inttostr(Bolt.Tag)+'ìåñòî';
end;


if n>4 then
begin
timer1.Enabled:=false;
groupbox1.Visible:=true;
if (checkbox1.checked) and (Ronaldo.Tag=1) then label6.caption:='Ðîíàëäó ïîáåäèë!'
else
if (checkbox2.checked) and (Ramos.Tag=1) then label6.caption:='Ðàìîñ ïîáåäèë!'
else
if (checkbox3.checked) and (Arteta.Tag=1) then label6.caption:='Àðòåòà ïîáåäèë!'
else
if (checkbox4.checked) and (Bolt.Tag=1) then label6.caption:='Áîëò ïîáåäèë!'
else
if (checkbox5.checked) and (Naumenko.Tag=1) then label6.caption:='Íàóìåíêî ïîáåäèë!'
else
label6.Caption:='Âû ïðîèãðàëè =*((';
end;
end;


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox1) then
begin
If checkbox1.checked=false then
begin
Edit1.enabled:=false;
Edit1.Color:=clBtnFace;
Edit1.Text:='----------------';
end;
If checkbox1.checked=true then
begin
Edit1.enabled:=true; // âêëþ÷àåì Edit1.
Edit1.Color:=clWhite;
Edit1.Text:='';
end;
end;
end;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox2) then
begin
If checkbox2.checked=false then
begin
Edit2.enabled:=false; // îòêëþ÷àåì edit1
Edit2.Color:=clBtnFace;
Edit2.Text:='----------------';
end;
If checkbox2.checked=true then î
begin
Edit2.enabled:=true; // âêëþ÷àåì Edit1.
Edit2.Color:=clWhite;
Edit2.Text:='';
end;
end;
end;
end;

procedure TForm1.CheckBox3Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox3) then
begin
If checkbox3.checked=false then
begin
Edit3.enabled:=false; // îòêëþ÷àåì edit1
Edit3.Color:=clBtnFace;
Edit3.Text:='----------------';
end;
If checkbox3.checked=true then //åñëè ôëàæîê âêëþ÷åí, òî
begin
Edit3.enabled:=true; // âêëþ÷àåì Edit1.
Edit3.Color:=clWhite;
Edit3.Text:='';
end;
end;
end;
end;

procedure TForm1.CheckBox4Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox4) then
begin
If checkbox4.checked=false then //åñëè ôëàæîê îòêëþ÷åí, òî
begin
Edit4.enabled:=false; // îòêëþ÷àåì edit1
Edit4.Color:=clBtnFace;
Edit4.Text:='----------------';
end;
If checkbox4.checked=true then //åñëè ôëàæîê âêëþ÷åí, òî
begin
Edit4.enabled:=true; // âêëþ÷àåì Edit1.
Edit4.Color:=clWhite;
Edit4.Text:='';
end;
end;
end;
end;

procedure TForm1.CheckBox5Click(Sender: TObject);
begin
begin
If (sender as TCheckBox=CheckBox5) then
begin
If checkbox5.checked=false then //åñëè ôëàæîê îòêëþ÷åí, òî
begin
Edit5.enabled:=false; // îòêëþ÷àåì edit1
Edit5.Color:=clBtnFace;
Edit5.Text:='----------------';
end;
If checkbox5.checked=true then //åñëè ôëàæîê âêëþ÷åí, òî
begin
Edit5.enabled:=true; // âêëþ÷àåì Edit1.
Edit5.Color:=clWhite;
Edit5.Text:='';
end;
end;
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not ((key>='0') and (key<='9') or (key=#8)) // âñå êíîïêè, êðîìå öèôð è Backspase èãíîðèðóþòñÿ
then key:=chr(0);
end;

end.
игра вложена
Вложения
Тип файла: rar Мой проект.rar (2.27 Мб, 10 просмотров)
Николай1 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Тотализатор Niefer Microsoft Office Excel 28 14.01.2015 17:34
Расчет процентной ставки Thorn Microsoft Office Excel 5 02.08.2011 16:01
Расчитать величину процентной ставки за период в MS Excel Майесик Помощь студентам 0 26.06.2011 15:08
к элементам первой половины массива добавить минимум, а к элементам второй - добавить максимум specialist Паскаль, Turbo Pascal, PascalABC.NET 3 08.05.2011 01:46
Алгоритм составления бриф-пакета (тотализатор) mastif Софт 0 12.07.2009 13:26