Cамоучители по программированию PIC

#ifndef __LCD_H
#define __LCD_H
 
#include <p18f2550.h>
#include <pconfig.h>
#include <delays.h>
#include <string.h>
 
#define LCD_PIN_RS PORTCbits.RC6        // Вывод контроллера, к которому подключен вывод RS от ЖКИ
#define LCD_PIN_RS_TRIS TRISCbits.TRISC6    // Тот же вывод, только его TRIS (используется при инициализации)
#define LCD_PIN_E PORTBbits.RB4         // Вывод контроллера, к которому подключен вывод R от ЖКИ
#define LCD_PIN_E_TRIS TRISBbits.TRISB4     // Его TRIS
 
#define LCD_COL_NUM 16              // Количество столбцов в ЖКИ
 
#define LCD_RS_Instruction() LCD_PIN_RS=0;  // Режим передачи команд
#define LCD_RS_Data() LCD_PIN_RS=1;     // Режим передачи данных
 
#define Delay230ns  Delay1TCY();Delay1TCY();// Задержка 1 команд (83.3333333 нс, нужно минимум 230 нс... но тут выполняются ещё 2 команды... поэтому получается 250 нс)
#define Delay39us   Delay100TCYx(5);    // 500 команд = 41.6666666 мкс (нужно 39 мкс)
#define Delay43us   Delay100TCYx(6);    // 600 команд = 50.0000000 мкс (нужно 43 мкс)
#define Delay1530us Delay10KTCYx(2);    // 20000 команд = 1666 мкс (нужно 1530 мкс)
 
const unsigned char LCD_Chars[64] = {
    'A', 0xA0,'B',0xA1,0xE0, 'E',0xA3,0xA4,0xA5,0xA6, 'K',0xA7, 'M', 'H', 'O',0xA8,
    'P', 'C', 'T',0xA9,0xAA, 'X',0xE1,0xAB,0xAC,0xE2,0xAD,0xAE, 'b',0xAF,0xB0,0xB1,
    'a',0xB2,0xB3,0xB4,0xE3, 'e',0xB6,0xB7,0xB8,0xB9,0xBA,0xBB,0xBC,0xBD, 'o',0xBE,
    'p', 'c',0xBF, 'y',0xE4, 'x',0xE5,0xC0,0xC1,0xE6,0xC2,0xC3,0xC4,0xC5,0xC6,0xC7
};
 
unsigned char LCD_cache[2][LCD_COL_NUM+3] = {{""},{""}};
 
void LCD_Init();            // Инициализация ЖКИ
void LCD_Clear_Display();   // Очистить экран
void LCD_GotoXY(const unsigned char row,const unsigned char col);   // Установить курсор на позицию
void LCD_Print_Char(unsigned char c);                               // Нарисовать один символ
void LCD_WriteXY(const unsigned char row,const unsigned char col,unsigned char *s,const unsigned char needfill);    // Вывести строку на экран в заданной строке и позиции
void LCD_Tick();        // Строб
void LCD_Send_Tetrad(unsigned char data);   // Отправить тетраду в ЖКИ
void LCD_Send_Byte(unsigned char data);     // Отправить байт в ЖКИ
 
void LCD_Tick()
{
    LCD_PIN_E = 1;
    Delay230ns;
    LCD_PIN_E = 0;
    Delay230ns;
}
 
void LCD_Send_Tetrad(unsigned char data)
{
    unsigned char tmp;
    tmp = PORTB; // Получаем текущее значение порта
    tmp = (tmp & 0xf0) | (data & 0x0f); // У текущего значения порта меняем только младшую тетраду
    PORTB = tmp; // Записывам новое значение в порт
    PORTB = data; // Записывам новое значение в порт
 
    PORTB = PORTB | 0b00010000;
    LCD_Tick(); // Строб
}
 
void LCD_Send_Byte(unsigned char data)
{
    unsigned char tmp;
    tmp = data >> 4; // Старшую тетраду в tmp
    LCD_Send_Tetrad(tmp); // Передаём тетраду
    tmp = data; // Малудшую тетраду в tmp
    LCD_Send_Tetrad(tmp); // Передаём
}
 
void LCD_GotoXY(const unsigned char row,const unsigned char col)
{
    unsigned char tmp;
    LCD_RS_Instruction(); // Передаём команды
    if (row==0) // Рассчитываем значение курсора по номеру строки и столбцу
        tmp=0x80+col;
    else
        tmp=0xc0+col;
    LCD_Send_Byte(tmp); // Устанавливаем позицию курсора
    LCD_RS_Data(); // Переходим в режим передачи данных
    Delay39us;
}
 
void LCD_Print_Char(unsigned char c)
{
    if (c>=0xC0)
        {c=LCD_Chars[c-0xC0];}
    else
    {
        if (c==0xA8)
            c=0xA2;
        else if (c==0xB8)
            c=0xB5;
        else if (c==0xB0)
            c=0xDF;
    }
    LCD_Send_Byte(c);
    Delay43us;
}
 
void LCD_WriteXY(const unsigned char row,const unsigned char col,unsigned char *s,const unsigned char needfill)
{
    unsigned char tmp;
    size_t len = strlen((const char *)s);  // Определяем длинну строки
    if (len>LCD_COL_NUM+2) len=LCD_COL_NUM+2; // На всякий случай
    if (memcmp((const void *)LCD_cache[row],(const void *)s,len)==0) return; // Сравниваем с кешем... если не изменилось, то просто выходим
    memcpy((void *)LCD_cache[row],(const void *)s,len); // Если изменилось, то вначале записываем новое значение в кеш
    LCD_GotoXY(row,col);
    tmp=col;
    while (*s)
    {
        if (*s)
            LCD_Print_Char(*s++); // Выводим строку на экран
        Delay43us;
        tmp++; // И заодно высчитываем позицию
        if (tmp>LCD_COL_NUM) break;
    }
    if (needfill) // Если указано needfill
    {
        for(;tmp<LCD_COL_NUM;tmp++)
        {
            LCD_Print_Char(0x20); // Заполнять пробелами до конца строки
        }
    }
}
 
void LCD_Init()
{
    LCD_PIN_RS_TRIS = 0;// Пины котроллера на запись в ЖКИ
 
    LCD_RS_Instruction();   // Перейти в режим команд
    
    LCD_Send_Tetrad(0x03); // Установить 8-битный режим... лучше это делать, что бы избежать глюков при перезагрузке
    Delay39us; // 700 команд = 58.3333333 мкс (нужно 39 мкс)
 
// Следующие 4 строки для избежания глюков
    LCD_Tick();
    Delay39us;
    LCD_Tick();
    Delay39us;
 
    LCD_Send_Tetrad(0x02); // Установить 4-битный режим
    Delay39us;
    LCD_Send_Byte(0x28); // 4-битный режим, 2 строки, шрифт 5x8 точек
    Delay39us;
    LCD_Send_Byte(0x08); // Выключить дисплей, выключить курсор, выключить моргание курсора
    Delay39us;
    LCD_Send_Byte(0x0f); // Включить дисплей, включить курсор, включить моргание курсора
    Delay39us;
    LCD_Send_Byte(0x06); // Курсор будет двигаться вправо при выводе текста
    Delay39us;
    LCD_RS_Data();      // Перейти в режим данных
}
 
void LCD_Clear_Display()
{
    LCD_RS_Instruction();   // В режим команд
    LCD_Send_Byte(0x01);    // Отправить команду 0x01 (очистка экрана)
    Delay1530us;            // Задержка 1.53 мс
    LCD_RS_Data();          // В режим данных
}
 
#endif

#include <p18f2550.h> // файл, в котором описаны особенности нашего PIC'а. Если у вас другой контроллер, то надо подключать другой файл
#include "lcd.h" // наш подключаемый файл с функциями для работы с ЖКИ
 
void main(void)
{
  char s[19] = "Работает"; // массив для строки
  unsigned char * p = &s; // указатель на этот массив
 
  TRISB=0; // все вывода PORTB на передачу
  LCD_Init(); // инициализировать ЖКИ
 
  LCD_WriteXY(0,0,p,1); // первая строка
  s[0]='в';
  s[1]='р';
  s[2]='о';
  s[3]='д';
  s[4]='е';
  s[5]='\0';
  LCD_WriteXY(1,0,p,1); // вторая строка
  while(1); // зависаем
}

#ifndef __DS1307_H
#define __DS1307_H
 
#include <p18f2550.h>
#include "delay_time.h"
 
#define I2C_SDA PORTCbits.RC2
#define I2C_SDA_TRIS TRISCbits.TRISC2
#define I2C_SCL PORTCbits.RC1
#define I2C_SCL_TRIS TRISCbits.TRISC1
 
#define I2C_Recive_mode() I2C_SDA_TRIS=1
#define I2C_Transmit_mode() I2C_SDA_TRIS=0
 
typedef struct
{
    unsigned char year;
    unsigned char month;
    unsigned char day;
    unsigned char hour;
    unsigned char min;
    unsigned char sec;
    unsigned char dow;
} TDateTime;
 
TDateTime datetime;
 
void CalcDoW();
void I2C_SendStart();
void I2C_SendStop();
char I2C_SendByte(unsigned char d);
unsigned char I2C_ReadByte(char last);
unsigned char RTC_GetDateTime();
unsigned char RTC_SetDateTime();
 
void CalcDoW()
{
    unsigned char a,m;
    int y;
    a = (14 - datetime.month) / 12;
    y = datetime.year+2000 - a;
    m = datetime.month + 12 * a - 2;
    datetime.dow = ((6999 + (datetime.day + y + y / 4 - y / 100 + y / 400 + (31 * m) / 12)) % 7) + 1;
}
 
char I2C_SendStart()
{
    Delay10us();
    I2C_Transmit_mode();
    I2C_SDA = 0;
    Delay10us();
    I2C_SCL = 0;
    I2C_SCL_TRIS = 0;
    Delay10us();
}
 
void I2C_SendStop()
{
    I2C_Transmit_mode();
    I2C_SDA = 0;
    Delay10us();
    I2C_SCL_TRIS = 1;
    Delay10us();
    I2C_Recive_mode();
    Delay10us();
}
 
void I2C_SendByte(unsigned char d)
{
    unsigned char tmp;
    char i;
    tmp = d;
    I2C_SDA = 0;
    for (i=1;i<=8;i++) // Перебираем все биты
    {
        if ((tmp & 0x80) != 0) // Устанавливаем значение старшего бита
            I2C_Recive_mode();
        else
        {
            I2C_Transmit_mode();
            I2C_SDA = 0;
        }
        Delay10us(); // Пауза 1 мкс
        I2C_SCL = 1; // Строб
        Delay10us();
        I2C_SCL = 0;
        Delay10us();
        tmp = tmp << 1; // Сдвигаем байт, что бы был на очереди следующий бит
    }
    I2C_Recive_mode(); // Переходим в режим приёма
    I2C_SDA = 1;
    Delay10us();
    I2C_SCL = 1; // Строб
    Delay10us();
    tmp = I2C_SDA; // Запаминаем значение
    I2C_SCL = 0;
    Delay10us();
 
    I2C_Transmit_mode(); // В режим передачи
    I2C_SDA = 0;
    if (tmp) // Если SDA был подтянут резистором к единице, значит устройство не ответило... а если в 0, значит всё в порядке
        return 1;
    else
        return 0;
}
 
unsigned char I2C_ReadByte(char last)
{
    unsigned char r = 0;
    char i;
    Delay10us();
    I2C_Recive_mode();
    Delay10us();
    for (i=1;i<=8;i++)
    {
        r = r << 1;
        I2C_SCL = 1;
        Delay10us();
        if (I2C_SDA) r = r | 0x01;
        I2C_SCL = 0;
        Delay10us();
    }
    Delay10us();
    if (last==0)
    {
        I2C_Transmit_mode(); // В режим передачи
        I2C_SDA = 0;
 
        I2C_SCL = 1;
        Delay10us();
        I2C_SCL = 0;
        Delay10us();
    }
    
    return r;
}
 
unsigned char RTC_GetDateTime()
{
    unsigned char i = 0;
    unsigned char pm;
    while ((!I2C_SDA) || (!I2C_SCL))
    {
        Delay1msx(3);
        Delay10usx(3);
        i++;
        if (i>100)
            return 1;
    }
    I2C_SendStart();
    if (I2C_SendByte(0xD0)) {I2C_SendStop();return 2;}
    if (I2C_SendByte(0x00)) {I2C_SendStop();return 2;}
    I2C_SendStop();
 
    I2C_SendStart();
    if (I2C_SendByte(0xD1)) {I2C_SendStop();return 2;}
 
    i = I2C_ReadByte(0); // секунды
    datetime.sec = i & 0x0f;
    i = i & 0x70;
    i = i >> 4;
    i = i * 10;
    datetime.sec = datetime.sec + i;
 
    i = I2C_ReadByte(0); // минуты
    datetime.min = i & 0x0f;
    i = i >> 4;
    i = i * 10;
    datetime.min = datetime.min + i;
 
    i = I2C_ReadByte(0); // часы
    datetime.hour = i & 0x0f;
    i = i >> 4;
    if ((i & 0x04) == 0) // 24-часовой режим
    {
        i = i & 0x03;
        i = i * 10;
        datetime.hour = datetime.hour + i;
    } else // 12-часовой режим
    {
        i = i & 0x03;
        if ((i & 0x02) == 0) pm = 0; else pm = 1;
        i = i & 0x01;
        i = i * 10;
        datetime.hour = datetime.hour + i;
        if (pm) datetime.hour += 12;
        if (datetime.hour==24) datetime.hour = 0;
    }
 
    i = I2C_ReadByte(0); // день недели
    datetime.dow = i & 0x07;
 
    i = I2C_ReadByte(0); // день
    datetime.day = i & 0x0f;
    i = i >> 4;
    i = i & 0x03;
    i = i * 10;
    datetime.day = datetime.day + i;
 
    i = I2C_ReadByte(0); // месяц
    datetime.month = i & 0x0f;
    i = i >> 4;
    i = i & 0x01;
    i = i * 10;
    datetime.month = datetime.month + i;
 
    i = I2C_ReadByte(1); // год
    datetime.year = i & 0x0f;
    i = i >> 4;
    i = i & 0x0f;
    i = i * 10;
    datetime.year = datetime.year + i;
    
    I2C_SendStop();
    return 0;
}
 
unsigned char RTC_SetDateTime()
{
    unsigned char i = 0;
    while ((!I2C_SDA) || (!I2C_SCL))
    {
        Delay1msx(3);
        Delay10usx(3);
        i++;
        if (i>100)
            return 1;
    }
    I2C_SendStart();
    if (I2C_SendByte(0xD0)) {I2C_SendStop();return 2;}
    if (I2C_SendByte(0x00)) {I2C_SendStop();return 2;}
 
    i = datetime.sec / 10;
    i = i << 4;
    i = i + (datetime.sec % 10);
    i = i & 0x7f;
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    i = datetime.min / 10;
    i = i << 4;
    i = i + (datetime.min % 10);
    i = i & 0x7f;
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    i = datetime.hour / 10;
    i = i << 4;
    i = i + (datetime.hour % 10);
    i = i & 0x3f;
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    CalcDoW();
    i = datetime.dow;
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    i = datetime.day / 10;
    i = i << 4;
    i = i + (datetime.day % 10);
    i = i & 0x3f;
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    i = datetime.month / 10;
    i = i << 4;
    i = i + (datetime.month % 10);
    i = i & 0x1f;
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    i = datetime.year / 10;
    i = i << 4;
    i = i + (datetime.year % 10);
    if (I2C_SendByte(i)) {I2C_SendStop();return 2;}
 
    if (I2C_SendByte(0)) {I2C_SendStop();return 2;}
 
    I2C_SendStop();
        return 0;
}
 
#endif

/*
 
  Все задержки расчитаны на тактовую частоту 48 МГц (12 мипсов)
 
*/
 
#ifndef __DELAY_TIME_H
#define __DELAY_TIME_H
 
#include <delays.h>
 
// 1 мкс = 12 команд
#define Delay1us() {Nop();Nop();Nop();Nop();Nop();Nop();Nop();Nop();Nop();Nop();Nop();Nop();}
 
// 10 мкс = 120 команд
#define Delay10us() {Delay100TCYx(1);Delay10TCY();Delay10TCY();}
 
// 100 мкс = 1.200 команд
#define Delay100us() {Delay100TCYx(12);}
 
// 1 мс = 12.000 команд
#define Delay1ms() {Delay1KTCYx(12);}
 
// 10 мс = 120.000 команд
#define Delay10ms() {Delay10KTCYx(12);}
 
// 100 мс = 1.200.000 команд
#define Delay100ms() {Delay10KTCYx(120);}
 
// Точно
void Delay1usx(unsigned char n);
 
// Почти точно
void Delay10usx(unsigned char n);
 
// Не так точно (где-то по 6 команд больше (0.5 мкс) на каждые 100 мкс)... но при условии, что Delay100us() точная
void Delay100usx(unsigned char n);
 
 
// Почти точно (где-то по 6 команд больше (0.5 мкс) на каждую 1 мс)... но при условии, что Delay1ms() точная
void Delay1msx(unsigned char n);
 
// Почти точно (где-то по 6 команд больше (0.5 мкс) на каждые 10 мс)... но при условии, что Delay10ms() точная
void Delay10msx(unsigned char n);
 
// Почти точно (где-то по 6 команд больше (0.5 мкс) на каждые 100 мс)... но при условии, что Delay100ms() точная
void Delay100msx(unsigned char n);
 
 
 
void Delay1usx(unsigned char n)
{
    n--;
    n--; // Уменьшили на 2, что бы компенсировать задержки цикла и т.п.
    while (n>0)
    {
        n--;
        Nop();Nop();Nop();Nop();
    }
    Nop();
}
 
void Delay10usx(unsigned char n)
{
    while (n>0)
    {
        n--;
        Delay100TCYx(1);Delay10TCY();// Убрали 10 тактов задержку, что бы компенсировать цикл
        Nop();Nop();// Т.к. убрать надо было не 10, а только 8 тактов, то добавляем 2 команды
    }
}
 
void Delay100usx(unsigned char n)
{
    while (n>0)
    {
        n--;
        Delay100us();
    }
}
 
void Delay1msx(unsigned char n)
{
    while (n>0)
    {
        n--;
        Delay1ms();
    }
}
 
void Delay10msx(unsigned char n)
{
    while (n>0)
    {
        n--;
        Delay10ms();
    }
}
 
void Delay100msx(unsigned char n)
{
    while (n>0)
    {
        n--;
        Delay100ms();
    }
}
 
#endif

#include <p18f2550.h> // файл, в котором описаны особенности нашего PIC'а. Если у вас другой контроллер, то надо подключать другой файл
#include "ds1307.h" // наш подключаемый файл с функциями для работы с I2C и DS1307
 
void main(void)
{
  I2C_SDA_TRIS=1; // линию SDA на передачу... будет притянута резистором к единице
  I2C_SCL_TRIS=1; // линию SCL на передачу... будет притянута резистором к единице
 
  datetime.year=10;
  datetime.month=9;
  datetime.day=16;
  datetime.hour=14;
  datetime.min=27;
  datetime.sec=55;
  RTC_SetDateTime(); // устанавливаем время
 
// что-то делаем
 
  RTC_GetDateTime(); // получаем время
// теперь в datetime будет обновлённое время.
}