Угадай-ка! (решение с помощью текстовго окна, меток и бегунка)

Скачать  архив с исходником  60 кбИсходник №3, для работоспособности разархивировать на диск "С" и, кроме того, там у вас уже должна лежать папка ug1 со звуковыми файлами с предыдущих уроков, в противном случае вместо звукового сопровождения вы будете слышать что-то вроде "БУМ"...

Вы запустили программу и поработали с ней, и что, какие ощущения? Cкорее всего вам не понравилось то, что перед вводом нового числа каждый раз необходимо курсором мыши выделять предыдущее число или удалять его клавишей Backspace и только после этого вводить новое. А нельзя ли вводить информацию, вообще не касаясь клавиатуры?

Вы знаете, можно! И для этого существует очень много способов, начиная от голосового и заканчивая разного рода ползунками, изменяя положения которых меняются те или иные значения.


В качестве простого примера можно предложить построить программу, где наряду с вводом с клавиатуры будем использовать ползунок - регулятор или, как он называется, ScrollBar. Форму необходимо будет немного доработать, например, как это сделал я, можно найти и свое решение, но главное в том, что вы должны будете разместить ScrollBar как можно ближе к текстовому окну, поскольку они работают в связке. Изменяем положение ползунка, при этом меняется и значение TextBox. Для работы такой программы откройте предыдущий проект и на форму скиньте ScrollBar.

После этого измените следующие свойства ScrollBar:

Max = 99
Min = 1
Value=50

Можно поэкспериментировать со свойствами: Orientation и MousePointer, после чего будет необходимо немного доработать код, написанный ранее до следующего: (новые команды выделены красным)

Public задумано As Byte

Private Sub CommandButton1_Click()
If TextBox1.Text = задумано Then Label2.Caption = "Молодец! Количество попыток -"
файл = ("C:\ugadai2\угадал.wav")
mu = sndPlaySound(файл, 1)
ElseIf TextBox1.Text > задумано Then Label2.Caption = "ПЕРЕЛЕТ : ПОПЫТКА №"
Label3.Caption = Label3.Caption + 1
файл = ("C:\ugadai2\перелет.wav")
mu = sndPlaySound(файл, 1)
Else Label2.Caption = "НЕДОЛЕТ : ПОПЫТКА №"
Label3.Caption = Label3.Caption + 1
файл = ("C:\ugadai2\недолет.wav")
mu = sndPlaySound(файл, 1)
End If
End Sub


Private Sub CommandButton2_Click()
End
End Sub

Private Sub ScrollBar1_Change()
TextBox1.Text = ScrollBar1.Value
End Sub

Private Sub UserForm_Activate()
Randomize: задумано = Int((99 * Rnd) + 1)
TextBox1.Text = ScrollBar1.Value
End Sub

продолжение :

Рейтинг@Mail.ru главная программы задачи карта Copyright © СОМИТ, А.Козлов, 2005 г