льнім інтерфейсом, яка спрямована на Поліпшення зорової пам яті.
помилок у Програмі не виявлено.
В
Мал. 1.1 - Заставка и автор програми
В
Мал 1.2 - Головне меню програми
В
Мал до 1.3 - вихідні дані, запит на рестарт грі
Висновки
засобой мови програмування Delphi булу cтворена гра Пам ять, что спрямована на Поліпшення зорової пам яті.
ПЕРЕВАГА - программа розроблено на мові Delphi, что забезпечен швідкодію програми та незначні ее Розміри.
Недоліки - великий ОБСЯГИ необхідної пам'яті.
Список використаної літератури
Андре Ла Мот "Секрети програмування ігор
Електронне видання "Ілюстрований Самовчитель по практиці програмування
Т.І. Зугельман Москва 2006р. "Повний гід Delphi
С.В. Тополов BDS - Керівництво розробника
Додаток А
Лістінг програми
. pasMainMemoryFormUnit;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ImgList, ExtCtrls, StdCtrls, Buttons, ZastUnit; = class (TForm): TImage;: TImage;: TImage ;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImage;: TImageList;: TTimer;: TTimer;: TTimer;: TLabel;: TLabel;: TTimer;: TSpeedButton;: TSpeedButton;: TSpeedButton; FormCreate (Sender: TObject); clicktimerTimer (Sender: TObject); secTimer (Sender: TObject); minTimer (Sender: TObject); showtimerTimer (Sender: TObject); SpeedButton1Click (Sender: TObject); SpeedButton2Click (Sender: TObject); SpeedButton3Click (Sender: TObject); FormKeyDown (Sender: TObject; var Key: Word; Shift : TShiftState);
{Private declarations} _started: boolean; _ImgnumList: TList; _object, m_object2: TObject; _x: longint; _block, m_showpoints: boolean; _min, m_sec: longint; _CurTime: string; RandomizeList (var ExceptList : TList; count, minvalue, maxvalue: longint): boolean; FindObjectInItemsOfList (l: TList; n: longint): longint;// пошук об'єкта в спіскеOnNewGame; ApplyImages (toShow: boolean = false); OnClick2 (Sender: TObject); CheckForFinish: boolean; OnFinish; OnStart; OnShowTime; OnRestart; StartTimers; StopTimers;;: TMainMemoryForm;
{$ R *. dfm} TMainMemoryForm.FormCreate (Sender: TObject); _ImgnumList: = TList.Create; _object: = TObject.Create; _object2: = TObject.Create;. Enabled: = false ;. Enabled: = false;. Enabled: = false;. Enabled: = false;;; TMainMemoryForm.FormKeyDown (Sender: TObject; var Key: Wo...
