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 в экселе , чтоб и в таблицу выводилось и в файл записывалось. Зараннее спасибо.
Ответить
|