Visual Basic-те тест құру

Visual Basic бағдарламасы арқылы тест құру әдістемесі
Visual Basic бағдарламасы арқылы тест құру бағдарламасы тек қана информатика пәнінен ғана емес басқа пәндер мысалы: география, қазақстан тарихы, математика, химия т.б пәндер бойыншада дайын бағдарламаны пайдаланып тест құруға болады. Бұл тесті құруда арнайы информатика пәнінің мұғалімі немесе программалаушы болу міндетті емес тек қана компьютерде Visual Basic бағдарламау ортасы орнатылған болса информатика пәнінің мұғалімінің бағыт сілтеуімен әрбір мұғалім өзіне оқушылардан тест алу бағдарламасын жасауына болады.
Тест алу бағдарламасын құру мына әрекеттерді жасаймыз:
• informatica атты қапшық құрып, оны С- дискісіне сақтаймыз, егер сіз басқа ат қойғыңыз келсе ол да болады бірақ бағдарлама ішіне кіріп қай жерде informatica жазылған болса соған сәйкес өзіңіздің қойған атыңызға өзгертесіз.
• Блокнот бағдарламасын ашып оған ретімен сұрақтарыңызды жазасыз. Әр сұрақ бір қатарға жазылады. Аралық интервал тастаудың қажеті жоқ. Барлық сұрақтарды жазып болған соң блокнотты вопр деп ат қойып informatica қапшығына сақтайсыз.
• Тағыда блокнот бағдарламасын ашып оған ретімен жауаптарыңызды жазасыз. Әр жауап бір қатарға жазылады. Аралық интервал тастаудың қажеті жоқ. Барлық сұрақтарды жазып болған соң блокнотты потв деп ат қойып informatica қапшығына сақтайсыз.
• Тағыда блокнот бағдарламасын ашып оған ретімен дұрыс жауаптарды цифрмен жазасыз. Әр жауап бір қатарға жазылады. Дұрыс жауаптар цифрмен жазылады.
Мысалы:
1.
3.
2.
3…
Аралық интервал тастаудың қажеті жоқ. Барлық дұрыс жауаптарды жазып болған соң блокнотты отв деп ат қойып informatica қапшығына сақтайсыз.
• Тағыда блокнот бағдарламасын ашып оған ештеңе жазбаймыз. Блокнотты итоги деп ат қойып informatica қапшығына сақтайсыз. Бұлай ету себебіміз оқушы тест тапсырғанда аты-жөні, алған балы осы блокнотта сақтаулы болады оны кейін ашып көруге болады.
Ескерту бұл тест 20 сұрақ және 3 жауап болатындай етіп жасалған. Егер сіз оны өзгерткіңіз келсе 20 орнына 30 және 3 орнына 5 қойып бағдарлама ішіне кіріп өзгертесіз.

Келесі әрекетіміз Visual Basic бағдарламасын іске қосып, мынадай әрекеттер жасаймыз: 4-текстік өріс орналастырып қасиеттер терезесіндегі Text текстік өріс ішін оң жағындағы Text1, Text2,Text3,Text4 жазуларын өшіру арқылы тазалап
қоямыз.
Мысалы:
• 6 батырманы формаға орналастырамыз.
Оларға әрқайсысына қасиеті арқылы жазу жазамыз.
Мысалы:

Мынадай: Сұрақтар, Жабу, Дұрыс жауапты тап ,1, 2, 3. Әр батырманың атқаратын қызметі бар Сұрақтар батырмасын шерткенде 1-ші текстік өріске сұрақ шығады. 2, 3,4-ші текстік өрістерге жауаптар шығады.1,2,3 батырмалары қай сұрақты дұрыс десең сол кезде шерту керек.
• Суреттер орналастырамыз Image сайманын орналастырып, Picture қасиеті арқылы қапшықтардан сурет әкеліп қоямыз.Сурет қоймасада болады.
View менюіне кіріп мына бағдарламаны жазуға кірісеміз.
Dim a(20) As String
Dim Otw(20, 3) As String
Dim d As String
Dim t As Integer
Dim reg As Integer
Dim notw As Integer
Dim np(20) As Integer
Dim s, otm As Integer
Dim n, ss As String
Dim nam, fiz As String

Private Sub Command1_Click()
Call nach
End Sub

Private Sub Command2_Click()
notw = 1
If notw = np(t) Then s = s + 1
'Call good 'Text1.Text = "aa?ii" Else Text1.Text = "ia aa?ii"
'Else: Call bad
'End If
Call nach

End Sub

Private Sub Command3_Click()
notw = 2
If 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 bad
'End If
Call nach

End Sub

Private Sub Command4_Click()
notw = 3
If 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 bad
'End If
Call nach

End Sub

Private Sub Command5_Click()
Unload Form1
End Sub

Private Sub Form_Load()
Open "c:/informatica/вопр.txt" For Input As #1
For k = 1 To 20
Line Input #1, a(k)
Next k
Close #1
Open "c:/informatica/отв.txt" For Input As #1
For k = 1 To 20
For p = 1 To 3
Line Input #1, Otw(k, p)
Next p, k
Close #1
Open "c:/informatica/потв.txt" For Input As #1
For k = 1 To 20
Input #1, np(k)
Next k
Close #1
t = 0
s = 0
nam = InputBox("Аты -жµніњді енгіз")
End Sub

Sub nach()
t = t + 1
If t > 20 Then
Call otmetka
d = s
ss = otm
Form2.Show
Form2.Print "Тест қорытындысы:"
Form2.Print
Form2.Print nam
Form2.Print
Form2.Print "Барлық сұрақтар саны - ", 20
Form2.Print "Дұрыс жауаптар - "; d
Form2.Print "Саған қойылатын баға -", ss
Open "c:/informatica/итоги.txt" For Append As #1
Print #1, nam

Print #1, "Общее количество вопросов - ", 20
Print #1, "Количество правильных ответов - "; d
Print #1, "Ваша оценка -", ss
Close #1
t = 0
s = 0
Call nach

End If
If t = 66 Then
fiz = t
Text1.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")
Else
Text1.Text = a(t)
Text2.Text = Otw(t, 1)
Text3.Text = Otw(t, 2)
Text4.Text = Otw(t, 3)

End If
1 For k = 1 To 100
Next k
End Sub
Sub otmetka()
If s >= 18 Then otm = 5
If s >= 15 And s < 18 Then otm = 4
If s < 15 And s >= 10 Then otm = 3
If s < 10 Then otm = 2

End Sub

Private Sub Command1_Click()

End Sub
Осындай жоғарыдағы процедураларды компьютер өзі жазады. Біз аралығындағы бағдарламаларды жазып шығамыз. Осы программаны бір жасап алсақ. Басқа пәннен тест құру үшін алдында айтқанымыздай informatica атты қапшық атын өзгертіп, блокнотқа басқа сұрақ, жауаптарды, дұрыс жауаптарды жазып шығамыз. Жасап көріңіздер оқу процесінде қолдануға қолайлы.