cjy0312 

 vb与单片机串口通信的问题!急!加急!!!
单片机发送一串数据,vb每接收一个数据进行处理!
我的程序接收不到单片机发出的每个数据,
eg:单片机发:0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19
   vb收到:0,8,16 (收到数在text窗口中可见)

  mscomm1.settings = "9600,n,8,1"
  mscomm1.rthreshold = 1
  mscomm1.inputmode = cominputmodebinary
  mscomm1.inputlen = 0
  if mscomm1.portopen = false then mscomm1.portopen = true

private sub mscomm1_oncomm()
dim receive_data() as byte
dim inbuffer as variant

    if flag1 = true then    '输入的是数据个数
          select case mscomm1.commevent
            case comevreceive
                inbuffer = " "
                receive_data() = " "
                inbuffer = mscomm1.input
                receive_data() = inbuffer
            
           text1.text = text1.text + str(receive_data(0))                  
           end select
    end if
     mscomm1.inbuffercount = 0
end sub

发表时间:2003年9月23日12:05:48