запись массива чисел Integer в двоичный файл

[mike ordin]

помогите разобраться, пожалуйста. Есть большой массив целых чисел в формате Integer (числа служат для вывода
косинусоиды). Его надо поместить в двоичный файл. к сожалению, после того, как массив записывается в файл, числа
в нем меняются. то же самое происходит и при присвоении правильного массива пустому массиву. Нижн привожу
используемый мной код.

Private Sub Form_Load()
Dim length As Integer
Dim i As Integer
Dim freq As Double
Dim arg As Double
Dim pi As Double
Dim x() As Integer
Dim y() As Integer

‘calculate cosine values
pi = 4 * Atn(1)
length = 8000
freq = 0.025
arg = 2 * pi * freq
ReDim x(8000)
Redim y(8000)

For i = 0 To length
x(i) = Int(32000 * Cos(i * arg))
Debug.Print x(i)
i = i + 1
Next i
'up to this point it works ok - to check see debug.print and
'plot it in excel - you will get a perfect cosine
‘Now I need to write these values into binary file and save it as dat file

Open "c:\output.dat" For Binary As #1
'For i = 1 To length
Put #1, , x(i)
Next i
Close#1
‘dat file contains incorrect values

End Sub

если я присваиваю массиву y() знаяения массива x() и в окне debug печатаю значения массива y() и потом вывожу их
в Excel и строю по ним график, то получаю уже не косинусоиду. Хотя изначально массив x() содержит правильные
значения для построения косинусоиды.

Помогите, пожалуйста, разобраться с этой проблемой

И еще, где можно найти доступную для понимания но подробную информацию по использованию SAPI

[Oxygen]

Ну.... Во-первых, массив не меняется при копировании. Видимо у тебя где-то проблема с его переносом в Exclel. Во-вторых, по всей видимости ты не правильно сохраняешь в файл. Поищи там ошибки.

[Gloom]

Код: Выделить всё

For i = 0 To length
...
i = i + 1
Next i

Переменная i в цикле дважды инкрементируется...

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

Код: Выделить всё

Put #1, , x

Не видно как массив копируется и как файл читается...

[codemaster]

используемый мной код.

Private Sub Form_Load()


Open "c:\output.dat" For Binary As #1
'For i = 1 To length
Put #1, , x(i)
Next i
Close#1
‘dat file contains incorrect values

End Sub

Очень странный способ писать массив в файл!?
зачем для записи перебирать массив поэлементно ?


SAPI подробно описан + примеры в MSDN
(комиксов с SAPI нигде пока не видел )

[Oxygen]

Значения все корректные, ты просто не умеешь их готовить . См. код - там идет проверка валидности твоих значений. Думаю, разберешься.

Код: Выделить всё

Private Sub Form_Load()
Dim length As Integer
Dim i As Integer
Dim freq As Double
Dim arg As Double
Dim pi As Double
Dim x() As Integer
Dim y() As Integer

'calculate cosine values
pi = 4 * Atn(1)
length = 8000
freq = 0.025
arg = 2 * pi * freq
ReDim x(8000)
ReDim y(8000)

For i = 0 To length
x(i) = Int(32000 * Cos(i * arg))
Debug.Print x(i)
i = i + 1
Next i
'up to this point it works ok - to check see debug.print and
'plot it in excel - you will get a perfect cosine
'Now I need to write these values into binary file and save it as dat file

Open "c:\output.dat" For Binary As #1
For i = 1 To length
Put #1, , x(i)
Next i
Close #1
'dat file contains incorrect values
Open "c:\output.dat" For Binary As #2
For i = 1 To length
Get #2, , y(i)
Next i
Close #2
Open "c:\2.dat" For Output As #4
Open "c:\1.dat" For Output As #5
For i = 1 To length
Print #5, x(i)
Print #4, y(i)
Next i
Close #4
Close #5
End Sub


Открой файлы 1.dat и 2.dat и сравни.
Видимо проблема в передаче данных Экселю, кидай код, посмотрим.

[mike ordin]

Oxygen
Спасибо всем большое. Извиняйте за такой простой вопрос. Работающий код такой:
Private Sub Form_Load()
Dim length As Integer
Dim i As Integer
Dim freq As Double
Dim arg As Double
Dim pi As Double
Dim x() As Integer

pi = 4 * Atn(1)

length = 8000
freq = 0.025
arg = 2 * pi * freq
ReDim x(8000)

For i = 0 To length
x(i) = Int(32000 * Cos(i * arg))
'Debug.Print x(i)
Next i

Open "c:\output.dat" For Binary As #1
Put #1, , x
Close #1

в чем принципиально заключаласьпроблема так и не понял, но с Вашей помощью и случайным тыком заставил программу генерить именно такую волну, какую надо. полученная датка в любом звуковом редакторе - идеальная гармоника. Еще раз всем спасибо.