Ћекции.ќрг


ѕоиск:




 атегории:

јстрономи€
Ѕиологи€
√еографи€
ƒругие €зыки
»нтернет
»нформатика
»стори€
 ультура
Ћитература
Ћогика
ћатематика
ћедицина
ћеханика
ќхрана труда
ѕедагогика
ѕолитика
ѕраво
ѕсихологи€
–елиги€
–иторика
—оциологи€
—порт
—троительство
“ехнологи€
“ранспорт
‘изика
‘илософи€
‘инансы
’ими€
Ёкологи€
Ёкономика
Ёлектроника

 

 

 

 


End Sub




— нажати€ этой кнопки можно начать работу. Ќа по€вившейс€ форме попеременно нажима€ кнопки ѕоложение 1 и ѕоложение 2 можно понаблюдать за изменени€ми на экране.

ѕример 2 движени€ элемента управлени€ через определенные промежутки времени.

ѕусть на форме имеетс€ текстовое поле. ѕрограмма, приведенна€ ниже, производит следующие действи€: поле окрашиваетс€ в зеленый цвет, определ€етс€ положение пол€ на форме и оно мен€етс€ семь раз через одну секунду.

Sub CommandButton1_Click()

UserForm1.TextBox1.BackColor = RGB(0, 255, 0)

For i = 10 To 70 Step 10

UserForm1.TextBox1.Top = 10 + i

UserForm1.TextBox1.Left = 10 + i

If Application.Wait(Now + TimeValue("0:00:1")) Then

End If

Next

End Sub

¬строенна€ функци€ Now определ€ет текущее врем€, с помощью встроенной функции TimeValue задаетс€ интервал времени (в нашем примере Ц 1 сек), метод Wait в приложении (Application) переводит компьютер в режим ожидани€ на некоторый отрезок времени.

ѕример 3. ѕусть разработана форма, представленна€ на рис. 10.3.

–ис. 10.3 Ц ¬вод информации и вывод результатов

ѕрограмма дл€ кнопки ¬ывод результатов вводит значение х из верхнего пол€, рассчитывает значени€ а, b, z и выводит их в пол€ TextBox1, TextBox2, а значение z выводит в надпись Label2, расположенную в нижней части формы UserForm1:

Sub CommandButton1_Click()

Dim x As Single, y As Single

Dim a As Single, b As Single, z As Single

x = UserForm1.TextBox1.Text

y = Format(x, "####.##")

a = (x + y) ^ 2: b = Sin(a) - Sin(b) ^ 3

UserForm1.TextBox2.Text = "a=" & a

UserForm1.TextBox3.Text = "b=" & b

UserForm1.Label2.Caption = "z = " & 5 * Sin(10) / 3





ѕоделитьс€ с друзь€ми:


ƒата добавлени€: 2015-10-01; ћы поможем в написании ваших работ!; просмотров: 365 | Ќарушение авторских прав


ѕоиск на сайте:

Ћучшие изречени€:

∆изнь - это то, что с тобой происходит, пока ты строишь планы. © ƒжон Ћеннон
==> читать все изречени€...

1513 - | 1329 -


© 2015-2024 lektsii.org -  онтакты - ѕоследнее добавление

√ен: 0.007 с.