发表于 2009-1-5 19:48
| 
濡備綍鐢∕SComm Control浼燘inary Data
鍙戝竷: 2008-6-26 09:39 | 浣滆: admin | 鏌ョ湅: 20娆
浠ヤ笅鏄鍙朆inary Data
Dim Buffer as Variant
Dim Arr() as Byte
' 璁惧畾骞跺紑鍚繛鎺ュ煚
MSComm1.CommPort = 1
' 杩炵嚎閫熷害 9600 baud銆佹棤鍚屼綅妫鏌ャ佽祫鏂欎綅鍏 8銆佸仠姝綅鍏 1
MSComm1.Settings = "9600,N,8,1"
鍛婅瘔鎺у埗椤瑰綋浣跨敤 Input 鏃讹紝璇诲彇鏁翠釜鏆傚瓨鍖
MSComm1.InputLen = 0
MSComm1.PortOpen = True
' 璁惧畾 InputMode 浠ヨ鍙栦簩杩涗綅璧勬枡
MSComm1.InputMode = comInputModeBinary
' 绛夊緟鐩村埌杈撳叆鏆傚瓨鍖烘湁 10 涓綅鍏冪粍
Do Until MSComm1.InBufferCount < 10
DoEvents
Loop
' 寰鏆傚瓨鍖哄瓨浜岃繘浣嶈祫鏂
Buffer = MSComm1.Input
' 鎸囧畾缁欎綅鍏冪粍闃靛垪浠ヤ究澶勭悊
Arr = Buffer
MSComm1.PortOpen = False
鑰岄佸嚭Binary鐨勮祫鏂欏垯娌℃湁鍍廔nputMode鐨勫睘鎬э紝鍦╒B5.0涓
Output灞炴ф槸鎺arant鎵浠ョ洿鎺ュ皢ByteArray浼犻佸嚭鍘诲氨濂戒簡锛
鎵浠ラ噸鐐瑰彉鎴愬浣曞皢鎯充紶鐨勮祫鏂欐斁鍏yteArray
Dim Buffer(5)
Buffer(0) = 210
Buffer(1) = 150
Buffer(2) = 68
Buffer(3) = 56
MSComm1.Output = Buffer
