PIC ja RS232

ölaef

Ei liity suoraan Assemblyyn, mutta täältä löytynee osaamista.

Pöydällä lojuu PIC 16F690 joka olisi tarkoitus saada keskustelemaan tietokoneen kanssa sarjaportin kautta. Mistä kannattaisi lähteä liikkeelle? Käytössä on C-kääntäjä ja ja olen MAX232:sta ruuvannut kummajaisen, joka kuulemma asettaa jännitteet kohdalleen.

Onko jossaino olemassa jotain C-kirjastoja, joiden avulla pääsisin asiassa alkuun?

Myös assemblylla tehdyt koodinpätkät kiinnostavat, saanen ne ruuvattua C-koodin kylkeen.

2

1162

    Vastaukset 2

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kuikka vaaglella

      Max232 on toimiva. Ite en ole vaivautunut enään vääntään asmia picille vaan kaikki koodi vaan c:llä, jos pelkästään niitä ledejä vilkuttelee eikä mennä resurssit tapissa on ihan turha vääntää asmia. mblabilla simuloi jos on aikakriittiset kohdat johon vois sitä inline asmia tarvittaessa laittaa.

      Kato onko c-kääntäjän sampleissa usart esimerkkejä. Hi-tech C:n mukana tulee tuollanen:

      main.c
      Code:

      #include
      #include
      #include "usart.h"

      /* A simple demonstration of serial communications which

      * incorporates the on-board hardware USART of the Microchip

      * PIC16Fxxx series of devices. */


      void main(void){

      unsigned char input;


      INTCON=0;// purpose of disabling the interrupts.


      init_comms();// set up the USART - settings defined in usart.h


      // Output a message to prompt the user for a keypress

      printf("Hello");



      while(1)

      {

      input = getstr();// read a response from the user

      printf("\rI detected [%c]",input);// echo it back

      }


      }




      usart.c
      Code:

      #include

      #include

      #include "usart.h"


      void

      putch(unsigned char byte)

      {

      /* output one byte */

      while(!TXIF)/* set when register is empty */

      continue;

      TXREG = byte;

      }


      unsigned char

      getch() {

      /* retrieve one byte */

      while(!RCIF)/* set when register is not empty */

      continue;

      return RCREG;

      }


      unsigned char

      getche(void)

      {

      unsigned char c;

      putch(c = getch());

      return c;

      }


      /*

      void getstr(const char *s)

      {

      while(!RCIF)

      continue;

      while (*s)

      getch();

      return str;

      }

      */



      usart.h
      Code:


      #ifndef _SERIAL_H_

      #define _SERIAL_H_


      #define BAUD 9600

      #define FOSC 7370000L

      #define NINE 0 /* Use 9bit communication? FALSE=8bit */


      #define DIVIDER ((int)(FOSC/(16UL * BAUD) -1))

      #define HIGH_SPEED 1


      #if NINE == 1

      #define NINE_BITS 0x40

      #else

      #define NINE_BITS 0

      #endif


      #if HIGH_SPEED == 1

      #define SPEED 0x4

      #else

      #define SPEED 0

      #endif


      #if defined(_16F87) || defined(_16F88)

      #define RX_PIN TRISB2

      #define TX_PIN TRISB5

      #else

      #define RX_PIN TRISC7

      #define TX_PIN TRISC6

      #endif


      /* Serial initialization */

      #define init_comms()\

      RX_PIN = 1;\

      TX_PIN = 1; \

      SPBRG = DIVIDER; \

      RCSTA = (NINE_BITS|0x90);\

      TXSTA = (SPEED|NINE_BITS|0x20)


      void putch(unsigned char);

      extern void getstr(const char *s);

      unsigned char getch(void);

      unsigned char getche(void);


      #endif

      //loppu usart.h

      • aapee.

        Enköhän tällä pääse alkuun. Ainakin sain ensimmäiset kötystyksen käännettyä ilman suurempia herjoja.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      69
      1072
    2. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      64
      852
    3. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      836
    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      53
      828
    5. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      185
      811
    6. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      696
    7. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      692
    8. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      206
      680
    9. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      50
      663
    10. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      28
      624
    11. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      568
    12. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      40
      508
    13. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      44
      489
    14. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      169
      464
    15. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      454
    16. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      438
    17. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      427
    18. Makeinen, asiaa sinulle

      Minua korkeampien voimien kehotuksesta sinua pyydetään avaamaan jokin yhteys asioista keskustelemisen takia kanssani. Il
      Ikävä
      28
      393
    19. Huumekauppaako

      ”Huumekauppa johti rajuun väkivaltaan Kokkolassa – Kolme nuorta otettu kiinni, yksi epäillyistä alaikäinen”
      Kokkola
      9
      374
    20. J-mies!

      Meidän "suhde" (suhde mitä ei oikeastaan edes ole) on kielletty ja vaikea. En tiedä mihin uskot, mutta olet irl itsekin
      Ikävä
      32
      372
    Aihe