робки графічної інформації. Наприклад, у ньому можна вказати колір, який буде вважатися прозорим при відображенні. p> Вікно FrmRules В
У даному вікні знаходяться два компоненти: tBitBtn і tRichEdit. TRichEdit дозволяє зберігати в собі текстову інформацію з форматуванням. br/>
Вікно AboutBox
В
Дане вікно є стандартним для Delphi і взято з депозитарію.
У програмі крім сервісних функцій тільки одна процедура. Вона викликається по натисненню кнопки "Кинути"
На початку процедури перевіряється допустимість введених значень ставки і числа на яке користувач поставив. Якщо хоча б одне з чисел має неприпустиме значення, то користувачеві видається відповідне повідомлення і процедура закінчує свою роботу. p> Далі відбувається цикл обертання кубиків. У цьому циклі випадковим чином вибираються два числа в діапазоні від 0 до 5, відповідних індексах картинок граней. Потім викликається процедура перемальовування екрану, в якій на форму виводиться відповідні грані. Після закінчення циклу обертання відбувається підсумовування очок на обох кубиках. Після чого це число порівнюється зі ставкою користувача. В кінці процедури в залежності від того виграв він чи ні змінюється сумарний рахунок і виводиться повідомлення про результати поточного кидка. br/>
Специфікація програми.
Програма написана на Delphi 6. Файли проекту (Додатки А) представлені в таблиці 1. br/>
Таблиця 1.
Ім'я файлаТіп файлаОпісаніеabout.dfmФайл формиО программеabout.pasФайл програмного модуляKosti.cfgФайл конфігурації проектаКурсовая.docДокумент WordЕтот файлKosti.dofФайл параметрів проектаKosti.dprФайл проектаKosti.dskФайл конфігурації проектаKosti.resФайл ресурсовMain.dfmФайл формиГлавная формаMain.pasФайл програмного модуляrules. dfmФайл формиПравіла ігриrules.pasФайл програмного модуляRusDlg.pasФайл програмного модуляРусіфіцірованние діалоги
. Текст програми
Текст програми
Модуль: about.pas Всього рядків: 35
unit about; Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,, ExtCtrls; = class (TForm): TPanel;: TImage;: TLabel;: TLabel;: TLabel;: TLabel ;: TButton;: TLabel;: TLabel;: TLabel;: TLabel;
{Private declarations}
{Public declarations};: TAboutBox;
{$ R *. dfm}. p align="justify"> Модуль: Kosti.dpr Всього рядків: 18 Kosti;, in 'Main.pas' {Form1}, in 'RusDlg.pas', in 'about.pas' {AboutBox}, in 'rules . pas '{FrmRules};
{$ R *. res}. Initialize;. CreateForm (TForm1, Form1);. CreateForm (TAboutBox, AboutBox);. CreateForm (TFrmRules, FrmRules);. Run;
end.
Модуль: Main.pas Всього рядків: 150
unit Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...
