用Delphi 7.0 和 Mscomm控件实现和arduino 通信控制.docVIP

用Delphi 7.0 和 Mscomm控件实现和arduino 通信控制 大家知道一般控制arduino是用USB模拟的串口通信。 通过Delphi对串口编程虽然有很多方法,比如直接用api 操作IO端口、spcomm控件等。但是经过本人摸索，最好用的还是用微软的OCX控件Mscomm。以下用一个实例来说明： arduino UNO单片机程序是一个6LED灯控制程序2~7脚输出，接受USB模拟的串口的命令控制。 接到字符2~7表示单独点亮相应脚上的LED灯接到字符A或a 表示点亮所有6个LED灯。 接收字符C或c表示熄灭所有LED灯。 接收字符@表示逐个点亮2~7脚上的LED灯，然后熄灭如此循环。 接收字符#表示执行一个跑马灯循环。 arduino UNO单片机接受到字符命令并执行后，向上位机返回接受命令并成功执行的回应。 int BASE = 2; int NUM = 6; char iword; char loop_stat = ; int out_led; void low_all()//灯全灭过程 { for (int i = BASE; i BASE + NUM; i ++) { digitalWrite(i,LOW); } } void setup() { for (int i = BASE; i BASE + NUM; i ++) { pinMode(i, OUTPUT); } Serial.begin(9600); } void loop() { if (Serial.available() 0) //判断串口缓冲器是否有数据装入 { iword = Serial.read(); //读取串口 if ((iword=2) (iword=7)) { low_all(); out_led=byte(iword)-48; digitalWrite(out_led,HIGH); Serial.print(OK ); Serial.println(out_led); iword= ; loop_stat= ; } else if ((iword==c) || (iword==C) ) { low_all(); Serial.print(OK ); Serial.println(CLEAR!); iword= ; loop_stat= ; } else if ((iword==a) || (iword==A)) { for (int i = BASE; i BASE + NUM; i ++) { digitalWrite(i,HIGH); } Serial.print(OK ); Serial.println(ALL HIGH!); iword= ; loop_stat= ; } else if (iword==@) { loop_stat=@; Serial.println(OK @); } else if (iword==#) { loop_stat=#; Serial.println(OK # --); } } if (loop_stat != ) { if (loop_stat==@) { low_all(); delay(100); for (int i = BASE; i BASE + NUM; i ++) { digitalWrite(i,HIGH); delay(100); } } if (loop_stat==#) { low_all(); delay(100); for (int i = BASE; i BASE + NUM; i +