高手帮看地磅接收程序！分不多，在线等!

[joling123]

数据为9位ASCII码方式输出，每帧数据共有9组组成（包括小数点）,每组数据由10位组成，第一位为起始位第十位为停止位，中间8位为数据位，数据传送先低位后高位，每帧数据间有一组是分隔符“=”，重为89.03,数据连续发送30.98000=30.98000=......... 程序如下:（但是出来的是乱码）
Private Sub Command1_Click() '开始接收
Label1.Caption = ""
strwight = ""
With MSComm1
If .PortOpen Then
.PortOpen = False
End If
.CommPort = 1
.Settings = "2400,n,8,1 "
'.InputLen = 1
.InBufferSize = 1024
.InputMode = comInputModeText
' .InputMode = comInputModeBinary
.RThreshold = 9
.PortOpen = True
End With
End Sub

Private Sub MSComm1_OnComm()
Dim bytInput() As Byte
Dim intInputLen As Integer
Select Case Me.MSComm1.CommEvent
Case comEvReceive
'此处添加处理接收的代码
'intInputLen = Me.MSComm5.InBufferCount
strData = Me.MSComm1.Input
Dim i As Integer
Label1.Caption = strData
If Len(strData) = 9 And Mid(strData, 9, 1) = "=" Then
Label1.Caption = StrReverse(strData)
End If
strData = ""
End Select
End Sub

Private Sub Command2_Click() '停止接收
If MSComm1.PortOpen = True Then
MSComm1.PortOpen = False
End If
End Sub

下面是用超级终端读出来的前部份资料(前面是乱码最后面也是乱码只有中间的不会)：
HyperTerminal 1.0 -- HyperTerminal data file
Please do not attempt to modify this file directly.


e xV4 H d ANSI ? 鴙, ?tg新建连接 &  稦tg & 灶  鴙, 搭 * 茴 稦tg * x_ 鴙, `_ 茴 ?tg鴙,  -dsg * x_ " < ?  新宋体 # $ d A V B 0316 C D 衭!ZF G H COM1 Q R ) * 2? = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0
- = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0
0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0
0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 .
0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0
. 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5
0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0
5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - =
0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 -
= 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0
- = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0
0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0
0 0 - = 0 5 0 . 0 0 0 - = 0 5 0 . 0 0 0 - = 0 5 4 . 0 0 0 0 = 0 0 0 . 1 0 0 0

[joling123]

Option Explicit
Dim strwight As String
Dim sum As Integer
Dim strData As String

Private Sub Command1_Click() '开始接收
Label1.Caption = ""
strwight = ""
With MSComm1
If .PortOpen Then
.PortOpen = False
End If
.CommPort = 1
.Settings = "2400,n,8,1 "
'.InputLen = 1
.InBufferSize = 1024
.InputMode = comInputModeText
' .InputMode = comInputModeBinary
.RThreshold = 9
.PortOpen = True
End With
End Sub

[bvtc_liguoyuan]

招聘兼职（网上市场调研专员）

职位类型：兼职
招聘人数：不限
公司介绍：本公司是一家专业的市场调研服务公司，协助各大国际市场调研公司在中国招聘网上市场调研专员。
岗位要求：诚实，有耐心！从事过市场调查方面工作的优先。
工作内容：我们会通过电子邮件，不定期发送调查问卷给调研专员，调研专员自己安排时间填写问卷就可以了。收入按完成问卷的数量计算，每份20分钟的问卷报酬大约为10元。

详情请访问：http://www.freesurvey.net.cn?SOURCE-9F4CDF18-6995-457A-8F13-800046345882（注册用户后可联系我本人）
QQ咨询 ：86037127
电子邮件：[e-mail]

[tianhuo_soft]

UP

[joling123]

自己顶！！！

[joling123]

没人理我？