3 Этап Составление программ

Вывести массив, у которого упорядочены первые к числе, где к меньше общего числа элем. массива.

20. Методика введения понятия “Файлы”

3 этапа обучения: 1) Подготовительный этап предназначен для введения терминологии. 2) Этап работы с готовыми документами предназначен для осознания и усвоения учениками работы с электронными документами с использованием электронных инструментов. 3) Этап построения документа предназначен для формирования приемов построения электронных документов с использованием электронных инструментов.

1 Этап Подготовительный

1.Файл – это поименованная область памяти на диске. Для работы с файлами в VB используется пространство имён System.IO.

2.Visual Basic поддерживает 2 типа файлов: ASCII-файлы и двоичные файлы, и 2 способа доступа к файлам: последовательный и произвольный. Наиболее часто используются ASCII-файлы с последовательным доступом к файлу.

3.Открытие файла для чтения:

Dim path As String = "mushroomer.txt" (имя файла)

Dim fileinfo = New FileInfo(Path) (объявл.новый экземпляр файла)

Dim streamreader As StreamReader = fileinfo.OpenText() (Открываем файл для чтения)

4.Чтение данных из файла:

Do

N = N + 1 (Увеличение счетчика на 1)

sText = streamreader.ReadLine()…

Loop Until sText = "" (Проверка на пустую строку)

5.Запись данных в файл:

Dim Pathw = "mushroomer1.txt" (имя файла)

Dim fileinfow = New FileInfo(Pathw) (объявляем новый экземпляр файла)

Dim streamwriter As StreamWriter = fileinfow.AppendText() (Открываем файл для записи)

For i = 1 To N - 1

streamwriter.WriteLine(X(i) & " " & Y(i)) (Добавл.строку в файл

Next

5.Закрытие файла:

streamreader.Close()

streamwriter.Close()

2 Этап Работа с готовыми программами

Пример программы: Вывести координаты Грибника в листбокс из файла.

Imports System.IO

Public Class frmFile

Dim X(), Y() As Integer

Dim N As Integer = 1

Dim picDTrack As Graphics

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

Dim path As String = "mushroomer.txt" (имя файла)

Dim fileinfo = New FileInfo(Path) (объявл.новый экземпляр файла)

Dim InProbel As Integer = 0

lstXY.Items.Clear() (очистка ListBox)

Dim streamreader As StreamReader = fileinfo.OpenText() (Открываем файл для чтения)

Dim sText As String = "" (Строка текста в файле)

Dim p As String = " " (Разделитель чисел (пробел))

sText = streamreader.ReadLine() (Читаем строку из файла)

Do

ReDim Preserve X(N), Y(N) (Увеличиваем размер массива)

InProbel = sText.IndexOf(p) (Определяем место расположения символа p (пробела))

X(N) = Convert.ToUInt16(sText.Substring(0, InProbel)) (Координата X от начала строки до пробела)

Y(N) = Convert.ToUInt16(sText.Substring(InProbel + 1, sText.Length - InProbel - 1)) (Координата Y после пробела до конца строки)

lstXY.Items.Add(Convert.ToString(X(N)) + " " + Convert.ToString(Y(N))) (Запись в ListBox для контроля)

N = N + 1 (Увеличение счетчика на 1)

sText = streamreader.ReadLine()

Loop Until sText = ""

End Sub