2.5.3.Разработка формы «Нервная ткань»
Разрабатывается html-документ, содержащий общую информацию о строении нервной ткани:
Оформляются
две формы, содержащие информацию о
строении нейрона и белом и сером веществах
в виде ярлыков со значением свойства
WordWrap
True
и поясняющие иллюстрации:
2.5.4.Разработка формы «Соединительная ткань»
Разрабатывается html-документ, содержащий общую информацию о соединительных тканях:
Последовательно оформляются формы «Костная ткань», «Кровь» и «Хрящевая ткань», содержащие информацию о соответствующем виде ткани в виде ярлыков и поясняющих иллюстраций и имеющие следующий вид:
2.5.5.Разработка формы «Тест»
На форме размещаются панель, пять ярлыков и соответствующих им компонентов RadioButton. У последних в свойстве Columns задается число вариантов ответов, затем в свойстве Items прописываются сами варианты ответов, по одному на каждую строку. В коде программы после слова implementation вводится переменную SUM, используя ключевое слово var. В событии OnClick компонента RadioGroup1 прописывается:
«SUM:=0;
If RadioGroup1.ItemIndex=0 then SUM:=SUM+1;»
Так мы присваиваем переменной SUM значение 0 и в случае нажатия на первый вариант ответа добавляем один балл к общему числу правильных ответов.
Процедура повторяется для каждого из компонентов RadioGroup, но без обнуления переменной. Кроме того, в событие OnClick компонента RadioGroup5 кроме вышеуказанной команды добавляется:
«Case SUM of
0..2: Panel1.Caption:='Плохо';
3: Panel1.Caption:='Удовлетворительно';
4: Panel1.Caption:='Хорошо';
5: Panel1.Caption:='Отлично!';
end;
ShowMessage('Конец теста');»
Эта команда присваивает значение панели в зависимости от суммы набранных баллов.
2.5.6.Разработка формы «Калькулятор размера объекта под микроскопом»
На форме размещаются два Edit’а, а над ними – ярлыки «Введите размер изображения» и «Введите увеличение микроскопа», кнопка «Рассчитать размер объекта», пустой ярлык и кнопка «Выход».
Посредством ключевого слова Var вводятся переменные a, b и c типа Integer. В событии OnClick кнопки прописывается:
«a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a div b;
Label1.Caption:=IntToStr(c);»
Здесь мы, присвоив переменным a и b значения Edit’ов 1 и 2 соответственно, а переменной с – их частного, выводим с на экран в виде ярлыка. Единственная сложность операции заключается в том, что вводимые в Edit’ы и выводимые ярлыком переменные всегда имеют тип String и не подходят для подобных вычислений. Метод StrToInt используется, чтобы перевести их в переменные типа Integer, как это и было заявлено во время ввода переменных. Метод IntToStr напротив переводит переменную типа Integer в тип String, чтобы она могла быть отображена ярлыком.
2.6 Основной программный код проекта (сокращено)
unit F_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, F_02, F_03, F_04, F_05, F_T1, F_C;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
U_02.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
U_03.ShowModal;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
U_04.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
U_05.ShowModal;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
U_T1.ShowModal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
U_C.ShowModal;
end;
end.
unit F_02;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI, F_21, F_22, F_23, F_24, F_25, F_26, F_27, F_28;
procedure TU_02.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TU_02.Label2Click(Sender: TObject);
begin
ShellExecute(handle,'open','file:///F:/.Trashes/Новая%20папка/index.html',nil,nil,SW_SHOW);
end;
procedure TU_02.Button2Click(Sender: TObject);
begin
U_21.ShowModal;
end;
procedure TU_02.Button3Click(Sender: TObject);
begin
U_22.ShowModal;
end;
procedure TU_02.Button4Click(Sender: TObject);
begin
U_23.ShowModal;
end;
procedure TU_02.Button5Click(Sender: TObject);
begin
U_24.ShowModal;
end;
procedure TU_02.Button6Click(Sender: TObject);
begin
U_25.ShowModal;
end;
end.
unit F_03;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI, F_36, F_31, F_32, F_35, F_33;
procedure TU_03.Label2Click(Sender: TObject);
begin
ShellExecute(handle,'open','file:///F:/.Trashes/Новая%20папка/index1.html',nil,nil,SW_SHOW);
end;
procedure TU_03.Button7Click(Sender: TObject);
begin
U_36.ShowModal;
end;
procedure TU_03.Button2Click(Sender: TObject);
begin
U_31.ShowModal;
end;
procedure TU_03.Button3Click(Sender: TObject);
begin
U_32.ShowModal;
end;
procedure TU_03.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TU_03.Button6Click(Sender: TObject);
begin
U_35.ShowModal;
end;
end.
unit F_04;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, F_43, F_41, ShellAPI, F_42;
procedure TU_04.Button4Click(Sender: TObject);
begin
U_43.ShowModal;
end;
procedure TU_04.Button2Click(Sender: TObject);
begin
U_41.ShowModal;
end;
procedure TU_04.Label2Click(Sender: TObject);
begin
ShellExecute(handle,'open','file:///F:/.Trashes/Новая%20папка/index3.html',nil,nil,SW_SHOW);
end;
procedure TU_04.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TU_04.Button3Click(Sender: TObject);
begin
U_42.ShowModal;
end;
end.
unit F_05;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ShellAPI, F_51, F_52;
procedure TU_05.Button3Click(Sender: TObject);
begin
Close;
end;
procedure TU_05.Label3Click(Sender: TObject);
begin
ShellExecute(handle,'open','file:///F:/.Trashes/Новая%20папка/index2.html',nil,nil,SW_SHOW);
end;
procedure TU_05.Button1Click(Sender: TObject);
begin
U_51.ShowModal;
end;
procedure TU_05.Button2Click(Sender: TObject);
begin
U_52.ShowModal;
end;
end.
unit F_T1;
procedure TU_T1.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TU_T1.RadioGroup1Click(Sender: TObject);
begin
SUM:=0;
If RadioGroup1.ItemIndex=0 Then SUM:=SUM+1;
end;
procedure TU_T1.RadioGroup2Click(Sender: TObject);
begin
If RadioGroup2.ItemIndex=2 Then SUM:=SUM+1;
end;
procedure TU_T1.RadioGroup3Click(Sender: TObject);
begin
If RadioGroup3.ItemIndex=0 Then SUM:=SUM+1;
end;
procedure TU_T1.RadioGroup4Click(Sender: TObject);
begin
If RadioGroup4.ItemIndex=3 Then SUM:=SUM+1;
end;
procedure TU_T1.RadioGroup5Click(Sender: TObject);
begin
If RadioGroup5.ItemIndex=1 Then SUM:=SUM+1;
Case SUM of
0..2: Panel1.Caption:='Плохо';
3: Panel1.Caption:=’Удовлетворитеьлно';
4: Panel1.Caption:=’Хорошо';
5: Panel1.Caption:='Отлично';
end;
ShowMessage('Конец теста');
end;
end.
unit F_C;
implementation
{$R *.dfm}
var a,b,c: Integer;
procedure TU_C.Button2Click(Sender: TObject);
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=a div b;
Label1.Caption:=IntToStr(c);
end;
procedure TU_C.Button1Click(Sender: TObject);
begin
Close;
end;
end.