giúp em chuẩn rs232 và vb vs atmega16

[bienhou]

rs232.rar
hỳ hục cả nửa tháng nay mà e vẫn ko xog được cái phần này. các bác giúp e tìm chỗ sai vs ah.
E xin cám ơn.

[queduong]

rs232.rar
hỳ hục cả nửa tháng nay mà e vẫn ko xog được cái phần này. các bác giúp e tìm chỗ sai vs ah.
E xin cám ơn.

Bạn mới học thì nên viết nó rành mạch ra cho nó dễ . ( ví dụ mỗi cái nút đặt cho nó 1 cái tên riêng " gợi tả " ) ... dùng TabIndex cũng được

Tôi làm lại bài toán của bạn ... ở đây tôi gửi 1 , 2, 4, 8 ... từ PC xuống V ĐK ... ! Còn khi V ĐK gửi lên ... ấn nút đọc ( phản hồi ) nó sẽ hiện giá trị ra text box .

Ở đây tôi chỉ viết 1 byte ... nếu bạn muốn viết nhiều byte ... bạn phải đếm số byte thu nhận . ( InBufferCount)

-- trên Code của bạn không có sự kiện ONcom ???

Dim BytesReceived() As Byte

Private Sub Form_Load()
With MSComm1
    .CommPort = 2               'chose COM2
    .Settings = "9600,N,8,1"    'baud 9600bps, none parity, 8 bit data, 1 bit stop
    .InBufferSize = 1024
    .InputLen = 0
    .RThreshold = 1
    .SThreshold = 0
    .OutBufferSize = 512
    .InputMode = comInputModeBinary
    '.InputMode = comInputModeText
    .PortOpen = True
End With
End Sub

Private Sub MSComm1_OnComm()
'Read and Store the 1 byte data
BytesReceived() = MSComm1.Input

End Sub

Private Sub cmd_back_Click()
Text1.Text = Hex$(BytesReceived(0))

End Sub

Private Sub cmd_exit_Click()
MSComm1.PortOpen = False
End
End Sub

Private Sub cmd_led1_Click(Index As Integer)
MSComm1.Output = Chr$(1)
End Sub

Private Sub cmd_led2_Click(Index As Integer)
MSComm1.Output = Chr$(2)
End Sub

Private Sub cmd_led3_Click(Index As Integer)
MSComm1.Output = Chr$(4)
End Sub

Private Sub cmd_led4_Click(Index As Integer)
MSComm1.Output = Chr$(8)
End Sub

chúc vui !

[bienhou]

Bạn mới học thì nên viết nó rành mạch ra cho nó dễ . ( ví dụ mỗi cái nút đặt cho nó 1 cái tên riêng " gợi tả " ) ... dùng TabIndex cũng được

Tôi làm lại bài toán của bạn ... ở đây tôi gửi 1 , 2, 4, 8 ... từ PC xuống V ĐK ... ! Còn khi V ĐK gửi lên ... ấn nút đọc ( phản hồi ) nó sẽ hiện giá trị ra text box .

Ở đây tôi chỉ viết 1 byte ... nếu bạn muốn viết nhiều byte ... bạn phải đếm số byte thu nhận . ( InBufferCount)

-- trên Code của bạn không có sự kiện ONcom ???

Dim BytesReceived() As Byte

Private Sub Form_Load()
With MSComm1
    .CommPort = 2               'chose COM2
    .Settings = "9600,N,8,1"    'baud 9600bps, none parity, 8 bit data, 1 bit stop
    .InBufferSize = 1024
    .InputLen = 0
    .RThreshold = 1
    .SThreshold = 0
    .OutBufferSize = 512
    .InputMode = comInputModeBinary
    '.InputMode = comInputModeText
    .PortOpen = True
End With
End Sub

Private Sub MSComm1_OnComm()
'Read and Store the 1 byte data
BytesReceived() = MSComm1.Input

End Sub

Private Sub cmd_back_Click()
Text1.Text = Hex$(BytesReceived(0))

End Sub

Private Sub cmd_exit_Click()
MSComm1.PortOpen = False
End
End Sub

Private Sub cmd_led1_Click(Index As Integer)
MSComm1.Output = Chr$(1)
End Sub

Private Sub cmd_led2_Click(Index As Integer)
MSComm1.Output = Chr$(2)
End Sub

Private Sub cmd_led3_Click(Index As Integer)
MSComm1.Output = Chr$(4)
End Sub

Private Sub cmd_led4_Click(Index As Integer)
MSComm1.Output = Chr$(8)
End Sub

chúc vui !

Em cám ơn anh nhiều.

[bienhou]

Bạn mới học thì nên viết nó rành mạch ra cho nó dễ . ( ví dụ mỗi cái nút đặt cho nó 1 cái tên riêng " gợi tả " ) ... dùng TabIndex cũng được

Tôi làm lại bài toán của bạn ... ở đây tôi gửi 1 , 2, 4, 8 ... từ PC xuống V ĐK ... ! Còn khi V ĐK gửi lên ... ấn nút đọc ( phản hồi ) nó sẽ hiện giá trị ra text box .

Ở đây tôi chỉ viết 1 byte ... nếu bạn muốn viết nhiều byte ... bạn phải đếm số byte thu nhận . ( InBufferCount)

-- trên Code của bạn không có sự kiện ONcom ???

Dim BytesReceived() As Byte

Private Sub Form_Load()
With MSComm1
    .CommPort = 2               'chose COM2
    .Settings = "9600,N,8,1"    'baud 9600bps, none parity, 8 bit data, 1 bit stop
    .InBufferSize = 1024
    .InputLen = 0
    .RThreshold = 1
    .SThreshold = 0
    .OutBufferSize = 512
    .InputMode = comInputModeBinary
    '.InputMode = comInputModeText
    .PortOpen = True
End With
End Sub

Private Sub MSComm1_OnComm()
'Read and Store the 1 byte data
BytesReceived() = MSComm1.Input

End Sub

Private Sub cmd_back_Click()
Text1.Text = Hex$(BytesReceived(0))

End Sub

Private Sub cmd_exit_Click()
MSComm1.PortOpen = False
End
End Sub

Private Sub cmd_led1_Click(Index As Integer)
MSComm1.Output = Chr$(1)
End Sub

Private Sub cmd_led2_Click(Index As Integer)
MSComm1.Output = Chr$(2)
End Sub

Private Sub cmd_led3_Click(Index As Integer)
MSComm1.Output = Chr$(4)
End Sub

Private Sub cmd_led4_Click(Index As Integer)
MSComm1.Output = Chr$(8)
End Sub

chúc vui !

Em cám ơn anh nhiều.

[phan_it]

Nếu chỉ đẻ thí nghiệm giao tiếp VĐK với máy tính qua RS232 thì làm thế này cunhx đơn giản nhiều:
- Trên máy tính dùng luôn phần Hyperterminal. mỗi khi bạn gõ bàn phím thí giá trị phím đó sẽ được chuyển ra cổng COM.
- chương trình trên VĐK mỗi khi nhận được một ký tự sẽ gửi phản hồi trở lai.
- Nếu gõ bàn phím mà phím đó hiện lên màn hình Hyperterminal thì truyền thông ok.