Математика и Информатика
Вход / Регистрация

2012/6, стр. 578 - 602

ИЗПОЛЗВАНЕ НА VISUAL BASIC FOR APPLICATIONS ПРИ РЕШАВАНЕТО НА ПРАКТИЧЕСКИ ЗАДАЧИ В ОБУЧЕНИЕТО ПО ИНФОРМАЦИОННИ ТЕХНОЛОГИИ

Асен Рахнев
E-mail: dean-fmi@uni-plovdiv.bg
Professor, PhD
Faculty of Mathematics and Informatics
Plovdiv University „Paisii Hilendarski“,
236 Bulgaria Blvd., 4003 Plovdiv, Bulgaria
Коста Гъров
E-mail: kosgar@uni-plovdiv.bg
Associated professor, PhD
Faculty of Mathematics and Informatics
Plovdiv University “Paisii Hilendarski“,
236 Bulgaria Blvd., 4003 Plovdiv, Bulgaria
Стефка Анева
E-mail: stfaneva@uni-plovdiv.bg
Assistant professor
Faculty of Mathematics and Informatics
Plovdiv University “Paisii Hilendarski“,
236 Bulgaria Blvd., 4003 Plovdiv, Bulgaria

Резюме: Настоящата разработка е посветена на използването на Visual Basic for Applications при изучаване на модула „Интегриране на дейности и документи“ в профилираната подготовка по информационни технологии в горните класове на средното училище. Разглежда се практическа задача, в която са реализирани основните етапи на приложение на Visual Basic for Applications в MS Excel. Материалът е предназначен за учители по информационни технологии, преподаващи в 11. и 12. клас на СОУ.

Ключови думи: Information Technology, training, Visual Basic for Applications, macro.

I. Използване на Visual Basic for Applications в профилираното обучение по информационни технологии в средното училище

В учебната програма по информационни технологии (ИТ) за профилирана подготовка в 11. клас е включен за изучаване модула „Интегриране на дейности и документи“ в рамките на 100 учебни часа1. В тази програма се изисква учениците да се запознаят с предназначението на вградените средства за програмиране, чрез които могат да бъдат разширени функционалните възможности на потребителските продукти с общо предназначение, автоматизирани редица дейности по обработка на документи и опростени процедурите за манипулиране с данни във всички приложения на MS Office. В резултат от обучението, учениците ще разберат и осмислят предназначението и общата структура на макродефинициите, ще формират базови познания за обектните модели на отделните приложения от MS Office и практически, и приложни умения за създаване и редактиране на кратки програми, инсталиране и изтриване на макродефиниции.

Поради недостига на учебни помагала и методически разработки за организация на учебния процес и методика за провеждане на профилирано обучение по информационни технологии за темата „Разширяване на възможностите на потребителски продукти с общо предназначение чрез вградените средства за програмиране“, тук предлагаме една реализация на поставените цели с използване на Visual Basic for Applications (VBA). Други подобни разработки са представени в (Гъров & Анева, 2006), (Рахнев, Гъров & Анева, 2012), (Роман, 2004) и (Роман, 1999).

VBA е обектно ориентиран език, базиран на Microsoft Visual Basic и е мощен инструмент за разработка на приложения на базата на програмния пакет Microsoft Office. В помощ на разработчиците са не само основните конструкции на езика, но и мощна обектно-ориентирана среда. Чрез използване на обектите на VBA може в значителна степен да се опростят процедурите за манипулиране с данни и документи.

Комплектът Microsoft Office съдържа повече от дванадесет различни обектни модела за отделните Office приложения и отнасящите се към тях продукти. Това включва обектни модели за Word, Excel, Access, DAO (Data Access Objects), Outlook, PowerPoint, Binder, Graph, Forms, VBA, Visual Basic, ASP (Active Server Pages) и др.

Всяко главно приложение на VBA (Word, Excel, Access, PowerPoint и др.) допълва основния VBA език, като му предоставя обектен модел за работа с обектите, специфични за съответното приложение.

Например, VBA за Excel включва обектния модел Excel, който работи с такива обекти като работни книги, работни листове, клетки, редове, колони, области, таблици, осеви таблици и др.

VBA за Word включва обектния модел Word, който работи с такива обекти като документи, шаблони, параграфи, шрифтове, колонтитули, таблици и др.

VBA на Access включва два обектни модела – Access обектен модел и DAO обектен модел, които позволяват на програмистите да работят с такива обекти като таблици с данни, заявки, форми и отчети.

С помощта на VBAмогат да се създават кратки описателни програми, с които могат да се управляват автоматично често повтарящи се действия, манипулации с обекти и действия, ръчното изпълнение на които предизвиква известна сложност. В практиката често се използва и понятието макрос, което може да се дефинира като именувана последователност от команди и инструкции, групирани като една команда, с цел автоматично изпълнение. Но същевременно VBA е и много мощен език за програмиране, с който могат да се създават реални програми във всички приложения на MS Office, благодарение на които ще се автоматизира решението и изпълнението на много сложни задачи от реалния живот и ежедневие.

Със следващата практическа задача, ще покажем приложенията на VBA в MS Office.

II. Практическа задача, реализираща връзката между Visual Basic for Applications и MS Excel

Постановка на задачата: В работен лист от електронна таблица е проектирана база от данни, която организира и съхранява необходимата информация, поддържаща регистър за любителски риболовни билети. В последователни колони на работния лист е съхранена информация за риболовния билет, данни за лицето, на което се издава билета и данни за негов законен представител, в случаите когато лицето е под 14-годишна възраст.

-Данните за риболовен билет включват следната информация (Таблица № 1):

Данни за риболовен билетТип ползвател набилетаТипбилетНомер на билетДата наиздаванеОрган издалбилета

Таблица № 1

• Възможните стойности за полето Тип ползвател на билета са:

o платен;

o за деца (под 14 години);

o навършили 65 г. мъже;

o навършили 60 г. жени;

o инвалиди.

o Възможните стойности за полето Тип билет са: годишен; полугодие; месечен и седмичен.

Данните за лицето, на което се издава риболовен билет включват следната информация (Таблица № 2):

Данни на лицетоимеЕГНадрес

Таблица № 2

Данните на законния представител на лицето, в случаите на издаване на безплатен риболовен билет на лице под 14-годишна възраст включват следната информация (Таблица № 3):

в случаите на издаване на безплатен билет на лице под 14-годишна възрастданни на законния представител на лицетолична карта на законния представителимеЕГНадресномердата на издаване

Таблица № 3

С помощта на MS Excel и VBA да се създаде информационна система (фиг. 1) за автоматизирано обслужване на регистъра за риболовни билети, с цел улесняване на дейностите по въвеждането на информация, актуализиране и извършване на справки в него. Тъй като обема на въвежданата информация е от порядъка на няколко хиляди човека, то се налага извършване на справки и в стари регистри от минали години в случаи на презаверка на риболовни билети, като по този начин се улеснява значително дейността по въвеждане на информацията в новия регистър.

Системата трябва да предоставя следните функционални възможности:

− Въвеждане на нови данни в регистъра на любителските билети;

− Справка по ЕГН в стария регистър на любителски билети от миналата година при въвеждане на нови данни с цел по–бързо и автоматизирано попълване на необходимата информация за лицето, на което се издава билет;

− Текуща справка за въведените данни в регистъра по ЕГН или Име, презиме и фамилия;

− Актуализация на вече попълнени данни;

− Създаване на външен файл във вид на електронна таблица, съдържащ само актуалният регистър с попълнени данни за любителските билети.

Фигура 1

Реализация на задачата:

Работната книга ще се състои от 3 работни листа: Регистър любителски билети, Информационна система и Данни от минали години.

В средата на Visual Basic Еditor ще именуваме тези работни листове съответно с имена reg, main и danni. Тъй като листа danni ще съдържа подробна информация

от регистъра с любителски билети от минали години е удачно той да бъде скрит и да не може да се осъществява директен достъп до него в средата на MS Excel.

За да се реализира това е необходимо в средата на Visual Basic Editor да се зададе стойност 2-xlSheetVeryHidden на свойство Visible в прозореца Properties Window. В клетка D17 от листа „Информационна система“ трябва да се визуализира общият брой на въведените в регистъра данни за риболовни билети до момента с помощта на следната функция: MAX(‘Регистър любителски билети’!A:A).

За реализиране на описаните по-горе дейности по обслужване на регистъра за любителски билети с помощта на Visual Basic for Applications трябва да бъдат автоматизирани следните операции:

− Въвеждането на нови данни в работния лист Регистър любителски билети ще се осъществява с помощта на потребителска форма. За целта трябва да бъдат създадени процедурни макроси за визуализиране на формата за въвеждане на данни и съхраняване на въведената информация в работния лист Регистър любителски билети. Макроса за визуализиране на формата за въвеждане ще се стартира чрез бутон, разположен в работния лист Информационна система;

− За улеснение при попълването на данни във формата за въвеждане в случай на презаверка през текущата година на вече издаден риболовен билет, е необходимо да бъде създаден процедурен макрос за организиране на търсене на данни в стария регистър (работен лист Данни от минали години). Този макрос ще се стартира чрез команден бутон, разположен във формата за въвеждане на данни, като преди това е необходимо да се въведе ЕГН в съответното текстово поле на формата за въвеждане на данни. В резултат от изпълнението на макроса при намерени данни, необходимите данни за лицето, за което ще се презаверява билет ще бъдат автоматично попълнени в съответните полета на формата;

− Изборът на критерий за търсене (ЕГН или Име, презиме и фамилия) при осъществяване на справка за въведени данни в регистъра ще се реализира с помощта на потребителска форма. В нея ще бъдат въвеждани и необходимите данни за търсене. В случая, трябва да бъдат създадени процедурни макроси за визуализиране на формата, за реализиране на търсенето и представяне на получения резултат от търсенето. Процедурният макрос за визуализиране на формата за търсене ще се стартира чрез бутон, разположен в работния лист Информационна система. Процедурният макрос за реализиране на търсенето ще се стартира с помощта на команден бутон, разположен върху формата за избор на критерий и въвеждане на данни за търсене. Крайният резултат от справката за намерения запис в регистъра при търсенето ще се визуализира в потребителска форма;

− За актуализация на въведени данни в регистъра ще се използват отново формата за търсене на запис по избран критерий и макросите за визуализиране на формата за търсене, за реализиране на търсенето и представяне на получения резултат във форма за справка и актуализация на данните. Трябва да бъде създаден процедурен макрос, с помощта на който ще се осъществява актуализацията на данните за даден запис в регистъра. Този макрос ще се стартира с помощта на команден бутон, разположен във формата за справка за въведени данни, която се визуализира при представяне на крайния резултат от търсенето;

− При създаването на нов файл във вид на електронна таблица, съдържащ единствено данните от работен лист Регистър любителски билети е необходимо да бъде създаден процедурен макрос. Той ще се стартира чрез бутон, разположен в работния лист Информационна система.

Създаване на потребителските форми за информационната система

Към информационната система с помощта на Visual Basic for Applications трябва да бъдат създадени следните форми:

1. Форма за въвеждане на нови данни в регистъра (frmadd) – данни за риболовния билет и лични данни на лицето:

Фигура 2

Формата съдържа следните елементи на графичния потребителски интерфейс

(Фиг. 2)(ГПИ): две рамки, етикети за визуализиране на текст върху формата,

две групи избираеми бутони за определяне на ползвател и тип на билета, седем текстови полета и три командни бутона. В режим на проектиране към двете групи избираеми бутони трябва да бъдат извършени някои допълнителни настройки, определящи начални стойности по подразбиране за типа и ползвателя на билета.

2. Форма за въвеждане на лични данни за законен представител, в случаите, когато се издава риболовен билет на деца под 14 години (frmpredstavitel).

Фигура 3

Формата съдържа следните елементи на ГПИ (Фиг. 3): една рамка, етикети за визуализиране на текст върху формата, пет текстови полета и един команден бутон.

Забележка:

В случаите при извършване на справки в регистъра за дете (под 14 години), на което е издаден риболовен билет ще се използва същата форма с някои малки корекции за визуализиране и актуализация на вече въведените данни за законен представител, т.е. формата ще изглежда по следния начин (Фиг. 4):

Фигура 4

3. Форма за търсене в регистъра по ЕГН или по Име, презиме и фамилия (frmspravka).

Фигура 5

Формата съдържа следните елементи на ГПИ (Фиг. 5): етикети за визуализиране на текст върху формата, два избираеми бутона, две текстови полета и един команден бутон. В режим на проектиране към елементите на ГПИ върху формата трябва да бъдат извършени някои допълнителни настройки, така че при визуализиране на формата да бъде избран критерий за търсене по ЕГН. Съответното текстово поле за въвеждане на данни за търсене по ЕГН трябва да бъде разрешено, а второто текстово поле – не.

4. Форма за визуализация на въведената информация за търсен запис в регистъра и актуализация на данните (fmrshow)

Фигура 6

Формата съдържа следните елементи на ГПИ (Фиг. 6): две рамки, етикети за визуализиране на текст върху формата, две групи избираеми бутони за определяне на ползвател и тип на билета, седем текстови полета и три командни бутона. В режим на проектиране към елементите на ГПИ върху формата трябва да бъдат извършени някои допълнителни настройки, така че при визуализиране на формата за справка бутонът „Покажи данните на законния представител“ да се визуализира само в случай, че ползвателя на билета е лице под 14 годишна възраст.

Създаване на процедурните макроси към информационната система Към информационната система да се реализират следните макроси:

Задача 1: Да се създаде процедурен макрос с име add, който визуализира формата за въвеждане на данни.

Public Sub add()
Dim m As Integer
frmadd.txtnomer.Text = main.Range(„D17“).Value + 1
frmadd.txtime.Text = „“
frmadd.txtegn.Text = „“
frmadd.txtadres.Text = „“
frmadd.optgod.Value = True
frmadd.optplaten.Value = True
frmadd.txtnumbilet.Text = „“
Dim today As Variant
today = Now
frmadd.txtdata.Text = Format(today, „dd.mm.yyyy г.“)
frmadd.txtorgan.Text = „“
frmadd.Show
End Sub

В работният лист „Информационна система“ да се създаде команден бутон с име „Въвеждане на данни в регистъра“ и да се свърже с макроса add.

Задача 2: Да се създаде процедурен макрос с име spravka, който визуализира формата за търсене, като по подразбиране е избрано търсенето да се извършва по ЕГН.

Public Sub spravka()
frmspravka.OptionButton1.Value = True
frmspravka.Show
End Sub

В работният лист „Информационна система“ да се създаде команден бутон с име „Справки в регистъра по ЕГН или Име, презиме и фамилия“ и да се свърже с макроса spravka.

Задача 3: Да се създаде процедурен макрос с име create_newbook, който създава нова работна книга – изходен файл, съдържащ само работния лист „Регистър любителски билети“.

Public Sub create_newbook()
Dim varpath As String
If MsgBox(„Желаете ли да създадете външен файл, съдържащ
въведената информация в регистъра?“, vbYesNo) = vbYes
Then
reg.Copy
varpath = ThisWorkbook.Path
ActiveWorkbook.SaveAs varpath & “/registyr.xlsx”
ActiveWorkbook.Close
End If
End Sub

В работният лист „Информационна система“ да се създаде команден бутон с име „Създаване на изходен файл на регистъра“ и да се свърже с макроса create_ newbook.

Задача 4: Да се създаде процедурен макрос с име spravka_oldreg, който по въведен ЕГН във формата за въвеждане на нови данни извършва търсене в листа „Данни от минали години“. При намерен запис в стария регистър във формата за въвеждане на нови данни в съответните полета се попълва автоматично името и адреса на лицето и номера на издадения билет на търсения човек.

Public Sub spravka_oldreg()
Dim search As String
Dim num, i As Integer
Dim flag As Boolean
search = frmadd.txtegn.Text
Dim m As Double
m = Val(search)
flag = False
If search <> „“ Then
If (m <= 1000000000) Or (m >= 9999999999#) Then
MsgBox „Неправилно въведено ЕГН!“
Exit Sub
Else
danni.Range(„P1“).Formula = „=MAX(‚Данни от минали
години‘!A:A)“
num = danni.Range(„P1“).Value
For i = 1 To num
pom = danni.Cells(3 + i, 8).Value
If pom = search Then
flag = True
frmadd.txtime.Text = danni.Cells(3 + i, 7).Value
frmadd.txtadres.Text = danni.Cells(3 + i, 9).Value
frmadd.txtnumbilet.Text = danni.Cells(3 + i,
4).Value
main.Select
End If
Next i
If flag = False Then MsgBox „Няма данни в стария
регистър!“
End If
Else
MsgBox „Въведете ЕГН и след това натиснете бутона
Справка!“
End If
main.Select
End Sub

Задача 5: Да се създаде процедурен макрос с име save, който при въведени коректни данни във формата за въвеждане съхранява въведената информация в регистъра. Проверките за коректност включват: ЕГН – 10 цифри, номер на билет - числова стойност, не се допуска запис в регистъра при празни полета.

Public Sub save()
Dim num As Integer
main.Select
num = 4 + main.Range(„D17“).Value
Dim m As Double
m = Val(frmadd.txtegn.Text)
‚Проверка за некоректно въведен номер на билет
If Val(frmadd.txtnumbilet.Text) = 0 Or _
IsNumeric(frmadd.txtnumbilet.Text) = False Then
MsgBox „Грешен номер на билет!“
Exit Sub
End If
‚Проверка за непопълнени данни във формуляра
If frmadd.txtime.Text = „“ Or frmadd.txtadres.Text = „“
Or _
frmadd.txtorgan.Text = „“ Then
MsgBox „Не сте попълнили всички данни във
формуляра!“
Exit Sub
End If
‚Проверка за некоректно въведен ЕГН
If (m <= 1000000000) Or (m >= 9999999999#) Then
MsgBox „Неправилно въведено ЕГН!“
Exit Sub
Else
‚Въвеждане на попълнените данни в регистъра
reg.Cells(num, 1).Value = frmadd.txtnomer.Text
If frmadd.optplaten.Value = True Then reg.Cells(num,
2).Value = _
„1. Платен“
If frmadd.optdeca.Value = True Then reg.Cells(num,
2).Value = _
„2. За деца (под 14 г.)“
If frmadd.opt65man.Value = True Then reg.Cells(num,
2).Value = _
„3. Навършили 65 г. мъже“
If frmadd.opt60woman.Value = True Then reg.Cells(num,
2).Value = _
„4. Навършили 60 г. жени“
If frmadd.optinvalidi.Value = True Then reg.
Cells(num, 2).Value = _
„5. Инвалиди“
If frmadd.optgod.Value = True Then reg.Cells(num,
3).Value = _
„1. Годишен“
If frmadd.optpolugodie.Value = True Then reg.
Cells(num, 3).Value = _
„2. Полугодие“
If frmadd.optmesechen.Value = True Then reg.
Cells(num, 3).Value = _
„3. Месечен“
If frmadd.optsedmichen.Value = True Then reg.
Cells(num, 3).Value = _
„4. Седмичен“
reg.Cells(num, 4).Value = Val(frmadd.txtnumbilet.
Text)
Dim l As Integer
Dim s As String
l = Len(frmadd.txtdata.Text)
If Right(frmadd.txtdata.Text, 2) = „г.“ Then
s = Left(frmadd.txtdata.Text, l - 2)
reg.Cells(num, 5).Value = DateValue(s)
Else
reg.Cells(num, 5).Value = DateValue(frmadd.txtdata.
Text)
End If
reg.Cells(num, 6).Value = frmadd.txtorgan.Text
reg.Cells(num, 7).Value = frmadd.txtime.Text
reg.Cells(num, 8).Value = frmadd.txtegn.Text
reg.Cells(num, 9).Value = frmadd.txtadres.Text
‚Подготовка за въвеждане на нови данни във формата
frmadd.txtnomer.Text = main.Range(„D17“).Value + 1
frmadd.txtime.Text = „“
frmadd.txtegn.Text = „“
frmadd.txtadres.Text = „“
frmadd.txtorgan.Text = „“
frmadd.optplaten.Value = True
frmadd.optgod.Value = True
frmadd.txtnumbilet.Text = „“
Dim today As Variant
today = Now
frmadd.txtdata.Text = Format(today, „dd.mm.yyyy г.“)
main.Select
End If
End Sub

Задача 6: Да се създаде процедурен макрос с име search, който по въведени данни и избран критерий за търсене (ЕГН или Име, презиме и фамилия) намира желания запис в регистъра.

Public Sub search()
Dim s1, s2, pom As String
Dim num, i As Integer
Dim f As Boolean
s1 = frmspravka.txtsearchegn.Text
s2 = frmspravka.txtsearchime.Text
main.Select
num = main.Range(“D17”).Value
If frmspravka.OptionButton1.Value = True And s1 <> “”
Then
Dim m As Double
m = Val(s1)
If (m <= 1000000000) Or (m >= 9999999999#) And _
frmspravka.OptionButton1.Value = True Then
MsgBox “Неправилно въведено ЕГН!“
Exit Sub
Else
f = False
For i = 1 To num
pom = reg.Cells(3 + i, 8).Value
If pom = s1 Then
reg.Select
Rows(i + 3).Select
f = True
Unload frmspravka
showsearch_result (i + 3)
End If
Next i
End If
End If
If frmspravka.OptionButton2.Value = True And s2 <> “”
Then
f = False
For i = 1 To num
pom = reg.Cells(3 + i, 7).Value
If pom = s2 Then
reg.Select
Rows(i + 3).Select
f = True
Unload frmspravka
showsearch_result (i + 3)
End If
Next i
End If
If f = False Then
MsgBox “Не е намерен запис по зададения критерий за търсене!“
Unload frmspravka
End If
main.Select
End Sub

Задача 7: Да се създаде процедура с име showsearch_result и формален параметър k, която да се извиква от процедурата search и да визуализира в потребителска форма данните за намерения запис в регистъра. Параметърът k представлява номера на реда в таблицата, на който се намира търсения запис. В общата част на модула запишете: Dim isoptdeca As Boolean

Sub showsearch_result(k As Integer)
isoptdeca = False
frmshow.txtnomer.Text = reg.Cells(k, 1).Value
If reg.Cells(k, 2).Value = „1. Платен“ Then frmshow.
optplaten.Value = True
If reg.Cells(k, 2).Value = „2. За деца (под 14 г.)“ Then
frmshow.optdeca.Value = True
frmshow.cmdshow.Visible = True
isoptdeca = True
End If
If reg.Cells(k, 2).Value = „3. Навършили 65 г. мъже“
Then _
frmshow.opt65man.Value = True
If reg.Cells(k, 2).Value = „4. Навършили 60 г. жени“
Then _
frmshow.opt60woman.Value = True
If reg.Cells(k, 2).Value = „5. Инвалиди“ Then _
frmshow.optinvalidi.Value = True
If reg.Cells(k, 3).Value = „1. Годишен“ Then frmshow.
optgod.Value = True
If reg.Cells(k, 3).Value = „2. Полугодие“ Then _
frmshow.optpolugodie.Value = True
If reg.Cells(k, 3).Value = „3. Месечен“ Then _
frmshow.optmesechen.Value = True
If reg.Cells(k, 3).Value = „4. Седмичен“ Then _
frmshow.optsedmichen.Value = True
frmshow.txtnumbilet.Text = reg.Cells(k, 4).Value
frmshow.txtdata.Text = reg.Cells(k, 5).Value
frmshow.txtorgan.Text = reg.Cells(k, 6).Value
frmshow.txtime.Text = reg.Cells(k, 7).Value
frmshow.txtegn.Text = reg.Cells(k, 8).Value
frmshow.txtadres.Text = reg.Cells(k, 9).Value
frmshow.Show
End Sub

Задача 8: Да се създаде процедура с име update, която при необходимост ще извършва актуализация на вече въведени данни в регистъра.

Public Sub update()
Dim num As Integer
num = 3 + Val(frmshow.txtnomer.Text)
Dim m As Double
m = Val(frmshow.txtegn.Text)
‘Проверка за некоректно въведен номер на билет
If Val(frmshow.txtnumbilet.Text) = 0 Or _
IsNumeric(frmshow.txtnumbilet.Text) = False Then
MsgBox “Грешен номер на билет!”
Exit Sub
End If
‚Проверка за непопълнени данни във формуляра
If frmshow.txtime.Text = „“ Or frmshow.txtadres.Text =
„“ Or _
frmshow.txtorgan.Text = “” Then
MsgBox “Не сте попълнили всички данни във формуляра!”
Exit Sub
End If
‚Проверка за некоректно въведен ЕГН
If (m <= 1000000000) Or (m >= 9999999999#) Then
MsgBox “Неправилно въведено ЕГН!”
Exit Sub
Else
If MsgBox(“Желаете ли да съхраните актуализираните
данни?”,vbYesNo)= _
vbYes Then
If frmshow.optplaten.Value = True Then reg.Cells(num,
2).Value = _
„1. Платен“
If frmshow.optdeca.Value = True Then reg.Cells(num,
2).Value = _
„2. За деца (под 14 г.)“
If frmshow.opt65man.Value = True Then reg.Cells(num,
2).Value = _
„3. Навършили 65 г. мъже“
If frmshow.opt60woman.Value = True Then reg.Cells(num,
2).Value = _
„4. Навършили 60 г. жени“
If frmshow.optinvalidi.Value = True Then reg.Cells(num,
2).Value = _
„5. Инвалиди“
If frmshow.optgod.Value = True Then reg.Cells(num,
3).Value = _
„1. Годишен“
If frmshow.optpolugodie.Value = True Then reg.
Cells(num, 3).Value = _
„2. Полугодие“
If frmshow.optmesechen.Value = True Then reg.Cells(num,
3).Value = _
„3. Месечен“
If frmshow.optsedmichen.Value = True Then reg.
Cells(num, 3).Value = _
„4. Седмичен“
reg.Cells(num, 4).Value = frmshow.txtnumbilet.Text
Dim l As Integer
Dim s As String
l = Len(frmshow.txtdata.Text)
If Right(frmshow.txtdata.Text, 2) = „г.“ Then
s = Left(frmshow.txtdata.Text, l - 2)
reg.Cells(num, 5).Value = DateValue(s)
Else
reg.Cells(num, 5).Value = DateValue(frmshow.txtdata.
Text)
End If
reg.Cells(num, 6).Value = frmshow.txtorgan.Text
reg.Cells(num, 7).Value = frmshow.txtime.Text
reg.Cells(num, 8).Value = frmshow.txtegn.Text
reg.Cells(num, 9).Value = frmshow.txtadres.Text
If isoptdeca = True And frmshow.optdeca.Value = False Then
reg.Cells(num, 10).Value = „“
reg.Cells(num, 11).Value = „“
reg.Cells(num, 12).Value = „“
reg.Cells(num, 13).Value = „“
reg.Cells(num, 14).Value = „“
End If
If isoptdeca = False And frmshow.optdeca.Value = True
Then
MsgBox „При актуализацията не сте въвели данни за
представителя!“
frmpredstavitel.CommandButton1.Caption = _
„Актуализация на данните на представителя“
frmpredstavitel.Show
End If
End If
End If
frmshow.Hide
main.Select
End Sub

Добавяне на програмен код (събитийни процедури) към потребителските форми на информационната система

Към формата frmadd за въвеждане на данни добавете следния програмен код:

Private Sub cmdspravka_oldreg_Click()
spravka_oldreg
End Sub
Private Sub cmdexit_Click()
frmadd.Hide
main.Select
End Sub
Private Sub optdeca_Click()
frmpredstavitel.prime.Text = “”
frmpredstavitel.pregn.Text = “”
frmpredstavitel.pradres.Text = “”
frmpredstavitel.prlk.Text = “”
frmpredstavitel.prdataizdavane.Text = “”
frmpredstavitel.CommandButton1.Caption = _
“Съхрани данните на представителя”
frmpredstavitel.Show
End Sub
Private Sub cmdsave_Click()
Call save
End Sub
‘Събитийна процедура за ограничаване на допустимите
клавиши при въвеждане ‚на стойност в полето txtegn (само
цифри)
Private Sub txtegn_KeyPress(ByVal KeyAscii As MSForms.
ReturnInteger)
If KeyAscii < Asc(„0“) Or KeyAscii > Asc(„9“) Then
KeyAscii = 0
End Sub

Към формата frmpredstavitel за въвеждане или актуализация на данни на законния представител добавете следния програмен код:

Private Sub CommandButton1_Click()
main.Select
If CommandButton1.Caption = “Съхрани данните на пред
ставителя” Then
num = 4 + main.Range(“D17”).Value
ElseIf CommandButton1.Caption = _
“Актуализация на данните на представителя” Then
num = 3 + frmshow.txtnomer.Text
End If
Dim m As Double
m = Val(pregn.Text)
If (m <= 1000000000) Or (m >= 9999999999#) Then
MsgBox „Неправилно въведено ЕГН!“
Exit Sub
Else
reg.Cells(num, 10).Value = prime.Text
reg.Cells(num, 11).Value = pregn.Text
reg.Cells(num, 12).Value = pradres.Text
reg.Cells(num, 13).Value = prlk.Text
Dim l As Integer
Dim s As String
l = Len(prdataizdavane.Text)
If Right(prdataizdavane.Text, 2) = „г.“ Then
s = Left(prdataizdavane.Text, l - 2)
reg.Cells(num, 14).Value = DateValue(s)
Else
If prdataizdavane.Text <> „“ Then _
reg.Cells(num, 14).Value = DateValue(prdataizdavane.
Text)
End If
frmpredstavitel.Hide
prime.Text = „“
pregn.Text = „“
pradres.Text = „“
prlk.Text = „“
prdataizdavane.Text = „“
End If
End Sub
Private Sub pregn_KeyPress(ByVal KeyAscii As MSForms.
ReturnInteger)
If KeyAscii < Asc(„0“) Or KeyAscii > Asc(„9“) Then
KeyAscii = 0
End Sub
Private Sub prlk_KeyPress(ByVal KeyAscii As MSForms.
ReturnInteger)
If KeyAscii < Asc(„0“) Or KeyAscii > Asc(„9“) Then
KeyAscii = 0
End Sub

Към формата frmspravka добавете следния програмен код:

Private Sub cmdsearch_Click()
search
End Sub
Private Sub OptionButton1_Click()
txtsearchime.Text = „“
txtsearchime.Enabled = False
txtsearchegn.Enabled = True
txtsearchime.BackColor = &H8000000F
txtsearchegn.BackColor = vbWhite
txtsearchegn.SetFocus
End Sub
Private Sub OptionButton2_Click()
txtsearchegn.Text = „“
txtsearchegn.Enabled = False
txtsearchime.Enabled = True
txtsearchegn.BackColor = &H8000000F
txtsearchime.BackColor = vbWhite
txtsearchime.SetFocus
End Sub
Private Sub txtsearchegn_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
If KeyAscii < Asc(„0“) Or KeyAscii > Asc(„9“) Then
KeyAscii = 0
End Sub

Към формата frmshow добавете следния програмен код:

Private Sub cmdshow_Click()
Dim num As Integer
num = 3 + Val(txtnomer.Text)
frmpredstavitel.prime.Text = reg.Cells(num, 10).Value
frmpredstavitel.pregn.Text = reg.Cells(num, 11).Value
frmpredstavitel.pradres.Text = reg.Cells(num, 12).Value
frmpredstavitel.prlk.Text = reg.Cells(num, 13).Value
frmpredstavitel.prdataizdavane.Text = reg.Cells(num,
14).Value
frmpredstavitel.CommandButton1.Caption = _
„Актуализация на данните на представителя“
frmpredstavitel.Show
End Sub
Private Sub cmdexit_Click()
frmshow.Hide
main.Select
End Sub
Private Sub opt60woman_Click()
cmdshow.Visible = False
End Sub
Private Sub opt65man_Click()
cmdshow.Visible = False
End Sub
Private Sub optdeca_Click()
cmdshow.Visible = True
End Sub
Private Sub optinvalidi_Click()
cmdshow.Visible = False
End Sub
Private Sub optplaten_Click()
cmdshow.Visible = False
End Sub
Private Sub cmdupdate_Click()
update
End Sub

III. Заключение

Предложената в работата примерна технология за автоматизиране на дейностите при работа с документи и данни на Excel може да се приложи по аналогия и за автоматизиране на дейностите и разширяване на възможностите и за други приложения от Microsoft Office.

Описаната в статията примерна практическа задача лесно може да се преформулира и в друг контекст, като се получат различни варианти на задания, имащи приложения в практиката. Така например може да се разглежда подобна задача, при която входните данни са медицинските картони на учениците от дадено училище или картотеките на футболните отбори, играещи в определена група и т.н. По този начин за самостоятелна работа, учениците могат да разработват задания, близки до техните интереси, а на най-подготвените може да се възложи сами да съставят условието на задачата, която трябва да решат. Разглежданата тематика ще бъде полезна в практиката на учителите по информационни технологии, които преподават предмета в профилираната подготовка.

БЕЛЕЖКИ

1. Учебни програми ІІІ част за задължителна и профилирана подготовка ІХ, Х, ХІ и ХІІ клас, Главна редакция на педагогическите издания към МОН, София, 2003 г.

ЛИТЕРАТУРА

Гъров, К. & Анева С. (2006). Използване на Visual Basic for Application в обучението по информационни технологии в средното училище, Математика и информатика, 2, 18–28.

Рахнев, А., Гъров К. & Анева С. (2012). Примерна система от задачи при изучаване на Visual Basic for Application в средното училище, Образование и технологии, 3, 58–59,

Роман С. (2004). Да напишем макроси в Excel, София, ЗеСТ Прес.

Роман С. (1999). Да напишем макроси в Word, София, ЗеСТ Прес.

2025 година
Книжка 6
ENHANCING STUDENT MOTIVATION AND ACHIEVEMENT THROUGH DIGITAL MIND MAPPING

Mikloš Kovač, Mirjana Brdar, Goran Radojev, Radivoje Stojković

OPTIMIZATION VS BOOSTING: COMPARISON OF STRATEGIES ON EDUCATIONAL DATASETS TO EXPLORE LOW-PERFORMING AT-RISK AND DROPOUT STUDENTS

Ranjit Paul, Asmaa Mohamed, Peren Jerfi Canatalay, Ashima Kukkar, Sadiq Hussain, Arun K. Baruah, Jiten Hazarika, Silvia Gaftandzhieva, Esraa A. Mahareek, Abeer S. Desuky, Rositsa Doneva

ARTIFICIAL INTELLIGENCE AS A TOOL FOR PEDAGOGICAL INNOVATIONS IN MATHEMATICS EDUCATION

Stanka Hadzhikoleva, Maria Borisova, , Borislava Kirilova

Книжка 4
Книжка 3
МОДЕЛИ НА ВЕРОЯТНОСТНИ ПРОСТРАНСТВА В ОЛИМПИАДНИ ЗАДАЧИ

Драгомир Грозев, Станислав Харизанов

Книжка 1
A NOTE ON A GENERALIZED DYNAMICAL SYSTEM OCCURS IN MODELLING “THE BATTLE OF THE SEXES”: CHAOS IN SOCIOBIOLOGY

Nikolay Kyurkchiev, Anton Iliev, Vesselin Kyurkchiev, Angel Golev, Todorka Terzieva, Asen Rahnev

EDUCATIONAL RESOURCES FOR STUDYING MIDSEGMENTS OF TRIANGLE AND TRAPEZOID

Toni Chehlarova1), Neda Chehlarova2), Georgi Gachev

2024 година
Книжка 6
ВЪЗМОЖНОСТИ ЗА ИЗГРАЖДАНЕ НА МЕЖДУПРЕДМЕТНИ ВРЪЗКИ МАТЕМАТИКА – ИНФОРМАТИКА

Елена Каращранова, Ирена Атанасова, Надежда Борисова

Книжка 5
FRAMEWORK FOR DESIGNING VISUALLY ORIENTATED TOOLS TO SUPPORT PROJECT MANAGEMENT

Dalibor Milev, Nadezhda Borisova, Elena Karashtranova

3D ОБРАЗОВАТЕЛЕН ПОДХОД В ОБУЧЕНИЕТО ПО СТЕРЕОМЕТРИЯ

Пеньо Лебамовски, Марияна Николова

Книжка 4
DYNAMICS OF A NEW CLASS OF OSCILLATORS: MELNIKOV’S APPROACH, POSSIBLE APPLICATION TO ANTENNA ARRAY THEORY

Nikolay Kyurkchiev, Tsvetelin Zaevski, Anton Iliev, Vesselin Kyurkchiev, Asen Rahnev

Книжка 3
РАЗСТОЯНИЯ МЕЖДУ ЗАБЕЛЕЖИТЕЛНИ ТОЧКИ И НЕРАВЕНСТВА В ИЗПЪКНАЛ ЧЕТИРИЪГЪЛНИК

Йордан Табов, Станислав Стефанов, Красимир Кънчев, Хаим Хаимов

USING AI TO IMPROVE ANSWER EVALUATION IN AUTOMATED EXAMS

Georgi Cholakov, Asya Stoyanova-Doycheva

Книжка 2
ON INTEGRATION OF STEM MODULES IN MATHEMATICS EDUCATION

Elena Karashtranova, Aharon Goldreich, Nadezhda Borisova

Книжка 1
STUDENT SATISFACTION WITH THE QUALITY OF A BLENDED LEARNING COURSE

Silvia Gaftandzhieva, Rositsa Doneva, Sadiq Hussain, Ashis Talukder, Gunadeep Chetia, Nisha Gohain

MODERN ROAD SAFETY TRAINING USING GAME-BASED TOOLS

Stefan Stavrev, Ivelina Velcheva

ARTIFICIAL INTELLIGENCE FOR GOOD AND BAD IN CYBER AND INFORMATION SECURITY

Nikolay Kasakliev, Elena Somova, Margarita Gocheva

2023 година
Книжка 6
QUALITY OF BLENDED LEARNING COURSES: STUDENTS’ PERSPECTIVE

Silvia Gaftandzhieva, Rositsa Doneva, Sadiq Hussain, Ashis Talukder, Gunadeep Chetia, Nisha Gohain

МОДЕЛ НА ЛЕОНТИЕВ С MS EXCEL

Велика Кунева, Мариян Милев

Книжка 5
AREAS ASSOCIATED TO A QUADRILATERAL

Oleg Mushkarov, Nikolai Nikolov

ON THE DYNAMICS OF A ClASS OF THIRD-ORDER POLYNOMIAL DIFFERENCE EQUATIONS WITH INFINITE NUMBER OF PERIOD-THREE SOLUTIONS

Jasmin Bektešević, Vahidin Hadžiabdić, Midhat Mehuljić, Sadjit Metović, Haris Lulić

СИСТЕМА ЗА ИЗВЛИЧАНЕ И ВИЗУАЛИЗАЦИЯ НА ДАННИ ОТ ИНТЕРНЕТ

Георги Чолаков, Емил Дойчев, Светла Коева

Книжка 4
MULTIPLE REPRESENTATIONS OF FUNCTIONS IN THE FRAME OF DISTANCE LEARNING

Radoslav Božić, Hajnalka Peics, Aleksandar Milenković

INTEGRATED LESSONS IN CALCULUS USING SOFTWARE

Pohoriliak Oleksandr, Olga Syniavska, Anna Slyvka-Tylyshchak, Antonina Tegza, Alexander Tylyshchak

Книжка 3
ПРИЛОЖЕНИЕ НА ЕЛЕМЕНТИ ОТ ГЕОМЕТРИЯТА НА ЧЕТИРИЪГЪЛНИКА ЗА РЕШАВАНЕ НА НЕСТАНДАРТНИ ЗАДАЧИ

Йордан Табов, Веселин Ненков, Асен Велчев, Станислав Стефанов

Книжка 2
Книжка 1
НОВА ФОРМУЛА ЗА ЛИЦЕ НА ЧЕТИРИЪГЪЛНИК (ЧЕТИВО ЗА VII КЛАС)

Йордан Табов, Асен Велчев, Станислав Стефанов, Хаим Хаимов

2022 година
Книжка 6
MOBILE GAME-BASED MATH LEARNING FOR PRIMARY SCHOOL

Margarita Gocheva, Nikolay Kasakliev, Elena Somova

Книжка 5
SECURITY ANALYSIS ON CONTENT MANAGEMENT SYSTEMS

Lilyana Petkova, Vasilisa Pavlova

MONITORING OF STUDENT ENROLMENT CAMPAIGN THROUGH DATA ANALYTICS TOOLS

Silvia Gaftandzhieva, Rositsa Doneva, Milen Bliznakov

TYPES OF SOLUTIONS IN THE DIDACTIC GAME “LOGIC MONSTERS”

Nataliya Hristova Pavlova, Michaela Savova Toncheva

Книжка 4
PERSONAL DATA PROCESSING IN A DIGITAL EDUCATIONAL ENVIRONMENT

Evgeniya Nikolova, Mariya Monova-Zheleva, Yanislav Zhelev

Книжка 3
Книжка 2
STEM ROBOTICS IN PRIMARY SCHOOL

Tsanko Mihov, Gencho Stoitsov, Ivan Dimitrov

A METAGRAPH MODEL OF CYBER PROTECTION OF AN INFORMATION SYSTEM

Emiliya Koleva, Evgeni Andreev, Mariya Nikolova

Книжка 1
CONVOLUTIONAL NEURAL NETWORKS IN THE TASK OF IMAGE CLASSIFICATION

Larisa Zelenina, Liudmila Khaimina, Evgenii Khaimin, D. Khripunov, Inga Zashikhina

INNOVATIVE PROPOSALS FOR DATABASE STORAGE AND MANAGEMENT

Yulian Ivanov Petkov, Alexandre Ivanov Chikalanov

APPLICATION OF MATHEMATICAL MODELS IN GRAPHIC DESIGN

Ivaylo Staribratov, Nikol Manolova

РЕШЕНИЯ НА КОНКУРСНИ ЗАДАЧИ БРОЙ 6, 2021 Г.

Задача 1. Дадени са различни естествени числа, всяко от които има прос- ти делители, не по-големи от . Докажете, че произведението на някои три от тези числа е точен куб. Решение: числата са представим във вида . Нека разгледаме квадрат

2021 година
Книжка 6
E-LEARNING DURING COVID-19 PANDEMIC: AN EMPIRICAL RESEARCH

Margarita Gocheva, Nikolay Kasakliev, Elena Somova

Книжка 5
ПОДГОТОВКА ЗА XXV МЛАДЕЖКА БАЛКАНИАДА ПО МАТЕМАТИКА 2021

Ивайло Кортезов, Емил Карлов, Мирослав Маринов

EXCEL’S CALCULATION OF BASIC ASSETS AMORTISATION VALUES

Vehbi Ramaj, Sead Rešić, Anes Z. Hadžiomerović

EDUCATIONAL ENVIRONMENT AS A FORM FOR DEVELOPMENT OF MATH TEACHERS METHODOLOGICAL COMPETENCE

Olha Matiash, Liubov Mykhailenko, Vasyl Shvets, Oleksandr Shkolnyi

Книжка 4
LEARNING ANALYTICS TOOL FOR BULGARIAN SCHOOL EDUCATION

Silvia Gaftandzhieva, Rositsa Doneva, George Pashev, Mariya Docheva

Книжка 3
THE PROBLEM OF IMAGES’ CLASSIFICATION: NEURAL NETWORKS

Larisa Zelenina, Liudmila Khaimina, Evgenii Khaimin, D. Khripunov, Inga Zashikhina

MIDLINES OF QUADRILATERAL

Sead Rešić, Maid Omerović, Anes Z. Hadžiomerović, Ahmed Palić

ВИРТУАЛЕН ЧАС ПО МАТЕМАТИКА

Севдалина Георгиева

Книжка 2
MOBILE MATH GAME PROTOTYPE ON THE BASE OF TEMPLATES FOR PRIMARY SCHOOL

Margarita Gocheva, Elena Somova, Nikolay Kasakliev, Vladimira Angelova

КОНКУРСНИ ЗАДАЧИ БРОЙ 2/2021 Г.

Краен срок за изпращане на решения: 0 юни 0 г.

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 1, 2021

Краен срок за изпращане на решения: 0 юни 0 г.

Книжка 1
СЕДЕМНАДЕСЕТА ЖАУТИКОВСКА ОЛИМПИАДА ПО МАТЕМАТИКА, ИНФОРМАТИКА И ФИЗИКА АЛМАТИ, 7-12 ЯНУАРИ 2021

Диян Димитров, Светлин Лалов, Стефан Хаджистойков, Елена Киселова

ОНЛАЙН СЪСТЕЗАНИЕ „VIVA МАТЕМАТИКА С КОМПЮТЪР“

Петър Кендеров, Тони Чехларова, Георги Гачев

2020 година
Книжка 6
ABSTRACT DATA TYPES

Lasko M. Laskov

Книжка 5
GAMIFICATION IN CLOUD-BASED COLLABORATIVE LEARNING

Denitza Charkova, Elena Somova, Maria Gachkova

NEURAL NETWORKS IN A CHARACTER RECOGNITION MOBILE APPLICATION

L.I. Zelenina, L.E. Khaimina, E.S. Khaimin, D.I. Antufiev, I.M. Zashikhina

APPLICATIONS OF ANAGLIFIC IMAGES IN MATHEMATICAL TRAINING

Krasimir Harizanov, Stanislava Ivanova

МЕТОД НА ДЕЦАТА В БЛОКА

Ивайло Кортезов

Книжка 4
TECHNOLOGIES AND TOOLS FOR CREATING ADAPTIVE E-LEARNING CONTENT

Todorka Terzieva, Valya Arnaudova, Asen Rahnev, Vanya Ivanova

Книжка 3
MATHEMATICAL MODELLING IN LEARNING OUTCOMES ASSESSMENT (BINARY MODEL FOR THE ASSESSMMENT OF STUDENT’S COMPETENCES FORMATION)

L. E. Khaimina, E. A. Demenkova, M. E. Demenkov, E. S. Khaimin, L. I. Zelenina, I. M. Zashikhina

PROBLEMS 2 AND 5 ON THE IMO’2019 PAPER

Sava Grozdev, Veselin Nenkov

Книжка 2
ЗА ВЕКТОРНОТО ПРОСТРАНСТВО НА МАГИЧЕСКИТЕ КВАДРАТИ ОТ ТРЕТИ РЕД (В ЗАНИМАТЕЛНАТА МАТЕМАТИКА)

Здравко Лалчев, Маргарита Върбанова, Мирослав Стоимиров, Ирина Вутова

КОНКУРЕНТНИ ПЕРПЕНДИКУЛЯРИ, ОПРЕДЕЛЕНИ ОТ ПРАВИЛНИ МНОГОЪГЪЛНИЦИ

Йоана Христова, Геновева Маринова, Никола Кушев, Светослав Апостолов, Цветомир Иванов

A NEW PROOF OF THE FEUERBACH THEOREM

Sava Grozdev, Hiroshi Okumura, Deko Dekov

PROBLEM 3 ON THE IMO’2019 PAPER

Sava Grozdev, Veselin Nenkov

Книжка 1
GENDER ISSUES IN VIRTUAL TRAINING FOR MATHEMATICAL KANGAROO CONTEST

Mark Applebaum, Erga Heller, Lior Solomovich, Judith Zamir

KLAMKIN’S INEQUALITY AND ITS APPLICATION

Šefket Arslanagić, Daniela Zubović

НЯКОЛКО ПРИЛОЖЕНИЯ НА ВЪРТЯЩАТА ХОМОТЕТИЯ

Сава Гроздев, Веселин Ненков

2019 година
Книжка 6
DISCRETE MATHEMATICS AND PROGRAMMING – TEACHING AND LEARNING APPROACHES

Mariyana Raykova, Hristina Kostadinova, Stoyan Boev

CONVERTER FROM MOODLE LESSONS TO INTERACTIVE EPUB EBOOKS

Martin Takev, Elena Somova, Miguel Rodríguez-Artacho

ЦИКЛОИДА

Аяпбергенов Азамат, Бокаева Молдир, Чурымбаев Бекнур, Калдыбек Жансуйген

КАРДИОИДА

Евгений Воронцов, Никита Платонов

БОЛГАРСКАЯ ОЛИМПИАДА ПО ФИНАНСОВОЙ И АКТУАРНОЙ МАТЕМАТИКЕ В РОССИИ

Росен Николаев, Сава Гроздев, Богдана Конева, Нина Патронова, Мария Шабанова

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Задача 1. Да се намерят всички полиноми, които за всяка реална стойност на удовлетворяват равенството Татяна Маджарова, Варна Задача 2. Правоъгълният триъгълник има остри ъгли и , а центърът на вписаната му окръжност е . Точката , лежаща в , е такава, че и . Симетралите

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 1, 2019

Задача 1. Да се намерят всички цели числа , за които

Книжка 5
ДЪЛБОКО КОПИЕ В C++ И JAVA

Христина Костадинова, Марияна Райкова

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Задача 1. Да се намери безкрайно множество от двойки положителни ра- ционални числа Милен Найденов, Варна

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 6, 2018

Задача 1. Точката е левият долен връх на безкрайна шахматна дъска. Една муха тръгва от и се движи само по страните на квадратчетата. Нека е общ връх на някои квадратчета. Казва- ме, че мухата изминава пътя между и , ако се движи само надясно и нагоре. Ако точките и са противоположни върхове на правоъгълник , да се намери броят на пътищата, свърз- ващи точките и , по които мухата може да мине, когато: а) и ; б) и ; в) и

Книжка 4
THE REARRANGEMENT INEQUALITY

Šefket Arslanagić

АСТРОИДА

Борислав Борисов, Деян Димитров, Николай Нинов, Теодор Христов

COMPUTER PROGRAMMING IN MATHEMATICS EDUCATION

Marin Marinov, Lasko Laskov

CREATING INTERACTIVE AND TRACEABLE EPUB LEARNING CONTENT FROM MOODLE COURSES

Martin Takev, Miguel Rodríguez-Artacho, Elena Somova

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Задача 1. Да се реши уравнението . Христо Лесов, Казанлък Задача 2. Да се докаже, че в четириъгълник с перпендикулярни диагонали съществува точка , за която са изпълнени равенствата , , , . Хаим Хаимов, Варна Задача 3. В правилен 13-ъгълник по произволен начин са избрани два диа- гонала. Каква е вероятността избраните диагонали да не се пресичат? Сава Гроздев, София, и Веселин Ненков, Бели Осъм

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 5, 2018

Задача 1. Ако и са съвършени числа, за които целите части на числата и са равни и различни от нула, да се намери .

Книжка 3
RESULTS OF THE FIRST WEEK OF CYBERSECURITY IN ARKHANGELSK REGION

Olga Troitskaya, Olga Bezumova, Elena Lytkina, Tatyana Shirikova

DIDACTIC POTENTIAL OF REMOTE CONTESTS IN COMPUTER SCIENCE

Natalia Sofronova, Anatoliy Belchusov

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Краен срок за изпращане на решения 30 ноември 2019 г.

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 4, 2018

Задача 1. Да се намерят всички тройки естествени числа е изпълнено равенството: а)

Книжка 2
ЕЛЕКТРОНЕН УЧЕБНИК ПО ОБЗОРНИ ЛЕКЦИИ ЗА ДЪРЖАВЕН ИЗПИТ В СРЕДАТА DISPEL

Асен Рахнев, Боян Златанов, Евгения Ангелова, Ивайло Старибратов, Валя Арнаудова, Слав Чолаков

ГЕОМЕТРИЧНИ МЕСТА, ПОРОДЕНИ ОТ РАВНОСТРАННИ ТРИЪГЪЛНИЦИ С ВЪРХОВЕ ВЪРХУ ОКРЪЖНОСТ

Борислав Борисов, Деян Димитров, Николай Нинов, Теодор Христов

ЕКСТРЕМАЛНИ СВОЙСТВА НА ТОЧКАТА НА ЛЕМОАН В ЧЕТИРИЪГЪЛНИК

Веселин Ненков, Станислав Стефанов, Хаим Хаимов

A TRIANGLE AND A TRAPEZOID WITH A COMMON CONIC

Sava Grozdev, Veselin Nenkov

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Христо Лесов, Казанлък Задача 2. Окръжност с диаметър и правоъгълник с диагонал имат общ център. Да се докаже, че за произволна точка M от е изпълне- но равенството . Милен Найденов, Варна Задача 3. В изпъкналия четириъгълник са изпълнени равенства- та и . Точката е средата на диагонала , а , , и са ортоганалните проекции на съответно върху правите , , и . Ако и са средите съответно на отсечките и , да се докаже, че точките , и лежат на една права.

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 3, 2018

Задача 1. Да се реши уравнението . Росен Николаев, Дико Суружон, Варна Решение. Въвеждаме означението , където . Съгласно това означение разлежданото уравнение придобива вида не е решение на уравнението. Затова са възможни само случаите 1) и 2) . Разглеж- даме двата случая поотделно. Случай 1): при е изпълнено равенството . Тогава имаме:

Книжка 1
PROBLEM 6. FROM IMO’2018

Sava Grozdev, Veselin Nenkov

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 2, 2018

Задача 1. Да се намери най-малкото естествено число , при което куба с целочислени дължини на ръбовете в сантиметри имат сума на обемите, рав- на на Христо Лесов, Казанлък Решение: тъй като , то не е куб на ес- тествено число и затова . Разглеждаме последователно случаите за . 1) При разглеждаме естествени числа и , за които са изпълнени релациите и . Тогава то , т.е. . Освен това откъдето , т.е. .Така получихме, че . Лесно се проверява, че при и няма естествен

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Задача 1. Да се намерят всички цели числа , за които

2018 година
Книжка 6
„ЭНЦИКЛОПЕДИЯ ЗАМЕЧАТЕЛЬНЫХ ПЛОСКИХ КРИВЫХ“ – МЕЖДУНАРОДНЫЙ СЕТЕВОЙ ИССЛЕДОВАТЕЛЬСКИЙ ПРОЕКТ В РАМКАХ MITE

Роза Атамуратова, Михаил Алфёров, Марина Белорукова, Веселин Ненков, Валерий Майер, Генадий Клековкин, Раиса Овчинникова, Мария Шабанова, Александр Ястребов

A NEW MEANING OF THE NOTION “EXPANSION OF A NUMBER”

Rosen Nikolaev, Tanka Milkova, Radan Miryanov

Книжка 5
ИТОГИ ПРОВЕДЕНИЯ ВТОРОЙ МЕЖДУНАРОДНОЙ ОЛИМПИАДЬI ПО ФИНАНСОВОЙ И АКТУАРНОЙ МАТЕМАТИКЕ СРЕДИ ШКОЛЬНИКОВ И СТУДЕНТОВ

Сава Гроздев, Росен Николаев, Мария Шабанова, Лариса Форкунова, Нина Патронова

LEARNING AND ASSESSMENT BASED ON GAMIFIED E-COURSE IN MOODLE

Mariya Gachkova, Martin Takev, Elena Somova

УЛИТКА ПАСКАЛЯ

Дарья Коптева, Ксения Горская

КОМБИНАТОРНИ ЗАДАЧИ, СВЪРЗАНИ С ТРИЪГЪЛНИК

Росен Николаев, Танка Милкова, Катя Чалъкова

Книжка 4
ЗА ПРОСТИТЕ ЧИСЛА

Сава Гроздев, Веселин Ненков

ИНЦЕНТЪР НА ЧЕТИРИЪГЪЛНИК

Станислав Стефанов

ЭПИЦИКЛОИДА

Инкар Аскар, Камила Сарсембаева

ГИПОЦИКЛОИДА

Борислав Борисов, Деян Димитров, Иван Стефанов, Николай Нинов, Теодор Христов

Книжка 3
ПОЛИНОМИ ОТ ТРЕТА СТЕПЕН С КОЛИНЕАРНИ КОРЕНИ

Сава Гроздев, Веселин Ненков

ЧЕТИРИДЕСЕТ И ПЕТА НАЦИОНАЛНА СТУДЕНТСКА ОЛИМПИАДА ПО МАТЕМАТИКА

Сава Гроздев, Росен Николаев, Станислава Стоилова, Веселин Ненков

Книжка 2
TWO INTERESTING INEQUALITIES FOR ACUTE TRIANGLES

Šefket Arslanagić, Amar Bašić

ПЕРФЕКТНА ИЗОГОНАЛНОСТ В ЧЕТИРИЪГЪЛНИК

Веселин Ненков, Станислав Стефанов, Хаим Хаимов

НЯКОИ ТИПОВЕ ЗАДАЧИ СЪС СИМЕТРИЧНИ ЧИСЛА

Росен Николаев, Танка Милкова, Радан Мирянов

Книжка 1
Драги читатели,

където тези проценти са наполовина, в Източна Европа те са около 25%, в

COMPUTER DISCOVERED MATHEMATICS: CONSTRUCTIONS OF MALFATTI SQUARES

Sava Grozdev, Hiroshi Okumura, Deko Dekov

ВРЪЗКИ МЕЖДУ ЗАБЕЛЕЖИТЕЛНИ ТОЧКИ В ЧЕТИРИЪГЪЛНИКА

Станислав Стефанов, Веселин Ненков

КОНКУРСНИ ЗАДАЧИ НА БРОЯ

Задача 2. Да се докаже, че всяка от симедианите в триъгълник с лице разделя триъгълника на два триъгълника, лицата на които са корени на урав- нението където и са дължините на прилежащите на симедианата страни на три- ъгълника. Милен Найденов, Варна Задача 3. Четириъгълникът е описан около окръжност с център , като продълженията на страните му и се пресичат в точка . Ако е втората пресечна точка на описаните окръжности на триъгълниците и , да се докаже, че Хаим Х

РЕШЕНИЯ НА ЗАДАЧИТЕ ОТ БРОЙ 2, 2017

Задача 1. Да се определи дали съществуват естествени числа и , при които стойността на израза е: а) куб на естествено число; б) сбор от кубовете на две естествени числа; в) сбор от кубовете на три естествени числа. Христо Лесов, Казанлък Решение: при и имаме . Следова- телно случай а) има положителен отговор. Тъй като при число- то се дели на , то при и имаме е естестве- но число. Следователно всяко число от разглеждания вид при деление на дава ос

2017 година
Книжка 6
A SURVEY OF MATHEMATICS DISCOVERED BY COMPUTERS. PART 2

Sava Grozdev, Hiroshi Okumura, Deko Dekov

ТРИ ИНВАРИАНТЫ В ОДНУ ЗАДА

Ксения Горская, Дарья Коптева, Асхат Ермекбаев, Арман Жетиру, Азат Бермухамедов, Салтанат Кошер, Лили Стефанова, Ирина Христова, Александра Йовкова

GAMES WITH

Aldiyar Zhumashov

SOME NUMERICAL SQUARE ROOTS (PART TWO)

Rosen Nikolaev, Tanka Milkova, Yordan Petkov

ЗАНИМАТЕЛНИ ЗАДАЧИ ПО ТЕМАТА „КАРТИННА ГАЛЕРИЯ“

Мирослав Стоимиров, Ирина Вутова

Книжка 5
ВТОРОЙ МЕЖДУНАРОДНЫЙ СЕТЕВОЙ ИССЛЕДОВАТЕЛЬСКИЙ ПРОЕКТ УЧАЩИХСЯ В РАМКАХ MITE

Мария Шабанова, Марина Белорукова, Роза Атамуратова, Веселин Ненков

SOME NUMERICAL SEQUENCES CONCERNING SQUARE ROOTS (PART ONE)

Rosen Nikolaev, Tanka Milkova, Yordan Petkov

Книжка 4
ГЕНЕРАТОР НА ТЕСТОВЕ

Ангел Ангелов, Веселин Дзивев

INTERESTING PROOFS OF SOME ALGEBRAIC INEQUALITIES

Šefket Arslanagić, Faruk Zejnulahi

PROBLEMS ON THE BROCARD CIRCLE

Sava Grozdev, Hiroshi Okumura, Deko Dekov

ПРИЛОЖЕНИЕ НА ЛИНЕЙНАТА АЛГЕБРА В ИКОНОМИКАТА

Велика Кунева, Захаринка Ангелова

СКОРОСТТА НА СВЕТЛИНАТА

Сава Гроздев, Веселин Ненков

Книжка 3
НЯКОЛКО ПРИЛОЖЕНИЯ НА ТЕОРЕМАТА НА МЕНЕЛАЙ ЗА ВПИСАНИ ОКРЪЖНОСТИ

Александра Йовкова, Ирина Христова, Лили Стефанова

НАЦИОНАЛНА СТУДЕНТСКА ОЛИМПИАДА ПО МАТЕМАТИКА

Сава Гроздев, Росен Николаев, Веселин Ненков

СПОМЕН ЗА ПРОФЕСОР АНТОН ШОУРЕК

Александра Трифонова

Книжка 2
ИЗКУСТВЕНА ИМУННА СИСТЕМА

Йоанна Илиева, Селин Шемсиева, Светлана Вълчева, Сюзан Феимова

ВТОРИ КОЛЕДЕН ЛИНГВИСТИЧЕН ТУРНИР

Иван Держански, Веселин Златилов

Книжка 1
ГЕОМЕТРИЯ НА ЧЕТИРИЪГЪЛНИКА, ТОЧКА НА МИКЕЛ, ИНВЕРСНА ИЗОГОНАЛНОСТ

Веселин Ненков, Станислав Стефанов, Хаим Хаимов

2016 година
Книжка 6
ПЕРВЫЙ МЕЖДУНАРОДНЫЙ СЕТЕВОЙ ИССЛЕДОВАТЕЛЬСКИЙ ПРОЕКТ УЧАЩИХСЯ В РАМКАХ MITE

Мария Шабанова, Марина Белорукова, Роза Атамуратова, Веселин Ненков

НЕКОТОРЫЕ ТРАЕКТОРИИ, КОТОРЫЕ ОПРЕДЕЛЕНЫ РАВНОБЕДРЕННЫМИ ТРЕУГОЛЬНИКАМИ

Ксения Горская, Дарья Коптева, Даниил Микуров, Еркен Мудебаев, Казбек Мухамбетов, Адилбек Темирханов, Лили Стефанова, Ирина Христова, Радина Иванова

ПСЕВДОЦЕНТЪР И ОРТОЦЕНТЪР – ЗАБЕЛЕЖИТЕЛНИ ТОЧКИ В ЧЕТИРИЪГЪЛНИКА

Веселин Ненков, Станислав Стефанов, Хаим Хаимов

FUZZY LOGIC

Reinhard Magenreuter

GENETIC ALGORITHM

Reinhard Magenreuter

Книжка 5
NEURAL NETWORKS

Reinhard Magenreuter

Книжка 4
АКТИВНО, УЧАСТВАЩО НАБЛЮДЕНИЕ – ТИП ИНТЕРВЮ

Христо Христов, Христо Крушков

ХИПОТЕЗАТА В ОБУЧЕНИЕТО ПО МАТЕМАТИКА

Румяна Маврова, Пенка Рангелова, Елена Тодорова

Книжка 3
ОБОБЩЕНИЕ НА ТЕОРЕМАТА НА ЧЕЗАР КОШНИЦА

Сава Гроздев, Веселин Ненков

Книжка 2
ОЙЛЕР-ВЕН ДИАГРАМИ ИЛИ MZ-КАРТИ В НАЧАЛНАТА УЧИЛИЩНА МАТЕМАТИКА

Здравко Лалчев, Маргарита Върбанова, Ирина Вутова, Иван Душков

ОБВЪРЗВАНЕ НА ОБУЧЕНИЕТО ПО АЛГЕБРА И ГЕОМЕТРИЯ

Румяна Маврова, Пенка Рангелова

Книжка 1
STATIONARY NUMBERS

Smaiyl Makyshov

МЕЖДУНАРОДНА ЖАУТИКОВСКА ОЛИМПИАДА

Сава Гроздев, Веселин Ненков

2015 година
Книжка 6
Книжка 5
Книжка 4
Книжка 3
МОТИВАЦИОННИТЕ ЗАДАЧИ В ОБУЧЕНИЕТО ПО МАТЕМАТИКА

Румяна Маврова, Пенка Рангелова, Зара Данаилова-Стойнова

Книжка 2
САМОСТОЯТЕЛНО РЕШАВАНЕ НА ЗАДАЧИ С EXCEL

Пламен Пенев, Диана Стефанова

Книжка 1
ГЕОМЕТРИЧНА КОНСТРУКЦИЯ НА КРИВА НА ЧЕВА

Сава Гроздев, Веселин Ненков

2014 година
Книжка 6
КОНКУРЕНТНОСТ, ПОРОДЕНА ОТ ТАНГЕНТИ

Сава Гроздев, Веселин Ненков

Книжка 5
ИНФОРМАТИКА В ШКОЛАХ РОССИИ

С. А. Бешенков, Э. В. Миндзаева

ОЩЕ ЕВРИСТИКИ С EXCEL

Пламен Пенев

ДВА ПОДХОДА ЗА ИЗУЧАВАНЕ НА УРАВНЕНИЯ В НАЧАЛНАТА УЧИЛИЩНА МАТЕМАТИКА

Здравко Лалчев, Маргарита Върбанова, Ирина Вутова

Книжка 4
ОБУЧЕНИЕ В СТИЛ EDUTAINMENT С ИЗПОЛЗВАНЕ НА КОМПЮТЪРНА ГРАФИКА

Христо Крушков, Асен Рахнев, Мариана Крушкова

Книжка 3
ИНВЕРСИЯТА – МЕТОД В НАЧАЛНАТА УЧИЛИЩНА МАТЕМАТИКА

Здравко Лалчев, Маргарита Върбанова

СТИМУЛИРАНЕ НА ТВОРЧЕСКА АКТИВНОСТ ПРИ БИЛИНГВИ ЧРЕЗ ДИНАМИЧЕН СОФТУЕР

Сава Гроздев, Диана Стефанова, Калина Василева, Станислава Колева, Радка Тодорова

ПРОГРАМИРАНЕ НА ЧИСЛОВИ РЕДИЦИ

Ивайло Старибратов, Цветана Димитрова

Книжка 2
ФРАКТАЛЬНЫЕ МЕТО

Валерий Секованов, Елена Селезнева, Светлана Шляхтина

Книжка 1
ЕВРИСТИКА С EXCEL

Пламен Пенев

SOME INEQUALITIES IN THE TRIANGLE

Šefket Arslanagić

2013 година
Книжка 6
Книжка 5
МАТЕМАТИЧЕСКИЕ РЕГАТЬI

Александр Блинков

Книжка 4
Книжка 3
АКАДЕМИК ПЕТЪР КЕНДЕРОВ НА 70 ГОДИНИ

чл. кор. Юлиан Ревалски

ОБЛАЧНИ ТЕХНОЛОГИИ И ВЪЗМОЖНОСТИ ЗА ПРИЛОЖЕНИЕ В ОБРАЗОВАНИЕТО

Сава Гроздев, Иванка Марашева, Емил Делинов

СЪСТЕЗАТЕЛНИ ЗАДАЧИ ПО ИНФОРМАТИКА ЗА ГРУПА Е

Ивайло Старибратов, Цветана Димитрова

Книжка 2
ЕКСПЕРИМЕНТАЛНАТА МАТЕМАТИКА В УЧИЛИЩЕ

Сава Гроздев, Борислав Лазаров

МАТЕМАТИКА С КОМПЮТЪР

Сава Гроздев, Деко Деков

ЕЛИПТИЧЕН АРБЕЛОС

Пролет Лазарова

Книжка 1
ФРАГМЕНТИ ОТ ПАМЕТТА

Генчо Скордев

2012 година
Книжка 6
ДВЕ ДИДАКТИЧЕСКИ СТЪЛБИ

Сава Гроздев, Светлозар Дойчев

ТЕОРЕМА НА ПОНСЕЛЕ ЗА ЧЕТИРИЪГЪЛНИЦИ

Сава Гроздев, Веселин Ненков

ИЗЛИЧАНЕ НА ОБЕКТИВНИ ЗНАНИЯ ОТ ИНТЕРНЕТ

Ивайло Пенев, Пламен Пенев

Книжка 5
ДЕСЕТА МЕЖДУНАРОДНА ОЛИМПИАДА ПО ЛИНГВИСТИКА

д–р Иван А. Держански (ИМИ–БАН)

ТЕОРЕМА НА ВАН ОБЕЛ И ПРИЛОЖЕНИЯ

Тодорка Глушкова, Боян Златанов

МАТЕМАТИЧЕСКИ КЛУБ „СИГМА” В СВЕТЛИНАТА НА ПРОЕКТ УСПЕХ

Сава Гроздев, Иванка Марашева, Емил Делинов

I N M E M O R I A M

На 26 септември 2012 г. след продължително боледуване ни напусна проф. дпн Иван Ганчев Донев. Той е първият професор и първият доктор на науките в България по методика на обучението по математика. Роден е на 6 май 1935 г. в с. Страхилово, В. Търновско. След завършване на СУ “Св. Кл. Охридски” става учител по математика в гр. Свищов. Тук той организира първите кръжоци и със- тезания по математика. През 1960 г. Иван Ганчев печели конкурс за асистент в СУ и още през следващата година започ

Книжка 4
Книжка 3
СЛУЧАЙНО СЪРФИРАНЕ В ИНТЕРНЕТ

Евгения Стоименова

Книжка 2
SEEMOUS OLYMPIAD FOR UNIVERSITY STUDENTS

Sava Grozdev, Veselin Nenkov

EUROMATH SCIENTIFIC CONFERENCE

Sava Grozdev, Veselin Nenkov

FIVE WAYS TO SOLVE A PROBLEM FOR A TRIANGLE

Šefket Arslanagić, Dragoljub Milošević

ПРОПОРЦИИ

Валя Георгиева

ПЪТЕШЕСТВИЕ В СВЕТА НА КОМБИНАТОРИКАТА

Росица Керчева, Румяна Иванова

ПОЛЗОТВОРНА ПРОМЯНА

Ивайло Старибратов

Книжка 1
ЗА ЕЛЕКТРОННОТО ОБУЧЕНИЕ

Даниела Дурева (Тупарова)

МАТЕМАТИКАТА E ЗАБАВНА

Веселина Вълканова

СРАВНЯВАНЕ НА ИЗРАЗИ С КВАДРАТНИ КОРЕНИ

Гинка Бизова, Ваня Лалева

©2005 Национално Издателство Аз-Буки ООД. Всички права запазени.