close

Вход

Забыли?

вход по аккаунту

?

Использование редактора Visual Basic for Application в редакторе MS Power Point 2010 для создания макета медицинской информационной системы

код для вставкиСкачать
Вернова Наталья Евгеньевна
Преподаватель математики и информатики, 22 года, высшая квалификационная категория
БОУ СПО "Чебоксарский медицинский колледж" Минздравсоцразвития Чувашии
Использование редактора Visual Basic for Application в редакторе MS Power Point 2007 для создания макета простейшего медицинского приложения
Аннотация:
В статье описываются основы работы со встроенной в Power Point визуальной системой программирования Visual Basic for Application и технология создания макета простейшего медицинского приложения "Регистрация пациента". Детально описан визуальный интерфейс и программный код, проекта. 1. Подготовка к работе с системой визуального программирования Visual Basic for Application в редакторе презентаций Power Point 2007. В редакторе презентаций Power Point 2007 от фирмы Microsoft существует встроенная система программирования Visual Basic for Application, которая позволяет разрабатывать целые виртуальные приложения в рамках одной презентации. В данной статье мы подробно рассмотрим этапы создания простейшего макета медицинской информационной системы. Макет будет содержать три слайда. Первый слайд - это своеобразная обложка приложения и я предлагаю выполнить ее самостоятельно, по своему вкусу. Создание двух оставшихся слайдов рассмотрим детально. Итак, первое, что необходимо сделать, это активировать вкладку "Разработчик" на ленте редактора. Для этого необходимо выполнить следующие действия:
1) Запустить редактор Power Point 2007, выполнив двойной щелчок по соответствующей иконке на рабочем столе.
2) Создать учебную презентацию по предмету и выделить слайд, на котором будет размещен тест.
3) По умолчанию на ленте Power Point 2007 не отображается вкладка "Разработчик", которая необходима для создания презентаций, содержащих программный код. Для отображения вкладки "Разработчик" нужно выполнить щелчок по кнопке "Office" и в открывшемся окне выбрать вкладку "Параметры Power Point".
4) В открывшемся окне "Параметры Power Point" выбрать вкладку "Основные" и поставить галочку перед полем "Показывать вкладку "Разработчик" на ленте" и щелкнуть "Ок".
В результате на ленте редактора появилась новая вкладка "Разработчик"
5) Сохранить презентацию в формате "Презентация с поддержкой макросов". Для этого выполнить щелчок по кнопке сохранения документа. В выпадающем меню выбрать "Сохранить как" и "Другие форматы"
6) Откроется окно "Сохранение документа". В поле "Имя файла" необходимо ввести название вашего приложения. Затем открыть раскрывающийся список в поле "Тип файла" и выбрать "Презентация Power Point с поддержкой макросов".
7) На этом этап подготовки закончен.
2. Знакомство с элементами управления
Для создания полноценного приложения нам понадобятся такие элементы управления как textbox (текстовое поле), Label(надпись), Button(командная кнопка), Checkbox(флажок). Каждый элемент управления имеет свой набор свойств. Например:
* Свойство - Name, позволяет обращаться к элементу по имени. По умолчанию система автоматически присваивает имя каждому элементу, соединяя название элемента и его порядковый номер. Например, Textbox1, Textbox2 и т.д. * Свойство Caption отвечает за подпись элемента, по умолчанию оно совпадает со свойством Name. * Свойство Text также отвечает за подпись элемента, по умолчанию оно совпадает со свойством Name. * Свойство Visible отвечает за видимость элемента, по умолчанию его значение равно "Истина" то есть элемент видим.
* Свойство Enabled отвечает за активность элемента в данный момент, по умолчанию его значение равно "Истина" то есть элемент активен.
* Свойство Back Color - отвечает за цвет фона элемента.
* Свойство Border Color - отвечает за цвет обрамления элемента.
* Свойство Font - устанавливает название, размер и начертание шрифта для надписи, которая будет присутствовать на элементе.
* Свойство Fore Color - отвечает за цвет шрифта
С остальными свойствами познакомимся в процессе работы с элементами управления.
1) Добавим элемент управления textbox на слайд. Для этого перейдем на вкладку "Разработчик". Вид ленты инструментов изменится.
2) На панели инструментов "Элементы управления" расположены основные элементы управления, с которыми нам предстоит работать. Выполним двойной щелчок по элементу textbox и переместим указатель мыши на слайд. Курсор принял вид крестика. Этим крестиком нарисуем элемент управления и щелкнем в стороне.
Для того чтобы иметь возможность обращаться к элементу управления, необходимо задать ему имя. Для этого необходимо выделить элемент управления, то есть нарисованное нами текстовое поле, затем перейти на вкладку "Разработчик" и выполнить щелчок по кнопке "Свойства". Слева откроется окно свойств данного конкретного текстового поля. 3) Перейдем на свойство "Name", сотрем первоначальное название TextBox1, вместо него запишем txtFname
4) Перейдем на свойство "Back Color". Щелкнем раскрывающий список и перейдем на вкладку "Palette"
5) В открывшемся окне щелчком выберем понравившийся цвет.
6) Перейдем на свойство "Font" и установим необходимые параметры шрифта.
Таким образом, на слайд можно добавить различные элементы управления.
3. Создание слайда "Регистрация новой записи"
1) Создадим слад "Регистация пациента"
2) Код для кнопки "Добавить запись"
Private Sub CommandButton1_Click()
Dim N, M As Integer
Dim F As String
Application.Presentations.Application.SlideShowWindows(1).View.GotoSlide (4)
End Sub
3) Код для кнопки "Листать записи"
Private Sub CommandButton4_Click()
Application.Presentations.Application.SlideShowWindows(1).View.GotoSlide (5)
End Sub
4) Код для кнопки "Открыть запись"
Private Sub CommandButton3_Click()
Dim MySlide As Slide
F = Me.TextBox2.Text
Set MySlide = ActivePresentation.Slides(Me.TextBox2.Text)
MySlide.SlideShowTransition.EntryEffect = ppEffectCoverRight
SlideShowWindows(1).View.GotoSlide GetSlideIndex(Me.TextBox2.Text), 1
End Sub
Код функции "GetSlideIndex"
Function GetSlideIndex(Slide As String) As Integer
Dim retVal As Integer
retVal = 0
For i = 1 To ActivePresentation.Slides.Count
If ActivePresentation.Slides(i).Name = Slide Then
retVal = i
Exit For
End If
Next
GetSlideIndex = retVal
End Function
5) Код для кнопки "Удалить запись"
Private Sub CommandButton2_Click()
M = Val(Me.TextBox2.Text)
ActivePresentation.Slides(Me.TextBox2.Text).Delete
Me.TextBox2 = ""
N = ActivePresentation.Slides.Count
Slide3.TextBox1.Text = N - 3
End Sub
6) Код для кнопки "Выход"
Private Sub CommandButton5_Click()
Application.Quit
End Sub
7) Создание Слайда "Регистрационная карта пациента"
4. Создание слайда "Новая запись"
1. Код для кнопки "Запомнить запись"
Dim L As String
Dim N As Integer
N = ActivePresentation.Slides.Count
Slide3.TextBox1.Text = N - 3
Me.TextBox1.Text = N - 3
Me.TextBox6.Text = N - 3
L = Slide6.TextBox6.Text + " " + Slide6.TextBox2.Text + " " + Slide6.TextBox3.Text
Slide7.ListBox1.AddItem (L)
With ActivePresentation
ActivePresentation.Slides(4).Duplicate.Name = Slide6.TextBox2.Text
End With
End Sub 2. Код для кнопки "Новая запись"
Dim N, M As Integer
N = ActivePresentation.Slides.Count
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.CheckBox1.Value = False: Me.CheckBox2.Value = False: Me.CheckBox3.Value = False
Me.CheckBox4.Value = False: Me.CheckBox5.Value = False: Me.CheckBox6.Value = False: Me.CheckBox7.Value = False:Me.CheckBox1.Value = False
End Sub
3. Код кнопки "В меню"
Private Sub CommandButton2_Click()
Application.Presentations.Application.SlideShowWindows(1).View.GotoSlide (2)
Slide3.TextBox2.Text = ""
End Sub
4. Код кнопки "Карточка"
Private Sub CommandButton4_Click()
P = Me.TextBox6.Text
Select Case P
Case "1"
UserForm1.Label2.Caption = Slide6.TextBox2.Text + " " + Slide6.TextBox3.Text + " " + Slide6.TextBox4.Text
UserForm1.Show
Case "2"
UserForm2.Label2.Caption = Slide6.TextBox2.Text + " " + Slide6.TextBox3.Text + " " + Slide6.TextBox4.Text
UserForm2.Show
Case "3"
UserForm3.Label2.Caption = Slide6.TextBox2.Text + " " + Slide6.TextBox3.Text + " " + Slide6.TextBox4.Text
UserForm3.Show
End Select
End Sub
Список источников
http://msdn.microsoft.com/library
Автор
profobrazovanie
Документ
Категория
Без категории
Просмотров
495
Размер файла
1 947 Кб
Теги
создание, point, application, информационные, использование, система, медицинскому, редактора, visual, basic, 2010, power, макет
1/--страниц
Пожаловаться на содержимое документа