AVR与VB通信模拟量输入简单程序
加入技术交流群
void uart_init()
{
UCSRB=0x00; //串口不使能
UCSRA=0x02; //串口倍速模式
UCSRC=0x06; //数据长度设置为8位
UBRRL=0x67; //串口设置为9600波特率
UBRRH=0x00;
UCSRB=0x98; //串口接受和发送使能,接受中断使能
}
void uart_send(uchar k) //串口发送函数
{
while(!(UCSRA&(1< UDR=k;
}
uchar uart_receive()
{
while(!(UCSRA&(1<return UDR;
}
void send_number(uint k)
{
uart_send((uchar)(k>>8));
uart_send((uchar)(k));
}
#pragma vector = 0x2c
__interrupt void uart_rxc()
{
datt=UDR;
if(datt==a)PORTB=0xff;
else PORTB=0x00;
}
void main()
{
port_init();
uart_init();
time0_init();
adc_init();
SREG=0x80;
while(1)
{
adc_val=adc_vert();
delay(50000);
delay(50000);
delay(50000);
send_number(adc_val);
}
}
//----------------------VB代码----------------------------
Private Sub Command1_Click()
MSComm1.CommPort = 4
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.InputLen = 0
Private Sub MSComm1_OnComm()
Dim bytereceive() As Byte 定义字节数组
Dim strbuf As String 定义字符串变量
Select Case MSComm1.CommEvent
Case comEvReceive 接受事件发生
Text2 = MSComm1.InBufferCount 显示接受缓冲区字节数
strbuf = MSComm1.Input 从输入缓冲区读取字符
bytereceive() = strbuf 字符串赋值给字符数组,低字节在前，高字节在后
Dim i As Integer
For i = 0 To UBound(bytereceive) UBound返回数组可用的最大长度
If Len(Hex(bytereceive(i))) = 1 Then
strdata = strdata & "0" & Hex(bytereceive(i))
Else
strdata = strdata & Hex(bytereceive(i))
End If
Next
Text1.Text = strdata 十六进制显示
Text3.Text = Val("&H" & strdata) 十进制显示
strdata = ""
End Select
评论