ЛабораторнЫЕ работы 17, 19, 21

Цель лабораторной работы

Целью лабораторной работы является знакомство с одномерными массивами, способами их задания, вложенными циклами, нахождения максимального и минимального элементов массивов в Visual Basic 2010.

Выполнение лабораторной работы

1. Имя проекта < Prog17-Фамилия обучающегося>

2. Размещение проекта – на сервере MKPT-312-SRV01 в папке < логин пользователя>.

3. Имя отчета < Prog17-Фамилия обучающегося >

4. Размещение отчета на сервере MKPT-312-SRV01 в папке < логин пользователя>.

5. Постройте интерфейс, как показано на рис. 20.1

Текст программы

Public Class Form1

Dim A() As Integer = {10, 7, 59, 11, 5, 21, 45, 36, 10, 12}

Dim MaxArray, N As Integer

Dim MinArray, D As Integer

Dim ArraySum As Integer

Private Sub Max_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Max.Click

MaxArray = A(0)

N = 9

For i = 1 To N

If MaxArray < A(i) Then

MaxArray = A(i)

End If

Max.Text = MaxArray

End Sub

Private Sub Min_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Min.Click

MinArray = A(0)

D = 9

For i = 1 To D

If MinArray > A(i) Then

MinArray = A(i)

End If

Min.Text = MinArray

End Sub

Private Sub SumArray_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SumArray.Click

ArraySum = (10 + 7 + 59 + 11 + 5 + 21 + 45 + 36 + 10 + 12)

SumArray.Text = ArraySum

End Sub

End Class

Отчет по программе

1. Назначение программы

2. Описание интерфейса

3. Привести описание работы программы. Детально опишите работу условного оператора.

4. Найдите условия, при которых программа выдает ошибку.

5. Устраните ошибку.

Лабораторная работа 22

Цель лабораторной работы

Целью лабораторной работы является знакомство с методами отображения таблицы в форму.

Решаются задачи:

1. Формирование таблицы с помощью элемента управления DataGridView

2. Заполнение таблицы из файлов.

3. Отображение данных в таблице.

4. Назначение программы

5. Программа размещает в таблице, данные, предварительно занесенные в текстовые файлы.

Используемые приемы и методы

Используется ключевое слово Me для предоставления способа ссылки на отдельный экземпляр класса или структуры, где в текущий момент выполняется код. Ключевое слово Me ведет себя подобно объектной или структурной переменной, ссылающейся на текущий экземпляр. Ключевое слово Me особенно полезно для передачи данных о выполняющемся в данный момент экземпляре класса или структуры в процедуру, находящуюся в другом классе, структуре или модуле.

Для хранения данных, которые будут размещены в таблице, используются 2 строковых массива.

Используются методы, задающие количество и наименование столбцов.

Используются методы, заполняющие строки таблицы из строковых массивов.

Выполнение лабораторной работы

1. Имя проекта < Prog22-Фамилия обучающегося>

2. Размещение проекта – на сервере MKPT-312-SRV01 в папке < логин пользователя>.

3. Имя отчета < Prog22-Фамилия обучающегося >

4. Размещение отчета на сервере MKPT-312-SRV01 в папке < логин пользователя>.

5. Постройте интерфейс, как показано на рис. 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

' выполняем чтение строк файла, пока не встретится конец файла

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

' для каждой текущей строки файла добавляем данные в таблицу

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

Отчет по программе

1. Назначение программы

2. Описание интерфейса

3. Привести описание работы программы. Детально опишите операции открытии файла, чтения строк, формирования таблицы.

4. Найдите условия, при которых программа выдает ошибку.

5. Устраните ошибку.

Лабораторная работа 23

Цель лабораторной работы

Целью лабораторной работы является знакомство с выводом таблицы на печать.

⇐ Предыдущая 1 2 3 4 5 67