Читайте также:
|
1. Установите на форме следующие объекты и измените им свойства 1 часть
| Объект | Свойство | Значение |
| Метки | Caption | Время старта |
| Caption | Время окончания | |
| Caption | Сколько прошло | |
| Командные кнопки | Name | CmdStart |
| Caption | Start | |
| Name | CmdStop | |
| Caption | Stop | |
| Текстовые окна | Name | TxtStart |
| Text | (отсутствует) | |
| Name | TxtStop | |
| Text | (отсутствует) | |
| Name | TxtItog | |
| Text | (отсутствует) |
2.
 |
3. В разделе общих объявлений набрать General Declarations
Dim starttime As Variant, dtime As Variant, itogtime As Variant
4. В окне кода процедуры обработки события Click набрать для объекта cmdStart
starttime = Now
txtstart.Text = Format (starttime, "hh:mm:ss")
txtstop.Text = "": txtItog.Text = ""
5. В окне кода процедуры обработки события Click набрать для объекта cmdStop
endtime = Now
itogtime = endtime - starttime
txtstop.Text = Format (endtime, "hh:mm:ss")
txtItog.Text = Format (itogtime, "hh:mm:ss")
6. Проверьте работу программы. Результат показать преподавателю.
Часть
7. Откройте новый проект, установите следующие объекты и измените им свойства
| Объект | Свойство | Значение |
| Рамки | Caption | Сегодня |
| Caption | Дата рождения (дд.мм.гг) | |
| Caption | (отсутствует) | |
| Caption | Сколько прожил дней | |
| Caption | Ваш возраст | |
| Метки | Name | LblDay |
| Name | LblD | |
| Name | LblM | |
| Name | LblY | |
| Name | LblResult | |
| Name | LblLet | |
| Командная кнопка | Name | CmdPusk |
| Caption | Пуск | |
| Текстовое окно | Name | TxtDataR |
| Text | (отсутствует) |
8. Приведите свою форму в соответствие с образцом
 |
9. В окне кода процедуры обработки события Click набрать для объекта cmdPusk
Дата добавления: 2015-11-16; просмотров: 48 | Нарушение авторских прав
| <== предыдущая страница | | | следующая страница ==> |
| Порядок выполнения | | | Dim dd, dr As Date |