VB编写下位机程序

下位机用串口接收中断嘛。

在中断里面：

unsigned char receive

receive = GetChar()//GetChar()就是从相应的寄存器中读出接收到的值

//（当然要事先写好）

switch(receive)

{

case 0x10:PutChar(0x01)break//PutChar()就是串口发送字节函数

//（当然要事先写好）

case 0x11:PutChar(0x02)break

...

default:break

}

mscomm1.inputmode

=

cominputmodebinary

mscomm1.settings="9600,n,8,1"

mscomm1.commport=1

mscomm1.portopen=true

以上打开串口

dim

senddata()

as

byte

mscomm1.output=senddata

发送数据了

协议是你自已选或是自己决定的

比如说modbus

redim

senddata(7）共8字节指令

senddata(0)=下位机地址

senddata(1)=功能码

...

..

.senddata(7)=crc校验低8位

mscomm1.output=senddata

发送

---