Добавил:
ivanov666
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Технологии программирования. Практикум для студентов, обучающихся по направлению подготовки 51.03.06 «Библиотечно-информационная деятельность», профил
.pdf
Test (2, 2) = "ОЗУ"
Test (3, 2) = "дискета"
Test (4, 2) = "1"
'данные 3 вопроса
Test (0, 3) = "назначение монитора"
Test (1, 3) = "ввод"
Test (2, 3) = "вывод"
Test (3, 3) = "печать"
Test (4, 3) = "2"
'данные 4 вопроса
Test (0, 4) = "назначение CD ROM"
Test (1, 4) = "чтение информации"
Test (2, 4) = "запись информации"
Test (3, 4) = "хранение информации"
Test (4, 4) = "3"
'данные 5 вопроса
Test (0, 5) = "указать устройство ввода и вывода информа-
ции"
Test (1, 5) = "дискета"
Test (2, 5) = "мышь"
Test (3, 5) = "дисковод"
Test (4, 5) = "3"
5. В окне кода процедуры обработки события Click для объекта
OptOtvet наберите:
s = Index
6. В окне кода процедуры обработки события Click для объекта
Cmd наберите:
For i = 1 To 3
OptOtvet(i).Value = False
Next i
If n = 0 Then
n = 1
LblVopros.Caption = Test (0, n)
61
For i = 1 To 3
OptOtvet(i).Caption = Test (i, n)
Next i
Exit Sub
End If
If Test (4, n) = s Then Verno = Verno + 1
If n = 5 Then 'тест окончен
MsgBox Str(Verno), , "количество верных ответов"
End
End If
'вывод следующего вопроса
n = n + 1
LblVopros.Caption = Test (0, n)
For i = 1 To 3
OptOtvet(i).Caption = Test( i, n)
Next i
7. Проверьте работу программы.
Контрольные вопросы:
1. Как организуется многомерный массив в Visual Basic?
2. Охарактеризуйте типы данных, используемых в лабораторной
работе.
Список литературы:
1. Visual Basic. Самоучитель для начинающих [Электронный
ресурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 256–269. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
2. Грошев, А. С. Информатика [Электронный ресурс]: учебник
для вузов / А. С. Грошев. – Москва; Берлин: Директ-Медиа, 2015. –
С. 384–388. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/ index.php?page=book&id=428591
62
Лабораторная работа № 11
(4 часа)
Текстовый редактор
Цель работы: освоить технологию создания программы обработки текста.
Задачи работы:
- научиться создавать на основе поля RichTextBox текстовый ре-
дактор;
- освоить элементы управления диалоговыми окнами
OpenFileDialog, FontDialog, ShowDialog.
Обеспечивающие средства: ОС Windows 7 или выше; интегри-
рованная среда разработки Visual Basic 2010.
Теоретическая часть
Диалоговые окна в большинстве приложений Windows стандартные. Разработчики библиотеки классов NET Framework создали элемент управления SaveFileDialog, который уже имеет вид нужного
диалогового окна для сохранения файла. Простые элементы управления внутри диалогового окна уже запрограммированы надлежащим
образом.
Для открытия файлов используется элемент управления
OpenFileDialog. Для настройки шрифта используется элемент управления FontDialog. В режиме работы диалоговые
окна возникают при
выполнении метода ShowDialog.
Дословно словосочетание RichTextBox на русский язык переводится как «богатое текстовое поле». Имеется в виду, что это обычное
текстовое поле, которое можно обогатить многими возможностями
текстового редактора. Так, отдельные фрагменты текста в поле
RichTextBox вы сможете форматировать по-разному, то есть придавать им,
например, различные размер и цвет шрифта. Вы сможете
придавать разные стили абзацам и т.д. Созданные документы можно
сохранять в формате RTF, который воспринимается редактором Word.
63
Технология работы
1. В меню Файл выберите Создать проект.
2. В диалоговом окне Создание проекта в области Шаблоны
выберите Приложение Windows.
3. В поле Имя введите Создание меню и нажмите кнопку ОК.
Откроется новый проект Windows Forms.
4. Настройте общий вид формы: присвойте ей имя «Текстовый
редактор».
5. Поместите на форму элемент управления RichTextBox и для
краткости переименуйте его в RTB. Поместите на форму проекта диа-
логовые окна открытия, сохранения файла, настройки шрифта (рису-
нок 29).
Рисунок 30 – Внешний вид формы «Текстовый редактор»
6. Создайте верхнее меню по следующей структуре, представ-
ленной в таблице 22.
Таблица 22 – Структура меню текстового редактора
Заголовок Подзаголовок
Файл Открыть
Закрыть
64
Окончание табл. 22
Шрифт
Выравнивание По левому краю
По центру
По правому краю
Маркер Поставить
Снять
Закрыть
7. Добавьте на форму невизуальные элементы управления диа-
логовыми окнами OpenFileDialog, FontDialog, ShowDialog.
8. Создайте процедуру выделения текста черным цветом.
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
RichTextBox1.HideSelection = False 'Чтобы выделение не
снималось с фрагмента при уходе фокуса с поля
End Sub
9. Перейдем к процедурам открытия и сохранения документа.
RichTextBox сохраняет свой текст в так называемом RTF-файле,
который не является обычным текстовым файлом. Однако у объекта
RichTextBox имеются методы LoadFile и SaveFile, которые нам
необходимы. Создадим процедуры открытия и закрытия файла.
Private Sub ОткрытьToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ОткрытьToolStripMenuItem.Click
OpenFileDialog1.Filter = "RTF-файлы|*.RTF|Текстовые
файлы|*.txt"
If OpenFileDialog1.ShowDialog() = DialogResult.Cancel
Then Exit Sub
Dim Файл As String = OpenFileDialog1.FileName
RichTextBox1.LoadFile(Файл)
End Sub
65
Private Sub СохранитьToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
СохранитьToolStripMenuItem.Click
SaveFileDialog1.Filter = "RTF-файлы|*.RTF|Текстовые
файлы|*.txt"
If SaveFileDialog1.ShowDialog() = DialogResult.Cancel
Then Exit Sub
Dim Файл As String = SaveFileDialog1.FileName
RichTextBox1.SaveFile(Файл)
End Sub
10. Создайте процедуру измения шрифта, при этом используйте
свойства элемента управления RichTextBox, начинающиеся на
Selection….
Private Sub ШрифтToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ШрифтToolStripMenuItem.Click
FontDialog1.ShowColor = True 'Предоставить
возможность выбирать цвет шрифта
FontDialog1.ShowDialog() 'Показать диалоговое окно
настройки шрифта
'Присвоить выделенному фрагменту шрифт,
выбранный в диалоговом окне:
RichTextBox1.SelectionFont = FontDialog1.Font
'Присвоить выделенному фрагменту цвет шрифта,
выбранный в диалоговом окне:
RichTextBox1.SelectionColor = FontDialog1.Color
End Sub
66
11. Создайте процедуру выравнивания текста.
Private Sub ПоЛевовомуКраюToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
ПоЛевомуКраюToolStripMenuItem.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Left
End Sub
Private Sub ПоЦентруToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
ПоЦентруToolStripMenuItem.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
End Sub
Private Sub ПоПравомуКраюToolStripMenuItem_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
ПоПравомуКраюToolStripMenuItem.Click
RichTextBox1.SelectionAlignment = HorizontalAlignment.Right
End Sub
12. Составьте процедуру постановки и снятия метки.
Private Sub ПоставитьToolStripMenuItem_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles
ПоставитьToolStripMenuItem.Click
RichTextBox1.SelectionBullet = True
End Sub
Private Sub СнятьToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
СнятьToolStripMenuItem.Click
RichTextBox1.SelectionBullet = False
End Sub
67
13. Распишите процедуру закрытия файла.
Private Sub ЗакрытьToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ЗакрытьToolStripMenuItem.Click
Me.Close()
End Sub
14. Запустите программу на исполнение.
15. Сохраните проект.
Контрольные вопросы и задания:
1. Опишите поле RichTextBox. Какие возможности оно дает раз-
работчику?
2. Какие компоненты позволяют взаимодействовать с диалого-
выми окнами?
Список литературы:
1. Visual Basic. Самоучитель для начинающих [Электронный
ресурс] / под ред. О. А. Голубева. – Москва: Диалог-МИФИ, 2012. –
С. 323–328. – Университетская библиотека online. – Режим доступа:
http://biblioclub.ru/index.php?page= book&id=136080
Лабораторная работа № 12
(2 часа)
Графический редактор
Цель работы: научиться создавать модель упрощённого графического редактора, который позволит рисовать линии, прямоугольники, закрашенные прямоугольники, окружности и закрашенные окружности.
Задачи работы:
- научиться работать с графическими элементами и обеспечить
возможность выбора инструмента рисования: пера или кисти;
- обеспечить выбор цвета из полной палитры цветов;
68
- обеспечить возможность открытия и сохранения графических
файлов.
Обеспечивающие средства: ОС Windows 7 или выше; язык про-
граммирования Visual Basic 2010.
Технология работы
1. Разместите на форме следующие инструменты:
графическое поле PictureBox1, которое будет использоваться
как область рисования;
четыре надписи Label для вывода имен координат;
меню MainMenu1 для создания меню проекта.
2. Верхнее меню создайте по структуре, приведенной в табли-
це 23.
Таблица 23 – Структура меню программы графического
редактора
Графические
Файл
Цвет
примитивы
Открыть Линия Перо
Сохранить Прямоугольник Кисть
Закрашенный прямо-
угольник
Окружность
Закрашенная окружность
Очистить
3. Добавьте диалоги ColorDialog, OpenFileDialog, SaveFileDia-
log на форму (рисунок 31):
диалог ColorDialog1, который позволяет выбрать цвет с ис-
пользованием диалогового окна Цвет;
диалог OpenFileDialog1, который позволяет открыть файл;
диалог SaveFileDialog1, который позволяет сохранить файл.
69
Рисунок 31 – Внешний вид формы «Графический редактор»
4. Настройте внешний вид вашей формы с помощью окна Свой-
ства.
5. Напишите обработчик событий для каждого инструмента.
Объявите переменные:
Dim X1, X2, Y1, Y2 As Integer
Dim Pen1 As New Pen(Color.FromArgb(255, 0, 255))
Dim Brush1 As New SolidBrush(Color.FromArgb(255, 0, 255))
Dim Image1 As New Bitmap(500, 300)
Dim Graph1 As Graphics = Graphics.FromImage(Image1)
6. Создайте программный код для инструмента PictureBox1, который обеспечивает запоминание и вывод координат щелчков правой
и левой кнопок мыши. Левая кнопка дает координаты Х1, У1; а правая – Х2, У2.
Private Sub PictureBox1_ MouseDown(ByVal sender As Object,
ByVal e As System.Windows.Forms.MouseEventArgs) Handles
PictureBox1.MouseDown
PictureBox1.Image = Image1
Select Case e.Button
Case MouseButtons.Left
X1 = e.X
Y1 = e.Y
Label1.Text = X1
70
Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]