【正文】 eyA Then = X If KeyCode = vbKeyD Then = X If KeyCode = vbKeyU Then = X If KeyCode = vbKeyJ Then = X If KeyCode = vbKeyI Then = X If KeyCode = vbKeyK Then = X If KeyCode = vbKeyO Then = X If KeyCode = vbKeyL Then = X If KeyCode = vbKeyW Then = X If KeyCode = vbKeyS Then = XEnd SubPrivate Sub MSComm_OnComm() Dim InputString As String If = 1 Then 39。判斷是否有數(shù)據(jù) InputString = 39。將數(shù)據(jù)讀入InputString函數(shù) = 0 39。清空數(shù)據(jù) ElseIf Len(InputString) Then = 無數(shù)據(jù)！ Else = InputStringEnd If End Sub附錄二：單片機(jī)程序include avr/ include util/include avr/ //中斷函數(shù)頭文件//常量聲明define BAUD 9600define fosc 8000000 //時(shí)鐘頻率 //全局變量聲明volatile unsigned char Rev。volatile unsigned int Counter50us。 //計(jì)時(shí)變量，如果在中斷中調(diào)用全局變量，必須加volatile來定義，否則變量不會(huì)變化volatile unsigned char pwm1=25,pwm2=15,pwm3=25,pwm4=27,pwm5=20。//函數(shù)聲明void Usart_Port_Init(void)。 //端口初始化配置void Usart_Init(void)。 //USART寄存器設(shè)置void Usart_PutChar(unsigned char cTXData)。 //字節(jié)發(fā)送函數(shù)void Usart_PutString(unsigned char *pcString)。//端口狀態(tài)初始化設(shè)置函數(shù)void Usart_Port_Init(){ PORTD = 0X00。 //USART的發(fā)送接收端口分別為PD3和PD2 DDRD |=(1PD3)。 //PD2為接收端口，置為輸入口；PD3為發(fā)送端口，置為輸出口}//USART寄存器配置函數(shù)void Usart_Init(){ UCSR1A = 0X00。 UCSR1C amp。=~(1UMSEL1)。 UCSR1C |= (1 UCSZ11) | (1 UCSZ10)。 //異步，數(shù)據(jù)格式8，N，1//UCSRC寄存器與UBRRH寄存器共用相同的I/O地址,寫 UCSRC 時(shí)， URSEL 應(yīng)設(shè)置為 1。 UBRR1L = (fosc / BAUD / 16 1) % 256。 //波特率設(shè)置 UBRR1H = (fosc / BAUD / 16 1) / 256。 UCSR1B |= (1 RXCIE1) | (1 RXEN1) | (1 TXEN1)。 //發(fā)送使能}//字節(jié)發(fā)送函數(shù)void Usart_PutChar(unsigned char cTXData){ while( !(UCSR1A amp。 (1 UDRE1)) )。 //只有數(shù)據(jù)寄存器為空時(shí)才能發(fā)送數(shù)據(jù) UDR1 = cTXData。 //發(fā)送數(shù)據(jù)送USART I/O數(shù)據(jù)寄存器－UDR}unsigned char USART_Receive( void ){ //等待接受標(biāo)志 while ( !(UCSR1A amp。 (1RXC1)) )。 //讀接收數(shù)據(jù) return UDR1。}//接收中斷函數(shù)ISR(USART1_RX_vect ){ Rev = USART_Receive()。 //從USART I/O數(shù)據(jù)寄存器－UDR中讀出數(shù)據(jù)}//發(fā)送數(shù)據(jù)函數(shù)void Usart_PutString(unsigned char *pcString){ cli()。 while (*pcString) { Usart_PutChar(*pcString++)。 } //Usart_PutChar(0x0D)。 //Usart_PutChar(0x0A)。 //結(jié)尾發(fā)送回車換行 sei()。}//串口程序void Usart_main(void) { cli()。 Usart_Port_Init()。 Usart_Init()。 sei()。 }//管腳初始化void port_init(void){ DDRA = 0xff。 PORTA = 0x00。}void init_devices(void) //初始配置{ //T/C0定時(shí)中斷設(shè)置 cli()。 //禁止所有中斷 TIMSK |= (1 TOIE0)。 //T/C0溢出中斷允許 TCCR0 |= (1 CS01)。 // T/C0工作于普通模式8分頻 TCNT0 = 0xce。 //定時(shí)初值設(shè)置，定時(shí)時(shí)間 = (256206)/8M*8=50us Counter50us = 0。 // 500us計(jì)時(shí)變量清零 sei()。 //使能全局中斷 }//T/C0定時(shí)中斷服務(wù)程序ISR(TIMER0_OVF_vect ){ TCNT0 = 0xce。 //重裝計(jì)數(shù)初值if((Counter50us = pwm1)amp。amp。(Counter50us=5)) // { PORTA |= (1PA1)。 //小于，則繼續(xù)發(fā)送高電平 } else { PORTA amp。= ~(1PA1)。 //大于，則輸出低電平 }if((Counter50us = pwm2)amp。amp。(Counter50us=5)) // { PORTA |= (1PA2)。 //小于，則繼續(xù)發(fā)送高電平 } else { PORTA amp。= ~(1PA2)。 //大于，則輸出低電平 }if((Counter50us = pwm3)amp。amp。(Counter50us=5)) // { PORTA |= (1PA3)。 //小于，則繼續(xù)發(fā)送高電平 } else { PORTA amp。= ~(1PA3)。 //大于，則輸出低電平 }if((Counter50us = pwm4)amp。amp。(Counter50us=5)) // { PORTA |= (1PA4)。 //小于，則繼續(xù)發(fā)送高電平 } else { PORTA amp。= ~(1PA4)。 //大于，則輸出低電平 }if((Counter50us = pwm5)amp。amp。(Counter50us=5)) // {PORTA |= (1PA5)。 } //小于，則繼續(xù)發(fā)送高電平 else {PORTA amp。= ~(1PA5)。} //大于，則輸出低電平 Counter50us++。 // Counter50us = Counter50us % 400。 //，既保持脈沖周期為20ms}//主函數(shù)int main(void){ Usart_main()。 port_init()。 init_devices()。 while(1) { switch(Rev) { case 39。039。: if((pwm1=15)) {pwm1=15。} else pwm1。_delay_ms(15)。 break。 case 39。139。: if((pwm1=48)) {pwm1=48。} else pwm1++。_delay_ms(15)。 break。 case 39。239。: if((pwm2=15)) {pwm2=15。} else pwm2。_delay_ms(15)。 break。 case 39。339。: if((pwm2=48)) {pwm2=48。} else pwm2++。_delay_ms(15)。 break。 case 39。439。: if((pwm3=15)) {pwm3=15。} else pwm3。_delay_ms(15)。 break。 case 39。539。: if((pwm3=48)) {pwm3=48。} else pwm3++。_delay_ms(15)。 break。 case 39。639。: if((pwm4=15)) {pwm4=15。} else pwm4。_delay_ms(15)。 break。 case 39。739。: if((pwm4=48)) {pwm4=48。} else pwm4++。_delay_ms(15)。 break。 case 39。839。: if((pwm5=15)) {pwm5=15。} else pwm5。_delay_ms(15)。 break。 case 39。939。: if((pwm5=48)) {pwm5=48。} else pwm5++。_delay_ms(15)。 break。 default: break。 } } }附錄三：PCB圖和原理圖