VBÊý¾Ý´¦ÀíÎÊÌâ - VB / ÍøÂç±à³Ì

...
MSComm1.Settings = "115200,N,8,1"
MSComm1.InputMode = 1
MSComm1.InputLen = 0
MSComm1.InBufferSize = 1024
MSComm1.OutBufferSize = 512
...
Private Sub MSComm1_OnComm()  
 On Error Resume Next
  Dim BytesReceived() As Byte
  Dim buffer As String
  Dim data(0 To 31) As Byte
  Dim temp(0 To 3) As Byte
  Dim value(0 To 6) As Integer
  Dim vvalue(0 To 6) As Double
  Dim fvalue(0 To 6) As Double
  Select Case MSComm1.CommEvent
  Case comEvCD
  Case comEvCTS
  Case comEvRing
  Case comEvReceive  
  MSComm1.InputLen = 0  
  buffer = MSComm1.Input  
  BytesReceived() = buffer  
   
  For i = 0 To 31
  data(i) = BytesReceived(i)
  Next

  If data(0) = 170 And data(1) = 170 And data(30) = 187 And data(31) =187 Then  
   
  temp(0) = data(2)
  temp(1) = data(3)
  temp(2) = data(4)
  temp(3) = data(5)