Робота з матрицями. Завдання для практичного виконання
Постановка задачі
В текстовому файлі задано матрицю розмірністю 2 х 5. елементами матриці являються цілі числа. Створити проект на Visual Basic, за допомогою якого можна розрахувати суму елементів кожного рядка матриці. Результат вивести на екран монітору та записати до текстового файлу
Порядок виконання
За допомогою програми Блокнот в особистій папці створити файл початкових даних MATRIX.TXT. Файл містить 2 рядка елементів, відокремлених комами, наприклад, 3, 6, 12, 2, 2
5, 8, 11, 7, 32
Створити макет форми (зразок наведено на рис. 6.5)
Рис 6.5 Макет форми з елементами управління
Призначення об’єктів форми:
Picture1 – для виведення елементів матриці, записаних в текстовому файлі Matrix.txt
Picture2 – для виведення результатів розрахунку суми елементів кожного рядка матриці
Command1 – командна кнопка "Виведення матриці", при натисненні на яку до об’єкту Picture1 виводяться елементи матриці, що записані в текстовому файлі Matrix.txt
Command2 – командна кнопка, при натисненні на яку виконується розрахунок суми елементів кожного рядка матриці, вивід результату на екран та запис результату до файлу Rez.txt
Command3 – командна кнопка виходу із додатку
Властивості об’єктів (Form1, Picture1, Picture2, Command1, Command2, Command3 задати самостійно, використовуючи набути навички)
Блок-схема виведення елементів матриці представлено при розгляді прикладу 10 (тема 5).
Блок-схема розрахунку суми елементів кожного рядка матриці представлено на рис.6.6
Програмний код кнопки "Виведення елементів матриці"
Private Sub Command1_Click()
Dim X(1 To 2, 1 To 5) As Integer
Picture1.Print "Матриця"
Open "D:\Учебный процесс\Особиста папка студента\Matrix.txt" For Input As #1
For i = 1 To 2
For j = 1 To 5
Input #1, X(i, j)
Picture1.Print X(i, j);
Next j
Picture1.Print
Next i
Close #1
End Sub
Рис. 6.6 Блок-схема алгоритму розрахунку суми елементів рядків матриці
Програмний код кнопки "Розрахунок суми елементів рядків"
Private Sub Command2_Click()
Dim X(1 To 2, 1 To 5) As Integer
Dim S(1 To 2) As Integer
Open "D:\Учебний процесс\Особиста папка студента\Matrix.txt" For Input As #1
Open "D:\Учебный процесс\Особиста папка студента\Rez.txt" For Output As #2
For i = 1 To 2
S(i) = 0
For j = 1 To 5
Input #1, X(i, j)
S(i) = S(i) + X(i, j)
Next j
Picture2.Print "Сума елементів " & Str(i) & " рядка " & Str(S(i))
Print #2, "Сума елементів " & Str(i) & " рядка " & S(i)
Next i
Close #1
Close #2
End Sub
Програмний код кнопки "Вихід"
Private Sub Command3_Click()
End
End Sub
Результати виконання проекту представлено на рис.6.7
Рис. 6.7 Результати виконання проекту
Проект зберегти в особистій папці.
Створити завантажувальний файл
Тема: "Робота з графічними об’єктами".
Теоретичні основи.
Елементи управління графічним об’єктами
Графічні зображення застосовуються для удосконалення візуального вигляду екранної форми, створення спеціальних анімаційних ефектів, графічних командних кнопок.