<dfn id="yhprb"><s id="yhprb"></s></dfn><dfn id="yhprb"><delect id="yhprb"></delect></dfn><dfn id="yhprb"></dfn><dfn id="yhprb"><delect id="yhprb"></delect></dfn><dfn id="yhprb"></dfn><dfn id="yhprb"><s id="yhprb"><strike id="yhprb"></strike></s></dfn><small id="yhprb"></small><dfn id="yhprb"></dfn><small id="yhprb"><delect id="yhprb"></delect></small><small id="yhprb"></small><small id="yhprb"></small> <delect id="yhprb"><strike id="yhprb"></strike></delect><dfn id="yhprb"></dfn><dfn id="yhprb"></dfn><s id="yhprb"><noframes id="yhprb"><small id="yhprb"><dfn id="yhprb"></dfn></small><dfn id="yhprb"><delect id="yhprb"></delect></dfn><small id="yhprb"></small><dfn id="yhprb"><delect id="yhprb"></delect></dfn><dfn id="yhprb"><s id="yhprb"></s></dfn> <small id="yhprb"></small><delect id="yhprb"><strike id="yhprb"></strike></delect><dfn id="yhprb"><s id="yhprb"></s></dfn><dfn id="yhprb"></dfn><dfn id="yhprb"><s id="yhprb"></s></dfn><dfn id="yhprb"><s id="yhprb"><strike id="yhprb"></strike></s></dfn><dfn id="yhprb"><s id="yhprb"></s></dfn>

新聞中心

EEPW首頁(yè) > 嵌入式系統 > 設計應用 > AVR與VB通信模擬量輸入簡(jiǎn)單程序

AVR與VB通信模擬量輸入簡(jiǎn)單程序

作者: 時(shí)間:2016-11-30 來(lái)源:網(wǎng)絡(luò ) 收藏

void uart_init()
{
UCSRB=0x00; //串口不使能
UCSRA=0x02; //串口倍速模式
UCSRC=0x06; //數據長(cháng)度設置為8位
UBRRL=0x67; //串口設置為9600波特率
UBRRH=0x00;
UCSRB=0x98; //串口接受和發(fā)送使能,接受中斷使能
}

void uart_send(uchar k) //串口發(fā)送函數
{
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 接受事件發(fā)生
Text2 = MSComm1.InBufferCount 顯示接受緩沖區字節數
strbuf = MSComm1.Input 從輸入緩沖區讀取字符
bytereceive() = strbuf 字符串賦值給字符數組,低字節在前,高字節在后
Dim i As Integer
For i = 0 To UBound(bytereceive) UBound返回數組可用的最大長(cháng)度
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 十六進(jìn)制顯示

Text3.Text = Val("&H" & strdata) 十進(jìn)制顯示
strdata = ""

End Select

End Sub

上一頁(yè) 1 2 下一頁(yè)

關(guān)鍵詞: AVRVB通信模擬量輸

評論


技術(shù)專(zhuān)區

關(guān)閉
国产精品自在自线亚洲|国产精品无圣光一区二区|国产日产欧洲无码视频|久久久一本精品99久久K精品66|欧美人与动牲交片免费播放
<dfn id="yhprb"><s id="yhprb"></s></dfn><dfn id="yhprb"><delect id="yhprb"></delect></dfn><dfn id="yhprb"></dfn><dfn id="yhprb"><delect id="yhprb"></delect></dfn><dfn id="yhprb"></dfn><dfn id="yhprb"><s id="yhprb"><strike id="yhprb"></strike></s></dfn><small id="yhprb"></small><dfn id="yhprb"></dfn><small id="yhprb"><delect id="yhprb"></delect></small><small id="yhprb"></small><small id="yhprb"></small> <delect id="yhprb"><strike id="yhprb"></strike></delect><dfn id="yhprb"></dfn><dfn id="yhprb"></dfn><s id="yhprb"><noframes id="yhprb"><small id="yhprb"><dfn id="yhprb"></dfn></small><dfn id="yhprb"><delect id="yhprb"></delect></dfn><small id="yhprb"></small><dfn id="yhprb"><delect id="yhprb"></delect></dfn><dfn id="yhprb"><s id="yhprb"></s></dfn> <small id="yhprb"></small><delect id="yhprb"><strike id="yhprb"></strike></delect><dfn id="yhprb"><s id="yhprb"></s></dfn><dfn id="yhprb"></dfn><dfn id="yhprb"><s id="yhprb"></s></dfn><dfn id="yhprb"><s id="yhprb"><strike id="yhprb"></strike></s></dfn><dfn id="yhprb"><s id="yhprb"></s></dfn>