Giao tiếp RS232 trên PC

**minhtrung2002dn** · 24-06-2009, 02:10 PM

cảm ơn anh đã hồi âm cho em.
Để 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.

Similar Threads
Ðề tài	Người gửi	Chuyên mục	Trả lời	Bài mới
Cho hỏi về giao tiếp RS232 của PIC16F877A	enti	Giao tiếp cổng COM và LPT	31	25-03-2016 10:14 PM
Giao tiếp RS232 trên PC qua Matlab	ngohaibac	Giao tiếp cổng COM và LPT	47	18-11-2015 03:51 PM
giao tiep RS232 voi C	dangngoc	Giao tiếp cổng COM và LPT	9	26-02-2012 02:25 AM
cần mua bộ thu GPS có giao tiếp RS232	kienvq	Tìm mua sản phẩm	15	17-03-2011 11:25 PM
Help! Dùng C để giao tiếp RS232	dandiennang	Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)	6	15-03-2009 06:41 PM

24-06-2009, 02:10 PM	#17
minhtrung2002dn Nhập môn đệ tử Tham gia ngày: May 2009 Bài gửi: 5 :	cảm ơn anh đã hồi âm cho em. Để 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.