Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница:

 

  Вопрос: слегка не правильно поставил вопрос Добавлено: 27.05.03 01:47  

Автор вопроса:  Larionoff | ICQ: 68400264 

b0...b7 принимают значения исходя их этого:

for i = 0 to 100

b0 = iif(sin(2 * Pi * 700 * i * 61 / 100000)> 0 , 1 ,0)

b1 = iif(sin(2 * Pi * 900 * i * 61 / 100000)> 0 , 1 ,0)

b2 = iif(sin(2 * Pi * 1100 * i * 61 / 100000)> 0 , 1 ,0)

b3 = iif(sin(2 * Pi * 1300 * i * 61 / 100000)> 0 , 1 ,0)

b4 = iif(sin(2 * Pi * 1500 * i * 61 / 100000)> 0 , 1 ,0)

b5 = iif(sin(2 * Pi * 1700 * i * 61 / 100000)> 0 , 1 ,0)

b6 = 0

b7 = 0

то есть два старших бита - 6 и 7 - всегда нули , а оставшиеся в зависимости от выражения , принимают 0 или 1

записать b0,b1,b2,b3,b4,b5,b6,b7  в байт

сохранить байт в файле

увеличить адрес байта в файле

next i

всё это на vba в экселе , чтоб и в таблицу выводилось и в файл записывалось.

Зараннее спасибо.

Ответить

  Ответы Всего ответов: 0  

Нет ответов

Страница:

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам