- Автоматизация
- Антропология
- Археология
- Архитектура
- Биология
- Ботаника
- Бухгалтерия
- Военная наука
- Генетика
- География
- Геология
- Демография
- Деревообработка
- Журналистика
- Зоология
- Изобретательство
- Информатика
- Искусство
- История
- Кинематография
- Компьютеризация
- Косметика
- Кулинария
- Культура
- Лексикология
- Лингвистика
- Литература
- Логика
- Маркетинг
- Математика
- Материаловедение
- Медицина
- Менеджмент
- Металлургия
- Метрология
- Механика
- Музыка
- Науковедение
- Образование
- Охрана Труда
- Педагогика
- Полиграфия
- Политология
- Право
- Предпринимательство
- Приборостроение
- Программирование
- Производство
- Промышленность
- Психология
- Радиосвязь
- Религия
- Риторика
- Социология
- Спорт
- Стандартизация
- Статистика
- Строительство
- Технологии
- Торговля
- Транспорт
- Фармакология
- Физика
- Физиология
- Философия
- Финансы
- Химия
- Хозяйство
- Черчение
- Экология
- Экономика
- Электроника
- Электротехника
- Энергетика
Оқу мекелеріндегі КВТ жарықтану
6.4. Оқу мекелеріндегі КВТ жарықтану
Желілік энергия көзінің табиғатына байланысты: ол қарапайым, жасанды және аралас жарық болып бөлінеді.
Қолдану түріне қарай жасанды жарық: жұмыстық, апаттық, эвакуациялық және қорғаныстық болып бөлінеді.
Апаттық жарық жұмыс жарығы кенеттен өшіп қалған жағдайда автоматты түрде іске қосылады да жұмысты аяқтауға мүмкіндік береді.
Эвакуациялық жарық апаттық жағдайларда адам өмірін сақтап қалу үшін және құнды бұйымдарды алып қалу мақсатында қолданылады.
Жүйелік жарық үшін келесі шарттар орындалу керек:
- жұмыс орынында жарықтың біркелкі таралуы;
- жұмыс орны мен қоршаған ортада жарықтың жеткілікті мөлшерде берілуі;
- жарықтың тұрақтылығы;
- жарық ағымының дұрыс бағытталуы;
- электр қауіпсіздігі, өрт қауіпсіздігі талаптарының орындалуы,
- ұзақ мерзімділігі, қолданудағы қарапайымдылығы және ыңғайлылығы.
6.5. Дербес компьютерде жұмыс жасау барысындағы өрт қауіпсіздігі
Өрт – бақыланбайтын арнайы көзі бар заттардың жануы.
Электрлік жану бұл – токтың түйісуі (замыкание), электр жабдықтарына электр тогының көп әсері, найзағайдың болуы. Электр жабдықтарында өртті болдырмау себептері әртүрлі бағыттарда жүргізіледі:
- токтың түйісуін алдын алу желілердің дұрыс монтажы мен эксплуатациясына байланысты.
- Қорғанысты қолдануда автоматикалық өшіргіштер тез әсерлі реле және өшіргіштер пайдаланады.
Программистің жұмысы электр жабдықтарымен тікелей байланысты болғандықтан, оларды дұрыс қолданып үйрену және электр тогынан қауіпсіздік ережесін сақтау керек. Солардың бірі - қорғау жерлендіру.
Сонымен қатар электр тогынан қорғаудың тағы бір әдісі бар, ол нольдендіру деп аталады. Нольдендіру – бұл арнайы электр байланысын нольдік қорғаныспен жалғау. Нольдік қорғаудың принципі бұл токтың түйісуін алдын алу, автоматикалық өшіргіштің тез қондырғыны желіден өшіру. Сонымен қатар әртүрлі электр тогынын әсерінен сақтайтын заттар пайдаланады. Қорғаныс заттар үш топқа бөлінеді: изолоцияланған, кедергіленген және сақтандырылған.
ü Изолоцияланған қорғаныс – адамды ток жүретін бөлшектерінен қорғау.
ü Кедергіленген қорғаныс - ток жүретін бөлшектерден уақытша сақтайтын заттарды пайдалану, олармен кездейсоқ түйісу немесе қауіпті арақашыққа жақындауды болдыртпау.
ü Қорғалған қорғаныс жұмысшының жеке желілік, жылулық және механикалық әсерлерден және жану өнімдерінен, электр алаңының әсерінен, биіктіктен құлауынан қорғанысы болып табылады.
Есептеу техникасы бар кабинеттерде өрт шығудың екі себебі болады.
Олар: электрлі және электрлі емес.
Электрлі – бұл қысқа тұйықталу, электр жабдықтарының және электр жүйелерінің ақаулығының болуы немесе артық ұшқындау.
Электрлі емес – жылыту жүйелерінің ақаулығы, дұрыс эксплуатацияланбауы.
Бөлмелерде өндірісте пайдаланатын керексіз қағаздар, бөтен заттар және қоқсық жиналмауы тиіс. Бөлмелерден қауіпті жағдайда шығатын қосалқы есік және өрт сөндіргіштер болуы тиіс. Бөлмелерде өрт сигнализациясы болуы тиіс. Егерде өрт болған жағдайда жақын өрт сөндіргіш бөлімшелеріне хабарланып, мүмкіншілігінше өртті сөндіруге шаралар тудыру қажет. Барлық ережелерді сақтау және еңбек қорғау нормасын сақтау жұмыс нәтижесін жоғарлатады.
Электр қауіпсіздігі
Программистің жұмысы электр жабдықтарымен тікелей байланысты болғандықтан, оларды дұрыс қолданып үйрену және электр тогынан қауіпсіздік ережесін сақтау керек. Электр тогының әсері тірі ұлпаға әсері басқа материалдық факторлардың әсерінен ( бу, Биологиялық заттар, сәулелену т.б.) сансалалы және өзіне тән болады. Шын мәнінде электр тогы адам ағзасынан өткен кезде термиялық және электролиттік әсер беріп, тірі және өлі материяға тән физика-химилық үрдіс болып табылады, сонымен қатар электр тогы биологиялық әсер ететін, тек қана тірі ұлпаға тән ерекше спецификалық үрдіс.
Термиялық әсер – дененің әр бөліктерінің күйюі, жоғары температураның әсерінен қан тамырлары, жүйкелері, жүрек, ми және басқа мүшелердің күрделі функцияналдық өзгерістеріне ұшырауы.
Электролитикалық әсер – органикалық сұйықтықтың ыдырауы сонымен қатар қанның да, бұл физика-химилық құрамның өзгеруін тудырады.
Биологиялық әсер – ағзаның тірі ұлпаларының тітіркендіруіне және ішкі биоэлектрикалық үрдістердің өзгеруіне, дұрыс жұмыс жасап жатқан ағзаның және өмірлік функцияларымен тығыз байланыста болатын. Электр тогының тірі ағзаға әсерінің нәтижесі болып орталық жүйке жүйесінің өзгеруі, қанның құрамының өзгеруі, бөлінетін жылудың әсерінен болатын жүрек пен өкпенің жұмысының бұзылуы және т.б.
Қоршаған ортаны қорғау
Біздің елдің конституциясына сәйкес мемлекеттік жүйе қалыптасқан. Бұл жүйеде қоршаған ортаны қорғау және табиғи ресурстарды тиімді пайдалану, басқаратын құжаттары болып жер, су, орман, жер қайнауы, атмосфералық ауаны сақтау, өсімдік және жануарлар әлемін сақтау заңдылықтары табылады.
Атмосфера ауасын қорғау
Қазақстанда ауа бассейнін қорғауды жариялайтын негізгі заңды құжат болып «Атмосфералық ауаны қорғау туралы» заңы табылады. Заңға сәйкес атмосфералық ауаны ластайтын заттардың шектеулі рұқсатты концентрациясы нормативі тағайындалған. Сонымен қатар зиянды заттардың қоспаларының рұқсатты концентрациясы нормативі тағайындалған. Бұдан басқа, заңмен бір жүйеге келтірілген атмосфералық бассейннің қорғау мемлекеттік бақылауы тағайындалған.
Есептеуіш техника кабинеттерінде өндірістік ортаның метео жағдайлары.
ДЭЕМ мен жұмыс істеу кезінде жұмыс орында ауа температурасы көтеріліп және ауа ылғалдылығы төмендейді, ауаның сапалық және иондық құрамы нашарлайды, құрамында көмір қышқыл газы және органикалық заттар көбейеді. Ауа құрамында көрсетілген заттардың бірнеше рет жоғарлауы рұқсатты концентрациясынан көрсеткіштерінен аспауы керек. Осы себепке байланысты келесі оптималды микроклимат параметрлерін сақтау керек, ауа температурасы 18 ден 21 Целсия бойынша аспауы қажет. Ауаның қатынасты ылғалдылығы 55-62%, ауаның қозғалу жылдамдығы 0,1м/c. Ауа алмасудың басқа жолы болып терезелерде автономдық БК-1500 типтегі кондиционерлер қондылғыларын орнату болып табылады. ЭЕМ жұмыс жасау кезінде өте маңызды болып сәулемен қамтамасыз ету болып табылады. Сәуленің жұтылуын төмендету үшін қабырға мен төбе (1.5-1.7 м.), егер олар дыбысты сіңіру материалдармен өнделмеген болса, оларды ақ су эмульсиялық бояумен (шашырату коэф. 0,7 төмен болмауы қажет) боялады. Қабырғаны бояуға көбінесе ашық түсті бояуларды пайдаланады. ДЭЕМ жұмыс жасайтындар экранда шамдардың сәулесінің шашырауын көрмеуі тиіс. ДЭЕМ жұмыс жасау кезінде сәуле сол жақтан түсуі тиіс. Ол оң немесе арт жақтан түспеуі керек.
Экранмен көздің арасындағы арақышықтық 60-70 см болуы тиіс, 50 см жақын қарауға болмайды.
ҚОРЫТЫНДЫ
Әдістемелік нұсқау жалпы оқу жүйесіне қойылатын талаптарға сәйкес жасалады, ал оның ақпараттық-әдістемелік негізін жоғарыда айтылған материалдар құрайды. Ол алдын ала жоба бойынша анықталған компьютерлік технология негізінде жасалған білім беру мәселелерін шешіп, оқыту-үйрету функциялары мен оқу процесін басқару істерін жүзеге асыруы тиіс.
Оқыту бағдарламасын құру барысында қазіргі информациялық технологиялар ұсынатын барлық технологиялық құралдар арсеналын қолдану өте маңызды.
Компьютерлік оқу құралын жасаудың ақырғы кезеңі оны программаға айналдыру, яғни машина тілінде кодтау ісі болып табылады. Болашақ мамандығым бағдарламашы болғандықтан дипломдық жұмыста «Кәсіптік қазақ тілі» пәнінен әдістемелік нұсқау жүйесін жасауды дұрыс деп шештім. Себебі қазіргі кезде ақпараттық, ғылыми технологиялардың даму кезеңі. Ал компьютердің маңызы осыған байланысты артуда. Білім ордалары да компьютермен қамтылғандықтан, әдістемелік нұсқау жүйелері жиі қолданылып жатыр. Әдістемелік нұсқау жүйесі адамға тартымды әрі қызығушылығын оятарлықтай болуы керек.
Бұл әдістемелік нұсқау жүйесін жасау барысында мен үлкен ізденісте болдым. Тек оқулықты жасай ғана қоймай, өзім де жаңа ақпараттарды игердім.
Оқулықты жасау мен үшін өте қызықты болды. Себебі бұл оқулыққа бар күшімді, идеямды салдым. Осы әдістемелік нұсқау жүйесін жасаумен шектелмей, әлі де бұдан қызықты, күрделі оқулықтарды жасаймын деген ойдамын. Бұл оқулықты колледжде Есептеуіш техникасы және бағдарламамен қамтамасыз ету мамандығының студентері мен осы тақырыпқа қызығушылық тудырған басқа да пайдаланушылар өздеріне қажетті нәрселерді алады деген ойдамын.
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ
1. Назарбаев Н. Бәсекелестікке қабілетті Қазақстан үшін. Бәсекелестікке қабілетті экономика үшін. Бәсекелестікке қабілетті халық үшін. Қазақстан халқына жолдауы.– Астана: Ақорда KZ 62012.
2. Қасым Б., Османова З. т.б. Кәсіби қазақ тілі. –Алматы, 2010. –112 б.
3. Күзекова З. Қазақ тілі. – Алматы, 2001.
4. Қадашева Қ. Жаңаша жаңғыртып оқытудың ғылыми әдiстемелiк негiздерi: өзгетiлдi дәрiсханалардағы қазақ тiлi: Пед. ғыл. док. … дисс. – Алматы, 2001. – 301 б.
5. Культин Н.Б. Delphi 6. Программирование на Object Pascal. СПб: БХВ - Петербург, 2002.
6. Фаронов В. Delphi 6: учебный курс. – СПб.:Питер, 2002. - 512 с.
7. Борк A "История" новых технологий в образовании / Российский открытый университет - М., 1990.
8. Брановский Ю.С. Введение в педагогическую информатику. - Ставрополь: СГПУ, 1995.
9. Кузнецов А.А. Сергеева Т.А. Компьютерная программа и дидактика // Информатика и образование. - 1986. - N 2.
10. Мирская А, Сергеева Т. Обучающие программы оценивает практика // Информатика и образование. 1987. - 6.
11. Немнюгин С.А. Turbo Pascal. Программирование на языке высокого уровня. – СПб.:Питер, 2008.
12. Технология сертификации программных средств учебного назначения (ПС УН) / Рос. центр информатизации образования (РОСЦИО) / Под редакцией А.И. Галкина, В.К. Мороз. - М., 1993.
13. Л.Х. Зайнутдинова. Создание и применение электронных учебников. Астрахань, ООО "ЦНТЭП", 1999, с. 364.
14. С.А. Христочевский. Информатизация образования. Почему так медленно? Информатика и образование, 1997,
15. С.А. Христочевский. Мультимедиа в образовании. Проблемы разработки и использования. Системы и средства информатики. Вып.8. М.: Наука. Физматлит, 1996, стр.166-176.
16. Б.Е. Алгинин, Б.Г. Киселев и др. Концепция информатизации образования. Информатика и образование, 1990, 1.
17. Немов Р.С. Психология: Учеб. пособие для учащихся пед. ин-тов и работников системы подготовки, повышения квалификации и переподготовки пед. кадров. -- М.: Просвещение, 1990. -- 301 с.
18. Орлов М.А. «Основы классической ТРИЗ Практическое руководство для изобретательного мышления», Москва, 2005. - 416с.
19. Пак Н.И. Нелинейные технологии обучения в условиях информатизации: Учебное пособие. Красноярск: РИО КГПУ, 2004
20. З.Күзекова, Г. Қарақұсова Жоғарғы оқу орындарының эканомика факультеттеріне арналған. А.1997,1999.
21. Ш.Б Сейтова. Ана тілің –асыл қазынаң. Семей 2001.
22. Т.Т Аяпова. Қазақ тілі. Негізгі оқулық
23. Т.Т.Аяпова Қазақ тілі. Үй кітабы
24. Ш.Б.Бектұров. Т.Ш. Бектұрова. Қазақ тілі. А. 2002.
25. Қазақ тілі сөздігі. А. 1999 ҰТА
26. Ә. Болғамбаев. Қазақ тілінің синонимдік сөздігі. А.1976.
27. Б.Шалабай, В.Салагаев. Іс қағаздары. А. 2001.
28. Базарғалиева Б., Иманбаева М., Ибрагимов Қ. Қазақ тілі. Алматы, 2005.
29. Г.Қ Рысбаева. Қазақ тілі грамматикалық анықтағыш А-2000
30. З.Күзекова . Практикалық курс. Қазақ тілі –Алматы: 2002
31. Ш.Бектұров. Серғалиев М. Қазақ тілі А-1994
32. Жас техниктің энциклопедиялық сөздігі. Москва.1980.
33. Р. Сыздық Қазақ тілінің анықтағышы Астана, Елорда 2000.
ҚОСЫМША
Листинг1. Титулды бет
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, jpeg, ExtCtrls, shellapi,Buttons, StdCtrls;
type
TForm2 = class(TForm)
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
Label1: TLabel;
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Label3Click(Sender: TObject);
procedure Label1Click(Sender: TObject);
procedure Label2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit14;
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Width:=1000;
form2.Height:=600;
image1.Width:=997;
image1.Height:=595;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
form2.Hide;
form1.show;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
form2.Hide;
form3.Show;
end;
procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
form2.Hide;
form4.Show;
end;
procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
form2.Hide;
form5.show;
end;
procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
form2.Hide;
form6.show;
end;
procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
form2.Hide;
form7.show;
end;
procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'/123456/MyTestStudent.exe'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm2.Label3Click(Sender: TObject);
begin
form2.Hide;
form8.show;
end;
procedure TForm2.Label1Click(Sender: TObject);
begin
Panel1.Visible:=True;
SpeedButton2.Visible:=True;
SpeedButton3.Visible:=True;
SpeedButton4.Visible:=True;
SpeedButton5.Visible:=True;
SpeedButton6.Visible:=True;
SpeedButton7.Visible:=True;
end;
procedure TForm2.Label2Click(Sender: TObject);
begin
form2.Hide;
form14.show;
end;
end.
Листинг2. Негізгі бет (негізгі оқиғалар)
procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Width:=1000;
form2.Height:=600;
image1.Width:=997;
image1.Height:=595;
end;
procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm2.SpeedButton8Click(Sender: TObject);
begin
form2.Hide;
form1.show;
end;
procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
form2.Hide;
form3.Show;
end;
procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
form2.Hide;
form4.Show;
end;
procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
form2.Hide;
form5.show;
end;
procedure TForm2.SpeedButton5Click(Sender: TObject);
begin
form2.Hide;
form6.show;
end;
procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
form2.Hide;
form7.show;
end;
procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'/123456/MyTestStudent.exe'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm2.Label3Click(Sender: TObject);
begin
form2.Hide;
form8.show;
end;
procedure TForm2.Label1Click(Sender: TObject);
begin
Panel1.Visible:=True;
SpeedButton2.Visible:=True;
SpeedButton3.Visible:=True;
SpeedButton4.Visible:=True;
SpeedButton5.Visible:=True;
SpeedButton6.Visible:=True;
SpeedButton7.Visible:=True;
end;
procedure TForm2.Label2Click(Sender: TObject);
begin
form2.Hide;
form14.show;
end;
end.
Листинг3. Теориялық бөлім (негізгі оқиғалар)
procedure TForm3.FormCreate(Sender: TObject);
begin
Form3.Width:=1220;
form3.Height:=600;
image1.Width:=1217;
image1.Height:=595;
end;
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
form3.Hide;
form2.show;
end;
procedure TForm3.Label1Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\1.html');
end;
procedure TForm3.Label3Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\2.html');
end;
procedure TForm3.Label4Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\3.html');
end;
procedure TForm3.Label5Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\5.html');
end;
procedure TForm3.Label6Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\7.html');
end;
procedure TForm3.Label7Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\4.html'); end;
procedure TForm3.Label8Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\6.html');
end;
procedure TForm3.Label9Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\8.html');
end;
procedure TForm3.Label2Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\9.html');
end;
procedure TForm3.Label10Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\10.html');
end;
procedure TForm3.Label11Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\11.html');
end;
procedure TForm3.Label12Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\12.html');
end;
procedure TForm3.Label13Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\13.html');
end;
procedure TForm3.Label14Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\14.html');
end;
procedure TForm3.Label15Click(Sender: TObject);
begin
panel2.Visible:=false;
panel1.Visible:=true;
webbrowser1.Navigate(getcurrentdir+'\123\15.html');
end;
end.
Листинг4. Практикалық бөлім (негізгі оқиғалар)
procedure TForm5.FormCreate(Sender: TObject);
begin
Form5.Width:=690;
form5.Height:=590;
image1.Width:=687;
image1.Height:=585;
end;
procedure TForm5.SpeedButton2Click(Sender: TObject);
begin
form5.Hide;
form2.show;
end;
procedure TForm5.SpeedButton3Click(Sender: TObject);
begin
form5.Hide;
form9.show;
end;
procedure TForm5.SpeedButton4Click(Sender: TObject);
begin
form5.Hide;
form10.show;
end;
procedure TForm5.SpeedButton5Click(Sender: TObject);
begin
form5.Hide;
form1.show;
end;
procedure TForm5.SpeedButton6Click(Sender: TObject);
begin
form5.Hide;
form11.show;
end;
procedure TForm5.SpeedButton7Click(Sender: TObject);
begin
form5.Hide;
form12.show;
end;
procedure TForm5.SpeedButton8Click(Sender: TObject);
begin
form5.Hide;
form13.show;
end;
end.
Листинг5. Мамандығым – мақтанышым (негізгі оқиғалар)
procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
form9.Hide;
form5.show;
end;
procedure TForm9.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:=extractfilepath(application.ExeName)+'K11M1G.swf';
end;
end.
Листинг6. Қазақстанның даму стратегиясы (негізгі оқиғалар)
procedure TForm10.SpeedButton1Click(Sender: TObject);
begin
form10.Hide;
form5.show;
end;
procedure TForm10.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:=extractfilepath(application.ExeName)+'K11M2G.swf';
end;
end.
Листинг7. Қазақстан Парламенті (негізгі оқиғалар)
procedure TForm1.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:=extractfilepath(application.ExeName)+'K11M3G.swf';
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form1.Hide;
form5.show;
end;
end.
Листинг8. Қазақ өнері. Театрға саяхат (негізгі оқиғалар)
procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
form11.Hide;
form5.show;
end;
procedure TForm11.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:=extractfilepath(application.ExeName)+'K11M4G.swf';
end;
end.
Листинг9. Біздің еліміздегі оқу жүйесі (негізгі оқиғалар)
procedure TForm12.SpeedButton1Click(Sender: TObject);
begin
form12.Hide;
form5.show;
end;
procedure TForm12.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:=extractfilepath(application.ExeName)+'K11M5G.swf';
end;
end.
Листинг10. Қазақстанның көрікті жері (негізгі оқиғалар)
procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
form13.Hide;
form5.show;
end;
procedure TForm13.FormCreate(Sender: TObject);
begin
ShockwaveFlash1.Movie:=extractfilepath(application.ExeName)+'K10M5G.swf';
end;
end.
Листинг11. Бейне (негізгі оқиғалар)
procedure TForm7.FormCreate(Sender: TObject);
begin
Form7.Width:=700;
form7.Height:=600;
image1.Width:=697;
image1.Height:=595;
end;
procedure TForm7.Label2Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Основы Delphi.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
form7.Hide;
form2.show;end;
procedure TForm7.SpeedButton3Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Акпарат угымы.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton4Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\кауипсиздик ережесі.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Операциялык жуйе.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton11Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Windows XP ди компьютерге орнату.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton7Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Компьютер алдында дурыс отыру.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton8Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Компьютер гимнастикасы.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton9Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Компьютерге драйвер орнату.mp4'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm7.SpeedButton10Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\12345\Компьютерге казак тилин косу.mp4'), nil, nil, SW_SHOWNORMAL);
end; end.
Листинг12. Презентациялар (негізгі оқиғалар)
procedure TForm6.FormCreate(Sender: TObject);
begin
Form6.Width:=1200;
form6.Height:=600;
image1.Width:=1197;
image1.Height:=595;
end;
procedure TForm6.SpeedButton9Click(Sender: TObject);
begin
form6.Hide;
form2.show;
end;
procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Дербес компьютер.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton2Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Жалгаулар тури.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton3Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Стиль турлери.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton4Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Есептеуиш техникасынын даму тарихы.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton5Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Создание кроссворда в MS Word.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton6Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\презентация word.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton7Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Фразеологизмдер.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton8Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Кирме создер.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton11Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Акпараттын олшем бирилктери.ppt'), nil, nil, SW_SHOWNORMAL);
end;
procedure TForm6.SpeedButton12Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'\1234\Диалект жане касиби создер.ppt'), nil, nil, SW_SHOWNORMAL);
end; end.
Листинг13. Сөздік (негізгі оқиғалар)
procedure TForm4.FormCreate(Sender: TObject);
begin
Form4.Width:=800;
form4.Height:=600;
image1.Width:=797;
image1.Height:=595;
WebBrowser1.Navigate(GetCurrentDir+'\123\sozdik.html');
end;
procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
form4.Hide;
form2.show;
end;end.
Листинг14. Тест (негізгі оқиғалар)
procedure TForm2.SpeedButton6Click(Sender: TObject);
begin
ShellExecute(handle, nil, PChar(ExtractFilePath(ParamStr(0))+'/123456/MyTestStudent.exe'), nil, nil, SW_SHOWNORMAL);
end; end.
Листинг15. Авторлар ұжымы (негізгі оқиғалар)
procedure TForm8.SpeedButton2Click(Sender: TObject);
begin
form8.Hide;
form2.show;
end;
Листинг16. Пайдаланушыға нұсқау (негізгі оқиғалар)
procedure TForm14.SpeedButton1Click(Sender: TObject);
begin
form14.Hide;
form2.show;
end; end.
*Қасым Б., Османова З.
Кәсіби қазақ тілі.
[2] Object Pascal. СПб: БХВ - Петербург, 2002.
|
|
|
© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.
|