Cho hỏi về tham số của cổng COM

**minhtrung2002dn** · 22-06-2009, 07:29 PM

Để truyền dử liệu qua đầu cân DISOMAT S em đã viết code như sau:
Private Sub Form_Load()
MSComm1.CommPort = 3
MSComm1.Settings = "9600,n,8,1"
MSComm1.RThreshold = 1
MSComm1.InputLen = 500
'MSComm1.Handshaking = False
MSComm1.InputMode = comInputModeText
MSComm1.RTSEnable = True
MSComm1.DTREnable = True
MSComm1.PortOpen = True
MSComm1.ParityReplace = ""
MSComm1.NullDiscard = True

End Sub
Sub delay(ByVal giay As Double)
Dim star As Double
star = Timer
While (Timer < star + giay / 1000)
DoEvents
Wend
End Sub
Private Sub Timer3_Timer()
Dim BytesToSend(0 To 17) As Byte ' khai báo m?t m?ng 2 ph?n t?
Dim Buffer As Variant
' l?u tr? d? li?u vào m?ng ki?u byte ? trên
BytesToSend(0) = &H2
BytesToSend(1) = &H30
BytesToSend(2) = &H31
BytesToSend(3) = &H23
BytesToSend(4) = &H54
BytesToSend(5) = &H47
BytesToSend(6) = &H23
BytesToSend(7) = &H3
BytesToSend(8) = &H11
BytesToSend(9) = &H2
BytesToSend(10) = &H30
BytesToSend(11) = &H31
BytesToSend(12) = &H23
BytesToSend(13) = &H54
BytesToSend(14) = &H47
BytesToSend(15) = &H23
BytesToSend(16) = &H3
BytesToSend(17) = &H11
' cho vào m?t bi?n Variant
Buffer = BytesToSend()
'ghi vào c?ng n?i ti?p
MSComm1.Output = Buffer
delay 600

End Sub
em đã truyền được rồi và dử liệu đầu từ đầu cân cũng đã gửi lại máy tính. nhưng em thấy cách viết code như trên của em chưa tốt lắm mong anh nào có cách hay hơn chỉ giúp.

22-06-2009, 07:29 PM	#7
minhtrung2002dn Nhập môn đệ tử Tham gia ngày: May 2009 Bài gửi: 5 :	Để truyền dử liệu qua đầu cân DISOMAT S em đã viết code như sau: Private Sub Form_Load() MSComm1.CommPort = 3 MSComm1.Settings = "9600,n,8,1" MSComm1.RThreshold = 1 MSComm1.InputLen = 500 'MSComm1.Handshaking = False MSComm1.InputMode = comInputModeText MSComm1.RTSEnable = True MSComm1.DTREnable = True MSComm1.PortOpen = True MSComm1.ParityReplace = "" MSComm1.NullDiscard = True End Sub Sub delay(ByVal giay As Double) Dim star As Double star = Timer While (Timer < star + giay / 1000) DoEvents Wend End Sub Private Sub Timer3_Timer() Dim BytesToSend(0 To 17) As Byte ' khai báo m?t m?ng 2 ph?n t? Dim Buffer As Variant ' l?u tr? d? li?u vào m?ng ki?u byte ? trên BytesToSend(0) = &H2 BytesToSend(1) = &H30 BytesToSend(2) = &H31 BytesToSend(3) = &H23 BytesToSend(4) = &H54 BytesToSend(5) = &H47 BytesToSend(6) = &H23 BytesToSend(7) = &H3 BytesToSend(8) = &H11 BytesToSend(9) = &H2 BytesToSend(10) = &H30 BytesToSend(11) = &H31 BytesToSend(12) = &H23 BytesToSend(13) = &H54 BytesToSend(14) = &H47 BytesToSend(15) = &H23 BytesToSend(16) = &H3 BytesToSend(17) = &H11 ' cho vào m?t bi?n Variant Buffer = BytesToSend() 'ghi vào c?ng n?i ti?p MSComm1.Output = Buffer delay 600 End Sub em đã truyền được rồi và dử liệu đầu từ đầu cân cũng đã gửi lại máy tính. nhưng em thấy cách viết code như trên của em chưa tốt lắm mong anh nào có cách hay hơn chỉ giúp.