Нетипизированные файлы

Информация в таких файлах хранится в виде набора одинаковых записей определенной структуры. Размер одной записи является значением суммы размеров всех ее полей.

Для открытия файла записей используется оператор Open, в котором необходимо указать размер записей, которые содержатся в файле:

Open путь [For Random] As номер Len=размер

Для занесения записей в файл используется оператор Put, для извлечения – оператор Get , как и при работе с двоичными файлами, под позицией понимается порядковый номер записи в нетипизированном файле.

ПРИЛОЖЕНИЕ 1

Интерфейс:

Программный код.

Dim sngX As Single, sngY As Single, sngZ As Single

Private Sub cmd1_Click()

sngX = CSng(txt1.Text)

sngY = CSng(txt2.Text)

sngY = sngX ^ 2 + sngY ^ 2

txt3.Text = CStr(sngY)

End Sub

Private Sub cmd2_Click()

End

End Sub

Результаты работы программы:

ПРИЛОЖЕНИЕ 2

Интерфейс:

Программный код.

Dim sngX As Single, sngY As Single

Private Sub cmd1_Click()

sngX = CSng(txt1.Text)

If sngX < 0 Then

sngY = -1

Else

If sngX = 0 Then

sngY = 0

Else

sngY = 1

End If

End If

lbl2.Caption = "При X= " & sngX & " y= " & sngY

End Sub

Private Sub cmd2_Click()

End

End Sub

Результаты работы программы:

ПРИЛОЖЕНИЕ 3

Интерфейс:

Программный код.

Dim sngX As Single, sngY As Single

Dim sngA As Single, sngB As Single, sngH As Single

Private Sub cmd2_Click()

sngA = CSng(txt1.Text)

sngB = CSng(txt2.Text)

sngH = CSng(txt3.Text)

For sngX = sngA To sngB Step sngH

sngY = sngX ^ 2

Print " X= " + Format(sngX, "#0.0#"); " Y=" + Format(sngY, "#0.0#")

Next sngX

End Sub

Private Sub cmd1_Click()

End

End Sub

Результаты работы программы:

ПРИЛОЖЕНИЕ 4

Интерфейс:

Программный код.

Dim intI As Integer, sngS As Single, sngA As Single

Private Sub cmd1_Click()

intI = 0

sngS = 0

sgnA = intI ^ 3 / (intI + 1)

Do While sgnA <= 10

sgnS = sgnS + sgnA

intI = intI + 1

sgnA = intI ^ 3 / (intI + 1)

Loop

txt1.Text = Left(Str(sgnS), 7)

End Sub

Private Sub cmd2_Click()

End

End Sub

Private Sub Form_Load()

frmWhile.Move (Screen.Width - frmWhile.Width) / 2, (Screen.Height - frmWhile.Height) / 2

End Sub

Результаты работы программы: