Тема. Контрольна робота по клавіатурі

Тема.Контрольна робота по клавіатурі .

Мета. Контрольна робота має на меті визначити рівень знань та навичок учнів у практичному застосуванні клавіатури комп'ютера

Познайомити учнів з професіями, що пов'язані з використанням ЕОМ, збудити інтерес до курсу, що вивчається.

Забезпечення уроку: таблиця ASCII кодів ЕОМ, авторська комп’ютерна програма під назвою “КонтрКлав”.

План УРОКУ. Вступна бесіда і вступний інструктаж.

Організація класу. Структура курсу і завдання. Тема, мета, план уроку.

Вивчення нового матеріалу :

1. Кодування символів в ЕОМ.

2. Призначення клавіатури.

3. Практичне засвоєння основного поля клавіатури ЕОМ.

Завдання та поточний інструктаж :

Виконати десять тематичних вправ по друкуванню на клавіатурі ЕОМ.

Підсумок уроку.

Потрібно знати:

- Призначення клавіатури ЕОМ;

- Регістри клавіатури;

- Комбінації клавіш управління.

Потрібно вміти:

- Переводити клавіатуру у потрібний регістр;

- Швидко і вірно друкувати різноманітні тексти.

Заключний інструктаж та виставлення оцінок.

Програма “КОНТРОЛЬНА РОБОТА ПО КЛАВІАТУРІ”

Загальний вигляд

Весь час учень бачить свої досягнення у балах (оцінку), які динамічно змінюються в більшу чи меншу сторону в залежності від багатьох показників.

Кількість балів вираховується після кожного натискання клавіші по зведеній формулі, де враховано загальну кількість символів, кількість правильно натиснутих клавіш, кількість помилково натиснутих клавіш, швидкість друку символів за хвилину та кількість штрафних балів за перевитрати часу.

У підсумку учень завжди отримає оцінку від 1 до 12 балів в залежності від впливу усіх показників, наприклад, як у таблиці 1.

Таблиця 1.

Деякі можливі результати за показниками, що досягнуті учнем
Кількість балів (оцінка)	1	2	3	4	5	6	7	8	9	10	11	12
Кількість помилок у відсотках	32	29	26	24	21	18	16	13	10	8	5	3
Кількість помилок	134	123	112	101	90	78	67	55	44	33	22	11
Штрафні бали	3	3	1	0	0	0	0	0	0	0	0	0
Швидкість для 9 кл. симв./хв.	10	10	15	20	25	30	35	40	50	60	70	80
Швидкість для 10 кл. симв./хв.	20	20	30	40	50	60	70	80	100	120	140	160
Швидкість для 11 кл. симв./хв.	30	30	45	60	75	90	105	120	150	180	210	240

Зручніше прослідкувати (на прикладі для 11 класів) залежність оцінки від усіх показників за графіком 1.

Графік 1.

1

2

3

4

5

6

7

8

9

10

11

12

Програма “КОНТРОЛЬНА РОБОТА ПО КЛАВІАТУРІ”

у кодах Visual Basic 6.0

Option Explicit

Dim b(60) As String 'масив літер завдання

Dim t(11) As String 'тексти завдань

Dim p As String 'значення символа по коду клавіші

Dim tp As String 'правильне значення, що друкується

Dim i As Integer 'лічильник циклів

Dim n As Integer 'число спроб(натискань на символьні клавіші)

Dim k As Integer 'код клавіші

Dim d As Integer 'число помилкових натискань клавіш

Dim e As Integer 'загальне число правильних натискань клавіш

Dim m As Integer 'число правильних натискань клавіш в межах завдання

Dim z As Integer 'номер завдання

Dim w As Integer 'число знаків у роботі

Dim q As Integer 'оцінка

Dim x As Integer 'лічильник секунд

Dim r As Integer 'показник швидкості для різних класів

Dim y As Integer 'штрафні бали

Dim v As Integer 'швидкість друку знаків/хвилину

Private Sub Command1_Click()

tp = ""

q = 0

w = 0

z = 0

m = 0

e = 0

d = 0

n = 0

x = 0

y = 0

v = 0

Label2 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

Label12 = ""

Label13 = ""

Label14 = ""

Label20 = ""

Label22 = ""

Label24 = ""

Text1 = ""

Form_Load

Text1.SetFocus

End Sub

Private Sub Command2_Click()

Timer1.Interval = 0

MsgBox "Контрольна робота має на меті визначити рівень знань та навичок учнів у практичному застосуванні клавіатури комп'ютера. Оцінювання досягнень ведеться автоматично комп'ютером. Комп 'ютер підраховує помилки при хибному натисканні клавіш, число правильних натискань, штрафні бали при відставанні по нормативному часу, реальну швидкість друку і багато іншого, що в підсумку дає можливість об'єктивно вирахувати набрані бали на оцінку в межах від 1 до 12. Перед виконанням роботи треба встановити рівень складності, відмітивши клас 9,10,або 11. Перехід до наступного завдання виконується клавішею [Enter]."

MsgBox "Рекомендації учням:1.)уважно слідкувати за темою завдання, щоб вибирати потрібний стан (регістр) клавіатури; 2.)бачити у віконці індикатора друку символів, які саме символи посилаються з клавіатури в комп'ютер - це дає можливість зрозуміти свої помилки; 3.)непотрібно витрачати час на виправлення помилок у віконці індикатора друку, а краще продовжити повторним і правильним натисканням клавіші; 4.)тільки правильно надруковані символи з віконечка індикатора друку відображаються у рядок тексту, що точно розташований під рядком завдання - це дає змогу бачити об'єм виконаного завдання; 5.)зважати на цифрові показники своєї роботи - вони динамічно змінюються та стимулюють до кращих досягнень; 6.)по-можливості, роботу треба виконувати декілька раз - це збільшить майстерність друку та оцінку; 7.)використовувати клавішу [Caps Lock] бажано тільки тоді, коли все завдання складається з великих літер, а у інших випадках - [Shift]."

Text1.SetFocus

Timer1.Interval = 1000

End Sub

Private Sub Command3_Click()

Timer1.Interval = 0

MsgBox " пауза в контрольній роботі "

Text1.SetFocus

Timer1.Interval = 1000

End Sub

Private Sub Form_Load()

'підготовка форми до першого завдання

Label7.ForeColor = &HFF0000

Label7.Caption = " Завдання №"

Label8.ForeColor = &HFF0000

Label2.ForeColor = &HFF0000

Label2.Caption = "надрукуйте цей текст :"

Randomize Timer

Timer1.Enabled = True

z = 1

Label9 = z

e = 0

'дані по всім завданням

t(1) = "AB CD EF GH IJ KL MN OP QR ST UV WX YZ"

t(2) = "a b c d e f g h i j k l m n o p q r s t u v w x y z"

t(3) = "1.2,3;4:5'6/7[8]9(+)=!?-_{@}#<$>%^|`*\"

t(4) = "int(Sin(3.141)-Cos(1.75)+Tan(0.5432)*89/2)=27"

t(5) = "You already have executed four tasks from ten."

t(6) = "АБВ ГДЕ ЄЖЗ ИЇК ЛМН ОПР СТУ ФХЦ ЧШЩ ЮЯЬ"

t(7) = "аб вг де єж зи їк лм но пр ст уф хц чш щю яь"

t(8) = "Ви виконали сім завдань контрольної роботи."

t(9) = "Операційна система Windows 98 дуже зручна!"

t(10) = "{* Це останнє завдання контрольної роботи *}"

t(11) = "Ви виконали роботу "

Label8 = t(z)

w = Len(t(1)) + Len(t(2)) + Len(t(3)) + Len(t(4)) + Len(t(5)) + Len(t(6)) + Len(t(7)) + Len(t(8)) + Len(t(9)) + Len(t(10))

Label18 = w

If z = 1 Then Label16 = "Тема: великі англійські літери "

'запис першого завдання у робочий масив літер

For i = 1 To 60

b(i) = Mid(t(1), i, 1)

Next

End Sub

Private Sub Option1_Click()

r = 4

tp = ""

q = 0

w = 0

z = 0

m = 0

e = 0

d = 0

n = 0

x = 0

y = 0

v = 0

Label2 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

Label12 = ""

Label13 = ""

Label14 = ""

Label20 = ""

Label22 = ""

Label24 = ""

Text1 = ""

Form_Load

Text1.SetFocus

End Sub

Private Sub Option2_Click()

r = 3

tp = ""

q = 0

w = 0

z = 0

m = 0

e = 0

d = 0

n = 0

x = 0

y = 0

v = 0

Label2 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

Label12 = ""

Label13 = ""

Label14 = ""

Label20 = ""

Label22 = ""

Label24 = ""

Text1 = ""

Form_Load

Text1.SetFocus

End Sub

Private Sub Option3_Click()

r = 2

tp = ""

q = 0

w = 0

z = 0

m = 0

e = 0

d = 0

n = 0

x = 0

y = 0

v = 0

Label2 = ""

Label7 = ""

Label8 = ""

Label9 = ""

Label10 = ""

Label11 = ""

Label12 = ""

Label13 = ""

Label14 = ""

Label20 = ""

Label22 = ""

Label24 = ""

Text1 = ""

Form_Load

Text1.SetFocus

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

k = KeyAscii 'код натиснутої клавіші

'зміна завдання по натисканні Enter

If z <= 10 And k = 13 Then

z = z + 1

m = 0

End If

'запис літер у масив

For i = 1 To 60

b(i) = Mid(t(z), i, 1)

Next

Label8 = t(z)

If z <= 10 Then Label9 = z

If z = 1 Then Label16 = "Тема: великі англійські літери "

If z = 2 Then Label16 = "Тема: маленькі англійські літери"

If z = 3 Then Label16 = "Тема: цифри та інші знаки"

If z = 4 Then Label16 = "Тема: англійські літери, цифри і знаки"

If z = 5 Then Label16 = "Тема: англійський текст "

If z = 6 Then Label16 = "Тема: великі українські літери"

If z = 7 Then Label16 = "Тема: маленькі українські літери"

If z = 8 Then Label16 = "Тема: український текст"

If z = 9 Then Label16 = "Тема: змішаний текст "

If z = 10 Then Label16 = "Тема: змішаний текст "

p = Chr(k) 'літерне значення натиснутої клавіші

If p <> Chr(8) And k <> 13 Then n = n + 1 'кількість спроб

If p = b(m + 1) Then tp = tp + p 'відображення виконаного завдання

Label10 = n

'перехід до наступного завдання (оновлення форми)

If z <= 10 And k = 13 Then

Text1 = ""

tp = ""

Label14 = ""

End If

'зупинка секундоміра

If z = 11 And k = 13 Then

Label8.ForeColor = &HFF&

Label2.ForeColor = &HFF&

Label2 = "Цей текст не для друку:"

Label16 = ""

Label7 = ""

Label9 = ""

If r = 4 Then Label8 = Label8 & "9 класу. Повідомте вчителя!"

If r = 3 Then Label8 = Label8 & "10класу. Повідомте вчителя!"

If r = 2 Then Label8 = Label8 & "11класу. Повідомте вчителя!"

Timer1.Enabled = False

End If

'кількість помилок в межах завдання (z)

If p <> b(m + 1) Xor p = Chr(8) Xor k = 13 Then d = d + 1

Label11 = d

'число правильно набраних знаків

If p = b(m + 1) Then

m = m + 1 'число правильних натискань клавіш в межах завдання

e = e + 1 'число правильних натискань клавіш в межах роботи

End If

Label12 = e

Label14 = tp

If x > 0 Then v = e * 60 \ x 'швидкість друку

Label24 = v

'штрафні бали

If Option1 = True Then r = 4

If Option2 = True Then r = 3

If Option3 = True Then r = 2

If x > n * r Then y = x - n * r Else y = 0

Label22 = y

q = 12 * ((e + v / 5 - d * 3 - y) / w) 'оцінка

If q < 1 Then q = 1

If q > 12 Then q = 12

Label13 = q

End Sub

Private Sub Timer1_Timer()

x = x + 1

Label20 = x 'секундомір

End Sub