Visual Basic-те тест ??ру

Visual Basic   баCдарламасы арKылы тест Kaру ‰дістемесіVisual Basic   баCдарламасы арKылы тест Kaру баCдарламасы тек Kана информатика п‰нінен Cана емес басKа п‰ндер мысалы: география, KазаKстан тарихы, математика, химия т.б п‰ндер бойыншада дайын баCдарламаны пайдаланып тест KaруCа болады. Бaл тесті Kaруда арнайы информатика п‰нініS мaCалімі немесе программалаушы болу міндетті емес тек Kана компьютерде Visual Basic баCдарламау ортасы орнатылCан болса  информатика п‰нініS мaCалімініS баCыт сілтеуімен ‰рбір мaCалім ™зіне оKушылардан тест алу баCдарламасын жасауына болады.Тест алу баCдарламасын Kaру мына ‰рекеттерді жасаймыз:    informatica атты KапшыK Kaрып, оны С- дискісіне саKтаймыз, егер сіз басKа ат KойCыSыз келсе ол да болады біраK баCдарлама ішіне кіріп Kай жерде informatica жазылCан болса соCан с‰йкес ™зіSіздіS KойCан атыSызCа ™згертесіз.    Блокнот баCдарламасын ашып оCан ретімен сaраKтарыSызды жазасыз. €р сaраK бір KатарCа жазылады. АралыK интервал тастаудыS Kажеті жоK. БарлыK сaраKтарды жазып болCан соS блокнотты вопр деп ат Kойып informatica KапшыCына саKтайсыз.    ТаCыда блокнот баCдарламасын ашып оCан ретімен жауаптарыSызды жазасыз. €р жауап бір KатарCа жазылады. АралыK интервал тастаудыS Kажеті жоK. БарлыK сaраKтарды жазып болCан соS блокнотты потв деп ат Kойып informatica KапшыCына саKтайсыз.    ТаCыда блокнот баCдарламасын ашып оCан ретімен дaрыс жауаптарды цифрмен жазасыз. €р жауап бір KатарCа жазылады. Дaрыс жауаптар цифрмен жазылады.Мысалы:1.3.2.3АралыK интервал тастаудыS Kажеті жоK. БарлыK дaрыс жауаптарды жазып болCан соS блокнотты отв деп ат Kойып informatica KапшыCына саKтайсыз.    ТаCыда блокнот баCдарламасын ашып оCан ештеSе жазбаймыз. Блокнотты итоги деп ат Kойып informatica KапшыCына саKтайсыз. Бaлай ету себебіміз оKушы тест тапсырCанда аты-ж™ні, алCан балы осы блокнотта саKтаулы болады оны кейін ашып к™руге болады.Ескерту бaл тест 20 сaраK ж‰не 3 жауап болатындай етіп жасалCан. Егер сіз оны ™згерткіSіз келсе 20 орнына 30 ж‰не 3 орнына 5 Kойып баCдарлама ішіне кіріп ™згертесіз.
Келесі ‰рекетіміз  Visual Basic  баCдарламасын іске Kосып,  мынадай ‰рекеттер жасаймыз: 4-текстік ™ріс орналастырып Kасиеттер терезесіндегі Text текстік ™ріс ішін оS жаCындаCы Text1, Text2,Text3,Text4 жазуларын ™шіру арKылы тазалапKоямыз.Мысалы:    6 батырманы формаCа орналастырамыз.ОларCа ‰рKайсысына Kасиеті арKылы жазу жазамыз.Мысалы:
Мынадай: СaраKтар, Жабу, Дaрыс жауапты тап ,1, 2, 3. €р батырманыS атKаратын Kызметі бар СaраKтар батырмасын шерткенде 1-ші текстік ™ріске сaраK шыCады. 2, 3,4-ші текстік ™рістерге жауаптар шыCады.1,2,3 батырмалары Kай сaраKты дaрыс десеS сол кезде шерту керек.    Суреттер орналастырамыз Image сайманын орналастырып, Picture Kасиеті арKылы KапшыKтардан сурет ‰келіп Kоямыз.Сурет Kоймасада болады.View менюіне кіріп мына баCдарламаны жазуCа кірісеміз.Dim a(20) As StringDim Otw(20, 3) As StringDim d As StringDim t As IntegerDim reg As IntegerDim notw As IntegerDim np(20) As IntegerDim s, otm As IntegerDim n, ss As StringDim nam, fiz As String
Private Sub Command1_Click()Call nachEnd Sub
Private Sub Command2_Click()notw = 1If notw = np(t) Then s = s + 1Call good Text1.Text = “aa?ii” Else Text1.Text = “ia aa?ii”Else: Call badEnd IfCall nach
End Sub
Private Sub Command3_Click()notw = 2If notw = np(t) Then s = s + 1Text1.Text = “aa?ii” Else Text1.Text = “ia aa?ii”Call good Text1.Text = “aa?ii” Else Text1.Text = “ia aa?ii”Else: Call badEnd IfCall nach
End Sub
Private Sub Command4_Click()notw = 3If notw = np(t) Then s = s + 1 Text1.Text = “aa?ii” Else Text1.Text = “ia aa?ii”Call good Text1.Text = “aa?ii” Else Text1.Text = “ia aa?ii”Else: Call badEnd IfCall nach
End Sub
Private Sub Command5_Click()Unload Form1End Sub
Private Sub Form_Load()Open “c:/informatica/вопр.txt” For Input As #1For k = 1 To 20Line Input #1, a(k)Next kClose #1Open “c:/informatica/отв.txt” For Input As #1For k = 1 To 20For p = 1 To 3Line Input #1, Otw(k, p)Next p, kClose #1Open “c:/informatica/потв.txt” For Input As #1For k = 1 To 20Input #1, np(k)Next kClose #1t = 0s = 0nam = InputBox(“Аты -жµні ді енгіз”)End Sub
Sub nach()t = t + 1If t > 20 ThenCall otmetkad = sss = otmForm2.ShowForm2.Print “Тест Kорытындысы:”Form2.PrintForm2.Print namForm2.PrintForm2.Print “БарлыK сaраKтар саны – “, 20Form2.Print “Дaрыс жауаптар – “; dForm2.Print “СаCан Kойылатын баCа -”, ssOpen “c:/informatica/итоги.txt” For Append As #1Print #1, nam
Print #1, “Общее количество вопросов – “, 20Print #1, “Количество правильных ответов – “; dPrint #1, “Ваша оценка -”, ssClose #1t = 0s = 0Call nach
End IfIf t = 66 Thenfiz = tText1.Text = a(t)Text2.Text = “”Text3.Text = “”Text4.Text = “”
Picture1.Picture = LoadPicture(“c:/informatika/ris/r” + fiz + “1.jpg”)Picture2.Picture = LoadPicture(“c:/informatika/ris/r” + fiz + “2.jpg”)Picture3.Picture = LoadPicture(“c:/informatika/ris/r” + fiz + “3.jpg”)ElseText1.Text = a(t)Text2.Text = Otw(t, 1)Text3.Text = Otw(t, 2)Text4.Text = Otw(t, 3)
End If1 For k = 1 To 100Next kEnd SubSub otmetka()If s >= 18 Then otm = 5If s >= 15 And s < 18 Then otm = 4If s < 15 And s >= 10 Then otm = 3If s < 10 Then otm = 2
End Sub
Private Sub Command1_Click()
End SubОсындай жоCарыдаCы процедураларды компьютер ™зі жазады. Біз аралыCындаCы баCдарламаларды жазып шыCамыз. Осы программаны бір жасап алсаK. БасKа п‰ннен тест Kaру _шін алдында айтKанымыздай informatica атты KапшыK атын ™згертіп, блокнотKа басKа сaраK, жауаптарды, дaрыс жауаптарды жазып шыCамыз. Жасап к™ріSіздер оKу процесінде KолдануCа Kолайлы.