MS access-ті үйренуде компьютерлiк оқыту жүйесiн жасау негiздерi

Автор работы: Пользователь скрыл имя, 02 Июня 2015 в 21:41, курсовая работа

Описание работы

ХХ ғасырдың ортасында информацияны өңдеуді автоматтандыру ісінің қажеттілігі (көбінесе әскери талаптарға сай) электрондық техника мен технологияның қарқынды дамуына себепші болды.
Информациялық қоғамға көшу перспективалары әлеуметтік, құқықтық және техникалық сипаттағы көптеген мәселелерге қозғау салуда. Мысалы, өндірістік роботты пайдалану адамның қатысуна бағдарланған бүгінгі технологияны толық өзгертуге әкеледі. Мұндай технологияны жасау ісі басталып та кетті. Жаңа қоғам мүшесін өз бетінше өмір сүруге дайындау да күрт өзгерді. Оқытудың жаңа түрлерін жасаудағы ізденіс жұмыстары да басталып келеді

Содержание работы

КIРIСПЕ…………………………………………………………………..
1 MS access-ті үйренуде КОМПЬЮТЕРДІ ПАЙДАЛАНУДЫҢ АЛҒЫШАРТТАРЫ.................................................
1.1 MS access-ті үйренудің теориялық негiздерi.....................................................................................................
1.2 MS access-ті үйренуде компьютердi пайдаланудың алғышарттары...............................................
1.3 MS access-ті үйренуде компьютерлiк оқыту жүйелерiн пайдалану......................................................................
1.4 MS access-ті үйренуде компьютерлiк оқыту жүйесінiң құрылымы......................................................................
2 MS access-ті үйренуде КОМПЬЮТЕРЛіК ОҚЫТУ ЖҮЙЕСіН ДАЯРЛАУ ТЕХНОЛОГИЯСЫ.............................................
2.1 MS access-ті үйренуде компьютерлiк оқыту жүйесiн жасау негiздерi................................................................
2.2 MS access-ті үйренуде компьютерлiк оқыту жүйесiн оқу процесiнде пайдалану....................................
2.3 Компьютерлiк жүйенi пайдалануға нұсқау.........................................................................................................
3 Экономикалық бөлім...................................................................
3.1 Жүйені құруға және енгізуге кеткен шығын есептеулері..............................................................................................
3.2 Экономикалық сферасының есептеулері................
4 БИЗНЕС-ЖОСПАР БӨЛІМІ...................................................................
ҚОРЫТЫНДЫ…………………………………………………............….
Түйін..............................................................................................................
ҚОСЫМША.......……………………………………………......………….
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР...................

Скачать архив (1.01 Мб) Сколько стоит заказать работу?

Файлы: 1 файл

Дип.-Microsoft-Access-ті-Visual-Basic-те-үйрену-үшін-электрондық-анықтама-құру.doc

— 1.43 Мб (Скачать файл)

Жыл бойындағы сату көлемінің мөлшері 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. басқарушылық персонал үшін қосымша жағдайлар ( жеңілдіктер, қосымша ақы, жолдамалар жэне т.б.), демалыс үйлеріне жыл сайынғы жеңілдікпен жолдамалар жоспарланып отыр.

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

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

Дипломдық жұмыс 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% жеңілдік ставкасымен алуға болады.

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

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

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

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

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

ҚОРЫТЫНДЫ

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

Бұл көзқарастар еліміздегі осы бағыттағы жұмыстарды талдау, жинақтау, әртүрлі ғылыми және ғылыми-практикалық конференцияларда талдаулар ұйымдастыру нәтижесінен келіп шыққан. Мысалы, дәстүрлі оқулықтардың парақ түсінің ақ болуы, ал шрифтің майда емес не өте ірі емес және тек қара түсті болуы сияқты элетронды оқулықтарды көркемдеу жұмыстарын да қандай-да бір келісілген шарттар болуы міндетті. Ал мектептерге тартылған электронды оқулықтардағы парақтың фондық түсі офистік ашық жасыл түс не ашық көгілдір түс болуы жайдан жай емес, ал басым көпшілігі ақ фондық түске қара шрифтерді қолданған. Осындай қорытындылардан кейін біз 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

If TreeView1.Nodes.Item(2).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema11.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema11.rtf"

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

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

If TreeView1.Nodes.Item(5).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema14.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema14.rtf"

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

If TreeView1.Nodes.Item(7).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema16.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema16.rtf"

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

If TreeView1.Nodes.Item(9).Selected Then

If RichTextBox1.FileName <> s + "\Tema\surak1.rtf" Then

loadtema RichTextBox1, s + "\Tema\surak1.rtf"

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

If TreeView1.Nodes.Item(11).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema21.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema21.rtf"

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

If TreeView1.Nodes.Item(13).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema23.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema23.rtf"

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

If TreeView1.Nodes.Item(15).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema25.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema25.rtf"

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

If TreeView1.Nodes.Item(17).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema27.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema27.rtf"

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

If TreeView1.Nodes.Item(19).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema3.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema3.rtf"

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

If TreeView1.Nodes.Item(21).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema32.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema32.rtf"

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

If TreeView1.Nodes.Item(23).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema34.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema34.rtf"

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

If TreeView1.Nodes.Item(25).Selected Then

If RichTextBox1.FileName <> s + "\Tema\surak3.rtf" Then

loadtema RichTextBox1, s + "\Tema\surak3.rtf"

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

If TreeView1.Nodes.Item(27).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema41.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema41.rtf"

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

If TreeView1.Nodes.Item(29).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema43.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema43.rtf"

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

If TreeView1.Nodes.Item(31).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema45.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema45.rtf"

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

If TreeView1.Nodes.Item(33).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema47.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema47.rtf"

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

If TreeView1.Nodes.Item(35).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema49.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema49.rtf"

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

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

If TreeView1.Nodes.Item(38).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema51.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema51.rtf"

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

If TreeView1.Nodes.Item(40).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema53.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema53.rtf"

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

If TreeView1.Nodes.Item(42).Selected Then

If RichTextBox1.FileName <> s + "\Tema\tema55.rtf" Then

loadtema RichTextBox1, s + "\Tema\tema55.rtf"

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

If TreeView1.Nodes.Item(44).Selected Then

If RichTextBox1.FileName <> s + "\Tema\surak5.rtf" Then

loadtema RichTextBox1, s + "\Tema\surak5.rtf"

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

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 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

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

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

Информация о работе MS access-ті үйренуде компьютерлiк оқыту жүйесiн жасау негiздерi