Главная
База знаний "Allbest"
Программирование, компьютеры и кибернетика
Электронный учебник по распределительной станции Festo
Электронный учебник по распределительной станции Festo
Программирование электронного учебника, позволяющего просматривать правила дорожного движения, дорожные знаки, технику управления автомобилем, основы первой медицинской помощи, проверку знаний правил дорожного движения, дополнительную полезную информацию.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 19.12.2011 |
| Размер файла | 1,6 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
ima2.Picture.LoadFromFile(AppDir+'\PDD\001\002.bmp');
ima3.Picture.LoadFromFile(AppDir+'\PDD\001\003.bmp');
ima4.Picture.LoadFromFile(AppDir+'\PDD\001\004.bmp');
ima5.Picture.LoadFromFile(AppDir+'\PDD\001\005.bmp');
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label5 then begin
FileDir:=AppDir+'\PDD\002\002.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\002\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\002\002.bmp');
ima3.Picture.LoadFromFile(AppDir+'\PDD\002\003.bmp');
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label7 then begin
FileDir:=AppDir+'\PDD\003\003.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\003\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\003\002.bmp');
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label6 then begin
FileDir:=AppDir+'\PDD\004\004.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label11 then begin
FileDir:=AppDir+'\PDD\005\005.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label10 then begin
FileDir:=AppDir+'\PDD\006\006.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\006\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\006\002.bmp');
ima3.Picture.LoadFromFile(AppDir+'\PDD\006\003.bmp');
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label9 then begin
FileDir:=AppDir+'\PDD\007\007.txt';
end;
if Sender=Label8 then begin
FileDir:=AppDir+'\PDD\008\008.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\008\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\008\002.bmp');
ima3.Picture.LoadFromFile(AppDir+'\PDD\008\003.bmp');
ima4.Picture.LoadFromFile(AppDir+'\PDD\008\004.bmp');
ima5.Picture.LoadFromFile(AppDir+'\PDD\008\005.bmp');
ima6.Picture.LoadFromFile(AppDir+'\PDD\008\006.bmp');
ima7.Picture.LoadFromFile(AppDir+'\PDD\008\007.bmp');
ima8.Picture.LoadFromFile(AppDir+'\PDD\008\008.bmp');
end;
if Sender=Label12 then begin
FileDir:=AppDir+'\PDD\009\009.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label13 then begin
FileDir:=AppDir+'\PDD\010\010.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label15 then begin
FileDir:=AppDir+'\PDD\011\011.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\011\001.bmp');
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label14 then begin
FileDir:=AppDir+'\PDD\012\012.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\012\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\012\002.bmp');
ima3.Picture.LoadFromFile(AppDir+'\PDD\012\003.bmp');
ima4.Picture.LoadFromFile(AppDir+'\PDD\012\004.bmp');
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label16 then begin
FileDir:=AppDir+'\PDD\013\013.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\013\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\013\002.bmp');
ima3.Picture.LoadFromFile(AppDir+'\PDD\013\003.bmp');
ima4.Picture.LoadFromFile(AppDir+'\PDD\013\004.bmp');
ima5.Picture.LoadFromFile(AppDir+'\PDD\013\005.bmp');
ima6.Picture.LoadFromFile(AppDir+'\PDD\013\006.bmp');
ima7.Picture.LoadFromFile(AppDir+'\PDD\013\007.bmp');
ima8.Visible:=false;
end;
if Sender=Label17 then begin FileDir:=AppDir+'\PDD\014\014.txt'; end;
if Sender=Label18 then begin
FileDir:=AppDir+'\PDD\015\015.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\015\001.bmp');
ima2.Picture.LoadFromFile(AppDir+'\PDD\015\002.bmp');
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label19 then begin
FileDir:=AppDir+'\PDD\016\016.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label20 then begin
FileDir:=AppDir+'\PDD\017\017.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label21 then begin
FileDir:=AppDir+'\PDD\018\018.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label22 then begin
FileDir:=AppDir+'\PDD\019\019.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label23 then begin
FileDir:=AppDir+'\PDD\020\020.txt';
ima1.Picture.LoadFromFile(AppDir+'\PDD\020\001.bmp');
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label24 then begin
FileDir:=AppDir+'\PDD\021\021.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label25 then begin
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
FileDir:=AppDir+'\PDD\022\022.txt';
end;
if Sender=Label26 then begin
FileDir:=AppDir+'\PDD\023\023.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
if Sender=Label27 then begin
FileDir:=AppDir+'\PDD\024\024.txt';
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
end;
Memo1.Lines.LoadFromFile(FileDir); //загрузка текста в мемо
If Ima3.Visible=false then ScrollBar3.Visible:=false else ScrollBar3.Visible:=true;
end;
//клик на загруженной картинке
procedure TForm1.Ima1Click(Sender: TObject);
begin
Form2.Image1.Picture:=Timage(Sender).Picture;
Form2.Show;
end;
//Изменение положеня скрола для картинок
procedure TForm1.ScrollBar3Change(Sender: TObject);
begin
If (Ima3.Visible=true) And (Ima5.Visible=false) then ScrollBar3.Max:=Ima1.Height;
If Ima5.Visible=true And (Ima7.Visible=false) then ScrollBar3.Max:=Ima1.Height*2;
If Ima7.Visible=true then ScrollBar3.Max:=Ima1.Height*3;
if Ima3.Visible=true then Ima1.Top:=-scrollbar3.Position;
Ima2.Top:=Ima1.Top;
Ima3.Top:=Ima1.Top+Ima1.Height+2;
Ima4.Top:=Ima1.Top+Ima1.Height+2;
Ima5.Top:=Ima3.Top+Ima3.Height+2;
Ima6.Top:=Ima4.Top+Ima4.Height+2;
end;
//Таймер для теста перещелкивает вопросы по истечению времени
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
If ProgressBar1.Position=ProgressBar1.Max then Button1.click;
If ProgressBar1.Position=3 then Button1.Caption:='Ответить';
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
end;
// Процедура Размещения Панели Тест На форму...
// Подстройка Производится В Зависимости от размера формы...
procedure TForm1.TestDesign;
begin
PanelTest.Top:=Image1.Height;
PanelTest.Left:=(Panel2.Width+Panel2.Left)+6;
PanelTest.Width:=(Image12.Left-PanelTest.Left);
PanelTest.Height:=(Image13.top-PanelTest.top);
ImaTest.Width:=PanelTest.Width-8;
ImaTest.left:=4;
ImaTest.Height:=PanelTest.Height div 3;
ImaTest.top:=4;
Ltest.Width:=ImaTest.Width;
Ltest.left:=ImaTest.left;
Ltest.Height:=ImaTest.Height;
Ltest.Top:=ImaTest.Top+ImaTest.Height+4;
RadioButton1.height:=22;
RadioButton2.height:=22;
RadioButton3.height:=22;
RadioButton4.height:=22;
RadioButton1.Top:=Ltest.top+Ltest.Height+4;
RadioButton2.Top:=RadioButton1.top+RadioButton1.Height+4;
RadioButton3.Top:=RadioButton2.top+RadioButton2.Height+4;
RadioButton4.Top:=RadioButton3.top+RadioButton3.Height+4;
RadioButton1.Left:=(ImaTest.Width div 2)-RadioButton1.Width;
RadioButton2.Left:=RadioButton1.Left;
RadioButton3.Left:=RadioButton1.Left;
RadioButton4.Left:=RadioButton1.Left;
Button1.Top:=RadioButton4.top+RadioButton4.Height+4;
button1.Left:=PanelTest.Width-button1.Width-4;
end;
//загрузка теста
procedure TForm1.TestLoad;
var TxtBuff,RBcap,imadir:string;
i,j,kk:integer;
Size:byte;
RBC:boolean;
RandomTest:integer;
begin
randomize;
RandomTest:=Random(20);
if RandomTest=0 then RandomTest:=20;
If RandomTest<10 then FileDir:=AppDir+'\Tests\00'+ IntToStr(RandomTest)+'\001.txt'
else FileDir:=AppDir+'\Tests\0'+ IntToStr(RandomTest)+'\001.txt';
If RandomTest<10 then imadir:=AppDir+'\Tests\00'+ IntToStr(RandomTest)+'\001.bmp'
else imadir:=AppDir+'\Tests\0'+ IntToStr(RandomTest)+'\001.bmp';
ListBox1.Items.LoadFromFile(FileDir);
ImaTest.Picture.LoadFromFile(imadir);
LTest.Caption:=ListBox1.Items.Strings[0];
For i:=1 to 4 do
begin
RBcap:='';
RBC:=false;
TxtBuff:=ListBox1.Items.Strings[i];
Size:=(Length(TxtBuff));
For j:=1 to size do
begin
if RBC=true then RBcap:=RBcap+TxtBuff[j];
If (TxtBuff[j]='+') or (TxtBuff[j]='-') then RBC:=true;
If (TxtBuff[j]='-') then VnV:=i;
end;
If i=1 then RadioButton1.Caption:=RBcap;
If i=2 then RadioButton2.Caption:=RBcap;
If i=3 then RadioButton3.Caption:=RBcap;
If i=4 then RadioButton4.Caption:=RBcap;
end;
end;
procedure TForm1.Label59Click(Sender: TObject);
begin
TestLoad;
PanelTest.Visible:=true;
Form1.Resize;
if Sender=Label58 then begin
Timer1.Enabled:=true
end;
NVopr:=1;
KPravOt:=0;
KLozhOt:=0;
k:=0;
ProgressBar1.Position:=0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
If KPravOt+KLozhOt<20 then begin
If RadioButton1.Checked=true then Otv:=1;
If RadioButton2.Checked=true then Otv:=2;
If RadioButton3.Checked=true then Otv:=3;
If RadioButton4.Checked=true then Otv:=4;
If VnV=Otv then
begin
Button1.Caption:='Верно';
KPravOt:=KpravOt+1;
end else begin
Button1.Caption:='Не верно';
KLozhOt:=KLozhOt+1;
end;
end;
If KPravOt+KLozhOt<20 then begin
TestLoad;
end;
If KPravOt+KLozhOt=20 then begin LTest.Caption:='Количество правильных ответов: '+IntToStr(KPravOt)+';'+#13+'Количество не правильных ответов: '+IntToStr(KLozhOt)+';'; Nvopr:=1; KPravOt:=0; KLozhOt:=0; end;
RadioButton1.Checked:=false;
RadioButton2.Checked:=false;
RadioButton3.Checked:=false;
RadioButton4.Checked:=false;
ProgressBar1.Position:=0;
end;
procedure TForm1.Label31Click(Sender: TObject);
begin
if Sender=Label31 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\predup.bmp');
Form2.Show;
end;
if Sender=Label32 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\prio.bmp');
Form2.Show;
end;
if Sender=Label34 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\zapr.bmp');
Form2.Show;
end;
if Sender=Label33 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\predp.bmp');
Form2.Show;
end;
if Sender=Label38 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\osob.bmp');
Form2.Show;
end;
if Sender=Label37 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\inf.bmp');
Form2.Show;
end;
if Sender=Label36 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\serv.bmp');
Form2.Show;
end;
if Sender=Label35 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\dop.bmp');
Form2.Show;
end;
if Sender=Label39 then begin
Form2.Image1.Picture.LoadFromFile(AppDir+'\ZNAKI\serv.bmp');
Form2.Show;
end;
end;
procedure TForm1.Label57Click(Sender: TObject);
begin
If im=true then
begin
image22.Picture:=image19.Picture;
panel7.Visible:=true;
panel7.Height:=49;
im:=false;
end else begin
image22.Picture:=image18.Picture;
panel7.Visible:=false;
panel7.Height:=2;
im:=true;
end;
Panel7.Top:=Label57.top+Label57.height;
Radiobutton1.left:=300;
Radiobutton2.left:=300;
Radiobutton3.left:=300;
Radiobutton4.left:=300;
form1.Resize;
end;
procedure TForm1.Label29Click(Sender: TObject);
var nc:string;
begin
PanelPdd.Visible:=true;
PanelTest.Visible:=false;
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
Scrollbar3.Visible:=false;
if Sender=Label29 then begin //если курсор стоить на
nc:='01';
ima1.Picture.LoadFromFile(AppDir+'\TEXMAT\001\001.bmp');//загрузка картинки
ima1.Visible:=true;
end;
if Sender=Label40 then begin //если курсор стоить на
nc:='02';
ima1.Visible:=False;
end;
if Sender=Label42 then begin //если курсор стоить на
nc:='03';
ima1.Visible:=False;
end;
if Sender=Label41 then begin //если курсор стоить на
nc:='04';
ima1.Visible:=False;
end;
if Sender=Label46 then begin //если курсор стоить на
nc:='05';
ima1.Visible:=False;
end;
if Sender=Label45 then begin //если курсор стоить на
nc:='06';
ima1.Visible:=False;
end;
if Sender=Label44 then begin //если курсор стоить на
nc:='07';
ima1.Visible:=False;
end;
if Sender=Label43 then begin //если курсор стоить на
nc:='08';
ima1.Visible:=False;
end;
if Sender=Label47 then begin //если курсор стоить на
nc:='09';
ima1.Visible:=False;
end;
if Sender=Label48 then begin //если курсор стоить на
nc:='10';
ima1.Visible:=False;
end;
if Sender=Label50 then begin //если курсор стоить на
nc:='11';
ima1.Visible:=False;
end;
if Sender=Label49 then begin //если курсор стоить на
nc:='12';
ima1.Visible:=False;
end;
if Sender=Label51 then begin //если курсор стоить на
nc:='13';
ima1.Visible:=False;
end;
if Sender=Label52 then begin //если курсор стоить на
nc:='14';
ima1.Visible:=False;
end;
if Sender=Label53 then begin //если курсор стоить на
nc:='15';
ima1.Visible:=False;
end;
if Sender=Label54 then begin //если курсор стоить на
nc:='16';
ima1.Visible:=False;
end;
if Sender=Label55 then begin //если курсор стоить на
nc:='17';
ima1.Picture.LoadFromFile(AppDir+'\TEXMAT\017\001.bmp');//загрузка картинки
ima1.Visible:=true;
end;
FileDir:=AppDir+'\TEXMAT\0'+nc+'\0'+nc+'.txt';//путь к файлу
Memo1.Lines.LoadFromFile(FileDir); //загрузка текста в мемо
end;
procedure TForm1.Label56Click(Sender: TObject);
begin
If im=true then
begin
image23.Picture:=image19.Picture;
panel9.Visible:=true;
panel9.Height:=Label61.Height+Label60.height+Label62.Height
+Label63.height+16;
im:=false;
end else begin
image23.Picture:=image18.Picture;
panel9.Visible:=false;
panel9.Height:=2;
im:=true;
end;
Panel7.Top:=Label57.top+Label57.height;
form1.Resize;
end;
procedure TForm1.Label61Click(Sender: TObject);
begin
PanelTest.Visible:=false;
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
PanelPdd.Visible:=true;
FileDir:=AppDir+'\dop\acs.txt';
Memo1.Lines.LoadFromFile(FileDir);
If Ima3.Visible=false then ScrollBar3.Visible:=false else ScrollBar3.Visible:=true;
end;
procedure TForm1.Label60Click(Sender: TObject);
begin
PanelTest.Visible:=false;
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
PanelPdd.Visible:=true;
FileDir:=AppDir+'\dop\gps.txt';
Memo1.Lines.LoadFromFile(FileDir);
If Ima3.Visible=false then ScrollBar3.Visible:=false else ScrollBar3.Visible:=true;
end;
procedure TForm1.Label62Click(Sender: TObject);
begin
PanelTest.Visible:=false;
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
PanelPdd.Visible:=true;
FileDir:=AppDir+'\dop\cod.txt';
Memo1.Lines.LoadFromFile(FileDir);
If Ima3.Visible=false then ScrollBar3.Visible:=false else ScrollBar3.Visible:=true;
end;
procedure TForm1.Label63Click(Sender: TObject);
begin
PanelTest.Visible:=false;
ima1.Visible:=false;
ima2.Visible:=false;
ima3.Visible:=false;
ima4.Visible:=false;
ima5.Visible:=false;
ima6.Visible:=false;
ima7.Visible:=false;
ima8.Visible:=false;
PanelPdd.Visible:=true;
FileDir:=AppDir+'\dop\ext.txt';
Memo1.Lines.LoadFromFile(FileDir);
If Ima3.Visible=false then ScrollBar3.Visible:=false else ScrollBar3.Visible:=true;
end;
procedure TForm1.Image24MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if meg1=true then
begin
meg1:= false;
image4.Picture:=image8.Picture;
image3.Picture:=image6.Picture;
image2.Picture:=image10.Picture;
image24.Picture:=image26.Picture;
end;
end;
procedure TForm1.Image24Click(Sender: TObject);
begin
form3.show;
end;
end.
Размещено на Allbest.ru
Подобные документы
Концептуальные основы разработки электронного учебника на основе гипертекстовых технологий. Архитектура учебного пособия. Этапы построения электронного учебника "Информатика" и его структура. Анализ практического использования электронного учебника.
дипломная работа [104,9 K], добавлен 02.05.2012Учебник в электронном виде - элемент образовательной среды и новый жанр учебной литературы. Основные формы и методические рекомендации по разработке электронного учебника. Принципы создания, аппаратное и программное обеспечение электронного учебника.
реферат [23,3 K], добавлен 27.02.2009Электронный учебник как средство самообразования. Основные принципы самообразования. Этапы проектирования электронного учебника, построение интерфейса системы. Язык гипертекстовой разметки HTML. Структура электронного учебника по "Численным методам".
дипломная работа [5,9 M], добавлен 15.03.2012Электронный учебник как средство самообразования. Основные этапы проектирования электронного учебника. Методика использования электронных учебников. Язык гипертекстовой разметки HTML. Структура электронного учебника по дисциплине "Численные методы".
дипломная работа [4,9 M], добавлен 02.05.2012Патент как документ, подтверждающий право патентообладателя на изобретение, полезную модель либо на промышленный образец. Гражданско-правовые способы защиты прав. Технология составления электронного учебника. Описание программы SunRavBookReader.
дипломная работа [3,0 M], добавлен 04.09.2014Технология создания электронного мультимедийного учебника. Особенности работы с изображениями. Структура электронного учебника, дизайн и интерфейс, наполнение информацией, расчет затрат на разработку. Техника безопасности при работе за компьютером.
курсовая работа [480,3 K], добавлен 18.01.2012Краткий обзор и анализ ныне существующих программно-педагогических средств обучения. Методика и порядок разработки электронного учебника по предмету "Язык программирования C++". Общая характеристика и основные формы входных и выходных данных программы.
курсовая работа [232,6 K], добавлен 10.09.2010Структурные элементы электронного учебника. Основные этапы разработки электронного учебника. Варианты структуры электронного образовательного издания. Подготовка электронного издания к эксплуатации. Методическое обеспечение электронного учебника.
презентация [506,5 K], добавлен 28.12.2014Основание и назначение программного кода для работы распределительной станции FESTO, требования к информационной и программной совместимости. Параметры технических средств, язык программирования AWL. Расчет затрат и экономической эффективности проекта.
дипломная работа [2,4 M], добавлен 11.03.2012Использование программы Microsoft Word 2010 при создании электронного учебника. Структура учебника, навигация, полнотекстный поиск, защита информации от изменений. Алгоритм разработки программного продукта. Описание технологических средств учебника.
контрольная работа [196,9 K], добавлен 06.05.2014
