Проект 4. «випадковий вибір»
Мета роботи - створити програму, що виконує наступні дії:
Після|потім| запуску програми, клацнувши мишею на кнопці «Кинути кубик» з'являється повідомлення, яке видає числа - очки в діапазоні 0 - 6.
Для виходу з програми необхідно нажати мишею на кнопці "Вихід".
Опис плану розробки програми
1. Відкрити|відчиняти| новий проект.
2. Розмістити на формі екземпляри компонентів: мітку Label і дві кнопки Button.
3. Виконати наступні|слідуючі| дії:
Таблиця 3.
Виділений об'єкт |
Закладка вікна Odject Inspector |
Ім'я властивості/ ім'я події |
Подія |
Form1
|
Properties
|
Caption
|
Встановити ім'я форми "Випадковий вибір" |
Label1 (закладка Standard) |
Properties
|
Caption |
Очистити надпис |
Button1 (закладка Standard) |
Properties |
Caption |
Встановити ім'я кнопки " Кинути кубик " |
Events |
OnClick |
Label1.Caption := = IntToStr (n) |
|
Button2 (закладка Standard)
|
Properties |
Caption |
Встановити ім'я кнопки " Вихід " |
Events |
OnClick |
Close |
Опишемо змінну n таким чином:
var| n:integer;
Для генерації (створення) самого числа використовують функцію Random. Скільки потрібно створити чисел, стільки разів потрібно викликати цю функцію:
n := random (6) + 1 ;
Отриманий чисельний результат перетворимо в текст за допомогою стандартної функції InttoStr.
Label1.Caption := IntToStr (n) ;
Для завершення роботи залишилося прописати слово | close | в процедуру Button2Ciick|, яка виконується при клацанні|натисненні| мишею на екранній кнопці Button2|. Тепер програма готова до роботи.
У лістингу наводиться повний текст даної програми.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var n: Integer;
begin
n := random (6) + 1 ;
Label1.Caption := IntToStr (n) ;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close
end;
end.
4. Збережіть проект, запустіть і протестуйте його.
Проект 5. «жартівливе тестування»
Мета роботи - створити програму, за допомогою якої можна б було проводити тестування. В нашій програмі використовується жартівливий тест.
Після запуску програми необхідно поставити позначки на вірних, на вашу думку, відповідях.
Для перевірки клацніть на кнопку "Перевірити"
Для виходу з програми необхідно нажати мишею на кнопці "Вихід".