Угадай-ка! (корректируем программу)

Скачать  архив с исходником  91 кбИсходник для работоспособности разархивировать на диск "С"

/ Вы почувствовали разницу между первой и второй программой, конечно, ведь вторая уже стала мультимедийной. Я думаю что если вы находитесь на этой странице, то будете совсем не против если я расскажу, как это сделать. Многого делать не прийдется, нужно будет только чуть- чуть исправить код предыдущей программы, а именно добавьте строки, которые я выделил красным и удалите слова, выделенные жирным.


Public задумано As Byte
Public Default As Byte

Private Sub UserForm_Activate()
Default = 0
Label1.Caption = "Я задумала число, угадай-ка, друг, его!"
Randomize: задумано = Int((99 * Rnd) + 1)
игра
End Sub

Sub игра()
Dim Message, Title, Default
Message = "Введите число от 1 до 99"
Title = "Угадай-ка!"
Default = "50"
число = InputBox(Message, Title, Default, 4940, 3400)
Default = число
проверка
End Sub

Все готово, можно и подключать звуковой модуль. Прежде всего, его нужно создать, вы уже знакомы с двумя способами, как это можно сделать. Любым способом создайте новый модуль. Обратите внимание на то, что он вам может пригодиться и в других разрабатываемых вами программах, поэтому имеет смысл его положить (сохранить) в отдельную папку, которую можно назвать, скажем "БИБЛИОТЕКА МОДУЛЕЙ".

продолжение


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