f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 1.2.mht');
end;
13:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 1.3.mht');
end;
14:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 1.4.mht');
end;
///Раздел 2
20,21:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.1.mht');
end;
22:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.2.mht');
end;
23:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.3.mht');
end;
24:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.4.mht');
end;
25:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.5.mht');
end;
26:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.6.mht');
end;
27:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 2.7.mht');
end;
///Раздел 3
30,31:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 3.1.mht');
end;
32:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 3.2.mht');
end;
33:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 3.3.mht');
end;
34:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 3.4.mht');
end;
///Раздел 4
40,41:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 4.1.mht');
end;
42:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 4.2.mht');
end;
43:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 4.3.mht');
end;
44:begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Тема 4.4.mht');
end;
END;
end;
procedure Tf2_menu. SpeedButton4Click(Sender: TObject);
begin
panel3.Hide;
end;
procedure Tf2_menu. SpeedButton3Click(Sender: TObject);
begin
panel3.Show;
end;
procedure Tf2_menu. Label1Click(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser3.Navigate(x+'Тексты\Лаба1.mht');
end;
procedure Tf2_menu. Label2Click(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser3.Navigate(x+'Тексты\Лаба2.mht');
end;
procedure Tf2_menu. TabSheet4Show(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser3.Navigate(x+'Тексты\Лаба1.mht');
end;
procedure Tf2_menu. TabSheet2Show(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
f2_menu. WebBrowser2.Navigate(x+'Тексты\Введение. mht');
end;
procedure Tf2_menu. N1Click(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName)+'Video. avi' ;
ShellApi. ShellExecute(Application. Handle, nil, PChar(x), nil, nil, SW_SHOW);
end;
procedure Tf2_menu. Timer1Timer(Sender: TObject);
begin
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit1.Text=' ')
then
BitBtn1.Enabled:=false
else
BitBtn1.Enabled:=true;
end;
procedure Tf2_menu. BitBtn2Click(Sender: TObject);
begin
edit1.Clear; edit2.Clear; edit3.Clear;
SpeedButton1.Visible:=false;
SpeedButton2.Visible:=false;
SpeedButton5.Visible:=false;
end;
procedure Tf2_menu. BitBtn1Click(Sender: TObject);
begin
SpeedButton1.Visible:=true;
SpeedButton2.Visible:=true;
SpeedButton5.Visible:=true;
end;
procedure Tf2_menu. TabSheet3Show(Sender: TObject);
begin
SpeedButton1.Visible:=false;
SpeedButton2.Visible:=false;
SpeedButton5.Visible:=false;
Edit1.Text:='';edit2.Text:='';edit3.text:='';
end;
procedure Tf2_menu. SpeedButton1Click(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
form3.WebBrowser1.Navigate(x+'Тексты\ТЕСТ_1.htm');
form3.Show;
end;
procedure Tf2_menu. SpeedButton2Click(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
form4.WebBrowser1.Navigate(x+'Тексты\ТЕСТ_2.htm');
form4.Show;
end;
procedure Tf2_menu. SpeedButton5Click(Sender: TObject);
begin
x:=ExtractFilePath(Application. ExeName);
form5.WebBrowser1.Navigate(x+'Тексты\ТЕСТ_3.htm');
form5.Show;
end;
procedure Tf2_menu. N2Click(Sender: TObject);
begin
f_oProgr. showmodal;
end;
procedure Tf2_menu. Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (not(Key in ['А'..'Я','а'..'я','-'])) then key:=chr(0);
end;
end
unit Unit_test2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, jpeg, ExtCtrls, Buttons, ComCtrls,
ToolWin;
type
TForm4 = class(TForm)
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton3: TToolButton;
SpeedButton3: TSpeedButton;
ToolButton4: TToolButton;
SpeedButton2: TSpeedButton;
ToolButton2: TToolButton;
Label1: TLabel;
Panel1: TPanel;
Image9: TImage;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Image8: TImage;
GroupBox1: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
GroupBox2: TGroupBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
GroupBox3: TGroupBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
GroupBox4: TGroupBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
GroupBox6: TGroupBox;
CheckBox16: TCheckBox;
CheckBox17: TCheckBox;
CheckBox18: TCheckBox;
GroupBox7: TGroupBox;
CheckBox19: TCheckBox;
CheckBox20: TCheckBox;
CheckBox21: TCheckBox;
GroupBox8: TGroupBox;
CheckBox22: TCheckBox;
CheckBox23: TCheckBox;
CheckBox24: TCheckBox;
GroupBox5: TGroupBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
WebBrowser1: TWebBrowser;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
f:textfile;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm4.SpeedButton2Click(Sender: TObject);
var s:real;
begin
if panel1.Visible=true then
begin
s:=0;
{1}if (CheckBox1.Checked=false) and (CheckBox2.Checked=true) and (CheckBox3.Checked=false)
then begin s:=s+1.25; Image1.Visible:=true; end;
{2}if (CheckBox4.Checked=false) and (CheckBox5.Checked=false) and (CheckBox6.Checked=true)
then begin s:=s+1.25; Image2.Visible:=true; end;
{3}if (CheckBox7.Checked=true) and (CheckBox8.Checked=true) and (CheckBox9.Checked=false)
then begin s:=s+1.25; Image3.Visible:=true; end;
{4}if (CheckBox10.Checked=false) and (CheckBox11.Checked=true) and (CheckBox12.Checked=false)
then begin s:=s+1.25; Image4.Visible:=true; end;
{5}if (CheckBox13.Checked=false) and (CheckBox14.Checked=false) and (CheckBox15.Checked=true)
then begin s:=s+1.25; Image5.Visible:=true; end;
{6}if (CheckBox16.Checked=false) and (CheckBox17.Checked=false) and (CheckBox18.Checked=true)
then begin s:=s+1.25; Image6.Visible:=true; end;
{7}if (CheckBox19.Checked=true) and (CheckBox20.Checked=false) and (CheckBox21.Checked=false)
then begin s:=s+1.25; Image7.Visible:=true; end;
{8}if (CheckBox22.Checked=true) and (CheckBox23.Checked=false) and (CheckBox24.Checked=false)
then begin s:=s+1.25; Image8.Visible:=true; end;
Label1.Caption:=floattostr(s);
end;
assignfile(f,'rezultat. txt');
//rewrite(f);
append(f);
writeln(f);
write(f, dateToStr(f2_menu. MonthCalendar1.Date),' ');
write(f, f2_menu. edit1.text, ' ');
write(f, f2_menu. edit2.text, ' ');
write(f, ' группа ',f2_menu. edit3.text);
write(f, ' оценка = ', floattostr(s));
closefile(f);
end;
procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
{1} CheckBox1.Checked:= false;CheckBox2.Checked:= false;CheckBox3.Checked:= false;
{2} CheckBox4.Checked:= false;CheckBox5.Checked:= false;CheckBox6.Checked:= false;
{3} CheckBox7.Checked:= false;CheckBox8.Checked:= false;CheckBox9.Checked:= false;
{4} CheckBox10.Checked:= false;CheckBox11.Checked:= false;CheckBox12.Checked:= false;
{5} CheckBox13.Checked:= false;CheckBox14.Checked:= false;CheckBox15.Checked:= false;
{6} CheckBox16.Checked:= false;CheckBox17.Checked:= false;CheckBox18.Checked:= false;
{7} CheckBox19.Checked:= false;CheckBox20.Checked:= false;CheckBox21.Checked:= false;
{8} CheckBox22.Checked:= false;CheckBox23.Checked:= false;CheckBox24.Checked:= false;
image1.Visible:=false; Image2.Visible:=false;Image3.Visible:=false;Image4.Visible:=false;
Image5.Visible:=false; Image6.Visible:=false;Image7.Visible:=false;Image8.Visible:=false;
label1.Caption:='0';
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
Image1.Visible:=false; Image2.Visible:=false;Image3.Visible:=false;Image4.Visible:=false;
Image5.Visible:=false; Image6.Visible:=false;Image7.Visible:=false;Image8.Visible:=false;
end;
end..
Приложение Б
Руководство программиста
Программный продукт предназначен для учащихся Могилевского государственного экономического профессионально-технического колледжа, обучающихся по специальности 2«Программное обеспечение информационных технологий» единичная квалификация: 2-40 01 01 - 35 «Техник-программист», а также преподавателей предмета «Охрана труда».
Программа требует около 40 Мб свободного дискового пространства. Для просмотра видео необходимо наличие, установленного на компьютере любого видеопроигрывателя. Программа разрабатывалась в операционной среде Windows для пользователей данной операционной системы версии XP, принцип работы программы основан на взаимодействии программного модуля и пользователя на основе оконных диалогов.
Для начала работы папку с программой нужно скопировать на жесткий диск Вашего компьютера и запустить на выполнение файл ESO.exe.
Диалог пользователя с программой производится посредством выбора вкладки с разделом, а затем темы из оглавления, представленного в верхней части формы. На форме представлено также главное меню.
Программа разработана с помощью Borland Delphi 7.0, поэтому для редактирвоания исходного кода необходимо наличие установленной среды программирования Borland Delphi 7.0. Для редактирования текстовых файлов необходимо наличие установленного текстового редактора MS Word.
Программа не требовательна к ресурсам, достаточно компьютера c минимальной конфигурацией и установленной операционной системой Windows.
|
Из за большого объема этот материал размещен на нескольких страницах:
1 2 3 4 |
