54 lines
1.1 KiB
Text
54 lines
1.1 KiB
Text
Rem Текстовые файлы и Матрицы
|
|
Rem Имитация Светодиодной Матрицы в Блокноте.
|
|
|
|
Rem НЕ работает!
|
|
|
|
Option Explicit
|
|
|
|
Dim i, j
|
|
Dim FSO, myFile
|
|
Dim matrix(7,3) 'инициализируем двумерный массив или матрицу 8x4
|
|
|
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
Set myFile = FSO.CreateTextFile("matrix.txt",True,True)
|
|
myFile.Close
|
|
|
|
Sub writeMatrix()
|
|
Set myFile = FSO.OpenTextFile("matrix.txt",2,True,0) 'открываем matrix.txt в режиме записи (2) с кодировкой ASCII (0)
|
|
|
|
For j=0 To 3
|
|
For i=0 To 7
|
|
If matrix(i,j)=True then myFile.Write(".") else myFile.Write(" ") End if
|
|
next
|
|
myFile.Write(vbCrLf)
|
|
next
|
|
|
|
myFile.Close 'закрываем поток
|
|
End Sub
|
|
|
|
Rem Заполнение
|
|
For i=0 To 7
|
|
For j=0 To 3
|
|
matrix(i, j)=True 'включено
|
|
next
|
|
next
|
|
|
|
writeMatrix()
|
|
|
|
Rem Каёмочка
|
|
For i=0 To 7
|
|
matrix(i, 0)=True
|
|
next
|
|
For j=0 To 3
|
|
matrix(0, j)=True
|
|
next
|
|
For i=0 To 7
|
|
matrix(i, 7)=True
|
|
next
|
|
For j=0 To 3
|
|
matrix(7, j)=True
|
|
next
|
|
|
|
writeMatrix()
|
|
|
|
Rem ...
|