Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология
Образование Политология Производство Психология Стандартизация Технологии


ЛабораторнЫЕ работы 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

Next

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

Next

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

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

 

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

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

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

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

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

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

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

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

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


Поделиться:



Популярное:

  1. Аудиторные занятия (лекции, лабораторные, практические, семинарские занятия)
  2. Глава 3 Лабораторные методы исследования
  3. КЛИНИКО-ЛАБОРАТОРНЫЕ ЭТАПЫ ИЗГОТОВЛЕНИЯ
  4. Лабораторные данные при кетоацидозе
  5. ЛАБОРАТОРНЫЕ И ИНСТРУМЕНТАЛЬНЫЕ ИССЛЕДОВАНИЯ
  6. Лабораторные и инструментальные исследования
  7. Лабораторные и инструментальные методы исследования больных с заболеваниями сердца и сосудов
  8. Лабораторные и инструментальные методы исследования.
  9. ЛАБОРАТОРНЫЕ ЭТАПЫ ИЗГОТОВЛЕНИЯ ИСКУССТВЕННЫХ ШТАМПОВАННЫХ МЕТАЛЛИЧЕСКИХ КОРОНОК. ОБОРУДОВАНИЕ И ИНСТРУМЕНТАРИЙ. ОСНОВЫ МОДЕЛИРОВАНИЯ КОРОНОК РАЗЛИЧНЫХ ГРУПП ЗУБОВ.
  10. Методы исследования больных при заболеваниях почек и мочевыводящих путей (расспрос, осмотр, пальпация и перкуссия, лабораторные и инструментальные методы исследования).
  11. Методы исследования поджелудочной железы (расспрос, осмотр, пальпация и перкуссия живота, лабораторные и инструментальные методы исследования).


Последнее изменение этой страницы: 2016-06-05; Просмотров: 536; Нарушение авторского права страницы


lektsia.com 2007 - 2024 год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! (0.018 с.)
Главная | Случайная страница | Обратная связь