下面是程序
include <reg51h>
#define uchar unsigned char
#define uint unsigned int
sbit LCP=P2^2;
sbit SCP=P2^1;
sbit SI=P2^0;
sbit S1=P2^3;
sbit S2=P2^4;
sbit S3=P2^5;
sbit S4=P2^6;
sbit S5=P2^7;
sbit DA0832=P3^3;
sbit DA0832_ON=P3^2;
uchar fun=0,b=0,c=0,d=0,tl,th;
uchar code tab[10]={0x3f,0x06,0x5b,0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};
uchar code tosin[256]={0x80,0x83,0x86,0x89,0x8d,0x90,0x93,0x96,0x99,0x9c,0x9f,0xa2,0xa5,0xa8,0xab,0xae,0xb1,0xb4,0xb7,0xba,0xbc,0xbf,0xc2,0xc5
,0xc7,0xca,0xcc,0xcf,0xd1,0xd4,0xd6,0xd8,0xda,0xdd,0xdf,0xe1,0xe3,0xe5,0xe7,0xe9,0xea,0xec,0xee,0xef,0xf1,0xf2,0xf4,0xf5
,0xf6,0xf7,0xf8,0xf9,0xfa,0xfb,0xfc,0xfd,0xfd,0xfe,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xfe,0xfd
,0xfd,0xfc,0xfb,0xfa,0xf9,0xf8,0xf7,0xf6,0xf5,0xf4,0xf2,0xf1,0xef,0xee,0xec,0xea,0xe9,0xe7,0xe5,0xe3,0xe1,0xde,0xdd,0xda
,0xd8,0xd6,0xd4,0xd1,0xcf,0xcc,0xca,0xc7,0xc5,0xc2,0xbf,0xbc,0xba,0xb7,0xb4,0xb1,0xae,0xab,0xa8,0xa5,0xa2,0x9f,0x9c,0x99
,0x96,0x93,0x90,0x8d,0x89,0x86,0x83,0x80,0x80,0x7c,0x79,0x76,0x72,0x6f,0x6c,0x69,0x66,0x63,0x60,0x5d,0x5a,0x57,0x55,0x51
,0x4e,0x4c,0x48,0x45,0x43,0x40,0x3d,0x3a,0x38,0x35,0x33,0x30,0x2e,0x2b,0x29,0x27,0x25,0x22,0x20,0x1e,0x1c,0x1a,0x18,0x16
,0x15,0x13,0x11,0x10,0x0e,0x0d,0x0b,0,0x09,0x08,0x07,0x06,0x05,0x04,0x03,0x02,0x02,0x01,0x00,0x00,0x00,0x00,0x00,0x00
,0x00,0x00,0x00,0x00,0x00,0x00,0x01,0x02 ,0x02,0x03,0x04,0x05,0x06,0x07,0x08,0x09,0,0x0b,0x0d,0x0e,0x10,0x11,0x13,0x15
,0x16,0x18,0x1a,0x1c,0x1e,0x20,0x22,0x25,0x27,0x29,0x2b,0x2e,0x30,0x33,0x35,0x38,0x3a,0x3d,0x40,0x43,0x45,0x48,0x4c,0x4e
,0x51,0x55,0x57,0x5a,0x5d,0x60,0x63,0x66 ,0x69,0x6c,0x6f,0x72,0x76,0x79,0x7c,0x80 };
void display(unsigned char command)
{
unsigned char i;
LCP=0;
for(i=8;i>0;i--)
{
SCP=0;
if((command & 0x80)==0)
{
SI=0;
}
else
{
SI=1;
}
command<<=1;
SCP=1;
}
LCP=1;
}
void key1(void)
{
fun++;
if(fun==4)
fun=0x00;
}
void key2(void)
{
tl++;
if(tl==0x1f)
th++;
}
void key3(void)
{
tl--;
if(tl==0x00)
th--;
}
void key4(void)
{
double t;
int f;
TR0=0;
t=(65535-th256-tl)04;
f=(int)(1000/t);
S3=tab[f%10];
f=f/10;
S2=tab[f%10];
f=f/10;
if(f==0)
S1=0;
else
S1=tab[f];
TR0=1;
}
void key5(void)
{
tl--;
if(tl==0x00)
th++;
}
void judge(void)
{
uchar line,row,de1,de2,keym;
P1=0x0f;
keym=P1;
if(keym==0x0f)return;
for(de1=0;de1<200;de1++)
for(de2=0;de2<125;de2++){;}
P1=0x0f;
keym=P1;
if(keym==0x0f)return;
P1=0x0f;
line=P1;
P1=0xf0;
row=P1;
line=line+row; /存放特征键值/
if(line==0xde)key1();
if(line==0x7e)key2();
if(line==0xbd)key3();
if(line==0x7d)key4();
}
void time0_int(void) interrupt 1 //中断服务程序
{
TR0=0;
if(fun==1)
{
DA0832=tosin[b]; //正弦波
b++;
}
else if(fun==2) //锯齿波
{
if(c<128)
DA0832=c;
else
DA0832=255-c;
c++;
}
else if(fun==3) // 方波
{
d++;
if(d<=128)
DA0832=0x00;
else
DA0832=0xff;
}
TH0=th;
TL0=tl;
TR0=1;
}
void main(void)
{
TMOD=0X01;
TR0=1;
th=0xff;
tl=0xd0;
TH0=th;
TL0=tl;
ET0=1;
EA=1;
while(1)
{
display();
judge();
}
}
用8086来控制ADC?
初步看了看,发现程序的一些指令使用不当,导致结构混乱。
……
……
JMP BG
;------------------------------------------------
JCBB: JMP JC0 ;转至正向锯齿波子程序----错误
SJBB: JMP SJ0 ;转至三角波子程序----错误
FBB: JMP F0 ;转至方波子程序----错误
ZXBB: JMP JB0 ;转至反向锯齿波----错误
TXBB: JMP TX0 ;转至梯形波子程序----错误
QIT: JMP EXIT ;转至调用DOS 子程序,推出程序----错误
在程序中,JC0 PROC FAR 和其它的功能程序,都是子程序,必须使用 CALL 指令来调用,不能用 JMP 指令,否则 RET 指令会导致程序跑飞。
;------------------------------------------------
JC0 PROC FAR
SCB:
MOV AL, 0FFH ;正向锯齿波
AGAIN1:
INC AL
MOV DX, DA0832
OUT DX, AL
CALL DELAY
PUSH AX----压栈
MOV DX, B8255
IN AL, DX ;再次读入开关信号,进行比较
CMP AL, 01H
JNZ BG--------没有出栈,就转走?乱了
POP AX----出栈
JMP AGAIN1
RET
JC0 ENDP
;------------------------------------------------
SJ0 PROC FAR
……
……
D_APORT EQU 8000H ;0832 口地址
ORG 0000H
AJMP START
ORG 0040H
START:
MOV SP,#60H
MOV
A,#00H
MOV DPTR,#4000H ;锯齿波缓冲区首址
NEXT:
MOVX @DPTR,A
;填锯齿波数据
INC DPTR
INC A
JZ NEXT1
;写完256个数据后退出
AJMP NEXT
NEXT1:
MOV A,#00H
MOV
R0,#00H
MOV DPTR,#4100H ;三角波缓冲区首址
NEXT2:
MOVX @DPTR,A
;填三角波数据(上升部分)
INC DPTR
ADD A,#02H
INC R0
CJNE
R0,#80H,NEXT2
SUBB A,#02H
CLR C
NEXT3:
MOVX
@DPTR,A ;填三角波数据(下升部分)
INC DPTR
SUBB A,#02H
INC
R0
CJNE R0,#00H,NEXT3;写完256个数据后退出
;--------------SIN
WAVE------------------
MOV R0,#10H
MOV R1,#00H
MOV
DPTR,#STEP ;步长的浮点ASCII起始地址
READ:
MOV A,R1
MOVC
A,@A+DPTR
MOV @R0,A
INC R1
INC R0
CJNE
R1,#0AH,READ ;将程序区的数据移到内部RAM区
MOV R0,#10H ;十进制浮点数的首址
MOV
R1,#30H ;三字节浮点数的首址(步长)
LCALL %FDTB3
;带符号十进制数ASCII码浮点数
;转换成三字节浮点数
MOV R2,#00H
MOV R3,#80H
;电压的最大值
MOV R0,#18H ;三字节浮点数的首址(最大电压)
LCALL %WTF31
;双字节无符号数转换成
;三字节浮点数
MOV R3,#00H ;STEP LENGTH
MOV
DPTR,#4200H ;正弦波数据表首址
CALCSIN:
PUSH 3
PUSH DPH
PUSH
DPL
MOV R2,#00H
MOV R0,#38H ;FLOAT STEP ADDRESS
LCALL %WTF31 ;双字节无符号数转换成
;三字节浮点数
MOV R0,#30H
MOV
R1,#38H
LCALL %FMUL3 ;三字节浮点数乘法子程序
MOV 40H,R4 ;MUL
ADDRESS
MOV 41H,R2
MOV 42H,R3
MOV R0,#40H
MOV R1,#48H ;SIN VALUE ADDRESS
LCALL %FSIN3
;三字节浮点数正弦子程序
MOV R0,#18H
MOV R1,#48H
LCALL
%FMUL3 ;三字节浮点数乘法子程序
MOV 38H,R4 ;MUL ADDRESS
MOV
39H,R2
MOV 3AH,R3
MOV R0,#38H
LCALL %FTW3
;三字节浮点数转换成
;双字节无符号数
POP DPL
POP DPH
MOV
A,#80H
ADD A,R3
JNZ SIN90 ;判断峰值
MOV
A,0FFH
SIN90:
MOVX @DPTR,A ;把计算值填表
MOV A,DPL
ORL A,#80H ;计算sin(a+180)
MOV DPL,A
MOV A,#80H
CLR C
SUBB A,R3
MOVX @DPTR,A ;把计算值填表
MOV
A,DPL
ANL A,#7FH
MOV DPL,A
INC DPTR
POP
3
INC R3
CJNE R3,#80H,CALCSIN
;判断计算完毕
;波形显示程序
WAVE:
MOV R1,#00H
WAVE1:
MOV
DPTR,#4000H ;显示锯齿波(256次)
LCALL D_A
DJNZ
R1,WAVE1
WAVE2:
MOV DPTR,#4100H ;显示三角波(256次)
LCALL
D_A
DJNZ R1,WAVE2
WAVE3:
MOV DPTR,#4200H
;显示正弦波(256次)
LCALL D_A
DJNZ R1,WAVE3
SJMP WAVE
;循环显示
D_A:
MOV R0,#00H ;置计数器
LOOP:
MOVX
A,@DPTR ;查波形表
PUSH DPL
PUSH DPH
MOV
DPTR,#D_APORT
MOVX @DPTR,A ;启动 D/A
POP DPH
POP
DPL
INC DPTR ;改变表格地址
INC R0
CJNE
R0,#00H,LOOP ;判断是否显示完
RET
;步长的十进制ASCII码浮点数
STEP DB
30H,2EH,30H,32H,34H,35H,34H,34H,2CH;'0024544,'
END
用一个constan模块,值为0-1,也就是占空比,将这个值与一个三角波进行比较,三角波可以通过repeating sequence 模块产生,三角波的值为0到1的渐变。
比较通过一个relational operator模块实现。
例如将constant设置为06,并作为relational operator的第一个输入,将三角波作为relational operator第二个输入,relational operator选择为大于等于,则运行程序后relational operator就输出一个0和1的脉冲信号,占空比为06
用c语言修改三角波的频率可以使用for循环和使用函数。
1、使用for循环生成三角波:通过for循环不断计算时间t对应的三角波的值y。其中,变量freq表示三角波的频率,我们可以在程序运行时从用户那里获取输入,并将其代入生成公式中。
2、使用函数生成三角波:将生成三角波的公式封装在了一个函数中,可以在主函数中调用该函数来生成指定频率的三角波。
以上就是关于产生正弦波、方波、三角波数据值的C程序全部的内容,包括:产生正弦波、方波、三角波数据值的C程序、求教一个简单的汇编程序问题、用51单片机制作简易的波形发生器时,想要控制正弦波和三角波的幅值求汇编语言程序等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)