readvb12.asv

用VB实现正弦波的采集和傅里叶变换。将时域信号变化为频域信号

 clear;
 N=1024; 
 x=zeros(1,N); 
 
 f_id=fopen('f:\yt.dat','r');

% 1024个数
 fseek(f_id,2048,-1);    
 x= fread(f_id,N, 'int16');  
 fclose(f_id);
 
 x=x-2048;
 subplot(211);
 plot(x);