楼 主:erhong2003 2006年4月26日17:28

 帮帮忙了
大家好啊，谁能帮帮我，为什么单片机往PC机发送的数据，PC机接受不到呢，程序如下：
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "2400,n,8,1"
MSComm1.PortOpen = True
Command1.Visible = True
Command2.Visible = True
MSComml.RThreshold = 1
MSComml.InputLen = 1
Dim inte as integer
MSComm1.InBufferCount = 0
End Sub
Select Case MSComm1.CommEvent
Case comEvReceive
Receive(comm_time) = Asc(Comml.Input)
Print "inte"
Print inte
End Select
End Sub
End Sub
Private Sub Command11_Click()
MSComm1.PortOpen = False
End Sub
帮忙看看吧
单片机程序如下：（只给PC机发了一个1）
 ORG 0000H
 AJMP MAIN
 ORG 0030H
MAIN:   MOV TMOD,#20H  ;定时器T1设置为方式2工作 
 MOV TH1,#0F4H
 MOV TH0,#0F4H  ;波特率设置为2400b/s
 MOV SCON,#50H  ;串口工作与方式1，允许接受
 MOV PCON,#00H  
 SETB TR1
 
LOOP:   MOV A,#73H
 MOV  SBUF,A
 JNB     TI,$
    CLR TI                 ;接受数据
 
 END
只是一个验证程序