Курсовая работа: Разработка программы, моделирующую игру Кости

end;

if ochki<=0 then //условиеокончанияигры

begin

invisible_all(sender);//скрываем все объекты на форме

showmessage('Вы проиграли!');//выводим сообщение о конце игры

end else

begin

label4.Caption:=inttostr(ochki);//выводим на экран количество очков

combobox1.Items.Clear;//очищаем список возможных ставок

for i:=1 to ochki do

begin

combobox1.Items.Add(inttostr(i)); //заполняем список возможных ставок от 1 до количества очков

end;

combobox1.ItemIndex:=0;//задаём начальное положение элемента списка

end;

{ label2.Caption:='00'; //сброс значения кубиков и суммы кубиков

image1.Picture.LoadFromFile('p0.bmp');

image2.Picture.LoadFromFile('p0.bmp');}

bitbtn1.Enabled:=false;//ставим положение кнопки броска на выключено

end;

procedure TForm1.N5Click(Sender: TObject);

begin

showmessage('Автор курсовой работы Важенин Антон Александрович);// Справка

end;

end.

2.4 Описание программы

Общие сведения:

Программа «Form» написана на языке ObjectPascal[2] в визуальной оболочке программирования Delphi 7. Для полноценного функционирования программы необходимо наличие операционной системы Windows, либо компиляторы Delphi 7.

Функциональные назначения: