2 жүйелік бағдарламалау курсының компью-терлік оқыту жүйесін даярлау технологиясы

жүктеу 1,68 Mb.

бет	10/10
Дата	15.04.2020
өлшемі	1,68 Mb.
	#29496

1 2 3 4 5 6 7 8 9 10

3 экономикалық бөлім

3.1 Жүйені құруға және еНгізуге кеткен шығын

есептеулері
Delphi ортасында Жүйелік бағдарламалау пәні бойынша электрондық оқулық құру туралы дипломдық проектісі техникалық-экономикалық көрсеткіштерге сүйене отырып жасалынды. Бағдарламалық қамтамасыздану-дың натуралдық эффектісі келесі көрсеткіштерден тұрады:

- бағдарламалық қамтамасыздануға кететін капиталды шығындар;

- жылдық эксплуатациялық шығын экономиясы;

- бағдарламалық қамтамасыздануға кеткен капиталды шығындар;

Жүйе шығындарының құрылу есебі келесі формула арқылы есептелінеді:

С = Сктс + Салг + Сотл + Свн,

Сктс – техникалық құралдар комплексіне кеткен шығындар;

Салг – алгоритмді құруға кеткен шығындар;

Сотл – жазуға және жөңдеуге кеткен шығындар;

Свн – еңгізуге кеткен шығындар;

1) Техникалық құралдар комплексіне кеткен шығындар

Сктс = Скомп. + Сприн. + Сббп,

Скомп. = 90500 тенге – компьютер бағасы (Intel Pentium IV 700/RAM 128 Mb/HDD 20 Gb/ CD-ROM 52X/ Monitor 17");

Сприн. = 37500 тенге – принтердің бағасы (SAMSUNG ML-1210, A4, 8ppm, 600*600dpi, 2MB, 20 pages в мин);

Сббп = 46000 – питания блогы STI K 600 UPS; Сктс = 15000 тенге ;

Сктс =143000

2) Алгоритмді құруға кеткен шығындар есебі

Салг = Зп.разр.*Кол.*В + От,

Мұндағы Зп.разр.=1500 тенге–құрушының еңбек ақы мөлшері;

Кол. = 1 – алгоритмді құрушылар саны;

В = 7 дней - алгоритмді құруға кеткен уақыт;

От = 20% - программисттің әлеуметтік сақтандырылуына кеткен айлық мөлшерінің бөлімі;

Бұдан келесі есептеу келіп шығады: Салг = 1500*7+2100=12600.

3) Бағдарлама жазу мен жөңдеуге кеткен шығындар:

Сотл. = Котл. + Кз.п.,

мұндағы

Котл. – бағдарламаны жөңдеуге кеткен машиналық уақыт;

Кз.п. – бағдарлама жазумен айналысатын программисттің төлем ақысы;

q = 150 теңге – машиналық уақыттың бағасы.

Квн = 7*15*150 = 15750 теңге

Б) Кз.п. = Км * Оразраб.*Кол. + отч.,

мұндағы Км = 25 күн –құруға кеткен күндер саны;

Оразраб. = 1500 тенге – программисттің бір күн ішіндегі айлық мөлшері;

Кол. = 1 адам. – бағдарлама құрушылар саны; отч. = 20% бағдарлама құрушының айлық мөлшерінің бөлігі;

з.п. = 25*1500+7500=45000 сонда: Сотл. = 1500+45000=46500

4) бағдарлама еңгізуге кеткен шығындар

Свн = Квн + Зп.вн.,мұндағы

Квн. – еңгізуге кеткен машиналық уақыт;

Зп.вн. – еңгізу кезіндегі программисттің айлығы.

А) Квн – есептелуі келесі түрдей болады:

Квн = К * d * q,

мұндағы К = 5 - бір күнде ЭЕМ мен жұмыс істеуге кеткен уақыт;

d = 16 күн – ЭЕМ-да жұмыс істеуге кеткен күндер;

q = 150 теңге – машиналық уақыт бағасы.

Квн = 5*16*150=12000

Б) Программисттің еңгізу уақытындағы айлығы келесі формуламен есептелінеді: Зп.вн. = Qвн. * d / Д + отч.,

Мұндағы

Квн. = 16000 тенге – программисттің еңгізу уақытына кеткен айлық мөлшері;

d = 16 күн – ЭЕМ мен жұмыс істеуге кеткен күндер;

Д = 25 күн – бір айға кеткен жұмыс күндері;

отч. = 20% - программисттің әлеуметтік-сақтандырылуына кеткен айлық мөлшерінің бөлігі;

Зп.вн. = 16000 * 16 / 25+2048 = 13684.36 теңге.

Сонда бағдарлама еңгізуге кеткен шығын келесі сумма бойынша анықталады: Свн = 12000+13684.36=25684.36

Енді алынған есептеулерден жүйені құруға кеткен шығын есептеулерін шығаруға болады:

С = 143000+12600.+ 46500+25684.36=227784.36

3.2 Экономикалық сферасының есептеулері
1. Бағдарламаны қолдануға байланысты эксплуатациялық шығындар есептеулері

Еэкспл. = Тмв * Sм, мұнда

Тмв = 7*288 = 2016 сағат – ЭЕМ ді қолдану уақыты;

Sм = 150 теңге – машиналық сағаттың бағасы.

Еэкспл. = 2016*150 = 302400 теңге.

2. Жылдық эксплуатациялық шығындар үнемділігі:

d Еэкспл. = ( (1+Wo) * (1+Wq) * Вз.пр - Еэкспл. ),

мұнда

Еэкспл. = 302400 теңге – бағдарламаны қолдануға байланысты эксплуатациялық шығындар;

Wo = 1,35 – ай сайын айлыққа қаражат түсуі;

Wq = 1,65 –қосымша айлықты ескеретін коэффициенті;

Қызметкерлердің қолмен еңбек ету айлығы:

Вз.пр = 485000

d Еэкспл. =1,35*1,65*485000-302400=777937.5

3. Өтелу мерзімі:

Т = С / d Еэкспл.

Т = 227784.36/777937.5=0.29*12=3,48

4. Бағдарлама құны:

S = Sр.п. / N,

Мұндағы Sр.п. = С =227784.36

N = 1 – бағдарлама қолданылатын бөлімдер саны.

S = 227784.36/ 1 = 227784.36теңге.

5. Пайда құны:

P=q*g, мұндағы q-диск саны 250, g- дисктың құны 7000, P –пайда құны.

P=250*7000=1750000 теңге

6.Табыс көзі:

K=P- d Еэкспл.

d Еэкспл.*20/100=A

Ta=K-A Мұндағы Ta-жалпы табыс көзі

K=1750000-777937.5=972062.5

A=777937.5*20/100=155587.5

Ta=972062.5-155587.5=816475

4 БИЗНЕС-ЖОСПАР БӨЛІМІ

АННОТАЦИЯ

Бизнес-жоспар тақырыбы: «Жүйелік бағдарламалау» пәнінен электронды оқулық құру.

Мекен-жайы: Шымкент қаласы, Кремлевская көшесі 10 - 17

Кіммен жасалған: Айнабеков Сейітжан

Бизнес сферасы: бағдарламалық қамтамасыз құру

Қызметтің негізгі түрлері: бағдарламалар құрастыру, бағдарламалар құрастыру, «Информатика» кафедрасының студенттерін электрондық оқулықтарымен қамтамасыздандыру.

Басталу мерзімі: 2005 жыл

Бизнес-жоспар қандай мерзімге есептеліп жасалған: 8 ай Дипломдық жоба тақырыбы: «Жүйелік бағдарламалау» пәнінен электронды оқулық құру.

ТҮЙІН

Бұл дипломдық жоба университет студенттердің білімін толықтыруға арналған. Бағдарламада студенттерге тараулар, тапсырма, мысалдар келтірілген.

Қазіргі кезде мекемелер саласы адамзат өмірінде ең керекті әрі маңызды орын алатыны бәрімізге белгілі. Елімізде жыл сайын жаңа бағдарламалармен, жаңа сұраныстар, ұсыныстар әрі тиімді операциялары бар мекеме салалары көбеюде. Жоғары оқу орындарында информатика мамандығының “Информатика” курсы біраз программалық жабдықтарды қамтиды. Қазiргi кезде объекттіленген бағдарланған программалау орталарын көптеп дайындалуы және олардың түрлі нұсқаларының пайда болуы курс мазмұнының да, оны оқыту әдiстемесiнiң де өзгерiп отыруына әкелуде. Осының әсерiнен Жүйелік бағдарламалау курсын оқытудың түрлi әдiстерi мен құралдары пайда болуда. Осындай әдiстердiң бiрi ретiнде, үйренушiнiң өз бетiмен жұмыс iстеуiне негiзделген компьютер көмегiмен оқыту әдiсiн алуға болады. Ал компьютерлiк оқыту жүйелерi компьютер көмегiмен оқытудың негiзгi құралы.

Дипломдық жобалау проектісінде мекеме қызметкерлерінің жеке мәліметтері құрылып олармен түрлі операциялары жүргізілген.

Бағдарламалық өнім диск түрінде жэне Интернет - дүкендерінде сатылатын болады. Жоспар бойынша келесі жарты жылдықта сату көлемінің мөлшері 200 диск (күндізгі жэне кешкі бөлімде оқитын студенттерге -120, қашықтықта оқитындарға-80)

Жыл бойындағы сату көлемінің мөлшері 200 диск, 6000 теңге әр диск үшін. Бір дисктен көшірудің ағындық шығындары СD-R дискінің сомасы (150 теңге) қосылады, машиналық уақыттың құны - 120 теңге /сағ, бөлінетін қаржы көлемі -10%.

Алға қойған мақсатқа жету үшін - 401825 теңге қажет.

Ол қаражат комплексті техникалық құралдарға 172000 теңге, алгоритімді ендіруге 18100теңге, бағдарламаны ендіруге 268700 теңге және откладкаға 698500 теңге жұмсалады, пайда 862701,25 табыс 1200000,

Несие Халық банкінен алынады

Несие 8- айда толығымен қайтарылады.

КӘСІПОРЫННЫҢ СИПАТТАМАСЫ

Негізгі қаржылық көрсеткіштер Кесте 1

№	Сатып алушылар	Өлшем бірлігі	Мэні
1	БҚ құруға және енгізуге кеткен шығындар	теңге	460800
2	Жыл бойындағы эксплуатациялық шығын	теңге	449825
3	Өтелу мерзімі	Ай	8

МЕНЕДЖМЕНТ
1.Бизнесте жұмыс істейтін қызметкерлер туралы мэлімет: Қызметкердің аты-жөні: Ыдырысбаев Дархан Уалиханұлы Жасы: 24 Мекен-жайы: «Шығыс» мөлтек ауданы, 51-49 Телефон: 52-62-82

Оның бизнестегі орны қазіргі уақытта ОҚМУ-дің «Ақпараттық технологиялар және жүйелер» факультеті «Информатика» кафедрасының оқытушысы, құрастырушы.

Жалақысы -25000 теңге, болашақта - 50000 теңге.

Жұмыс істеу тәжірибесі: «Информатика» мамандығы бойынша жоғары білімі, бағдарлама құрастыру біліктілігі жоғары. 2. басқарушылық персонал үшін қосымша жағдайлар ( жеңілдіктер, қосымша ақы, жолдамалар жэне т.б.), демалыс үйлеріне жыл сайынғы жеңілдікпен жолдамалар жоспарланып отыр.

ӨНІМНІҢ СИПАТТАМАСЫ
Бұл бағдарлама мекемелерге қойма жұмысына арналған. Бағдарламада мекемеде қойма жұмысын оңайлату, заңды және операциялық басқару бөлімдеріндегі қызметкерлерге арналған. Бағдарлама осы бөлімдердегі қызметкерлер жайлы толық мәліметті қамтиды.

Дипломдық жұмыс DELPHI бағдарламасында құрылған. Мұнда біз DELPHI І бағдарламасының берілгендер қоры мен оның кең мүмкіндіктерімен танысамыз. Программа берілгендер қорын пайдалануды жай қолданушылар үшін де және қазіргі заман талабына сай жаңа берілгендер қорын пайдаланыи өз жеке программаларын құру үшін де өте тиімді болып келеді. DELPHI құрылымдық бағдарламаларды құру мүмкіндіктерін кеңінен ұсынады. Оның қатарына жаңа тест жолдарын өңдеу, индекстік файлдардың жаңа типтерін ұсыну, көпжақты желілік менюлерді құру, көптеген берілгендерді сұрыптау онда СD-R тілінің кең мүмкіндіктері арқылы сорттау жэне көптеген қажетті мәліметтерді импорттау мен экспорттау мүмкіндіктерін ұсынады.

Дипломдық бағдарлама DELPHI 6 бағдарламасында құрылған. Бұл бағдарлама қазіргі кездегі берілгендер қорын құруда өте ыңғайлы жэне тиімді бағдарламалық қор болып табылады.

DELPHI бағдарламасы өзінің алғашқы DELPHI 4, DELPHI 5, DELPHI 6, және жаңа DELPHI 7 версиясына дейін көптеген сатыда дамып келіп интерфейс мүмкіндігін барынша жақсартты. Соңғы версиясына дейін жаңа концепциялар, техникалық мысалдар мен аспаптары жасалынып келеді. Жаңа құрал саймандар панелінің мүмкіндіктері мен түрлі берілгендер қорымен байланыс жасау, басқа программалардағы мэліметтерді шақырын DELPHI де өңдеу сияқты жұмыстары кеңінен келтірілген.

МАРКЕТИНГ ЖОСПАРЫ
Бұл бағдарламалық өнімнің нарығы өсуші. Себебі, университет, колледж студент және де өз білімін толықтырушылары да бұл бағдарламаға ұсыныс береді.

Бұл бизнес бұрын жүргізілмеген және сатылулар болмаған. Бар болса да ірі компаниялар бағдарламалық өнімді толығымен үлкен көлемдегі сомада сатып алған жэне бағдарламалар сұраныс бойынша құрылған.

Осы мерзімге анық тапсырыс беруші «Университет» болып табылады.
ӨНДІРІСТІК ЖОСПАР:
Комплексті техникалық құралдарға қажетті қаражат: Компьютер бағасы - 120000 тенге Принтердің бағасы -46000 тенге СD-R дискісінің бағасы-150 теңге Дискетаның құны -100 теңге.

Өнімді өндіруде және оны сату процесін жүзеге асырған басқа ұйымдарға қажеттілік тумайды. Жоғарыда көрсетілген позициялар бойынша шығын -449825т.

ҚАРЖЫЛЫҚ ЖОСПАР
Қажетті соманы несие түрінде «Халық банк»-тен алу көзделеді. Бағдарламалық өнім білім алу сферасымен байланысты болғандықтан, несиені 7% жеңілдік ставкасымен алуға болады.

№	Сатып алушылар	Өлшем бірлігі	Мәні
1	БҚ қүруға жэне енгізуге кеткен шығындар	теңге	401825
	КТҚ-ға кеткен шығындар	теңге	172000
	Алгоритмге кеткен шығындар	теңге	18100
	Жазуға кеткен шығындар	теңге	68700
	Бағдарламаны енгізуге кеткен шығындар	теңге	268700
2	Жыл бойындағы эксплуатациялық шығын	теңге	698500
3	Өтелу мерзімі	ай	8

Несиені «Халық банк» жауапкершілігі шектеулі серіктестігі атынан алғандықтан мекеме кепілдік ретінде үлкен көлемде жылжымайтын мүлікті қоюына болады.

Бағдарламалық өнімдер нарығының дамуына байланысты сату көлемінің төмендеуі байқалмайды. Басқа жағдайда деректерді жетілдіруге болады немесе жаңа бағдарламалық өнімдер шығарылады.

Қысқа мерзімді мақсаты өнімді шығаруды бастау жэне бағдарламалық өнімнің СD-R дисктерін тарату.

Болашақ мақсат - бағдарламалық өнімнің түрлерін кеңейту және сату көлемін арттыру.

ҚОРЫТЫНДЫ
Диплом жұмысын қорытындыласақ, «Жүйелік бағдарламалау» курсының компьютерлiк оқыту құралын оқу процесiнде пайдалану, оны басқару мен бақылауды жеңiлдетуге, студенттiң курсты игегрудегi ебдейлiгi мен дағыдысының жылдам қалыптасуына және студенттiң компьютермен үздіксіз байланыста болуын қамтамасыз етедi. Компьютерлiк оқыту құралының құрамындағы теориялық материалдар, тапсырмалар, олардың арасындағы интерактивтiлiк пен тақырыптық-логикалық байланыстар, қайталанбайтын көпнұсқалы тапсырмалар жоғарыда аталған мақсаттарға жетудiң тиiмдi де қысқа жолы деп санаймыз.

Сонымен «Жүйелік бағдарламалау» курсын компьютерлiк оқыту құралдары:

курсты оқудың мақсатымен таныстыру, оның мазмұны мен құрылымын түсiну;
курсты игеру мақсатында берiлетiн түрлі деңгейдегi лабораториялық жұмыстарды орындау;
студенттiң түрлі есептердi шешудегi дағды мен ебдейлiгiн қадлыптастыру;
эксперименттiк жұмыстар жасау даярлығын қалыптастыру;
шығармашылық деңгейдегi есептердi шешу қабiлетiн қалыптастыру;
iскерлiктi, дағды мен ебдейлiктi бекiту, орнықтыру;
курсты игерудегi студенттiң бiлiм деңгейiн объективтi бағалау,

т.с.с. педагогикалық мәселелердi шеше алады.

Сонымен қатар компьютерлiк оқыту құралдары дәстүрлі оқыту жүйелерiне қарағанда келесi артықшылықтарға ие: студентке өзiне ыңғайлы уақытта оқу жылдамдығын өз қалауынша таңдауға және оқу материалын өз бетiнше игеруге мүмкіндiк бередi; курс мазмұнындағы зерттелетiн объектiлер мен процестердi көрнекi мультимедиялық формада бейнелеуге мүмкіндiк бередi; тапсырмалар мен оқу материалдарын оқушының бiлiм деңгейiне сай беру оқыту процесiндегi дараландыру әдiсiн жоғары деңгейде жұзеге асырады; бiлiктiлiк пен дағдыны автоматы түрде бақылау жүйесi оқушының бiлiмiн объективтi түрде бағалауға мүмкіндiк бередi; қайталанбайтын көпнұсқалы және ерекше жағдайларға арналған тапсырмалар жүйесi оқушының шығармашылық қабiлетiн арттырады.

ТҮЙІН

Зерттеу объектісі: «Жүйелік бағдарламалау» пәнінен электронды оқулығы.

Жұмыстың мақсаты: «Жүйелік бағдарламалау» бағдарламасын құру болып табылады.

Жұмыстың нәтижесі: Delphi ортасында «Жүйелік бағдарламалау» электронды оқулығы жайында бағдарлама құрылған.

Жұмыстың қолдану облысы: Жоғары оқу орындарында
Резюме
Обьект исследования: «Системный программирование» электронный учебник.

Цель работы: Создать электронный учебник. Пользователь электронным учебником может определить по тестам уровень своих знаний.

Результат работы: Созданна программа электронного учебника

По предмету «Системные программирование».

Область применения: В высших и в средних учебных заведениях.
The resume
Object of research: "System program" the electronic textbook.

The purpose of work: To create the electronic textbook. The user the electronic textbook can define(determine) a level of the knowledge under tests.

Result of work: the program of the electronic textbook on Delphi Is created.

Scope: In the maximum(supreme) and in average educational institutions

Қосымша
Программа листингі:

unit Unit1;
interface
uses

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

ImgList, ComCtrls, ToolWin, OleCtrls, SHDocVw, StdCtrls, Gauges, Buttons,

ExtCtrls;

type

TForm1 = class(TForm)

ToolBar1: TToolBar;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton8: TToolButton;

ToolButton9: TToolButton;

ImageList1: TImageList;

ImageList2: TImageList;

PageControl1: TPageControl;

WebBrowser1: TWebBrowser;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TreeView1: TTreeView;

TreeView2: TTreeView;

ComboBox1: TComboBox;

ImageList3: TImageList;

GroupBox1: TGroupBox;

Edit1: TEdit;

BitBtn1: TBitBtn;

Splitter1: TSplitter;

BitBtn2: TBitBtn;

Gauge1: TGauge;

procedure ToolButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure TreeView1Click(Sender: TObject);

procedure TreeView2Click(Sender: TObject);

procedure TreeView1Expanded(Sender: TObject; Node: TTreeNode);

procedure TreeView2Expanded(Sender: TObject; Node: TTreeNode);

procedure ComboBox1Click(Sender: TObject);

procedure ToolButton3Click(Sender: TObject);

procedure ToolButton4Click(Sender: TObject);

procedure ToolButton6Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure ToolButton9Click(Sender: TObject);

procedure WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

procedure ToolButton7Click(Sender: TObject);

procedure ToolButton10Click(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

HLIst:TStringList;

historyIndex:integer;

public

{ Public declarations }

end;
procedure ShowTest(a:TComponent);

external 'data\test.dll';

var

Form1: TForm1;

sum,ii:word;

tf:TSearchRec;

implementation

uses Unit2;
{$R *.DFM}
//Êëèê ïî TreeView

procedure ClickTreeView(tr:TTreeView;W:TWebBrowser;Path:ShortString);

begin

if (Tr.Selected.AbsoluteIndex<>-1)then

if fileexists(Path+inttostr(Tr.Selected.AbsoluteIndex)+'.teor')then

begin

W.Navigate(W.Path+Path+inttostr(Tr.Selected.AbsoluteIndex)+'.teor');

end;

end;
procedure ExpandedTreeView(tr:TTreeView);

var i:word;

begin

if (Tr.Items.Item[Tr.Selected.AbsoluteIndex].Expanded=true) then

for i:=0 to Tr.Items.Count-1 do

if (i<>Tr.Selected.AbsoluteIndex)and(Tr.Items.Item[i].Count>0) then

begin

Tr.Items.Item[i].ImageIndex:=0;

Tr.Items.Item[i].SelectedIndex:=0;

end;
if (Tr.Items.Item[Tr.Selected.AbsoluteIndex].Expanded=true) then

begin

Tr.Items.Item[Tr.Selected.AbsoluteIndex].ImageIndex:=2;

Tr.Items.Item[Tr.Selected.AbsoluteIndex].SelectedIndex:=2;

end;

Tr.Repaint;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);

begin
PageControl1.Visible:=not PageControl1.Visible;

end;
procedure TForm1.FormCreate(Sender: TObject);

var i:Shortint;j:word;

begin

sum:=0;

Findfirst('data\teor\*.teor',0,tf);

repeat

j:=FindNext(tf);

sum:=sum+1;

until j<>0;

Findclose(tf);

Gauge1.MaxValue:=sum;

ii:=0;
HLIst:=TStringList.Create;

historyIndex:=-1;

if fileexists('data\taps\tap.mzm') then TreeView2.LoadFromFile('data\taps\tap.mzm')

else

begin

showmessage('Áèáëåîòåêà íå íàéäåíà. Ðàáîòà áóäåò çàâåðøåíà');

halt;

end;
if fileexists('data\teor\neg.mzm') then TreeView1.LoadFromFile('data\teor\neg.mzm')

else

begin

showmessage('Áèáëåîòåêà íå íàéäåíà. Ðàáîòà áóäåò çàâåðøåíà');

halt;

end;

if fileexists('data\term\ter.mzm') then ComboBox1.Items.LoadFromFile('data\term\ter.mzm')

else

begin

showmessage('Áèáëåîòåêà íå íàéäåíà. Ðàáîòà áóäåò çàâåðøåíà');

halt;

end;
//Ìàçìóí

for i:=0 to TreeView1.Items.Count-1 do

begin

if TreeView1.Items.Item[i].Count=0 then

begin

TreeView1.Items[i].ImageIndex:=1;

TreeView1.Items[i].SelectedIndex:=1;

end;

end;
//Òàïñûðìà

for i:=0 to TreeView2.Items.Count-1 do

begin

if TreeView2.Items.Item[i].Count=0 then

begin

TreeView2.Items[i].ImageIndex:=1;

TreeView2.Items[i].SelectedIndex:=1;

end;

end;
if FileExists(WebBrowser1.Path+'data\teor\t0.teor')then

WebBrowser1.Navigate(WebBrowser1.Path+'data\teor\t0.teor');

end;
procedure TForm1.TreeView1Click(Sender: TObject);

begin

ClickTreeView(TreeView1,WebBrowser1,'data\teor\t');

end;
procedure TForm1.TreeView2Click(Sender: TObject);

begin

ClickTreeView(TreeView2,WebBrowser1,'data\taps\l');

end;
procedure TForm1.TreeView1Expanded(Sender: TObject; Node: TTreeNode);

begin

ExpandedTreeView(TreeView1);

end;
procedure TForm1.TreeView2Expanded(Sender: TObject; Node: TTreeNode);

begin

ExpandedTreeView(TreeView2);

end;
procedure TForm1.ComboBox1Click(Sender: TObject);

begin

if (ComboBox1.ItemIndex<>-1)then

if fileexists('data\term\ter'+inttostr(ComboBox1.ItemIndex)+'.teor')then

begin

WebBrowser1.Navigate(WebBrowser1.Path+'data\term\ter'+inttostr(ComboBox1.ItemIndex)+'.teor');

end;

end;
procedure TForm1.ToolButton3Click(Sender: TObject);

begin

//Íàçàä

try

WebBrowser1.GoBack;

except

ToolButton3.Enabled:=false;

end;

end;
procedure TForm1.ToolButton4Click(Sender: TObject);

begin

//Ïåðåä

try

WebBrowser1.GoForward;

except

ToolButton4.Enabled:=false;

end;

end;
procedure TForm1.ToolButton6Click(Sender: TObject);

begin

try

WebBrowser1.ExecWB(OLECMDID_PRINT,1);

except

ShowMessage('Íåèçâåñòíàÿ îøèáêà!');

end;

end;
procedure TForm1.Edit1Change(Sender: TObject);

begin

ii:=0;

Gauge1.Progress:=ii;

BitBtn2.Show;

BitBtn1.hide;

end;
procedure TForm1.BitBtn2Click(Sender: TObject);

begin

BitBtn1.Show;

BitBtn2.hide;

Findfirst('data\teor\*.teor',0,tf);

ii:=0;

BitBtn1Click(Sender);

end;
procedure TForm1.BitBtn1Click(Sender: TObject);

var j:word;

f:TextFile;

s:string;

begin

Screen.Cursor:=crHourGlass;

repeat

Gauge1.Progress:=ii;

ii:=ii+1;

//if FileExists('data\teor\'+tf.Name)then

begin

AssignFile(f,'data\teor\'+tf.Name);reset(f);

repeat

readln(f,s);

for j:=1 to length(s)do

if Edit1.Text=copy(s,j,length(Edit1.Text))then

begin

Screen.Cursor:=crDefault;

WebBrowser1.Navigate(WebBrowser1.Path+'data\teor\'+tf.Name);

CloseFile(f);

Findnext(tf);

exit;

end;

until eof(f);

CloseFile(f);

Findnext(tf);

end;

until ii>sum;

FindClose(tf);

Screen.Cursor:=crDefault;

BitBtn2.Show;

BitBtn1.hide;

showmessage('Ïîèñê çàâåðøåí! ң'+Edit1.Text+'ң íå íàéäåí.' );

end;
procedure TForm1.ToolButton9Click(Sender: TObject);

begin

form2.ShowModal;

end;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;

const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,

Headers: OleVariant; var Cancel: WordBool);

var NewIndex:integer;

begin

NewIndex:=HLIst.IndexOf(URL);
if NewIndex = -1 then

begin

if (historyIndex >= 0) and (historyIndex < HLIst.Count - 1) then

while HLIst.Count-1 > historyIndex do

HList.Delete(HistoryIndex);

HistoryIndex := HList.Add(URL);

end

else

HistoryIndex := NewIndex;

//My

if HList.Count > 0 then

ToolButton3.Enabled := HistoryIndex > 0

else

ToolButton3.Enabled := False;

if HList.Count > 0 then

ToolButton4.Enabled := HistoryIndex < HList.Count-1

else

ToolButton4.Enabled := False;

end;
procedure TForm1.ToolButton7Click(Sender: TObject);

begin

hide;

ShowTest(Self);

show;
end;
procedure TForm1.ToolButton10Click(Sender: TObject);

begin

Close;

end;
procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

ToolBar1.Visible:=not ToolBar1.Visible;

end;
end.

ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР

Г.Боутон. Внутренний мир AdobePhotoShop. Киев, ДиаСофт, 2000 г.
С.Луций. Изучаем PhotoShop. Спб. 2002 г.
Роуз К. Освой самостоятельно Adobe Photoshop 5.5 за 24 часа. Пер. с англ. – М.:Издательский дом “Вильямс”, 2000
О.Камардинов. Информатика. 1-бөлiм. -Шымкент, 1999.
О.Камардинов. Информатика, 2-бөлiм, -Шымкент, 2000.
Сван Т. Основы программирования в Delphi для Windows 98. Пер. с англ. К., “Диалектика”, 1996
К.З.Халықова. Информатиканы оқыту әдiстемесi. -Алматы. “Бiлiм”, 2000
М.Донской. Интернет и пользовательский интерфейс. Мир Internet. 1999.
М.П.Концевой. “Парадоксы” дидактической наглядности. Education+ Человек. Культура. Общество.
А.И.Башмаков. Компьютерный учебник “Информатика” для дистанционного обучения. Мн. Бестпринт, 2001.
В.В.Волкова. Дизайн рекламы. М.: Университет, 1999.
В.В.Фаронов. Delphi 6. Учебный курс. М. 2001
А.Я.Архангельский. Программирование в Delphi 5, M., ЗАО “Издательство БИНОМ”, 2000
А.Полянский. MS FrontPage 2000. М., 2001
О.Камардинов, Х.Жантелi. Delphi 5-6, -Шымкент, 2002.
С.Бобровский. Delph 5. Учебный курс. М., 2001
Н.Культин. Delphi 6. Программирование на Object Pascal. БХБ-Петербург, 2001
О.Камардинов. Turbo C және Turbo C++ тiлдерiнде программалау, Ш., 2005. 87 бет.
Б.Н.Березин, С.Б.Березин. Начальный курс Си С++. М., 1998.
В.В.Фаронов. Delphi 5. Учебный курс. м., 2001

жүктеу 1,68 Mb.

Достарыңызбен бөлісу:

1 2 3 4 5 6 7 8 9 10