Кiрiспе ms access-ті үйренуде компьютерді пайдаланудың алғышарттары

Есеп

Модуль

• 
  Кестедегі берілгендерді іріктеп алу
  
• 
  Контексті мәзірлер
  
• 
  Кесте жазбаларын көшіру
  
• 
  Сұрақтар мен тапсырмалар
  

Сол сияқты Сұраныстар пунктін таңдап, оның ішкі мазмұнын көруге болады. Олар:

• 
  Қарапайым сұраныстар
  
• 
  Сұраныс конструкторы
  
• 
  Өрнек құрастырушы
  
• 
  Айқасқан сұраныс
  
• 
  Қайталанатын жазбаларды таңдау
  
• 
  Сұрақтар мен тапсырмалар
  

Келтірілген мәзірлердің анықтамалығының мазмұндарымен танысу қолданушыны жалықтырмайтындай ыңғайлы түрде беріліп отыр. Мысалы, 5-суретте конструктор режимінде Сұраныс құру іс-әрекеттерінің барлық мүмкіндігі қамтылған анықтамалық бет келтірілген.

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

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

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

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

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

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

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

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

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

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

Скомп. = 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

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

Мұндағы Зп.разр.=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

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

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

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

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

Квн = К * d * q,

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

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

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

Квн = 5*16*150=12000

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

Мұндағы

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

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

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

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

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

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

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

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

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

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

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

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

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

мұнда

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

Бизнес-жоспар тақырыбы: Электронды анықтамалық құру .

Мекен-жайы: ОҚО, Төлеби ауданы, Тоғыс ауылы, Қонаев көшесі 1А

Кіммен жасалған: Оразалиев Арапбай Жандарович

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

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

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

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

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

Қазіргі кезде мекемелер саласы адамзат өмірінде ең керекті әрі маңызды орын алатыны бәрімізге белгілі. Елімізде жыл сайын жаңа бағдарламалармен, жаңа сұраныстар, ұсыныстар әрі тиімді операциялары бар мекеме салалары көбеюде. Жоғары оқу орындарында информатика мамандығының “Информатика” курсы біраз программалық жабдықтарды қамтиды. Қазiргi кезде объекттіленген бағдарланған программалау орталарын көптеп дайындалуы және олардың түрлі нұсқаларының пайда болуы курс мазмұнының да, оны оқыту әдiстемесiнiң де өзгерiп отыруына әкелуде. Осының әсерiнен Visual Basic курсын оқытудың түрл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.Бизнесте жұмыс істейтін қызметкерлер туралы мэлімет: Қызметкердің аты-жөні: Ыдырысбаев Дархан Уалиханұлы Жасы: 24 Мекен-жайы: «Шығыс» мөлтек ауданы, 51-49 Телефон: 52-62-82

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

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

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

ӨНІМНІҢ СИПАТТАМАСЫ

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

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

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

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

МАРКЕТИНГ ЖОСПАРЫ

Бұл бағдарламалық өнімнің нарығы өсуші. Себебі, университет, колледж студент және де өз білімін толықтырушылары да бұл бағдарламаға ұсыныс береді.

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

Осы мерзімге анық тапсырыс беруші «Университет» болып табылады.

Комплексті техникалық құралдарға қажетті қаражат: Компьютер бағасы - 120000 тенге Принтердің бағасы -46000 тенге СD-R дискісінің бағасы-150 теңге Дискетаның құны -100 теңге.

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

ҚАРЖЫЛЫҚ ЖОСПАР

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

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

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

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

Бұл көзқарастар еліміздегі осы бағыттағы жұмыстарды талдау, жинақтау, әртүрлі ғылыми және ғылыми-практикалық конференцияларда талдаулар ұйымдастыру нәтижесінен келіп шыққан. Мысалы, дәстүрлі оқулықтардың парақ түсінің ақ болуы, ал шрифтің майда емес не өте ірі емес және тек қара түсті болуы сияқты элетронды оқулықтарды көркемдеу жұмыстарын да қандай-да бір келісілген шарттар болуы міндетті. Ал мектептерге тартылған электронды оқулықтардағы парақтың фондық түсі офистік ашық жасыл түс не ашық көгілдір түс болуы жайдан жай емес, ал басым көпшілігі ақ фондық түске қара шрифтерді қолданған. Осындай қорытындылардан кейін біз VB-те даярланған Access электронды оқу құралын дәстүрлі құрал түстерімен ұсынып отырмыз. Ал мазмұны әрине баспаханалық өнімнен өзгеше. Компьютердің экран сыйымдылығы және компьютерлік технологиялардың мүмкіндігін қолдана отырып, мәтіндер, негізгі ұғымдар, арнайы тараулар мен тақырыптар атаулары ғана экранда шығатындай, ал қажет жағдайда ол толық мазмұнға дейін ашылатындай түрде даярланды. Мұндай технология Web-беттер мен Web-түйіндерді даярлауда қолданылатын гиперсілтемелік технология деп аталады. Бұл жұмыста гиперсілтемелер Access объектілері және олармен жұмыстың анықтамалығын құруда қолданылды.

Жұмысты даярлау барысында Visual Basic ортасының операторларын толық игеру, көптеген компоненттермен танысу, оларға программалық кодтар даярлау, сондай-ақ Access берілгендер қорымен жұмыстар жүргізілді.

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

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

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

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

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

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

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

По предмету ««Microsoft Access»».

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

Object of research: «Microsoft Access» 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 Visual Basic Is created.

Scope: In the maximum(supreme) and in average educational institutions
Қосымша
Программа листингі:

Private s As String Private Sub loadtema(rtb As RichTextBox, s As String) rtb.LoadFile (s) fonttext rtb End Sub Private Sub fonttext(rtb As RichTextBox) rtb.SelLength = 5000 rtb.SelFontName = "Times/Kazakh" rtb.SelFontSize = 12 rtb.SelLength = 0 End Sub Private Sub Command1_Click() Unload Me Form5.Show End Sub Private Sub Command2_Click() frmAbout.Show vbModal, Form1 End Sub Private Sub Command3_Click() Form1.Hide Form2.Show vbModal, Form1 End Sub Private Sub Command4_Click() Form4.Show End Sub Private Sub Form_Load() TreeView1.Nodes.Add , , "Tema1", "Êåñòåëåð.Îëàðäû êóðó ", 1 TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòå ðåæèìi", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "Êîíñòðóêòîð ðåæèìi", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "Îðíàëàñòûðó øåáåði", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåð øåáåði", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåðäi èìïîðòòàó", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåðìåí áàéëàíûñ ðåæèìi", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "Êåñòåëåð àðàñûíäà¹û áàéëàíûñòàðäû º½ðó", 2 TreeView1.Nodes.Add "Tema1", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2 TreeView1.Nodes.Add , , "Tema2", "Êåñòåìåí æóìûñ iñòåó ", 1 TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòåëåðäåãi áåðiëãåíäåðäi iðiêòåï àëó (ôèëüòðëåó)", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , "Êîíòåêñòi ì¸çiðëåð", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòå æàçáàëààðûí ê¼øiðó", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòå ¼ðiñòåðií ê¼øiðó", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , "µÿøûºòàðäû» òiêá½ðûøòû á¼ëiãií ê¼øiðó", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòåëååðäi ê¼øiðó", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , "Êåñòåëåðäi æàñûðó ", 2 TreeView1.Nodes.Add "Tema2", tvwChild, , " Ñóðàêòàð ìåí òàïñûðìàëàð", 2 TreeView1.Nodes.Add , , "Tema3", "Ñóðàíûñòàð", 1 TreeView1.Nodes.Add "Tema3", tvwChild, , "²àðàïàéûì ñ½ðàíûñ", 2 TreeView1.Nodes.Add "Tema3", tvwChild, , "ѽðàíûñ êîíñòðóêòîðû", 2 TreeView1.Nodes.Add "Tema3", tvwChild, , "´ðíåê º½ðàñòûðóøû", 2 TreeView1.Nodes.Add "Tema3", tvwChild, , "Àéºàñºàí ñ½ðàíûñ", 2 TreeView1.Nodes.Add "Tema3", tvwChild, , "²àéòàëàíàòûí æàçáàëàðäû òà»äàó", 2 TreeView1.Nodes.Add "Tema3", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2 TreeView1.Nodes.Add , , "Tema4", "Ôîðìàëàð ", 1 TreeView1.Nodes.Add "Tema4", tvwChild, , "Àâòîôîðìàëàð", 2 TreeView1.Nodes.Add "Tema4", tvwChild, , "Ôîðìà øåáåði ìåí Êîíñòðóêòîðû", 2 TreeView1.Nodes.Add "Tema4", tvwChild, "tema4.3", "Áàñºàðó ýëåìåíòòåði", 1 TreeView1.Nodes.Add "tema4.3", tvwChild, , "Îáúåêòiëåð ðàìàëàðû", 2 TreeView1.Nodes.Add "tema4.3", tvwChild, , "Àéûðûï-ºîñºûøòàðäû òîïòàñòûðó", 2 TreeView1.Nodes.Add "tema4.3", tvwChild, , "Áà¹ûíûøòû ôîðìà", 2 TreeView1.Nodes.Add "tema4.3", tvwChild, , "Òiçiìäåð", 2 TreeView1.Nodes.Add "tema4.3", tvwChild, , "Ôîðìàäà¹û içäåó", 2 TreeView1.Nodes.Add "tema4.3", tvwChild, , "Ò¾éìåëi ôîðìàëàðäû ò¸ðòiïòåóøi", 2 TreeView1.Nodes.Add "Tema4", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2 TreeView1.Nodes.Add , , "Tema5", "Åñåïòåð", 1 TreeView1.Nodes.Add "Tema5", tvwChild, , "Àâòîåñåïòåð", 2 TreeView1.Nodes.Add "Tema5", tvwChild, , "Åñåï Êîíñòðóêòîðû", 2 TreeView1.Nodes.Add "Tema5", tvwChild, , "Ñîðòòàó æ¸íå òîïòàñòûðó", 2 TreeView1.Nodes.Add "Tema5", tvwChild, , "Åñåïòåð øåáåði", 2 TreeView1.Nodes.Add "Tema5", tvwChild, , "Äèàãðàììà ñàëó", 2 TreeView1.Nodes.Add "Tema5", tvwChild, , "Áåðiëãåíäåðäi áàñïà¹à øû¹àðó", 2 TreeView1.Nodes.Add "Tema5", tvwChild, , "ѽðàºòàð ìåí òàïñûðìàëàð", 2 s = App.Path RichTextBox1.LoadFile (s + "\Tema\tema01.rtf") fonttext RichTextBox1 End Sub Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node) If TreeView1.Nodes.Item(1).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema01.rtf" Then loadtema RichTextBox1, s + "\Tema\tema01.rtf" End If End If If TreeView1.Nodes.Item(2).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema11.rtf" Then loadtema RichTextBox1, s + "\Tema\tema11.rtf" End If End If If TreeView1.Nodes.Item(3).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema12.rtf" Then loadtema RichTextBox1, s + "\Tema\tema12.rtf" End If End If If TreeView1.Nodes.Item(4).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema13-1.rtf" Then loadtema RichTextBox1, s + "\Tema\tema13-1.rtf" End If End If If TreeView1.Nodes.Item(5).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema14.rtf" Then loadtema RichTextBox1, s + "\Tema\tema14.rtf" End If End If If TreeView1.Nodes.Item(6).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema15.rtf" Then loadtema RichTextBox1, s + "\Tema\tema15.rtf" End If End If If TreeView1.Nodes.Item(7).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema16.rtf" Then loadtema RichTextBox1, s + "\Tema\tema16.rtf" End If End If If TreeView1.Nodes.Item(8).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema17.rtf" Then loadtema RichTextBox1, s + "\Tema\tema17.rtf" End If End If If TreeView1.Nodes.Item(9).Selected Then If RichTextBox1.FileName <> s + "\Tema\surak1.rtf" Then loadtema RichTextBox1, s + "\Tema\surak1.rtf" End If End If If TreeView1.Nodes.Item(10).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema2.rtf" Then loadtema RichTextBox1, s + "\Tema\tema2.rtf" End If End If If TreeView1.Nodes.Item(11).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema21.rtf" Then loadtema RichTextBox1, s + "\Tema\tema21.rtf" End If End If If TreeView1.Nodes.Item(12).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema22.rtf" Then loadtema RichTextBox1, s + "\Tema\tema22.rtf" End If End If If TreeView1.Nodes.Item(13).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema23.rtf" Then loadtema RichTextBox1, s + "\Tema\tema23.rtf" End If End If If TreeView1.Nodes.Item(14).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema24.rtf" Then loadtema RichTextBox1, s + "\Tema\tema24.rtf" End If End If If TreeView1.Nodes.Item(15).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema25.rtf" Then loadtema RichTextBox1, s + "\Tema\tema25.rtf" End If End If If TreeView1.Nodes.Item(16).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema26.rtf" Then loadtema RichTextBox1, s + "\Tema\tema26.rtf" End If End If If TreeView1.Nodes.Item(17).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema27.rtf" Then loadtema RichTextBox1, s + "\Tema\tema27.rtf" End If End If If TreeView1.Nodes.Item(18).Selected Then If RichTextBox1.FileName <> s + "\Tema\surak2.rtf" Then loadtema RichTextBox1, s + "\Tema\surak2.rtf" End If End If If TreeView1.Nodes.Item(19).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema3.rtf" Then loadtema RichTextBox1, s + "\Tema\tema3.rtf" End If End If If TreeView1.Nodes.Item(20).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema31.rtf" Then loadtema RichTextBox1, s + "\Tema\tema31.rtf" End If End If If TreeView1.Nodes.Item(21).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema32.rtf" Then loadtema RichTextBox1, s + "\Tema\tema32.rtf" End If End If If TreeView1.Nodes.Item(22).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema33.rtf" Then loadtema RichTextBox1, s + "\Tema\tema33.rtf" End If End If If TreeView1.Nodes.Item(23).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema34.rtf" Then loadtema RichTextBox1, s + "\Tema\tema34.rtf" End If End If If TreeView1.Nodes.Item(24).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema35.rtf" Then loadtema RichTextBox1, s + "\Tema\tema35.rtf" End If End If If TreeView1.Nodes.Item(25).Selected Then If RichTextBox1.FileName <> s + "\Tema\surak3.rtf" Then loadtema RichTextBox1, s + "\Tema\surak3.rtf" End If End If If TreeView1.Nodes.Item(26).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema4.rtf" Then loadtema RichTextBox1, s + "\Tema\tema4.rtf" End If End If If TreeView1.Nodes.Item(27).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema41.rtf" Then loadtema RichTextBox1, s + "\Tema\tema41.rtf" End If End If If TreeView1.Nodes.Item(28).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema42.rtf" Then loadtema RichTextBox1, s + "\Tema\tema42.rtf" End If End If If TreeView1.Nodes.Item(29).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema43.rtf" Then loadtema RichTextBox1, s + "\Tema\tema43.rtf" End If End If If TreeView1.Nodes.Item(30).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema44.rtf" Then loadtema RichTextBox1, s + "\Tema\tema44.rtf" End If End If If TreeView1.Nodes.Item(31).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema45.rtf" Then loadtema RichTextBox1, s + "\Tema\tema45.rtf" End If End If If TreeView1.Nodes.Item(32).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema46.rtf" Then loadtema RichTextBox1, s + "\Tema\tema46.rtf" End If End If If TreeView1.Nodes.Item(33).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema47.rtf" Then loadtema RichTextBox1, s + "\Tema\tema47.rtf" End If End If If TreeView1.Nodes.Item(34).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema48.rtf" Then loadtema RichTextBox1, s + "\Tema\tema48.rtf" End If End If If TreeView1.Nodes.Item(35).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema49.rtf" Then loadtema RichTextBox1, s + "\Tema\tema49.rtf" End If End If If TreeView1.Nodes.Item(36).Selected Then If RichTextBox1.FileName <> s + "\Tema\surak4.rtf" Then loadtema RichTextBox1, s + "\Tema\surak4.rtf" End If End If If TreeView1.Nodes.Item(37).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema5-1.rtf" Then loadtema RichTextBox1, s + "\Tema\tema5-1.rtf" End If End If If TreeView1.Nodes.Item(38).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema51.rtf" Then loadtema RichTextBox1, s + "\Tema\tema51.rtf" End If End If If TreeView1.Nodes.Item(39).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema52.rtf" Then loadtema RichTextBox1, s + "\Tema\tema52.rtf" End If End If If TreeView1.Nodes.Item(40).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema53.rtf" Then loadtema RichTextBox1, s + "\Tema\tema53.rtf" End If End If If TreeView1.Nodes.Item(41).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema54.rtf" Then loadtema RichTextBox1, s + "\Tema\tema54.rtf" End If End If If TreeView1.Nodes.Item(42).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema55.rtf" Then loadtema RichTextBox1, s + "\Tema\tema55.rtf" End If End If If TreeView1.Nodes.Item(43).Selected Then If RichTextBox1.FileName <> s + "\Tema\tema56.rtf" Then loadtema RichTextBox1, s + "\Tema\tema56.rtf" End If End If If TreeView1.Nodes.Item(44).Selected Then If RichTextBox1.FileName <> s + "\Tema\surak5.rtf" Then loadtema RichTextBox1, s + "\Tema\surak5.rtf" End If End If End Sub Private a() As String Private b() As String Private c(4) As Integer Private s As String Private s2 As String Private k As Integer Private j As Integer Private ball As Integer Private Sub randomidx() Dim i As Integer Dim f As Integer Dim l As Integer Dim y As Boolean i = 1 Do While i <= 4 f = Int(Rnd * 10) + 1 y = True If f <= 4 Then l = 1 Do While l <= i - 1 If c(l) = f Then y = False l = l + 1 Loop If y Then c(i) = f i = i + 1 End If End If Loop End Sub Private Sub Command2_Click() If Not ((Not Option1.Value) And (Not Option2.Value) And (Not Option3.Value) And (Not Option4.Value)) Then If j < k Then If Option1.Value Then If Option1.Caption = b(j, 1) Then ball = ball + 1 End If If Option2.Value Then If Option2.Caption = b(j, 1) Then ball = ball + 1 End If If Option2.Value Then If Option2.Caption = b(j, 1) Then ball = ball + 1 End If If Option2.Value Then If Option2.Caption = b(j, 1) Then ball = ball + 1 End If j = j + 1 'Text1.Text = CStr(Int(Rnd * 10) + 1) Label2.Caption = CStr(j) + " - ñ½ðàº" Label1.Caption = a(j) randomidx Option1.Caption = b(j, c(1)) Option2.Caption = b(j, c(2)) Option3.Caption = b(j, c(3)) Option4.Caption = b(j, c(4)) Option1.Value = False Option2.Value = False Option3.Value = False Option4.Value = False Else If Option1.Value Then If Option1.Caption = b(j, 1) Then ball = ball + 1 End If If Option2.Value Then If Option2.Caption = b(j, 1) Then ball = ball + 1 End If If Option3.Value Then If Option3.Caption = b(j, 1) Then ball = ball + 1 End If If Option4.Value Then If Option4.Caption = b(j, 1) Then ball = ball + 1 End If Form3.Label1.Caption = "Ñiç " + CStr(k) + " ñ½ðàºòû» " + CStr(ball) + " ñ½ðà¹ûíà ä½ðûñ æàóàï áåðäi»iç" Form3.Show vbModal, Form1 End If End If End Sub Private Sub Form_Load() Dim i As Integer Dim vop As Boolean Dim ot As Boolean ball = 0 ReDim a(50) ReDim b(50, 4) s = App.Path + "\tema\accesstest.txt" k = 0 j = 1 Open s For Input As #1 Do While Not EOF(1) Input #1, s2 If s2 = "\\" Then vop = True ot = False k = k + 1 s2 = "" End If If s2 = "\" Then ot = True vop = False If i = 4 Then i = 0 i = i + 1 s2 = "" End If If vop Then a(k) = a(k) + s2 If ot Then b(k, i) = b(k, i) + s2 'Text2.Text = Text2.Text + "44" + s2 Loop Close #1 Label2.Caption = CStr(j) + " - ñ½ðàº" Label1.Caption = a(j) randomidx Option1.Caption = b(j, c(1)) Option2.Caption = b(j, c(2)) Option3.Caption = b(j, c(3)) Option4.Caption = b(j, c(4)) End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Form_Load() Unload Form2 End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Image1_Click() Form5.Hide Form1.Show End Sub Private Sub Image2_Click() End End Sub

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

1. 
   А.Гончаров.Microsoft Access5.0 в примерах. Санкт-Петарбург. “Питер Пресс”, 1997
   
2. 
   А.Гончаров.Microsoft Access7.0 в примерах. Санкт-Петербург. “Питер Пресс”, 1998
   
3. 
   А.Нейбауэр. Access 7 для занятых .С-Петербург. “Питер Пресс”, 1998
   
4. 
   Ю.Бекаревич,Н.Пушкина. MS Access 2000, за 30 занятий. Санкт-Петербург, “БХВ-Петербург”, 2000
   
5. 
   О.Камардинов. Visual Basic 5.0., “Полиграфия”, Шымкент, 2001ж.
   
6. 
   М.Хановерсон. “Шаг за шагом”. Microsoft Visual Basic 5.0 “эком”; М, 1998.
   
7. 
   Д.Соха и др. Visual Basic 5.0. Минск, 1998.
   
8. 
   С.Браун. Visual Basic 6 (учебный курс). “Питер”, 1999.
   
9. 
   Г.Корнелл. Программирование в среде VB 5.0.Минск, 1998.
   
10. 
    Visual Basic. Руководство и программирования, версия 6.0. Мicrosoft Corporation.
    
11. 
    Башмаков М.А. Разработка компьютерно-обучающих систем и компьютерных учебников. М. 2003.600 с.
    
12. 
    П.И.Образцов. Дидактические аспекты разработки и применения компьютеризованных проектов учебников. -Новосибирск: НГУ,95
    
13. 
    Досжанов Б., Альменаева Р. Қазақ тілінде электрондық оқулықтар мен web-парақтар даярлау әдістері. Информатика негіздері. 2002. N3.
    
14. 
    Нұрғалиева Г.К. Электронды оқулықтар — мұғалім мен оқушылар қызметін ізгілендіру құралы. // Компьютер әлемі. Республикалық журнал. N2, -2002. 20-21-беттер.
    
15. 
    Х.Жантелі. Окытудың компьютерлік программаларын кұру технологиясын жетілдіру. //Халықаралық ғылыми-әдістемелік конференцияның еңбектері. Шымкент.2004. 446-449 б
    
16. 
    Халықова Г және т.б. Электронды оқулықты дайындаудың талаптары. //Халыкаралық ғылыми-әдістемелік конференциясының еңбектері. Шымкент. —2004. -469 б
    
17. 
    С. Робинсон. Microsoft Access 2000. «Питер», 2000
    
18. 
    Аванесов B.C. Тесты в социологическом исследовании.-М.:, 1982.
    
19. 
    А.Сағымбаева. Білімді тексерудің тестілік әдістемесі. "Информатика негіздері" журналы, N2, 2002, -15,26 бет.
    
20. 
    М.Донской. Интернет и пользований интерфейсу //Мир Интернет,1999,К9.
    
21. 
    HTML. Будилов В.А. СПб: Наука и техника, 2001
    
22. 
    17. Лапчик М.П, И.Г.Семакин, Е.К.Хеннер. Методика преподавания информатики. Москва, Издательства Центр Академии, 2001,624с
    
23. 
    Бочкин А.И. Методика преподавания информатики.Учебное пособие. Минск: Вышэйшая школа, 1998 г.
    
24. 
    М.БраунД.Ханикатт. HTML 3.2. Наиболее полное руководство.
    
25. 
    С. Макашарипов. Программирование базы данных на Visual Basic 5 в примерах. «Питер»,1997 г.