运用汇编语言编写两段方波和三角波的程序

这要结合具体的电路,比如12MHz主频的8031与DAC0832构成的单缓冲连接及双极性输出电路。

1、三角波输出程序

START：MOV

DPTR，#7FFFH；向DAC0832输出的地址（取决于你电路中地址线的连接方式）

DA：MOV

R0，#80H；输出初始值入R0（从0伏开始输出），兼做输出计数控制

UP：MOV

A，R0；输出值入A

MOVX

@DPTR，A；正向增长，DA转换输出

INC

R0；输出值加1

NOP；延时1微秒

NOP；延时1微秒

CJNE

R0，#0FFH，UP；输出未到5伏则转UP，继续正向增长

DOWN：DEC

R0；输出值减1

MOV

A，R0；输出值入A

MOVX

@DPTR，A；反向减小，DA转换输出

NOP；延时1微秒

NOP；延时1微秒

CJNE

R0，#80H，DOWN；输出未到0伏则转DOWN，继续反向减小

AJMP

DA；一个周期结束进入下一个周期

注：此程序输出的三角波频率不是很精确的500HZ，但相差也不大，

2、方波输出程序

START：MOV

DPTR，#7FFFH；向DAC0832输出的地址（取决于你电路中地址线的连接方式）

DA：MOV

R0，#80H；输出初始值入R0（从0伏开始输出），兼做输出计数控制

UP：MOV

A，#80H；0伏输出值入A

MOVX

@DPTR，A；0伏DA转换输出

INC

R0；输出计数加1

NOP；延时1微秒

NOP；延时1微秒

CJNE

R0，#0FFH，UP；未到半个周期则转UP，继续0伏输出

DOWN：DEC

R0；输出计数减1

MOV

A，#0FFH；5伏输出值入A

MOVX

@DPTR，A；5伏DA转换输出

NOP；延时1微秒

NOP；延时1微秒

CJNE

R0，#80H，DOWN；输出未到0伏则转DOWN，继续反向减小

AJMP

DA；一个周期结束进入下一个周期

注：同样，此程序输出的方波频率不是很精确的500HZ

以下代码是采用的网络上提供的代码，经测试是正确的，代码如下。

Private Sub Command1_Click()

Dim x As Integer, x0 As Integer, y As Integer

Dim w As Integer, h As Integer

y = Picture1.ScaleHeight / 2 '确定方波在Picture框中的位置

w = 300 '方波宽度

h = 200 '方波高度

For x = 0 To Picture1.ScaleWidth - w Step 2 * w

x0 = x

Picture1.Line (x0, y)-(x + w, y) '向右

Picture1.Line (x + w, y)-(x + w, y - h) '向上

Picture1.Line (x + w, y - h)-(x + 2 * w, y - h) '向下

Picture1.Line (x + 2 * w, y - h)-(x + 2 * w, y) '向右

Next x

End Sub

效果：

---