18-12-2009, 01:44 PM | #11 |
Đệ tử 2 túi
Tham gia ngày: Sep 2008
Nơi Cư Ngụ: Tp. HCM
Bài gửi: 38
: |
Theo mình có 2 cách:
- Cách 1: Đặt bộ đệm Mscomm1.RThreshold = 2, có nghĩa là sau khi nhận được 2byte mới xảy ra ngắt oncomm, khi đó ta đọc 2 byte này, kiểm tra byte đầu, và giá trị là byte sau. Có thể đọc 2 byte bằng cách sau: Code:
Privat Sub MSComm1_onComm() Dim buffer 'kiểu varriant Dim Arr() as byte ' mảng động If MSComm1.CommEvent = comEvReiceive then buffer=MSComm1.Input Arr = buffer If (Arr(0)="@")then .................... End Sub thay đổi nội dung bởi: npbaoduy, 18-12-2009 lúc 01:52 PM. |
|
|