Delphi визуальды бағдарламасы ортасында электронды оқулық құру технологиясы

Автор работы: Пользователь скрыл имя, 11 Ноября 2013 в 06:31, курсовая работа

Краткое описание

Бастапқыда компьютер болмаған кезде адамдар барлық есептеу, іс-жұмыстары қолмен істеген. Кейін технологияның қарқынды дамуына байланысты көптеген қажетті ақпарат құралдары пайда бола бастады.Осы пайда болған құралдар ішінде әрине өзімізге аса тиімді ақпарат құралы компьютер де бар.Компьютер арқылы ақпаратты сақтауға, өңдеуге, тасымалдауға және де қабылдауға болады.

Содержание

Кіріспе.................................................................................................................7 1 Delphi ортасы туралы түсінік ..................................................... 9
1.1 Delphi-де жұмыс істеу .................................................................. 9
1.2 Бағдарлама кодының терезесі ................................................ 15
1.3 Визуалды бағдарламалаудың негіздері ......................... 16
2 Электрондық оқулық туралы түсінік .................................. 18
2.1 электрондық оқулықтардың қолдануы ...................... 18
2.2 Оқытудың компыотерлік құралдарын жасау әдістемесі .................................................................................................... 23
2.3 ЭЛЕКТРОНДЫ ОҚУ ҚҰРАЛДАРЫН ДАЙЫНДАУ
МӘСЕЛЕЛЕРІ ................................................................................................... 27
2.4 Электронды оқулық қашықтықтан оқытудың
бір әдісі ........................................................................................................... 31
2.5 Оқытудың компьютерлік кұралдарының
бір түрі тестілеу ....................................................................................... 35
3 математикалық физика теңдеулері пәнінен электрондық оқулық құру .............................................................. 38
3.1 Програманың бас формалары ............................................... 38
3.2 Электрондық оқулықтың тақырыптары
мен мысалдары....................................................................................... 42
3.3 Тестті құру бағдарламасы ........................................................46
3.4 Формаға мәліметтерді енгізу ................................................ 50
4 Экономикалық бөлім ..................................................................... 53
4.1 Жүйені құруға және енгізуге кеткен шығын есептеулері................................................................................................ 53
4. 2 Экономикалық сферасының есептеулері ................. 55
5 Бизнес-жоспар бөлімі ................................................................... 57
Қорытынды .................................................................................................64
Түйін .................................................................................................................. 66
Қосымша ...................................................................................................... 67
Қолданылған әдебиеттер ................................................................ 90

Скачать полностью (7.46 Мб) Сколько стоит заказать работу?
Прикрепленные файлы: 1 файл

Дип.-Delphi-ортасында-МФТ-пәні-бойынша-электрондық-оқулық-құру.doc

— 8.16 Мб (Скачать документ)

Область применения: в средних и в высших учебных заведениях .

 

SUMMARY

 

Object of research: creation of the electronic textbook on " the Equation of mathematical physics " in environment(Wednesday) Delphi.

The purpose of work: To create the electronic textbook on EMP. The user using this electronic textbook, fills up the knowledge.

Result of work: the program of the electronic textbook on EMP in environment (Wednesday) Delphi Is created.

Area of application: on the average and in higher educational institutions.

4 Қосымша

 

Комплекстік  бағдарламалардың берілген формасы:

 


 

 

 

 

 

 

 

 

 

 

БаҒдарлама мӘтінініҢ листингісі

 

unit Unit1

interface

uses

  Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

  Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls,

ComCtrls, Buttons;

type

  TForm1 = class(TForm)

    SpeedButton1: TSpeedButton;

    Animate1: TAnimate;

    procedure SpeedButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form1.Hide;

form2.showmodal;

form1.Close;

end;   end.

unit Unit2

interface

uses

  Windows, Messages, SysUtils, Variants, Classes,

Graphics, Controls, Forms,

  Dialogs, ExtCtrls, OleCtrls, SHDocVw, Buttons, jpeg;

type

  TForm2 = class(TForm)

    WebBrowser1: TWebBrowser;

    Panel1: TPanel;

    Panel2: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    Image1: TImage;

    SpeedButton4: TSpeedButton;

    Image2: TImage;

    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;

    SpeedButton7: TSpeedButton;

    SpeedButton8: TSpeedButton;

    SpeedButton9: TSpeedButton;

    SpeedButton10: TSpeedButton;

    SpeedButton11: TSpeedButton;

    SpeedButton12: TSpeedButton;

    SpeedButton13: TSpeedButton;

    SpeedButton14: TSpeedButton;

    SpeedButton15: TSpeedButton;

    SpeedButton16: TSpeedButton;

    SpeedButton17: TSpeedButton;

    SpeedButton18: TSpeedButton;

    SpeedButton19: TSpeedButton;

    SpeedButton20: TSpeedButton;

    SpeedButton21: TSpeedButton;

    SpeedButton22: TSpeedButton;

    SpeedButton23: TSpeedButton;

    SpeedButton24: TSpeedButton;

    SpeedButton25: TSpeedButton;

    SpeedButton26: TSpeedButton;

    SpeedButton27: TSpeedButton;

    SpeedButton28: TSpeedButton;

    procedure SpeedButton1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton10Click(Sender: TObject);

    procedure SpeedButton15Click(Sender: TObject);

    procedure SpeedButton16Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure WebBrowser1CommandStateChange

(Sender:   TObject; Command: Integer; Enable: WordBool);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton17Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton9Click(Sender: TObject);

    procedure SpeedButton11Click(Sender: TObject);

    procedure SpeedButton12Click(Sender: TObject);

    procedure SpeedButton13Click(Sender: TObject);

    procedure SpeedButton14Click(Sender: TObject);

    procedure SpeedButton20Click(Sender: TObject);

    procedure SpeedButton19Click(Sender: TObject);

    procedure SpeedButton23Click(Sender: TObject);

    procedure SpeedButton27Click(Sender: TObject);

    procedure SpeedButton21Click(Sender: TObject);

    procedure SpeedButton22Click(Sender: TObject);

    procedure SpeedButton24Click(Sender: TObject);

    procedure SpeedButton25Click(Sender: TObject);

    procedure SpeedButton26Click(Sender: TObject);

    procedure SpeedButton28Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

  bool:boolean;

implementation

uses Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

     if bool then begin

     bool:=false;

     panel2.Visible:=false;

     speedbutton1.Glyph.LoadFromFile('c:\program files\book\image\men1.bmp');

     exit;

     end;

     bool:=true;

     panel2.Visible:=true;

    speedbutton1.Glyph.LoadFromFile('c:\program files\book\image\men2.bmp');

     end;

procedure TForm2.FormCreate(Sender: TObject);

begin

form2.Font.Name:='kzarial';

form2.Caption:='Электронды  оу?лы?';

{ menu}

speedbutton6.Left:=0;

speedbutton6.top:=32;

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);

begin

webbrowser1.GoForward;

end;

procedure TForm2.SpeedButton6Click(Sender: TObject);

begin

if bool then begin

bool:=false;

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

{--------------------}

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

 

{--------------------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;

bool:=true;

speedbutton7.Visible:=true;

speedbutton8.Visible:=true;

speedbutton9.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=144;

speedbutton19.Left:=0;

speedbutton19.top:=176;

speedbutton23.Left:=0;

speedbutton23.top:=208;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav.mht');

end;

procedure TForm2.SpeedButton10Click(Sender: TObject);

begin

if bool then begin

bool:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;

bool:=true;

speedbutton11.Visible:=true;

speedbutton12.Visible:=true;

speedbutton13.Visible:=true;

speedbutton14.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=200;

speedbutton23.Left:=0;

speedbutton23.top:=232;

speedbutton27.Left:=0;

speedbutton27.top:=264;

webbrowser1.Navigate('c:\program files\book\lection\glav2.mht');

end;

procedure TForm2.SpeedButton15Click(Sender: TObject);

begin

author.show;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);

begin

aboutbox.show;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

begin

//tar1, lek1

webbrowser1.Navigate('c:\program files\book\lection\lec1.htm');

end;

procedure TForm2.WebBrowser1CommandStateChange(Sender: TObject;

  Command: Integer; Enable: WordBool);

begin

case Command of

   CSC_NAVIGATEBACK: speedbutton3.Visible:=enable;

   CSC_NAVIGATEFORWARD: speedbutton4.Visible := enable;

end;

  end;

procedure TForm2.SpeedButton3Click(Sender: TObject);

begin

webbrowser1.GoBack;

end;

procedure TForm2.SpeedButton17Click(Sender: TObject);

begin

showmessage('Dalshe hoda netu');

end;

procedure TForm2.SpeedButton2Click(Sender: TObject);

begin

showmessage('Dalshe hoda netu');

end;

procedure TForm2.SpeedButton5Click(Sender: TObject);

begin

WinExec('c:\program files\book\test\project2.exe',

SW_SHOW);  form2.WindowState:=wsminimized;

end;

procedure TForm2.SpeedButton8Click(Sender: TObject);

begin

//tar1,lek2

webbrowser1.Navigate('c:\program files\book\lection\lec2.htm');

end;

procedure TForm2.SpeedButton9Click(Sender: TObject);

begin

//tar1, lek3

webbrowser1.Navigate('c:\program files\book\lection\lec3.htm');

end;

procedure TForm2.SpeedButton11Click(Sender: TObject);

begin

//tar2,lek1

webbrowser1.Navigate('c:\program files\book\lection\lec4.htm');

end;

procedure TForm2.SpeedButton12Click(Sender: TObject);

begin

//tar2,lek2

webbrowser1.Navigate('c:\program files\book\lection\lec5.htm');

end;

procedure TForm2.SpeedButton13Click(Sender: TObject);

begin

//tar2,lek3

webbrowser1.Navigate('c:\program files\book\lection\lec6.htm');

end;

procedure TForm2.SpeedButton14Click(Sender: TObject);

begin

//tar2,lek4

webbrowser1.Navigate('c:\program files\book\lection\lec7.htm');

end;

procedure TForm2.SpeedButton20Click(Sender: TObject);

begin

//tar3,lek1

end;

procedure TForm2.SpeedButton19Click(Sender: TObject);

begin

if bool then begin

bool:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;

bool:=true;

speedbutton20.Visible:=true;

speedbutton21.Visible:=true;

speedbutton22.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=208;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav3.mht');

end;

procedure TForm2.SpeedButton23Click(Sender: TObject);

begin

if bool then begin

bool:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;

bool:=true;

speedbutton24.Visible:=true;

speedbutton25.Visible:=true;

speedbutton26.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav4.mht');

end;

procedure TForm2.SpeedButton27Click(Sender: TObject);

begin

//Misaldar

webbrowser1.Navigate('c:\program files\book\lection\mis.htm');

speedbutton6.Left:=0;

speedbutton6.top:=32;

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

{-----------------------}

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

 

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

end;

procedure TForm2.SpeedButton21Click(Sender: TObject);

begin

//tar3 lek2

end;

procedure TForm2.SpeedButton22Click(Sender: TObject);

begin

//tar3.lek3

end;

procedure TForm2.SpeedButton24Click(Sender: TObject);

begin

//tar4,lek1

end;

procedure TForm2.SpeedButton25Click(Sender: TObject);

begin

//tar4,lek2

end;

procedure TForm2.SpeedButton26Click(Sender: TObject);

begin

//tar4,lek3

end;

procedure TForm2.SpeedButton28Click(Sender: TObject);

begin

GET.show;

end;

end.

 

unit Unit3

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls, jpeg;

type

  TAuthor = class(TForm)

    Panel1: TPanel;

    ProgramIcon: TImage;

    ProductName: TLabel;

    Comments: TLabel;

    OKButton: TButton;

    procedure OKButtonClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Author: TAuthor;

implementation

{$R *.dfm}

procedure TAuthor.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

 

 

 

unit Unit4

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls, jpeg;

type

  TAboutBox = class(TForm)

    Panel1: TPanel;

    ProgramIcon: TImage;

    ProductName: TLabel;

    Version: TLabel;

    OKButton: TButton;

    Label1: TLabel;

    Memo1: TMemo;

    procedure OKButtonClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end;

end.

 

unit Unit5

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls;

type

  TGET = class(TForm)

    Image1: TImage;

    SpeedButton1: TSpeedButton;

    Image2: TImage;

    Label1: TLabel;

    Label2: TLabel;

    procedure SpeedButton1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  GET: TGET;

implementation

{$R *.dfm}

procedure TGET.SpeedButton1Click(Sender: TObject);

begin

close;

end;

end.

 

 

Қолданылған әдебиеттер

 

1. Король В.И. Visual Basic 6.0, Visual Basic for Applications 6.0. Язык программирования : Справочник с примерами .    - 2-е издание.- М.: КУДИЦ-ОБРАЗ, 2000.

2. Баженова И.Ю. 
Delphi 5 : Самоучитель программиста .- 2-е издание.- М.: КУДИЦ-ОБРАЗ, 2000.

3. Программирование в Delphi глазами хакера +CD 
Фленов М.В. Москва.

4. Самоучитель Основы программирования в Delphi 7 +дискета 
Культин Н.Б.

5. Руководство разработчика баз данных в Delphi/Kylix. Автор: Хармон

6. VB2D - конвертор с Visual Basic на Delphi

Роберт Делросси

7. Г. В. Галисеев "Программирование в среде Delphi 8 for . NET. Самоучитель"

8. Язык программирования C++ Специальное издание. 
Бьерн Страуструп

9. Разработка защищенных  приложений в среде Visual Basic. Д.Чепмен, Вильямс, 2000.

10. Разработка СОМ-приложений  в среде Delphi 3-5. Э.Хармон, Вильямс, 2000.

11. Программирование баз данных в Delphi 7. Учебный курс В. Фаронов : Издательство "Питер"

12. Visual Basic. Освой на  примерах +CD 
Категория: Компьютерная литература > Программирование > Visual Basic. Автор: Культин Н. Издательство: BHV-СПб

13. Visual Basic 6.0. Категория: Компьютерная литература >Программирование>Visual Basic. Автор: Microsoft. Изд: BHV-СПб

  1. Камардинов А. Delphi 5, Алматы, “Ата-мура”, 2002.
  2. А.Я. АРХАНГЕЛЬСКИЙ. Интегрированная среда разработки Delphi. От версии 1 до версии 5. Москва, ЗАО «Издательство БИНОМ» , 1999.
  3. А.Я. АРХАНГЕЛЬСКИЙ. Работа с локальными базами данных в Delphi 5.   Москва, ЗАО «Издательство БИНОМ» , 2000.
  4. А.Я. АРХАНГЕЛЬСКИЙ. Язык SQL в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
  5. В.ГОФМАН, А.ХОМОНЕНКО, Delphi 5, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 1999 г.
  6. В.ГОФМАН, А.ХОМОНЕНКО, Delphi 6, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 2002 г.
  7. БОБРОВСКИЙ С., DELPHI 5: учебный курс. С.-П., «Питер», 2000.
  8. С.Д. Кузнецов. Введение в СУБД. "СУБД" 2-3,1996г.
  9. С.Д.Кузнецов. Доступ к базам данных с использованием технологии WWW. "СУБД" 5-6, 1996 г.
  10. http://oozoo.vnet.net/postgres95/
  11. http://www.fastcgi.com



Информация о работе Delphi визуальды бағдарламасы ортасында электронды оқулық құру технологиясы