АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

End Sub. Результат работы программного кода при значении координат x=0.5 и y=0.5 показан на рисунках 10, 11, 12

Результат работы программного кода при значении координат x=0.5 и y=0.5 показан на рисунках 10, 11, 12.

Рис. 10. Диалоговое окно ввода координаты x – результат использования функции InputBox("Введите координату x”)

 

Рис. 11. Диалоговое окно ввода координаты y – результат использования функции InputBox("Введите координату y")

 

Рис. 12. Результаты работы программного кода в диалоговом окне

сообщений (MsgBox)

 

Протестируйте остальные ветви алгоритма, введя соответствующие значения исходных данных.

Теперь рассмотрим пример разработки программного кода того же примера, используя объектно ориентированное программирование, реализуемое средствами языка VBA, используя экранные формы.

Форма и расположение на ней элементов управления после задания новых свойств этим элементам представлена на рисунке 13.

 

Рис. 13. Форма и расположение на ней элементов управления

 

Программный код

Private Sub Cmd_Click()

Dim x As Single

Dim y As Single

Dim strRezultat1 As String

Dim strRezultat2 As String

x = Val(TxtX.Value)

y = Val(TxtY.Value)

strRezultat1 = "Точка (" & X & ", " & Y & ") находится"

If (x - 2) ^ 2 + (y - 2) ^ 2 <= 1 And y <= 2 Then

strRezultat2 = strRezultat1 & "в области B"

ElseIf x ^ 2 + y ^ 2 <= 1 Then

strRezultat2 = strRezultat1 & "в области A"

ElseIf x / -3 + y / 3 <= 1 And x <= 0 And y >= 0 Then

strRezultat2 = strRezultat1 & "в области С"

Else

strRezultat2 = strRezultat1 & "вне областей"

End If

TxtRezultat2.Value = strRezultat2


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)