28-11-2009, 09:30 PM | #5 | |
Đệ tử 4 túi
Tham gia ngày: May 2007
Bài gửi: 81
: |
Trích:
Code:
With MSComm1 .CommPort = 1 .Settings = "9600,N,8,1" .DTREnable = True .RTSEnable = True .RThreshold = 1 End With Code:
Private Sub MSComm1_OnComm() If MSComm1.CommEvent = comEvReceive Then Text1.Text = Text1.Text & Asc(MSComm1.Input) & "," End If End Sub |
|
|
|