Макросы в OpenOffice.org Урок 2, разработка игры "Угадай число" (материал для занятий кружка информатики)

Макросы OpenOffice.org, Урок №2

         Для автоматизации самых разных действий в OpenOffice.org используются  макросы. Макрос автоматизирует действия, которые требуют длительных ручных манипуляций с возможными ошибками. В настоящее время автоматизированные действия наиболее легко выполняются написанием макросов на OOo Basic. OOo Basic подобен другим разновидностям Basic (Visual Basic, VBA, VBScript и т.д.). Цель этой методички — дать возможность обучающимся максимально быстро начать программировать в OpenOffice.org .

         Сегодня мы создадим простую игру «Угадай число».

Алгоритм данной игры чрезвычайно прост, компьютер задумывает число от 1до 99 а человек пытается его угадать за наименьшее число попыток. При каждой попытке выдается сообщение «Много» или «Мало»

Данная программа более сложная чем Hello World из прошлого урока. Здесь требуются переменные для хранения: задуманного числа, строковой переменной введенной человеком и ее числового варианта, числа попыток

полный текст макроса:

Sub Main

Dim sNum As String, Z As Integer, N As Integer, S As Integer, T As Long

T=Timer

Z = Int((99 * Rnd) )+1 ' задумываем число

S=0  ' сброс счетчика попыток

Do

sNum = InputBox ("Введите число от 1 до 99:","Уважаемый пользователь")

N=Val(sNum)

S=S+1 ' счетчик попыток

if N>Z then MsgBox ( "Много!" , 64, "НЕВЕРНО")

if N<Z then MsgBox ( "Мало!" , 64, "НЕВЕРНО")

Loop Until N = Z

 MsgBox (S , 64, "Угадано! Попыток:")

End Sub

Программа не является законченной игрой, оставляя простор для творчества. Если у Вас установлен OpenOffice.org или LibreOffice,  то можно немедленно попробовать. Кнопка ниже! Только нужно проверить, отключен ли режим разработки. 

МБОУ Нижневерейская средняя школа.           В.А. Витушкин, 2016г.