Quantcast
Channel: JH7UBCブログ
Viewing all articles
Browse latest Browse all 440

PIC12F1822 AQM0802A表示テスト

$
0
0
 PIC12F1822のMSSPモジュールのI2C機能を使って、I2C LCD AQM0802Aの表示テストをします。

 まずPIC12F1822のI2C機能のテストをしてみます。

 PIC12F1822のクロックは、内臓クロック8MHzをPLLで4倍してFosc=32MHzとし、I2Cは標準速度Clock=100KHzとするとI2CのBaud レートジェネレータの値FSSP1ADDは、

 SSP1ADD = Fosc / (4*Clock)-1 = 32000000 / (4 * 100000) -1 = 79 = 0x4F です。

 I2Cをマスターモードで使えるようにするためには、

 SSP1CON1 = 0x28;    //SSPrN = 1,I2Cマスターモード
 SSP1STATbits.SMP = 1;  //標準速度100kHz
 SSP1ADD = 0x4F;
とします。

 回路図です。電源は、乾電池2本で3Vとします。PIC12F1822は、RA1がSCL、RA2がSDAピンになります。

 プルアップ抵抗は、AQM0802Aモジュールに内蔵されているので、つけていません。

イメージ 1

 ブレッドボードです。

イメージ 2

 プログラムです。

 基本的には、PIC16F883の場合と同じです。

------------------------------------------------------
#include <stdio.h>
#include <stdlib.h>
#include <xc.h>
#include <pic12f1822.h>
// CONFIG1
#pragma config FOSC     = INTOSC
#pragma config WDTE     = OFF
#pragma config PWRTE    = ON
#pragma config MCLRE    = OFF
#pragma config CP       = OFF
#pragma config CPD      = OFF
#pragma config BOREN    = ON
#pragma config CLKOUTEN = OFF
#pragma config IESO     = OFF
#pragma config FCMEN    = OFF
// CONFIG2
#pragma config WRT    = OFF
#pragma config PLLEN  = ON
#pragma config STVREN = ON
#pragma config BORV   = HI
#pragma config LVP    = OFF
#define _XTAL_FREQ 32000000
#define LCD_addr 0x7C   //3E<<1

/* I2C 初期化*/
void I2C_init(){
    SSP1CON1 = 0x28;        //SSPEN = 1,I2C Master Mode
    SSP1STATbits.SMP = 1;   //標準速度モード(100KHz)
    SSP1ADD = 0x4F;         //Fosc/(4*Clock)-1  Clock=100kHz,Fosc=32MHz
}
/* スタートコンディション */
void I2C_start(){
    SEN = 1;
    while(SEN);
}
/* ストップコンディション */
void I2C_stop(){
    SSP1IF = 0;
    PEN = 1;
    while(PEN);
    SSP1IF = 0;
}
/* I2Cに1byte送信 */
void I2C_write(unsigned char dat){
    SSP1IF = 0;
    SSP1BUF = dat;
    while(!SSP1IF);
}
/* write command */
void LCD_cmd(unsigned char cmd){
    I2C_start();          //start condition
    I2C_write(LCD_addr);  //send slave address
    I2C_write(0x00);      //send control byte
    I2C_write(cmd);       //send command
    I2C_stop();           //stop condition
}
/* write charactor */
void LCD_char(unsigned char dat){
    unsigned char ackn;
    I2C_start();          //start condition
    I2C_write(LCD_addr);  //send slave address
    I2C_write(0x40);      //send control byte
    I2C_write(dat);       //send data
    I2C_stop();           //stop condition
}
/* LCD initialize */
void LCD_init(){
    __delay_ms(40); //40ms wait
    LCD_cmd(0x38);  //8bit,2line
    LCD_cmd(0x39);  //IS=1 : extention mode set
    LCD_cmd(0x14);  //Internal OSC Frequency
    LCD_cmd(0x70);  //Contrast set
    LCD_cmd(0x56);  //Power/ICON/Contrast Control
    LCD_cmd(0x6C);  //Follower control
    __delay_ms(200);//200ms wait
    LCD_cmd(0x38);  //IS=0 : extention mode cancel
    LCD_cmd(0x0C);  //Display ON
    LCD_cmd(0x01);  //Clear Display
    __delay_ms(2);  //wait more than 1.08ms
}
/* Clear Display */
void LCD_clear(){
    LCD_cmd(0x01);
    __delay_ms(1);
    __delay_us(80);
}
/* Return Home `*/
void LCD_home(){
    LCD_cmd(0x02);
    __delay_ms(1);
    __delay_us(80);
}
/* Cursor 2line top */
void LCD_2line(){
    LCD_cmd(0xC0);
}
/* write 1 charactor to LCD  */
void putch(unsigned char ch){
    LCD_char(ch);
}
/* write string */
void putstr(const unsigned char *s){
    while(*s){
        LCD_char(*s++);
    }     
}
void main() {
    OSCCON = 0b01110000 ;     // 内部クロック8MHz
    ANSELA = 0b00000000 ;     // アナログは使用しない
    TRISA  = 0b00001110 ;     // RA1,RA2,RA3は入力、他は出力
    PORTA  = 0b00000000 ;     // 出力ピンの初期化
    I2C_init();
    LCD_init();
       
    putstr("JH7UBC");
    unsigned char count = 0;
   
    while(1){
        LCD_2line();
        printf("%3d",count);
        count++;
        __delay_ms(500);
     }
}

--------------------------------------------

 PIC12F1822には、日本語の説明書があります。これはたいへん助かります。

 でも、膨大ですので、関係する部分のみ拾い読みしています。

 これを見てびっくりしたのは、レジスタのバンクの多さです。とても覚えきれるものではありません。

 旧タイプのPICは、アセンブラでプログラミングをしていました。バンクはそれほど多くないのですが、バンク切り替えに気を使いました。
 このバンク数の多さからも最近のPICは、やはりXC8などのCコンパイラが開発に適していると感じました。

Viewing all articles
Browse latest Browse all 440

Trending Articles