Thông báo

Collapse
No announcement yet.

Máy tình báo lỗi 8020

Collapse
X
 
  • Lọc
  • Giờ
  • Show
Clear All
new posts

  • Máy tình báo lỗi 8020

    Chào mọi người, em đang viết một giao diện đơn giản trước để điều khiển 2 con led đơn, mô phỏng trên proteus thì ko sao nhưng khi làm thực tế thay vì em dùng cổng com em sử dụng một con PL2303 để truyền qua cổng USB (nhưng thực tế PC vẫn nhận là cổng COM port16) thì máy báo lỗi 8020, mọi người giúp em với, em đang làm luận văn về phần viết giao diện nên rất gắp!
    Attached Files

  • #2
    Lỗi này hình như là Runtime Error. Bạn làm mấy thứ này xem sao:
    +Cài lại đúng driver PL2303
    +Kiểm tra các chân TX,RX VĐK và PL xem đúng chưa
    +Setting cổng thành com1 hay com2 gì đó cho dễ coding lại
    +Khoan hãy dùng VB và VĐK mà bạn tải chương trình Terminal về, kết nối PL2303, nối 2 đầu TX và RX của con PL lại rồi gửi đại một chuỗi hay kí tự gì đó xuống bằng Terminal xem nó có phản hồi gửi lên Reciever Terminal lại không? Nếu có gửi y chuỗi hoặc kí tự xuống thì 99% code VB có vấn đề (mình chưa xem).

    Phần mềm Terminal đây: http://www.mediafire.com/?79b50wc9cry25xz
    Chúc may mắn
    Last edited by mryalamen; 21-11-2012, 18:03.

    Comment


    • #3
      Chào bạn, cảm ơn bạn đã giúp đỡ.
      Mình đã thử với Hyperterminal rồi, truyền nhận ngon lành, không có lỗi gì cả nhưng khi viết cho cổng COM16 hay 17, 18 đều bị lỗi cả (vi điều khiển cắm vào các cổng này).
      Mình cũng chả hiểu bị lỗi gì nữa.

      Comment


      • #4
        Bạn kt code lại xem, bạn tham khảo mấy đoạn code cơ bản này xem:
        Khởi tạo và thiết lập:
        '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
        Private Sub Form_Load()
        With MSComm1
        .Settings = "9600,N,8,1"
        .CommPort = 1
        .RThreshold = 2
        .SThreshold = 0
        .InputMode = comInputModeText
        .InputLen = 0
        .Handshaking = comNone
        .InBufferSize = 1024
        .OutBufferSize = 1024
        If .PortOpen = False Then
        .PortOpen = True
        End If
        End With
        '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''
        Ngắt nhận:
        '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''
        Private Sub MSComm1_OnComm()
        Dim Buffer As Variant
        If MSComm1.CommEvent = comEvReceive Then
        n = MSComm1.Input
        Text3.Text = n
        End If
        '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''
        Bạn chỉnh lại com? mà bạn xài coi sao

        Comment


        • #5
          Bạn coi thử đoạn code mình sửa trong file gửi kèm có đúng ko? Sao mình sửa mà nó vẫn báo lỗi 8020. Mong bạn giúp đỡ, cám ơn bạn rất nhiều.
          http://www.mediafire.com/?ic1u0vwn6kn14sw

          Comment

          Về tác giả

          Collapse

          rongbattuvl Tìm hiểu thêm về rongbattuvl

          Bài viết mới nhất

          Collapse

          Đang tải...
          X