(i + 2) + maq (i + 3))/4
p (j) = (maz (i) + maz (i + 1) + maz (i + 2) + maz (i + 3))/4
r (j) = (mar (i) + mar (i + 1) + mar (i + 2) + mar (i + 3))/4
x (j) = (maw (i) + maw (i + 1) + maw (i + 1) + maw (i + 3))/4
j = j + 1
Next i
For i = 1 To 8 'Висновок середніх значень в списки
List2.List (i - 1) = h (i)
List3.List (i - 1) = q (i)
List4.List (i - 1) = w (i)
List5.List (i - 1) = p (i)
List6.List (i - 1) = r (i)
List7.List (i - 1) = x (i)
Next i
Dir1.Enabled = True ' Робить доступним DirListBox
Drive1.Enabled = True ' Робить доступним DriveListBox
File1.Enabled = True ' Робить доступним FileListBox
Command1.Enabled = False 'Робить кнопку знаходження порівн. значень недоступною
Label14.Visible = True ' Робить видимою мітку з повідомленням
End Sub
В
Private Sub Command2_Click ()
Open File1 For Output As # 1 'Відкриває файл, вибраний користувачем
For i = 1 To 8 'Записує дані у файл
Write # 1, h (i), q (i), w (i), p (i), r (i), x (i)
Next i
Close # 1 'Закриває файл
Open "data1" For Output As # 1 'Створює допоміжний файл "data1"
For i = 1 To 32 'Записує в нього всі дані
Write # 1, mag (i), mas (i), ma (i), maq (i), maw (i), mar (i), maz (i)
Next i
Close # 1 'Закриває файл "data1"
Command2.Enabled = False 'Робить кнопку запису даних у файл недоступною після запису
Command3.Enabled = True 'Робить доступною кнопку переходу в ін форму
End Sub
В
Private Sub Command3_Click ()
Form1.Hide 'Приховує 1 форму
Form2.Show 'Показує 2 форму
Command1.Enabled = True 'Робить доступною кнопку знаходження середніх значень
В
End Sub
Private Sub Dir1_Change ()
File1 = Dir1 ' Відображає в FileListBox файли, що містяться в DirListBox
End Sub
В
Private Sub Drive1_Change ()
ChDrive Drive1 ' Міняє диск
Dir1 = Drive1 ' Відображає в DirListBox каталоги диска, зазначеного в DriveListBox
ChDir Dir1 ' Міняє каталог
End Sub
В
Private Sub File1_Click ()
Command2.Enabled = True 'Робить кнопку запису даних у файл доступною
End Sub
В
Private Sub Form_Load ()
Label14.Visible = False ' Робить невидимою мітку з повідомленням
Dir1.Enabled = False ' Робить недоступним DirListBox
Drive1.Enabled = False ' Робить недоступним DriveListBox
File1.Enabled = False ' Робить недоступним FileListBox
Command2.Enabled = False 'Робить кнопку запису даних у файл недоступною
Command3.Enabled = False 'Робить недоступною кнопку переходу в ін форму
MsgBox "Привіт! Ласкаво просимо в Visual Basic! "'Видає повідомлення ' Видає вітальне повідомлення
End Sub
В
Private Sub Text1_Change ()
Text1.Enabled = False 'Робить текстове поле недоступним
End Sub
В
Private Sub Text2_Change ()
Text2.Enabled = False 'Робить текстове поле...
