методичка Пол. формы (811588), страница 3
Текст из файла (страница 3)
30.Рис. 30Таким образом, всепримера 2, выполнены.условия, сформулированные в задании283.3. Пример 3. VBA программа «Остаток дней»Задание. Создать пользовательскую форму и процедуры к нейв которых реализуется ввод даты, до которой требуется узнать количество оставшихся дней, например до Вашего дня рождения.Организовать вычисление и вывод количества оставшихся дней доуказанной даты, создать кнопки ввода данных, повторения и завершения работы программы. VBA программу назовѐм «Остатокдней». Предусмотреть запуск программы с листа Excel.Создание пользовательской формы и процедурПорядок создания пользовательской формы аналогичен примерам 1 и 2. Пользовательская форма для примера 3 может быть выполнена, например, в следующем виде, см.
рис. 31.Рис. 3129Процедуры для данной пользовательской формы будут иметьвид, представленный на рис. 32.Рис. 32Пользовательская форма для запуска vba программы с листаExcel, т.е. для вызова на лист Excel пользовательской формы представленной на рис.
31, может быть выполнена, например, как нарис.33. Здесь пользовательская форма представлена в виде кнопки(Кнопка10) с надписью «VBA программа « Остаток дней» ».Рис. 3330Процедура для пользовательской формы, представленной нарис. 32 будет иметь следующий вид, см. рис. 34.Рис. 34Замечания.Функция DateDiff используется для вычисления разности двухдат. Возвращает значение типа Variant(Long), указывающее числовременных интервалов между двумя датами.Общая форма записи функции DateDiffDateDiff(Interval,Date1,Date2,[FirstDayOfWeek],[FirstWeekOfYear])Функция содержит следующие именованные аргументы:Interval - обязательный аргумент типа String, указывающий типдобавляемого временного интервала:yyyy – год,q - квартал,m - месяц,y - день года,d - день месяца,w - день недели,ww - неделя,h - часы,n - минуты,s - Секунды;31Interval не чувствителен к регистру букв.
Литерал должен бытьзаключен в кавычки. Для вычисления дней между двумя датамиможно использовать значение интервала дня:"y" или "d";Date1 - обязательный аргумент типа Variant(Date) или литералдаты - первая календарная дата при вычислении разности дат;Date2 - обязательный аргумент типа Variant(Date) или литералдаты - вторая календарная дата при вычислении разности дат;FirstDayOfWeek - необязательный аргумент типа Long, определяющего день недели, допускается использование констант;vbUseSystem=0 - используется значение национальных системных установок:vbSunday=1 - воскресенье(по умолчанию),vbMonday=2 - понедельник,vbTuesday=3 - вторник,vbWednesday=4 - среда,vbThursday=5 - четверг,vbFriday=6 - пятница,vbSaturday - суббота;FirstWeekOfYear - необязательный аргумент - числовая константа, указывающая, какой день недели считать первым;vbUseSystem=0 используется системная информация;vbFirstJan1=1 неделя, содержащая 1 января;vbFirstFourDays=2 первая неделя, содержащая как минимум 4дня нового года;vbFirstFullWeek=3 Первая полная неделя года.Пример.' Вычислить сколько дней осталось до 21 векаDim Today as Date' сегодняшний деньDim Millenium As Date ' 1 день 21 века32Dim retval' возвращаемое значениеToday=Date' узнаем текущую системную датуMillenium="01.01.01"retval=DateDiff ("d",Today,Millenium)Работа vba программы «Остаток дней»При нажатии на клавишу с названием «VBA-программа «Остаток дней»» (см.
рис. 33) на листе Excel появиться пользовательскаяформа. При вводе в неѐ интересующей Вас даты, например,12.03.2012, с учѐтом того, что текущая дата 04.01.2012, формапримет следующий вид, см. рис.35.Рис. 35333.4. Пример 4. VBA программа «Таймер»Задание. Создать vba программу под названием «Таймер». Впрограмму включить пользовательскую форму и процедуры к ней,в которых реализуется ввод временной задержки в секундах, сообщение об истечении заданного времени и организованы кнопкиввода данных, повтора и завершения работы программы.
Предусмотреть запуск программы с листа Excel.Создание пользовательской формы и процедурПорядок создания пользовательской формы аналогичен примерам 1-3. Пользовательская форма для данного примера может бытьвыполнена, например, в следующем виде, см. рис. 36.Рис. 36Процедуры для данной пользовательской формы будут иметьвид, представленный на рис. 37.34Рис. 37Пользовательская форма для запуска VBA программы с листаExcel, может быть выполнена, например, как на рис.38. Здесь пользовательская форма представлена в виде кнопки (Кнопка9) с надписью «VBA программа « Таймер» ».Рис.
3835Процедура для пользовательской формы в виде кнопки, представленной на рис. 38 будет иметь следующий вид, см. рис. 39.Рис. 39Замечания.Функция Timer используется для получения числа секунд,прошедших с полуночи до текущего момента дня.Возвращает значение типа Single, представляющее число секунд, прошедших после полуночи. Значение, возвращаемое таймером, ограничено числом секунд в сутках и обнуляется ровно в полночь.
Эта функция не содержит аргументов.36Работа vba программы «Таймер»При нажатии на клавишу с названием «VBA программа «Таймер» » (см. рис. 38) на листе Excel появиться пользовательскаяформа. При вводе требуемой временной задержки в секундах и нажатии на кнопку, после истечении заданной задержки, на формепоявиться сообщение « В Р Е М Я!!! » и форма примет вид представленный на рис. 40.Рис. 40373.5. Пример 5. VBA программа «Игра»Задание.
Создать vba программу под названием «Игра», в которой требуется угадать число, которое случайным образом выдастпрограмма. В пользовательской форме и процедурах к ней организовать ввод задуманного числа в пределах от 1 до 10-ти и его сравнение с числом, которое случайным образом, в тех же пределах,выдаѐт программа. В случае если числа не равны, должно быть выдано сообщение «ВЫ ПРОИГРАЛИ» и значения чисел, а в случаеесли числа равны - сообщение «ВЫ ВЫИГРАЛИ!!!» и так же значения чисел. Предусмотреть организацию кнопок для повторенияили завершения работы программы и запуска программы с листаExcel.Создание пользовательской формы и процедурПорядок создания пользовательской формы аналогичен примерам 1-4. Пользовательская форма для данного примера может бытьвыполнена, например, в следующем виде, см.
рис. 41.Рис. 4138Процедуры для данной пользовательской формы будут иметьвид, представленный на рис.42.Рис. 42Форма для запуска vba программы с листа Excel, может бытьпредставлена, например, как на рис. 43. Здесь пользовательскаяформа представлена в виде кнопки (Кнопка 1) с надписью «VBAпрограмма « Игра» ».39Рис. 43Процедура для пользовательской формы, представленной нарис. 43 будет иметь следующий вид, см. рис. 44.Рис. 4440Замечания.Функция Rnd [ (Number)], Rnd (Random) служит для генерациислучайных чисел.Функция Rnd возвращает значение в диапазоне от 0 до 1 типаSingle, содержащее случайное число (причем 1 не входит в этотдиапазон, а 0 входит).
Строго говоря, функция возвращает псевдослучайные числа. При каждом запуске программы, функция генерирует одну и ту же последовательность случайных чисел. Во избежание этого явления используйте инструкцию RandomizeЧтобы получить значения случайных чисел в интервале от minдо max используется формула:Int ( (max — min + 1) * Rnd + min)где:min и max-минимальное и максимальное число соответственно;Number - необязательный аргумент представляет число типа Singleили любое допустимое числовое выражение.Аргумент может принимать следующие значения: аргументопущен или больше 0 - генерируется следующее случайное число впоследовательности.
При повторном запуске программы генерируется аналогичная последовательность случайных чисел.Аргумент отрицательный - генерируется одно и то же число,используя аргумент как опорное число.Аргумент равен 0 - генерируется одно и то же число, используячисло при предыдущем вызове функции.Работа vba программы «Игра»При нажатии на клавишу с названием «VBA программа «Игра» » (см. рис. 43) на листе Excel появиться пользовательская форма. После ввода задуманного числа и нажатия кнопки ввода программа определяет случайное число и сравнивает его с введѐнным41числом. Если числа не равны, то на форме появляется сообщение«ВЫ ПРОИГРАЛИ» и значения чисел.
Если числа равны, то наформе появится сообщение «ВЫ ВЫИГРАЛИ!!!» и значения самих чисел (см. рис. 45)..Рис. 45423.6. Пример 6. VBA программа «Компьютер»Задание. Создать vba программу под названием «Компьютер» для вычисления суммы двух и более чисел. В пользовательской форме и процедурах к ней организовать ввод слагаемых чисел, вычисление и вывод результата, возможность вводаследующих слагаемых чисел вычисление их суммы и вывод результата. Предусмотреть организацию кнопок для повторенияили завершения работы программы и запуска программы с листаExcel.Создание пользовательской формы и процедурПорядок создания пользовательской формы аналогичен примерам 1-5.
Пользовательская форма для данного примера может бытьвыполнена, например, в следующем виде, см. рис. 46.Рис. 4643Процедура для пользовательской формы, представленной нарис. 46 будет иметь следующий вид, см. рис. 47.Рис. 4744Форма для запуска vba программы с листа Excel, может бытьвыполнена, например, как на рис. 48. Здесь пользовательская формапредставлена в виде кнопки (Кнопка 1) с надписью «VBA программа « Компьютер» ».Рис. 48Процедура для данной кнопки будет иметь следующий вид,см.
рис. 49.Рис. 4945Работа vba программы «Компьютер»При нажатии на клавишу с названием «VBA программа «Компьютер» », см. рис. 48, на листе Excel появиться пользовательскаяформа. После ввода слагаемых чисел и нажатии на клавишу со знаком равенства появиться результат сложения, см. рис. 50.Рис. 50Если требуется продолжить сложение, то надо нажать на соответствующую клавишу.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
