//----------------------------------------AVR代碼------------------------
#include <iom16.h>
#include <intrinsics.h>
#define uchar unsigned char
#define uint unsigned int
uchar seg[10]={0x3f,0x06,0x5b, //共陰極數碼管0~9的字形碼
0x4f,0x66,0x6d,0x7d,0x07,0x7f,0x6f};
uchar tab[4]={0xfe,0xfd,0xfb,0xf7};//4位共陰極數碼管的位選碼
#define UDRE 5
#define RXC 7
uchar datt; //接受到的數據比較變量
uchar adc_val; //模擬量轉換值
void delay(uint k)
{
while(k--);
}
void port_init()
{
PORTA=0x7f; // 通道7作為模擬量輸入
DDRA=0x7f;
PORTB=0xff;
DDRB=0xff;
PORTC=0xff;
DDRC=0xff;
PORTD=0xff;
DDRD=0xff;
}
void adc_init() //模擬量初始化
{
ADCSRA=0xe3;
ADMUX=0xc7;
}
uint adc_vert()
{
uint temp1,temp2;
temp1=(uint)ADCL;
temp2=(uint)ADCH;
temp2=(temp2<<8)+temp1;
return temp2;
}
void time0_init() //定時器0初始化
{
TCNT0=0x83;
TCCR0=0x03;
TIMSK=0x01; //定時器0溢出中斷
}
#pragma vector = 0x24
__interrupt void time0_vef()
{
static uchar i;
TCNT0=0x83;
i++;
if(i>3)i=0;
switch(i)
{
case 0:PORTA=seg[adc_val%10];PORTC=tab[0];break;
case 1:PORTA=seg[adc_val%100/10];PORTC=tab[1];break;
case 2:PORTA=seg[adc_val%1000/100];PORTC=tab[2];break;
case 3:PORTA=seg[adc_val/1000];PORTC=tab[3];break;
default:break;
}
}
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<<UDRE)));
UDR=k;
}
uchar uart_receive()
{
while(!(UCSRA&(1<<RXC))); //接受結束讀出數據
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
End Sub