XREFF.RU


МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Филиал ФГБОУ ВПО «Московский государственный университет технологий...



Если Вам понравился сайт нажмите на кнопку выше
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Филиал ФГБОУ ВПО «Московский государственный университет технологий...

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ Филиал ФГБОУ ВПО «Московский государственный университет технологий...

18


МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Филиал ФГБОУ ВПО

«Московский государственный университет технологий и управления

имени К.Г. Разумовского» в г. Ростове-на-Дону




Кафедра «Информационные технологии»









МЕТОДИЧЕСКИЕ УКАЗАНИЯ К ВЫПОЛНЕНИЮ ПРОЕКТА


«ЦИФРОВЫЕ ЧАСЫ ДЛЯ WINDOWS»

по дисциплине

«Программирование и основы алгоритмизации»







Для студентов заочной формы обучения:


220301 – Автоматизация технологических процессов и производств




Составил:

Евсин Николай Федорович.

Переработал Каныгин Дмитрий Геннадьевич – заведующий кафедрой ИТ, к.т.н., доцент







Ростов-на-Дону

2012 г.

СОЗДАНИЕ ПРОЕКТАВ СРЕДЕ VISUAL BASIC 6

«ЦИФРОВЫЕ ЧАСЫ ДЛЯ WINDOWS»


1. Краткие сведения из теории

 

Visual Basic (далее будем применять сокращение VB) содержит удобную графическую среду для быстрого создания эффективных приложений для Windows.

 

1.1. Запуск VB

 

Запустите VB и начните краткое знакомство. Для этого выполните следующие действия:

 

щелкните на кнопке Пуск (Start) панели задач, выполните команду Программы (Programs) и укажите на папку Microsoft VB. Появятся значки содержимого папки.

 

щелкните на значке программы Microsoft VB.

 

Рис. 1. Окно нового проекта

 

Если появится диалоговое окно нового проекта (New Project) (рис. 1), в котором можно выбрать один из нескольких типов шаблонов проектов, выберите Standart.exe (стандартный шаблон) и щелкните на кнопке Open (Открыть) – на экране появится окно среды Microsoft VB, изображение которого показано ниже на рис. 2.

 

Рис. 2. Основные компоненты окна Visual Basic

 

Назначениtотдельных компонент VB:

 








 

1.2. Выход из VB

 

Самый простой способ выхода из VB – выполнить команды File, Exit.

 

Если появиться вопрос, необходимо ли сохранить изменения проекта, то выбрать No, если Вам не требуется сохранить выполненные изменения или Yes, если выполненные изменения требуется сохранить.

 


1.3. Файлы проектана VB

 

В соответствии с принятой в VB терминологией, прикладная программа, называется проектом.

В проект могут входить несколько файлов различных видов, в том числе:

 





 


1.4. Шаги создания проекта на VB

 

Разработка прикладной программы для Windows на VB включает три шага, которые по желанию программиста могут быть выполнены повторно в произвольном порядке:


  1. Планирование пользовательского интерфейса.


  1. Установка значений свойств объектов.


  1. Написание текста программы.

 

1.4.1. Планирование пользовательского интерфейса

 

Это первый шаг в создании прикладной программы. Здесь решается какой набор форм и управляющих объектов (окна, кнопки, меню, линейки прокрутки и т.д.) сделает удобным взаимодействие пользователя с программой.

 

1.4.2. Установка свойств

 

Каждый из управляющих объектов, применяемых в программе, имеет набор свойств, которые определяют их внешний вид и поведение. На этом шаге задаются значения свойств каждого применяемого управляющего объекта.

 

1.4.3. Написание текста программы

 

Назначение этого шага ясно из его названия. Написание текста программы или, как принято говорить, кода программы выполняется с использованием конструкций алгоритмического языка Visual Basic.

 










2. Создание проекта «Цифровые часы для Windows»



Условие задачи

  

Цифровые часы, внешний вид которых показан на рис. 3, должны показывать текущую дату и время. Эта информация должна обновляться при щелчке по кнопке с надписью "Показать время".


Этап 1.Планирование пользовательского интерфейса.


Цифровые часы должны иметь следующий вид

 

Рис. 3. Цифровые часы

 

На них должно быть предусмотрено место, где будет выводиться текущая дата и время, а также должна быть предусмотрена кнопка, щелчок на которой приводит к обновлению текущей даты и времени.


Этап 2.Установка значений свойств объектов.

 

Запустите VB. Если появилось окно New Project, то выберите Standart EXE (стандартный) вкладки New (новый) и щелкните на кнопке Открыть. Ознакомьтесь с окном проекта.

 

Щелкните на кнопке  Project Explorer (Обозреватель проекта) на панели инструментов. Окно проекта (Project) теперь выделено. Если это окно было закрыто, сейчас оно появилось.

 

Если в окне проекта слева от пиктограммы Project1 отображается знак (+), то щелкните на этом значке. Появится пиктограмма Form1. Если окно формы не появилось, то дважды щелкните на пиктограмме Form1 в окне проекта.

 

Рис. 4. Окно свойств

 

Если окно свойств на экране не отображается, выберите в строке меню View (вид), Properties (свойства), чтобы вывести окно свойств Form1, как показано на рис. 4.

 

Рекомендуем периодически (после работы в течение десяти – пятнадцати минут) выполнять сохранение проекта. 

Для этого выполните команды строки меню File (файл) и Save Project (Сохранить проект).

 

В открывшемся диалоговом окне Save File As (Сохранить файл как) выберите папку, в которой будут храниться все файлы создаваемого проекта.

 

Для этого щелкните на кнопке  Создание новой папки панели инструментов окна Save File As. В поле имени появившейся папки введите имя папки, называемой рабочей. При назначении имени рабочей папки следует выбрать имя, чтобы оно было уникальным (тогда Вы не перепутаете ее с чужой) и по возможности коротким. Закончив набор имени рабочей папки, нажмите на клавишу Enter.

 

Наберите MyClock в поле ввода File Name (Имя файла) и нажмите клавишу Enter. Форма Form1 будет сохранена в файле с именем MyClock.frm.

 

Затем появится диалоговое окно Save Project As (Сохранение проекта).

 

Наберите MyClock и нажмите клавишу Enter. Файл проекта будет записан в рабочей папке под именем MyClock.vbp.

 

Прокрутите список свойств формы, пока не дойдете до свойства Width (ширина). Посмотрите на текущее значение свойства – это ширина окна Form1. Линейные размеры в VB измеряются в твипах. В одном сантиметре 567 твипов.

 

Для изменения ширины Form1 щелкните на свойстве Width, чтобы выбрать его. Введите 4000 и нажмите Enter, чтобы изменить значение этого параметра на 4000 твипов. Обратите внимание, что одновременно с этим изменится и ширина формы Form1.

 

Можно изменить значения свойства Width формы Form1, изменяя сам объект. Попробуем этот второй способ изменения размеров формы.

 

Щелкните на окне Form1, чтобы сделать его активным.

 

Сделайте окно уже примерно на два сантиметра, перетащив влево его правую границу.

 

Убедитесь, что значение свойства Width в окне свойств уменьшилось.

 

Измените свойство Width формы Form1 на 4000.

 

Измените свойство Height (высота) на 4000.

 

Если Ваше окно Form1 перекрывает окно элементов, перетащите его (за окно заголовка) с окна элементов вправо.

 

Сохраните проект. Для этого теперь просто достаточно щелкнуть на кнопке Save Projekt панели инструментов.



Упрвляющие элементы

 

Панель управляющих элементов содержит набор условных обозначений (пиктограмм) элементов, которые можно просто включить в проект. При разработке нашей программы потребуются три элемента: Label (Надпись), Command Button (Кнопка) и Timer (Таймер) (рис. 5).

 

Рис. 5. Панель элементов

 

Чтобы добавить в программу управляющий элемент надо:

 

сделать активной форму, в которую Вы хотите добавить управляющий элемент;

 

дважды щелкнуть на требуемом элементе на панели управляющих элементов (или щелкнуть на нем один раз, переместить указатель в ту точку на форме, в которой должен находиться левый верхний угол элемента, нажать левую кнопку мыши, переместить указатель мыши в точку, где должен находиться правый нижний угол элемента и отпустить кнопку мыши);

 

изменить, если требуется, положение и размер элемента.

Вставка надписей

 

Элемент Label применяется для создания на форме окна с текстом.

 

На наших цифровых часах требуется отвести место на циферблате, куда должны выводиться текущая дата и время. Применим для этой цели элемент Label.

 

Добавьте надпись к форме Form1 и измените некоторые ее параметры.

 

Поместите указатель мыши на элемент Label на панели элементов, но не щелкайте на нем. Появиться название инструмента Label. С помощью такого приема можно определять элементы VB из набора.

 

Щелкните на элементе Label, чтобы выбрать его.

 

Переместите указатель мыши в окно Form1. Обратите внимание, что указатель при этом принял вид перекрестья.

 

Поместите перекрестье в левую верхнюю часть окна и нажмите кнопку мыши. Не отпуская ее, перетащите указатель вниз и направо, чтобы надпись стала похожа на ту, которая изображена на рис. 6.

 

Рис. 6. Добавление надписи к форме

 

Посмотрите на Вашу надпись, которую VB автоматически назвал Label1. Если надо изменить ее положение или размеры, передвиньте ее (взяв за центр) или ее границы (взяв за один из черных квадратиков).

 

Сделайте активным окно свойств, щелкнув на его панели заголовка. Если окно свойств не отображено на экране, то следует на панели инструментов щелкнуть на кнопке  Properties Window (Окно свойств).

 

Поскольку выбрана надпись, ее имя (Label1) появится на строке объекта окна свойств, а ее свойства – под этой строкой.

 

Для установки шрифта, размера и эффектов надписи используется свойство Font (шрифт). Выберите это свойство, щелкнув на нем.

 

Обратите внимание, справа от параметра Font появился пропуск (кнопка с изображением "…"), который показывает, что для установки параметра используется диалоговое окно.

 

Щелкните на пропуске, чтобы открыть диалоговое окно Font. Текущие значения относятся к надписи Label1.

 

Посмотрите на текущий шрифт MS Sans Serif. Щелкните на MS Serif, чтобы изменить шрифт на MS Serif. В окне Sample (Пример) появится образец текста с текущими параметрами.

 

Посмотрите на текущее значение размера шрифта (8). Увеличьте его до 24 и посмотрите на изменение в окне Sample.

 

Щелкните на ОК, чтобы применить новые значения свойств к тексту Label1.

 

Установите значения свойств Label1:

 

Alignment (выравнивание): 2;

 

Caption (заголовок): Текущая дата и время;

 

Name (имя): lblTime.

 

Если надо, увеличьте с помощью мыши высоту и ширину Вашей надписи, пока она не будет выглядеть, как показано на рис. 7.

 

Рис. 7. Итоговый интерфейс

 

Добавьте к Form1 кнопку. Когда Вы запустите Вашу программу, часы будут показывать текущее время и дату при нажатии на эту кнопку. Для этого щелкните на элементе Command Button (Кнопка) на панели элементов, чтобы выбрать его.

 

Поместите кнопку в окне Form1, чтобы получилась кнопка, подобная изображенной на рис. 7. Если требуется, передвиньте Вашу кнопку и поменяйте ее размеры.

 

Установите свойства для Вашей кнопки:

 

Caption: Показать время;

 

Name: cmdTime.

 

Сохраните проект.

 

На этом выполнение двух шагов разработки проекта


Этап 1.Планирование пользовательского интерфейса

и

Этап 2.Установка значений свойств объектов


закончено и можно приступить к созданию кода программы проекта.


Этап 3. Написание текста программы


Обратите внимание на поведение двух средств управления в создаваемом проекте до их программирования. Для этого запустите проект на выполнение, выберав в строке меню Run (Исполнить), Start (Начать) или щелкните на кнопке  Start панели инструментов.

 

Посмотрите на экран. Панель элементов и окно свойств пропали. Обратите внимание, что в строке заголовка окна Microsoft Visual Basic в прямых скобках появилось слово [run], которое говорит о том, что сейчас установлен режим исполнения, а не режим разработки [design], который был до этого.

 

Щелкните на кнопке "Показать время". Она нажимается и выскакивает, но больше ничего не происходит, поскольку Вы не запрограммировали эту кнопку, т.е. не сообщили, что должно произойти при нажатии на эту кнопку.

 

Рис.8 . Текст программы кнопки

 

Прекратите работу Вашей прикладной программы. Для этого щелкните на кнопке  End (Закончить) панели инструментов. Вы возвратились в режим разработки (о чем свидетельствует слово design на панели заголовка окна Microsoft Visual Basic).

 

Щелкните дважды на кнопке "Показать время", чтобы отобразилось окно кода, которое показано на рис. 8. Окно кода можно отобразить другим способом. Для этого следует щелкнуть на кнопке  View Code (Показать код) на панели инструментов окна проекта.

 

Посмотрите на окно кода Form1. Мы видим пока еще только заготовку программы, связанной с командной кнопкой. Она начинается с заголовка, включающего слова Private Sub (Локальная процедура), и заканчивается предложением End Sub (Конец процедуры). Между этими предложениями Вы можете вставить текст программы.

 

Для каждого события, которое может произойти с объектом (в данном случае с кнопкой), в системе VB предусмотрена соответствующая событийная процедура. В качестве примера перечислим некоторые события, которые могут произойти с кнопкой:

 

Click – пользователь щелкнул на кнопке управления;

 

MouseMove – пользователь перемещает указатель мыши на кнопку;

 

MouseDown – указатель мыши показывает на кнопку, и пользователь нажимает левую кнопку мыши;

 

MouseUp – указатель мыши показывает на кнопку, и пользователь отпускает левую кнопку мыши.

 

События могут происходить практически с каждым объектом пользовательского интерфейса – формами, меню, текстовыми окнами, окнами рисунков и т.д. Вы должны снабдить все объекты процедурами для обработки каждого события, которое может с ними произойти. Например, чтобы заставить командную кнопку что-либо делать, когда пользователь щелкает на ней, нужно вставить программный текст в процедуру с именем Click. Если же Вы хотите, чтобы происходило какое-либо действие, когда пользователь просто указывает на кнопку, следует вставить программный текст в ее процедуру MouseMove.

 

Запрограммируйте кнопку cmdClick так, чтобы при щелчке на этой кнопке на надписи выводилась текущая дата и время. Окно текста программы должно быть активно, а в нем – показана процедура cmdTime_Click. Если это не так, дважды щелкните по кнопке cmdClick. Между заголовком процедуры и конечной строкой введите инструкцию, предварительно установив для удобочитаемости отступ от начала строки в виде четырех пробелов:

 

LblTime.Caption = Now

 

Вот и вся программа, которая состоит всего из одной инструкции. Эта инструкция делает результаты функции Now значением свойства Captin надписи lblTime. Стандартная функция Now возвращает текущее время и дату. Свойство Caption определяет текст, который появляется на средстве управления (в данном случае – на надписи). Таким образом, когда эта строка программы выполнится, на надписи появятся текущие дата и время.

 

Закройте окно текста процедуры.

 

Сохраните проект (выберите File, Save Project или щелкните на кнопке Save Project панели инструментов).

 

Запустите проект. Несколько раз щелкните по кнопке "Показать время". Каждый раз, когда Вы щелкаете, текущее время и дата появляются на надписи lblTime, как показано на рис. 9.

 

Рис. 9. Работающие цифровые часы

 

Попробуйте с помощью клавиатуры изменить показание времени. У Вас ничего не получится. Запомните, изменить значение свойства Caption надписи можно или в окне свойств в режиме разработки программы, или с помощью выполнения соответствующей инструкции (в нашем примере – это инструкция LblTime.Caption = Now) в режиме выполнения программы, но нельзя изменить с помощью клавиатуры в режиме выполнения.

 

Завершите работу программы.

 

Начинающие программисты часто допускают ошибку, забывая на этапе задания свойств переименовать объект, но в программном коде используют новое имя объекта.

Например, такая ошибка будет сделана если при выполнении пункта «Установите значения свойств Label1» настоящего задания (см. выше), не переименовать надпись Label1: Name (имя): lblTime, а в программном коде использовать имя LblTime. В этом случае окажется, что в программном коде будет применено имя несуществующего объекта, что приведет к ошибке № 424 времени выполнения (см. рис. 10).


Рис. 10. Пример сообщения об ошибке времени выполнения

 

При появлении такого сообщения об ошибке времени выполнения следует щелкнуть в окне сообщения на кнопке Debug (Отладка). Проект перейдет в состояние отладки. Инструкция, в которой обнаружена ошибка будет выделена желтым цветом.



 

5. Усовершенствование проекта

 

В разработанном проекте есть одно неудобство. Часы обновляют показания текущей даты и времени только после щелчка на кнопке.

 

Необходимо сделать так, чтобы показания часов обновлялись через определенные промежутки времени, и чтобы не требовалось щелкать на кнопке для обновления их показаний.

 

Найдите на панели управляющих элементов Timer (он изображен в виде маленького секундомера) и дважды щелкните на нем. Тем самым Вы приказали VB добавить элемент Timer к форме Form1. Обратите внимание, VB автоматически нарисовал средство, выбрав размер по умолчанию. Таймер позволит Вам выполнять программный текст через определенные промежутки времени. Вы можете передвинуть это средство управления, изменить его размер (где Вы поместите таймер, не играет роли, поскольку он не будет виден при выполнении программы).

 

Измените значение свойства Interval таймера на 1000 (время в миллисекундах). Если потребуется, щелкните на кнопке Properties Window, чтобы сделать активным окно свойств. Интервал 1000 означает, что таймер будет запускать процедуру через каждую секунду.

 

В окне Form1 щелкните дважды на таймере, чтобы вывести его программный текст – процедуру Timer1_Timer.

 

В окне программы появится программа процедуры события Timer объекта Timer1 (см. рис. 11).


 

Рис. 11. Текст заготовки программы кнопки

 

Для того чтобы видеть в окне программы одновременно программные тексты для различных объектов, щелкните на расположенной в нижней части окна кода кнопке  отображения программ нескольких объектов формы. В окне программы рядом с текстом процедуры Timer1_Timer появится текст процедуры CmdTimer_Click.

 

Теперь, когда у Вас есть таймер, исправляющий значение часов каждую секунду, Вам больше не нужна кнопка. Скопируем программный текст кнопки "Показать время" в процедуру таймера.

 

Выделите строку текста с функцией Now, которая выводит текущее время на надпись. Чтобы выбрать целую строку текста, переместите указатель мыши к началу строки, пока он не превратиться в стрелку, затем щелкните.

 

Выберите в строке меню Edit, Copy, чтобы скопировать выделенный текст в буфер обмена.

 

Переместите курсор мыши в начало пустой строки в середине подпрограммы Timer1_Timer. Нажмите клавишу Home, убедитесь, что указатель вставки находится в самом начале строки. Это место, куда Вы вставите текст, который только что поместили в буфер обмена.

 

Выберите в строке меню Edit, Paste, чтобы вставить текст из буфера обмена в то место, куда показывает указатель вставки. Ваше окно программы теперь должно содержать текст, показанный ниже.

 

Private Sub CmdTime_Click()

 

Label1.Caption = Now

 

End Sub

 

Private Sub Timer1_Timer()

 

Label1.Caption = Now

 

End Sub

 

Закройтеокнопрограммы.

 

В окне формы Form1 выберите кнопку "Показать время" и нажмите клавишу Del, чтобы уничтожить ее. Эта кнопка больше не нужна, поскольку таймер автоматически корректирует показания времени и даты каждую секунду.

 

Выберите Form1 в строке объектов окна свойств. Затем измените следующие свойства формы:

 

Caption: Часы Ваша фамилия. Например, Часы Иванова И.И.

 

BorderStyle: 3 - Fixed Dialog (просто введите 3 и нажмите клавишу Enter).

 

Caption – это текст, который появиться в панели заголовка формы.

 

Свойство BorderStyle определяет стиль обрамления окна формы Form1, могут ли размеры окна быть изменены в режиме выполнения, а также будут ли появляться кнопки Maximise (увеличение окна) и Minimise (восстановление окна). Заданное Вами значение 3 – FixedDialog определяет окно неизменяемых размеров со сплошной границей без кнопок Maximise и Minimise.

 

Выберите File, Save Project, чтобы сохранить изменения, внесенные во все файлы Вашего проекта. То же самое можно сделать, щелкнув на кнопке Save Projeсt сохранения проекта на панели инструментов.

 

Запустите проект. Сравните Ваши часы с часами на рис. 12. Благодаря таймеру (который исчез из виду, как только Вы запустили проект) показания времени теперь меняются каждую секунду. Завершите работу прикладной программы.


 

Рис. 12. Окончательный вид часов


6. Компиляция проекта

 

Чтобы можно было запускать разработанную на VB программу на компьютере с Windows без установленного VB, необходимо создать выполняемый файл (с расширением .exe). Такой файл может быть получен в результате компиляции проекта.

 

Скомпилируйте только что разработанный проект цифровых часов:

 



 

Проверьте работу файла myclock.exe, который Вы только что создали.

 

Чтобы завершить работу VB, выберите File, Exit.

 

Запустите Проводник, и выберите файл myclock.exe и дважды щелкните на нем, чтобы запустить эту программу. Обратите внимание, программа работает без Visual Basic.

 Завершите работу программы.

refamwh.ostref.ru
  • Карта сайта