![]() |
|
|
#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 |
|
|
|
|
| Ðiều Chỉnh | |
| Xếp Bài | |
|
|