Создание кнопки запуска Command

    « CommandButton » -- Появившимся крестиком создаём кнопку пуск Command 1.

3. Запись Проекта под новым именем «abc2.vbp»

File – Save As – Найдём нужный раздел -- abc.vbp – Сохранить.

4. Формирование окон  

Создайте на Form1одно окно Text1для вывода результата с. Для этого

левой кнопкой мыши щёлкните на  ab и  крестиком создайте окно Text1. 

Формирование комментария под окном

5.1.Щёлкните и появившимся крестиком создайте окно Label1(бирка) .

5.2. ---Правой кнопкой мыши щёлкните на Label1;

5.3. --- на раскрывшемся окне щелкните на строке Properties(Свойства).

5.4.---- При активном окне Label1в строке Caption исправьте: Label1 = а

Впрочем, для одного окна можно было и не создавать комментария,

смысл этого окна понятен.

6.Очистка окон, предназначенных для ввода a, b. –Нет окон, чистить нечего.

Запись текста программы

Дважды щелкните на кнопке запускаCommand1. В окне программы Project1 – Form1 (Code) появится заготовка для кода (для текста программы).

Private Sub Command1_Click()

 

End Sub

Дополните программу, в результате получите

Private Sub Command1_Click()

a = 3: b = 4: c = Sqr(a ^ 2 + b ^ 2)    Rem Вычисления

Text3 = c                        Rem Вывод результата в окно

End Sub

Примечание: Справа от оператора Rem любая информация является

              комментарием.

Второй вариант программы:

Private Sub Command 1_ Click ()

a = 3: b = 4: c = Sqr(a ^ 2 + b ^ 2)          

MsgBox (MsgBox ("c= " + Str(c)))

End Sub                                            

    В появившемся окне « Project1» появится результат : с=5

Запуск программы на старт и выполнение .

8.1. Нажимите чёрный треугольник в середине верхней понели.

8.2. Нажмите кнопку  Command1, прочитайте результат.

8.4. Нажмите черный квадрат прекращения вычислений.

8.3. В тексте программы (кода) измените значения a,b.

Перейдите к п.8.1.

Выполните вычисления необходимое число раз.

Сохранение программы в файле Word.

Не закрывая VBA, создайте страницу Word, напечатайте на ней название, сохраните в нужном вам разделе и скрпируйте в него текст программы на Бейсике. Активизируйте страницу VBA.

10.Закрытие проекта выполняется щелчками на красных крестиках в верхних углах окон.

 

Задача 4 «dve zadachi»

- создание двух задач на одном листе.

Первая задача: вывести в окно 1 тест: «Здравствуйте, дети! Решим задачу abc »

Вторая задача – уже решённая задача abc2. Используем

Требуется решить задачу 2 при фиксированных значениях данных a, b и после этого решить несколько задач, изменяя их значения в тексте программы. Таким образом, дано: a=3, b=4. Требуется организовать вычисления по формуле Error! Objects cannot be created from editing field codes..

 

1. Открытие New Project:

File – New Project – No – Ok       (Файл – Новый проект – Не сохранять старый проект – открыть Редактор).

Создание кнопки запуска Command

    «CommandButton» --Появившимся крестиком создайте кнопку пускCommand1. Анологично создаём кнопку пуска Command2

3. Запись Проекта под новым именем «dveza.vbp»

File – Save As – Найдём нужный раздел -- dveza.vbp – Сохранить.

4. Формирование окон  

Создайте на Form1одно окно Text1 для вывода текста с обращениям к детям и второе окно для вывода результата с. Для этого

левой кнопкой мыши щёлкните на  ab и  крестиком создайте окно Text1.
Анологично создайте окно Text2

Формирование комментария под окном

Обойдёмся без комментариев. Но если очень хочется – пожалуйста.

6.Очистка окон, предназначенных для ввода a, b. –Нет окон, чистить нечего.

Запись текста программы

Дважды щелкните на кнопке запускаCommand1. В окне программы Project1 – Form1 (Code) появится заготовка для кода (для текста программы).

Private Sub Command1_Click()

Text1 = "Здравствуйте, дети! Сейчас мы с вами решим

задачу abc"

End Sub

Дополните программу, в результате получите

Private Sub Command1_Click()

Text1 = "Здравствуйте, дети! Сейчас мы с вами решим

задачу abc"

End Sub

 

После этого из листа Word скопируйте и вставьте ниже задачу abc2.

Автоматически нод первой программой появится черта, а ниже текст

Private Sub Command1_Click()

a = 3: b = 4: c = Sqr(a ^ 2 + b ^ 2)    Rem Вычисления

Text3 = c                        Rem Вывод результата в окно

End Sub

 

Исправьте Command1 на Command2

 

Запуск программы на старт и  выполнение .

8.1. Нажимите чёрный треугольник в середине верхней понели.

8.2. Нажмите кнопку  Command1, прочитайте результат.

8.3. Нажмите кнопку  Command2, прочитайте результат

8.4. Нажмите черный квадрат прекращения вычислений.

8.5. В тексте программы (кода) измените значения a,b.

Перейдите к п.8.1.

Выполните вычисления необходимое число раз.