神啊!救救我吧!

Question

建议找一个25D专9D的转换线，保证连线焊接没有问题up

Answer 1

怎么我接收到的数据总是不对啊!我本来要接收的是BYTE,我的MSCOMM的INPUTMODE设为1,但接下来的数据总是F8,F7,FC,F9之类的,为什么前4BYTE总是F呢?

Answer 2

Private Sub Form_Load()
'新建一个文件名,用于存MODEM传来的数据,文件要以二进制文件形式,因我的MODEM传来的数据并不一定是字符
Open App.Path + "\wordCom.1" For Binary As #1
End Sub'接收MODEM传来的数据,MScomm1的InputMode为1,Rthreshold为1
Private Sub MSComm1_OnComm()
Dim i%, buf$
Dim inbyte() As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
inbyte = MSComm1.Input
Put #1, , inbyte
'For i = LBound(inbyte) To UBound(inbyte)
'buf = buf + inbyte(i)
'Next i
'Text1.Text = buf
End Select
'现在的问题是:我本来要接的并不仅是128以下的ASCII码,比如WORD文档,它就超过128以上的ASCII,比如:67,35
'但我的这段程序接下来的都是F7,F9,F6,F5,FC,FD之类的,也就是,都是128以下的,本来应该是
'F0 14 F0 15 05 30 之类的,
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Close #1'关闭文件
End Sub谢谢大家了@!

Answer 3

现在:我用的是买的线,
用以上的程序接收,但接下的来全是:08,78,7F之类的,而有实际内容,是不是我的程序有问题啊,
哪位GGJJ能不能帮我测试一下以上的代码啊!