giao tiếp rs232

Collapse
X
 
  • Giờ
  • Show
Clear All
new posts
  • naivatho
    Đệ tử 1 túi
    • Aug 2008
    • 17

    #16
    bác toàn ơi sao chương trình chạy được nhưng vẫn chưa truyền nhận được
    đây là code của em
    trên vb
    Private Sub cmdtruyen_Click()
    Dim rstr As String
    rstr = txttruyen.Text
    If (Val(rstr) < 1000) And (Val(rstr) > 0) Then
    l = Len(rstr)
    If (l = 1) Then
    rstr = "000" + rstr
    End If
    If (l = 2) Then
    rstr = "00" + rstr
    End If
    If (l = 3) Then
    rstr = "0" + rstr
    End If
    End If
    MSComm1.Output = rstr
    End Sub

    Private Sub Form_Load()
    With MSComm1
    .CommPort = 1
    .Settings = "19200,N,8,1"
    .PortOpen = True
    .RThreshold = 1
    End With
    End Sub

    Private Sub MSComm1_OnComm()
    If MSComm1.CommEvent = 2 Then
    txtnhan.Text = txtnhan.Text + MSComm1.Input
    End If
    End Sub
    code tren pic
    #include<18f452.h>
    #include <stdlib.h>
    #use delay(clock=20000000)
    #use rs232(baud=19200,parity=N,xmit=PIN_C6,rcv=PIN_C7)
    int y;
    void getvalue()
    {
    int16 x;
    int i;
    char s[1]; //khai báo so^' lu+o+.ng chuo^~i truye^`n
    for(i=0;i<4;i++) //so^' ký tu+. truye^`n xuo^'ng
    s[i]=getc(); //nhan s vao tu tu dang chuoi
    x=atol(s); //chuyen chuoi sang so
    y=x; //so^' ba.n ca^`n truye^`n ?ây
    printf("%lu",x); //xuat gia tri x ra pc so ko dau
    }

    void main()
    {
    while(1)
    {
    if (y==0)
    getvalue();
    }

    }
    e vẫn chưa hiểu đoạn bác gán y =0 để làm gì!!!!
    và chỗ getvalue(); là lấy giá trị đúng không bác
    sao e vẫn chưa truyền nhận được
    mong bác sớm hồi âm
    e truyền số 100 mà không được

    Comment

    • naivatho
      Đệ tử 1 túi
      • Aug 2008
      • 17

      #17
      bác toàn ơi sao chương trình chạy được nhưng vẫn chưa truyền nhận được
      đây là code của em
      trên vb
      Private Sub cmdtruyen_Click()
      Dim rstr As String
      rstr = txttruyen.Text
      If (Val(rstr) < 1000) And (Val(rstr) > 0) Then
      l = Len(rstr)
      If (l = 1) Then
      rstr = "000" + rstr
      End If
      If (l = 2) Then
      rstr = "00" + rstr
      End If
      If (l = 3) Then
      rstr = "0" + rstr
      End If
      End If
      MSComm1.Output = rstr
      End Sub

      Private Sub Form_Load()
      With MSComm1
      .CommPort = 1
      .Settings = "19200,N,8,1"
      .PortOpen = True
      .RThreshold = 1
      End With
      End Sub

      Private Sub MSComm1_OnComm()
      If MSComm1.CommEvent = 2 Then
      txtnhan.Text = txtnhan.Text + MSComm1.Input
      End If
      End Sub
      code tren pic
      #include<18f452.h>
      #include <stdlib.h>
      #use delay(clock=20000000)
      #use rs232(baud=19200,parity=N,xmit=PIN_C6,rcv=PIN_C7)
      int y;
      void getvalue()
      {
      int16 x;
      int i;
      char s[1]; //khai báo so^' lu+o+.ng chuo^~i truye^`n
      for(i=0;i<4;i++) //so^' ký tu+. truye^`n xuo^'ng
      s[i]=getc(); //nhan s vao tu tu dang chuoi
      x=atol(s); //chuyen chuoi sang so
      y=x; //so^' ba.n ca^`n truye^`n ?ây
      printf("%lu",x); //xuat gia tri x ra pc so ko dau
      }

      void main()
      {
      while(1)
      {
      if (y==0)
      getvalue();
      }

      }
      e vẫn chưa hiểu đoạn bác gán y =0 để làm gì!!!!
      và chỗ getvalue(); là lấy giá trị đúng không bác
      sao e vẫn chưa truyền nhận được
      mong bác sớm hồi âm
      e truyền số 100 mà không được

      Comment

      • nguyenquoctoan
        Đệ tử 6 túi
        • Nov 2007
        • 136

        #18
        mình gửi cho bạn chuơng trình mình đã test đây,sẵn giao diện luôn,bạn thao khảo đi,mình đã test ok roi

        Comment

        • nguyenquoctoan
          Đệ tử 6 túi
          • Nov 2007
          • 136

          #19
          -mình viết 1 cái đơn giản cho bạn test thư cái này mình đã test ok rồi,bạn tham khảo thử
          -nuế kô chạy có thể phần cứng bạn có vấn đề, bạn kiểm tra lại phần cứng thư,chú ý chiều khi gắn tụ...
          Attached Files

          Comment

          • nguyenquoctoan
            Đệ tử 6 túi
            • Nov 2007
            • 136

            #20
            đoạn code trên chỉ nhận được một lần(quên cho y=0 trong hàm getvalue),khi cho y = 0 thì quá trình luôn được tiếp diễn vì trong hàm chính dò nuế y=0 thì xảy ra quá trình nhận, bạn có thể dùng ngắt nối tiếp RDA để truyền nhận cũng được

            Comment

            • nguyenquoctoan
              Đệ tử 6 túi
              • Nov 2007
              • 136

              #21
              cho hỏi ở đây ai đã truyền số thập phân xuống và xuất số đó ra lcd chưa,xin chỉ giáo tiểu đệ,ví dụ truyền số 0.001,sao đó xuất y chang số đó ra lcd,và truyền một lúc 10 số như vậy xuất ra tuần tự,nói rõ công dụng hàm atof() (chuyển đổi string sang số chấm động)

              Comment

              • naivatho
                Đệ tử 1 túi
                • Aug 2008
                • 17

                #22
                Bác Toàn ơi!!
                Sao Bác gởi cho em cái chương trình trên VB mà chỉ có cái form thôi
                Ko có chương trình nên e chưa test được
                Mong bác sớm gởi lại cho tiểu đệ
                Chương trình của bác xuất ra lcd à.e chỉ cần pic nhận được sau đó xuất lên lại màn hình trên VB ở ô nhận thôi.để em biết rằng pic đã nhận được giá trị mà mình truyền xuống.
                E đã viết chương trình trên VB rồi,nó truyền tốt và khi nối chân 2,với 3 của cổng Com lại thì nó hiển thị giá trị em truyền trên ô nhận nhưng khi đưa vào mạch pic thì khi truyền ô nhận trên VB chẳng xuất hiện được giá trị e muốn truyền !!!!!!
                Mong các cao nhân giúp đỡ tiểu đệ

                Comment

                • nguyenquoctoan
                  Đệ tử 6 túi
                  • Nov 2007
                  • 136

                  #23
                  cái đó file.exe đó chạy thôi,code trên píc là gửi cho bạn rồi,đã test mà sao kô chạy,chương trình đó có trả giá trị mà bạn gửi xuống pic nữa bạn xem ky đi,bạn chỉ cần dịch chương trình mình gửi nạp file hex vào chạy file.exe đó,nhấn connect sau đó đánh chuỗi cần truyền vào input, output sẽ hiện ở dòng dưới coi như ok

                  Comment

                  • thang8831
                    Đệ tử 2 túi
                    • May 2008
                    • 37

                    #24
                    Các bác ah! Em thấy trong chương trình các bác viết không nói gì đến các hoạt động của VDK ở bên ngoài, tức em không thấy trong chương trình có khai báo các port mà VDK sẽ nhận hoặc xuất dữ liệu ra phần cứng và hoạt động của các chân đấy trong quá trình truyền và nhận dữ liệu với PC trên chương trình. Tiểu đệ còn non kiến thức mong các bác chỉ giúp. Cám ơn mọi người nhiều!

                    Comment

                    • nguyenquoctoan
                      Đệ tử 6 túi
                      • Nov 2007
                      • 136

                      #25
                      khai báo chân txd và rxd, sử dụng modun rs232 ngay đoạn đầu,

                      Comment

                      • thang8831
                        Đệ tử 2 túi
                        • May 2008
                        • 37

                        #26
                        ý em không phải hỏi về 2 chân đó bác ah! Mà em chưa hiểu ở chỗ các chân của các port mà mình thiết kế để điều khiển các phần cứng bên ngoài chẳng hạn xuất mức 1 hoặc 0 ra 1 chân nào đó hoặc dữ liệu nhận về ở 1 chân nào đấy sao không thấy các bác nói đến trong chương trình? Chương trình em chỉ thấy VĐK nhận và truyền trở lại bằng các hàm getc và putc mà chẳng thấy nó điều khiển cái gì thông qua chân nào cả. Mong các bác chỉ giúp em. Cám ơn mọi người nhiều!

                        Comment

                        • tranvangvn
                          Nhập môn đệ tử
                          • Feb 2009
                          • 7

                          #27
                          Xin hỏi mọi người khai báo cái này mục đich là gì vậy
                          #include <16F876A.h>
                          #fuses HS,NOWDT,NOPROTECT,NOLVP
                          #use delay(clock=20000000)
                          #use rs232(baud=9600, xmit=PIN_A2, rcv=PIN_A3)
                          em viết cho vi điều khiển bằng C nhưng máy tính toàn báo nỗi khung truyền vì thế C có cân không

                          Comment

                          • digan
                            Đệ tử 1 túi
                            • Jan 2006
                            • 14

                            #28
                            Xin chào! Mình thử giao tiếp mãi mà ko dc không biết sai sót ở đâu. mình dùng cachs bật các led ở Port b để báo là có truyền thông
                            #include <16f877a.h>
                            #include <def_877a.h>
                            //#device *=16 ADC=8
                            #FUSES NOWDT, HS, NOPUT, NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOWRT
                            #use delay(clock=20000000)
                            #use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7,bi ts=9)
                            char buf;
                            int a;
                            // Ngat Truyen thong
                            #INT_RDA
                            Receive_isr()
                            {

                            buf=getc();
                            putc(buf);
                            PORTB=0x00;

                            Các cao thủ KT hộ với. tôi nghi là sai phần khai báo(đánh dấu), nhưng mục này thường copy nên ko rõ bản chất

                            Comment

                            • phandinh
                              Đệ tử 6 túi
                              • Nov 2008
                              • 131

                              #29
                              bạn phải post toàn bộ code lên chứ. Mình cũng đang làm về cái này, có gì mình cùng thảo luận

                              Comment

                              • digan
                                Đệ tử 1 túi
                                • Jan 2006
                                • 14

                                #30
                                hik mình mới làm truyền thông thui, khi truyền được thì mới làm các thao tác tiếp theo dc.Full code:
                                #include <16f877a.h>
                                #include <def_877a.h>
                                //#device *=16 ADC=8
                                #FUSES NOWDT, HS, NOPUT, NOPROTECT, NODEBUG, NOBROWNOUT, NOLVP, NOWRT
                                #use delay(clock=20000000)
                                #use rs232(baud=9600,parity=N,xmit=PIN_C6,rcv=PIN_C7,bi ts=8)


                                //=================================
                                int buf;
                                // Ngat Truyen thong
                                #INT_RDA
                                Receive_isr()
                                {

                                buf=getc();
                                //putc(buf);
                                PORTB=0xF0;
                                }


                                void main()
                                {
                                // Cho phep ngat
                                enable_interrupts(GLOBAL); // Cho phep tao ngat
                                enable_interrupts(INT_EXT); // Cho phep ngat ngoai tai chan RB0/INT
                                enable_interrupts(INT_RDA); // Cho phep ngat ngoai tai chan RB0/INT

                                TRISB = 0x00; // Tat ca PORTB deu la cong xuat du lieu
                                // Tat het cac LED
                                PORTB=0x0F;

                                While(1)
                                {


                                }
                                }

                                Comment

                                Working...