Программирование на BASIC / Visual Basic / Visual Basic / Lab2_1

Горбунов В.М.

Лаб.2.1. Подготовка проекта и главного экрана тестирования

Открыть Delphi.

Сохранить проект под именем Tester в заранее созданной папке Testing.

В свойствах экранной формы Caption напечатать Test.

Установить на форме компонент MainMenu из палитры Standart.

Правой кнопкой манипулятора Мышь выбрать команду MenuDesigner для перехода к редактированию меню. Создать пункты меню Файл, Открыть тест.

Из меню диалог Dialogs добавить в экранную форму компонент OpenDialog.

Объявить следующие переменные:

public

{ Public declarations }

{Объявляем массив}

Deske: TArray;

Roz: TRando;

Rov: TRando;

{Файловая переменная}

Fap: TextFile;

{Строка передачи}

Stroka: String[250];

{Местоположение каталога}

Mesto: String[250];

{Ключи ответов}

SelKey1,SelKey2,SelKey3,SelKey4,SelKey5: String;

TotaKey,AutoKey: String;

// Индексы массива

InderX: integer;

// InderY - номер раздачи из Roz, IndezY - счетчик заданий, IndevY - номер раздачи вариантов

InderY, IndezY, IndevY: integer;

// Управление переносом файл-массив

Signal,Stroka2,Lin: string;

Koder,Dlin,Uprav: integer;

//Баллы

// InderY - число заданий

Perv,Bals,Stops: integer;

// Вошел и нажал

Vhod,Nagal: integer;

Procent: real;

Soob: string;

end;

Для пункта главного меню Открыть тест написать процедуру загрузки тестовых заданий из текстового файла:

procedure TForm1.Read1Click(Sender: TObject);

// Read Menu ЧТЕНИЕ ЗАДАНИЙ ИЗ ФАЙЛА

Var

LocY: integer;

MAX1D,MAX2D: real;

begin

Koder:=0;

Dlin:=0;

Uprav:=1;

InderY:=0;

TotaKey:='';

AutoKey:='';

//Разрешение на переход

Nagal:=1;

//OpenDialog1

Label2.Caption:=' ';

If OpenDialog1.Execute then

begin

{Устанвливаем связь с файлом для переноса в массив}

AssignFile(Fap,OpenDialog1.FileName);

{Режим чтения из файла}

Reset(Fap);

If Pos('txt',OpenDialog1.FileName)>0 then

Begin

InderY:=0;

Signal:='Тег';

// U1:= TimeToStr(DateTime);

randomize;

MAX1D:=Random(1000)/1000;

// получение номера строки массива InderY:=Roz[IndezY,1];

//1 слой - поиск открывающего тега

While not Eof(Fap) do begin

{Присваиваем элементам массива строки из файла}

Readln(Fap,Stroka);

// ShowMessage('Открыл 1 слой'+chr(13)+Stroka);

If Stroka='<' then

Begin

…. (по лекции).