để mình góp ý cho bạn nhé.Mình chưa làm con rs485 nhưng rs232 thì có rồi.Phần cứng bạn chỉ cần đo chân mass và vcc vào con rs485 là được rồi chánh chết rs 485.phần mềm bên codevison bạn viết đúng rồi.nhưng trên VB viết j mà dài thế kiểm tra khó ra.viết the này là đủ nè Private Sub Form_Load()
Timer1.Enabled = True
With MSComm1
.CommPort = 1
.Settings = "9600,n,8,1"
.PortOpen = True
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub Command1_Click()
text1.text=MSComm1.input
End Sub
nhớ kiểm tra dây nối nhé,nếu có vấn đề j liên lạc canh48ckcd@gmail.com
Timer1.Enabled = True
With MSComm1
.CommPort = 1
.Settings = "9600,n,8,1"
.PortOpen = True
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub Command1_Click()
text1.text=MSComm1.input
End Sub
nhớ kiểm tra dây nối nhé,nếu có vấn đề j liên lạc canh48ckcd@gmail.com
Comment