21.3Выполнение лабораторной работы
Имя проекта
Размещение проекта – на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
Имя отчета < Prog22-Фамилия обучающегося >
Размещение отчета на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
Постройте интерфейс, как показано на рис. 22.1
Public Class Form1
Dim OpenFileDialog1 As New OpenFileDialog
Dim SaveFileDialog1 As New SaveFileDialog
Dim GridTbl As New DataTable
Dim GridTblDataSet As New DataSet
Dim FileNameTbl, TextString As String
Dim FileNumber, CountRow, i As Integer
Dim row As DataRow
' Открытие диалогового окна и выбор имени файла
Private Sub SelectFile(ByRef FileName As String)
OpenFileDialog1.Filter() = ("txt files (*.txt)|*.txt")
Do Until OpenFileDialog1.ShowDialog() = DialogResult.OK
Loop
FileNameTbl = OpenFileDialog1.FileName
End Sub
Private Sub Btn_Import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Import.Click
Call SelectFile(FileNameTbl)
FileNumber = FreeFile()
FileOpen(FileNumber, FileNameTbl, OpenMode.Input, OpenAccess.Read)
TextString = LineInput(FileNumber)
' находим количество столбцов таблицы - CountRow
' и присваиваем имя каждому столбцу таблицы
CountRow = 0
For Each s As String In TextString.Split({";"c})
GridTbl.Columns.Add(s)
CountRow = CountRow + 1
Next s
' выполняем чтение строк файла, пока не встретится конец файла
Do Until EOF(FileNumber)
' читаем и обрабатываем текущую строку файла
TextString = LineInput(FileNumber)
CountRow = 0
'создаем новую строку таблицы
row = GridTbl.NewRow()
For Each s As String In TextString.Split({";"c})
row(CountRow) = s
CountRow = CountRow + 1
Next s
' для каждой текущей строки файла добавляем данные в таблицу
GridTbl.Rows.Add(row)
Loop
FileClose(FileNumber)
DataGridView1.DataSource = GridTbl
End Sub
Private Sub Btn_Export_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Export.Click
SaveFileDialog1.Filter() = ("xml files (*.xml)|*.xml")
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
FileNameTbl = SaveFileDialog1.FileName
End If
GridTblDataSet.Tables.Add(GridTbl)
GridTblDataSet.WriteXml(FileNameTbl)
'GridTblDataSet.WriteXmlSchema(FileNameTbl)
End Sub
Private Sub Btn_Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Clear.Click
GridTbl.Clear()
End Sub
Private Sub BtnDelete_Click(sender As System.Object, e As System.EventArgs) Handles BtnDelete.Click
GridTbl.Clear()
' удаляем все столбцы таблицы
GridTbl.Columns.Clear()
GridTblDataSet.Tables.Clear()
End Sub
Private Sub BtnEnd_Click(sender As System.Object, e As System.EventArgs) Handles BtnEnd.Click
End
End Sub
End Class
21.4Отчет по программе
Назначение программы
Описание интерфейса
Привести описание работы программы. Детально опишите операции открытии файла, чтения строк, формирования таблицы.
Найдите условия, при которых программа выдает ошибку.
Устраните ошибку.
22Лабораторная работа 23
22.1Цель лабораторной работы
Целью лабораторной работы является знакомство с выводом таблицы на печать.
22.2Указание к лабораторной работе
Воспользуйтесь листингом Лабораторной работы 22. Доработайте программу для вывода файла на прннтер.
22.3Отчет по программе
Назначение программы
Привести описание работы программы. Детально опишите операции вывода таблицы на печать.
Найдите условия, при которых программа выдает ошибку.
Устраните ошибку.
23Лабораторная работа 24
23.1Цель лабораторной работы
Целью лабораторной работы является знакомство с методами выделения лексем из предложений.
23.2Указание к лабораторной работе
Воспользуйтесь листингом Лабораторной работы 22. Ознакомьтесь с методами выделения лексем из предложений.
23.3Отчет по программе
Назначение программы
Привести описание работы программы. Детально опишите метод Split.
Найдите условия, при которых программа выдает ошибку.
Устраните ошибку.
24Лабораторная работа 25
24.1Цель лабораторной работы
Целью лабораторной работы является знакомство Процедурами.
24.2Указание к лабораторной работе
Воспользуйтесь листингом Лабораторной работы 22. Ознакомьтесь с правилами составления процедур и передачи параметров по значению.
24.3Отчет по программе
Назначение процедуры
Правила составления процедур и передачи параметров по значению
25Лабораторная работа 25
25.1Цель лабораторной работы
Целью лабораторной работы является знакомство Процедурами.
25.2Указание к лабораторной работе
Воспользуйтесь листингом Лабораторной работы 22. Ознакомьтесь с правилами составления процедур и передачи параметров по ссылке.
25.3Отчет по программе
Назначение процедуры
Правила составления процедур и передачи параметров по ссылке
26Лабораторная работа 25
26.1Цель лабораторной работы
Целью лабораторной работы является знакомство с методами отображения графического файла в форму, ознакомление с понятиями:
Форматы графических файлов. Выбор графического файла. Понятие процедуры.
Использование цикла
Do Until <�условие>
Loop
События и обработка событий. Событие Form1_Load. Вызов процедуры.
Переопределение метода OnPoint. Представление пользовательского окна - MyBase.
Создание графического объекта из графического файла. Нахождение размеров графического объекта.
Переопределение размеров формы. Отображение в форме графического объекта.
26.2Используемые приемы и методы
Для вывода графического изображения в форму используется переопределение (Overrides) метода OnPaint. Overrides Указывает, что свойство или процедура переопределяет идентично именованные свойство или процедуру, унаследованную из базового класса. Смысл переопределения заключается в том, что процедура отрисовки окна дополняется рисованием заданного изображения в окне.
Используются методы, определяющие размеры как графического изображения так и формы.
Использование ключевого слова Me для предоставления способа ссылки на отдельный экземпляр класса или структуры, где в текущий момент выполняется код. Ключевое слово Me ведет себя подобно объектной или структурной переменной, ссылающейся на текущий экземпляр. Ключевое слово Me особенно полезно для передачи данных о выполняющемся в данный момент экземпляре класса или структуры в процедуру, находящуюся в другом классе, структуре или модуле.
26.3Выполнение лабораторной работы
Имя проекта
Размещение проекта – на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
Имя отчета < Prog27-Фамилия обучающегося >
Размещение отчета на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
-
Измените свойства формы Form1:
Свойство
|
Значение
|
Text
|
Программа просмотра изображений
|
Выполните щелчок на элементе управления Form1. Будет создана процедура Private Sub Form1_Load …
Создайте элемент управления OpenFileDialog1.
Введите код, приведенный ниже.
26.4Tекст программы
Public Class Form1
Dim picture As Image
Dim FileImage As String
Dim picture_height, picture_width As Integer
' процедура задания графического файла
' процедура заканчивается лишь тогда, когда файл выбран
Private Sub SelectFile(ByRef FileName As String)
Do Until OpenFileDialog1.ShowDialog() = DialogResult.OK
Loop
FileName = OpenFileDialog1.FileName
End Sub
' запрашиваем имя файла при открытии основной формы программы
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Call SelectFile(FileImage)
End Sub
' Overrides Указывает, что свойство или процедура переопределяет идентично именованные свойство
'или процедуру, унаследованную из базового класса. Смысл переопределения заключается в том,
' что процедура отрисовки окна дополняется рисованием заданного изображения в окне
Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
' Создаем объект - изображение, используя имя файла, полученное при открытии формы
picture = New Bitmap(FileImage)
picture_height = picture.Height()
picture_width = picture.Width()
Me.Height = picture_height + 10
Me.Width = picture_width + 10
e.Graphics.DrawImage(picture, x:=5, y:=5)
End Sub
26.5Отчет по программе
Цель практической работы
Назначение программы
Описание интерфейса и работы программы
Форматы графических файлов. Выбор графического файла. Понятие процедуры. Использование цикла
Do Until <�условие>
Loop
События и обработка событий. Событие Form1_Load. Вызов процедуры.
Переопределение метода OnPoint. Представление пользовательского окна - MyBase.
Создание графического объекта из графического файла. Нахождение размеров графического объекта.
Переопределение размеров формы. Отображение в форме графического объекта.
Привести описание работы программы.
Привести описание ошибок и способов их устранения.
Сохранить отчет в своей сетевой папке.
27Лабораторная работа 28
27.1Цель лабораторной работы
Целью лабораторной работы является знакомство с методами отображения графического файла в прямоугольную область.
27.2Указания по выполнению лабораторной работы
Воспользуйтесь листингом программы Лабораторной работы 27 для доработки программы с целью вывода графика в заданную прямоугольную область.
27.3Выполнение лабораторной работы
Имя проекта
Размещение проекта – на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
Имя отчета < Prog28-Фамилия обучающегося >
Размещение отчета на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
28Лабораторная работа 29
28.1Цель лабораторной работы
Целью лабораторной работы является знакомство с методами отображения графического файла в прямоугольную область.
28.2Указания по выполнению лабораторной работы
Воспользуйтесь листингом программы Лабораторной работы 27 для доработки программы с целью вывода трехмерного графика функции в заданную прямоугольную область.
28.3Выполнение лабораторной работы
Имя проекта
Размещение проекта – на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
Имя отчета < Prog28-Фамилия обучающегося >
Размещение отчета на сервере MKPT-312-SRV01 в папке <�логин пользователя>.
|
