рус | укр

Главная

Контакты

Навигация:
Арсенал
Болезни
Витамины
Вода
Вредители
Декор
Другое
Животные
Защита
Комнатные растения
Кулинария
Мода
Народная медицина
Огород
Полесадник
Почва
Растения
Садоводство
Строительство
Теплицы
Термины
Участок
Фото и дизайн
Хранение урожая









RЗадание

Лабораторная работа №5

Power Point

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

В качестве примера рассматривается презентация «Цветы», в которой ученику предлагается переместить названия цветов к соответствующему изображению цветка.

 
 

После выполнения команды начать показ на экране монитора появляется слайд, показанный ниже.

 

На слайде размещены следующие элементы управления:

  • Три элемента управления Image(рисунок) с изображениями цветов
  • Три элемента управления Label(надпись) с названиями цветов
  • Три элемента управления Command Button (кнопка)

Помимо этих элементов на слайде размещены два объекта, созданных средствами PP:

  • Объект Надпись (Переместите мышкой…)
  • Объект WordArt(Цветы)

Назначение кнопок первого слайда

Элементы Назначение
Инструкция Открыть форму, в которой пояснение кнопок Назад и Готово
Назад Начать тестирование заново
Готово Завершить тестирование

 

RЗадание

  1. На рабочем диске Y:\ создайте папку T, куда будут протоколироваться результаты тестирования.
  2. Скопируйте на свой рабочий диск Y:\ из папки H:\ Примеры \PP \ Цветы_тест_проба.ppt
  3. Изучите внимательно структуру презентации и ее работу.

 

Пояснения к работе с презентацией:

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

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

Для завершения тестирования нужно щелкнуть по кнопке Готово. Появится сообщение с результатом тестирования («Вы ответили правильно» или «Вы ошиблись, повторите пройденную тему») После щелчка по кнопке ОК соответствующий результат будет записан в файле d:\t\цветы.rtf с указанием даты и времени тестирования, произойдет восстановление исходных положений перемещаемых названий цветов элементов управления слайда, затем презентация будет закрыта.

Свойства элементов управления

Элемент Свойства Значение
Image(рисунок) Name Height Left Picture Top Width AutoBise Image1 19,5 Bitmap.. 226,5 True
Image(рисунок) Name Height Left Picture Top Width AutoBise Image2 19,5 Bitmap.. 193,5 226,5 True
Image(рисунок) Name Height Left Picture Top Width AutoBise Image3 19,5 Bitmap.. 226,5 True
CommandButton(Кнопка) Name caption Font Height Left BlackColor Top Width cmdHelp инструкция Arial,20 &H000564E4&
CommandButton(Кнопка) Name caption Font Height Left BlackColor Top Width cmdBack назад Arial,20 &H000564E4&
CommandButton(Кнопка) Name caption Font Height Left BlackColor Top Width cmdCheck готово Arial,20 &H000564E4&
Label (надпись) Name caption Font Height Left Top Width AutoSize ForeColor Label1 василек Comic Sans MS, размер-20 True &H00C3F9C&
Label (надпись) Name caption Font Height Left Top Width AutoSize ForeColor Label2 камелия Comic Sans MS, размер-20 True &H00C3F9C&
Label (надпись) Name caption Font Height Left Top Width AutoSize ForeColor Label3 роза Comic Sans MS, размер-20 True &H00C3F9C&

 

Процедуры, обеспечивающие функционирование элементов управления:

Option Explicit

'флажки,регистрирующие положение элементов управления label1,label2,label3

'и завершение их перемещения на элементы управления image1, image2,image3

Public FlagLabel1 As Boolean

Public FlagLabel2 As Boolean

Public FlagLabel3 As Boolean

Public Flagimage1 As Boolean

Public Flagimage2 As Boolean

Public Flagimage3 As Boolean

 

'перемещение элемента управления Label1

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)

Dim Effect As Integer

Dim MyDataObject As MSForms.DataObject

If Button = 1 Then

Set MyDataObject = New MSForms.DataObject

MyDataObject.SetText "Label1"

Effect = MyDataObject.StartDrag

End If

End Sub

'перемещение элемента управления Label2

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)

Dim Effect As Integer

Dim MyDataObject As MSForms.DataObject

If Button = 1 Then

Set MyDataObject = New MSForms.DataObject

MyDataObject.SetText "Label2"

Effect = MyDataObject.StartDrag

End If

End Sub

'перемещение элемента управления Label3

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)

Dim Effect As Integer

Dim MyDataObject As MSForms.DataObject

If Button = 1 Then

Set MyDataObject = New MSForms.DataObject

MyDataObject.SetText "Label3"

Effect = MyDataObject.StartDrag

End If

End Sub

Private Sub Image1_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

'Перемещенный элемент управления Label1,Label2,Label3

'оказался над элементом управления Image1, и можно завершить перемещение

Cancel = True

Effect = fmDropEffectCopy

Flagimage1 = True

'Установка перемещенного элемента управления Label1,Label2,Label3

'рядом с элементом уапрвления Image1

If Data.GetText = "Label1" Then

Label1.Left = 260

Label1.Top = 18

FlagLabel1 = True

ElseIf Data.GetText = "Label2" Then

Label2.Left = 260

Label2.Top = 18

ElseIf Data.GetText = "Label3" Then

Label3.Left = 260

Label3.Top = 18

'End If

'End If

End If

End Sub

Private Sub Image2_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

'Перемещенный элемент управления Label1,Label2,Label3

'оказался над элементом управления Image2, и можно завершить перемещение

Cancel = True

Effect = fmDropEffectCopy

Flagimage2 = True

'Установка перемещенного элемента управления Label1,Label2,Label3

'рядом с элементом уапрвления Image2

If Data.GetText = "Label1" Then

Label1.Left = 260

Label1.Top = 192

ElseIf Data.GetText = "Label2" Then

Label2.Left = 260

Label2.Top = 192

FlagLabel2 = True

ElseIf Data.GetText = "Label3" Then

Label3.Left = 260

Label3.Top = 192

End If

'End If

'End If

End Sub

Private Sub Image3_BeforeDropOrPaste(ByVal Cancel As MSForms.ReturnBoolean, ByVal Action As MSForms.fmAction, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal y As Single, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

'Перемещенный элемент управления Label1,Label2,Label3

'оказался над элементом управления Image3, и можно завершить перемещение

Cancel = True

Effect = fmDropEffectCopy

Flagimage3 = True

'Установка перемещенного элемента управления Label1,Label2,Label3

'рядом с элементом уапрвления Image3

If Data.GetText = "Label1" Then

Label1.Left = 260

Label1.Top = 372

ElseIf Data.GetText = "Label2" Then

Label2.Left = 260

Label2.Top = 372

ElseIf Data.GetText = "Label3" Then

Label3.Left = 260

Label3.Top = 372

FlagLabel3 = True

End If

'End If

'End If

End Sub

Private Sub Image1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

'Изменение формы курсора при достижении элементом управления

'Label1,Label2,Label3 элемента управления Image1

Cancel = True

Effect = fmDropEffectCopy

End Sub

Private Sub Image2_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

'Изменение формы курсора при достижении элементом управления

'Label1,Label2,Label3 элемента управления Image2

Cancel = True

Effect = fmDropEffectCopy

End Sub

Private Sub Image3_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal x As Single, ByVal y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

 

'Изменение формы курсора при достижении элементом управления

'Label1,Label2,Label3 элемента управления Image3

Cancel = True

Effect = fmDropEffectCopy

End Sub

'восстановление начального состояния флажков и положения перемещаемых

'элементов управления Label1,Label2,Label3 при щелчке на кнопке "назад"

Private Sub cmdBack_Click()

FlagLabel1 = False

FlagLabel2 = False

FlagLabel3 = False

Flagimage1 = False

Flagimage2 = False

Flagimage3 = False

Label1.Left = 576

Label1.Top = 426

Label2.Left = 540

Label2.Top = 375

Label3.Left = 492

Label3.Top = 324

End Sub

Private Sub cmdCheck_Click()

'Анализ результата выполнения задания

Dim msg As String

Dim title As String

Dim cod As String

Dim resalt As Integer

Dim strfile As String

'удаление ранее созданного файла для записи результата выполнения задания

strfile = Dir("d:\t\цветы.rtf")

If strfile <> "" Then Kill ("d:\t\цветы.rtf")

If (Flagimage1 And FlagLabel1) And (Flagimage2 And FlagLabel2) And (Flagimage3 And FlagLabel3) Then

title = "результат тестирования"

msg = "вы ответили правильно"

cod = vbOKOnly + vbInformation

resalt = MsgBox(msg, cod, title)

'запись результата выполнения задания

Open "d:\t\цветы.rtf" For Output As #1

Print #1, "вы ответили правильно"

Print #1, Now 'системная дата и время создания файла

Print #1,

Close #1

Else

title = "результат тестирования"

msg = "вы ошиблись, пожалуйста, повторите данную тему"

cod = vbOKOnly + vbCritical

resalt = MsgBox(msg, cod, title)

'запись результата выпорлнения задания

Open "d:\t\цветы.rtf" For Output As #1

Print #1, "вы ошиблись, пожалуйста, повторите данную тему"

Print #1, Now 'системная дата и время создания файла

Print #1,

Close #1

End If

'восстановление начального состояния флажков и положения перемещаемых

'элементов управления Label1,Label2,Label3 перед записью и закрытием презентации

FlagLabel1 = False

FlagLabel2 = False

FlagLabel3 = False

Flagimage1 = False

Flagimage2 = False

Flagimage3 = False

Label1.Left = 576

Label1.Top = 426

Label2.Left = 540

Label2.Top = 375

Label3.Left = 492

Label3.Top = 324

ActivePresentation.Save

Application.Quit

End Sub

'открытие формы после щелчка на кнопке "Инструкция2

Private Sub cmdHelp_Click()

HelpForm.Show

End Sub

 

Свойства формы и ее элементов

UserForm (форма) Name caption Font Height Width BackColor HelpForm инструкция Tahoma, размер-8 &H00D3F2FD&
Label (надпись) Name Font Height Left Top Width ForeColor caption   Label1 Tahoma, размер-14 &H00C3F9C& назад- отменить произведенные перемещения названий цветов и начать тестирование снова.
Label (надпись) Name Font Height Left Top Width ForeColor caption   Label2 Tahoma, размер-14 &H00C3F9C& готово- показать и записать в файл D:\T\Цветы.rtf результат тестирования, закрыть презентацию

 

Форма HelpForm уже поддержана процедурами.

Просмотров: 215

Вернуться в категорию: Полесадник

© 2013-2017 cozyhomestead.ru - При использовании материала "Удобная усадьба", должна быть "живая" ссылка на cozyhomestead.ru.