Код: Выделить всё
PORTA = 0b01101111; // устанавливаем E и посылаем команду(первая часть данных)
_delau_us(50);
PORTA = 0b00101111; // сбрасываем Е
_delay_us(50);
PORTA = 0b01101010; //устанавливаем E и посылаем команду(вторая часть данных)
_delay_us(50);
PORTA = 0b00101010; // сбрасываем Е
_delay_us(50);
Код: Выделить всё
main.cpp
#include <iotiny2313.h>
#include <intrinsics.h>
#include "main.h"
int main()
{uchar vol[3];
DDRD=0xFF;
Command_8bit_4bit();
Command(0,0,40);
delay_ms(100);
uchar i;
for(i=0;i<5;i++) //цикл настройки лсд
Command(0,0,str1[i]);
for(i=0;i<11;i++)
Command(1,0,str2[i]);
while(1)
{
conv(comparator(),vol);
for(i=0;i<3;++i)
Command(1,0,vol[i]);
for(i=0;i<3;++i)
Command(0,0,16);
}
}
main.h
#define CLK_MHz 4
#define delay_mks(Time_mks) __delay_cycles((long)Time_mks*CLK_MHz);
#define delay_ms(Time_ms) __delay_cycles((long)Time_ms*1000*CLK_MHz);
#define BIT(B) (1<<B)// преобр. номера бита в позицию в байте
#define TSTBIT0(ADDRESS,B) (!(ADDRESS & (BIT(B))))// проверка бита на ноль
#define TSTBIT1(ADDRESS,B) (ADDRESS & (BIT(B)))// проверка бита на единицу
#define SETBIT(ADDRESS,B) (ADDRESS |= BIT(B))// установка бита
#define CLRBIT(ADDRESS,B) (ADDRESS&=~BIT(B))// сброс бита
#define SETMASK(ADDRESS,BYTE) (ADDRESS |= BYTE)// установка битов по байтовой маске
#define CLRMASK(ADDRESS,BYTE) (ADDRESS &= ~(BYTE))// очистка битов по байтовой маске
#define uchar unsigned char
uchar str1[]={1,2,6,12,1}; // массив настоечных параметров для лсд
//uchar str2[]={0xA8,0x70,0xB8,0xB3,0x65,0xBF,0x21,0x21,0x21,0x20,0xA5,0xB3,0x61,0xBD,0x21,0x21,0x21};
uchar str2[]={0x4B,0x6F,0xBC,0xBE,0x61,0x70,0x61,0xBF,0x6F,0x70,0x3A};
//0 E R/W RS D3 D2 D1 D0 - порт Д
#define Time_Comm 1000
void Command(bool RS,bool RW,uchar data)// посылка команд на ЛСД
{
uchar highdata=data>>4;uchar lowdata=data;
CLRMASK(lowdata,0x70);
if(RS==1){highdata+=16;}if(RW==1){highdata+=32;}
if(RS==1){lowdata+=16;}if(RW==1){lowdata+=32;}
PORTD=highdata;
SETBIT(PORTD,6);delay_mks(Time_Comm);
CLRBIT(PORTD,6);delay_mks(Time_Comm);
PORTD=lowdata;
SETBIT(PORTD,6);delay_mks(Time_Comm);
CLRBIT(PORTD,6);delay_mks(Time_Comm);
PORTD=0x00;delay_mks(Time_Comm);
}
void Command_8bit_4bit() //переход из 8 битного в 4 битный - режим ЛСД
{
PORTD=0x42;delay_ms(30);
PORTD=0x02;delay_ms(200);
PORTD=0x00;
}
void conv(uchar a,uchar *b) // функция перевода числа в понятный код для лсд
{
b[0]=a/100;a=a-b[0]*100;b[0]+=0x30;
b[1]=a/10;a=a-b[1]*10;b[1]+=0x30;
b[2]=a;b[2]+=0x30;
}
uchar comparator() //АЦП на основе шим
{
SETBIT(DDRB,PORTB2);
int i;
int n;
for(int a=0;a<=255;a++)
{
for(n=0;n<4;n++)
{
CLRBIT(PORTB,PORTB2);
for(i=0;i<=a;++i)
delay_mks(1);
SETBIT(PORTB,PORTB2);
for(i=0;i<=255-a;++i)
delay_mks(1);
}
if(TSTBIT1(ACSR,ACO))return a;
}
return 255;
}
и напряжения 3.6В не хватало чтобы они открылись. Кстати, в даташите вроде как нарисован и токоограничительный резистор в самом модуле. Сейчас гадаю - есть он или нет 
. Судя по яркости свечения от 5В аккумулятора - есть.Aheir писал(а):а питание подавать непосредственно на подсветку, потому как с выводами питания контроллера индикатора подсветка соединяется не всегда.
ну вы меня понимаете)
Код: Выделить всё
lcd_init:
clr adr
rcall delay20ms
ldi temp,(1<<DB5)|(1<<DB4)
out lcd,temp
rcall strobe
rcall delay20ms
rcall strobe
rcall delay20ms
rcall strobe
rcall delay20ms
cbr temp,(1<<DB4)
out lcd,temp
rcall strobe
rcall delay40us
rcall strobe
clr temp
sbr temp,(1<<DB7)
out lcd,temp
rcall strobe
rcall delay40us
clr temp
out lcd,temp
rcall strobe
sbr temp,(1<<DB7)
out lcd,temp
rcall strobe
rcall delay40us
clr temp
out lcd,temp
rcall strobe
sbr temp,(1<<DB4)
out lcd,temp
rcall strobe
rcall delay20ms
clr temp
out lcd,temp
rcall strobe
sbr temp,(1<<DB6)|(1<<DB5)
out lcd,temp
rcall strobe
rcall delay40us
clr temp
out lcd,temp
retКод: Выделить всё
send_data:
push data ;запоминаем data
push temp
in temp,lcd ;считываем порт, чтобы не изменить бит led
;(возможен ШИМ для управления яркостью)
andi temp,(1<<led)
bst data,4 ;копируем соответствующие биты данных
bld temp,DB4 ;на их места в выходном порту,
bst data,5 ;подключенному к ЖКИ
bld temp,DB5 ;старшая тетрада данных
bst data,6
bld temp,DB6
bst data,7
bld temp,DB7
sbr temp,(1<<A_D);устанавливаем сигнал "A_D"
out lcd,temp ;выводим полученные данные в порт
rcall strobe
bst data,0 ;копируем соответствующие биты данных
bld temp,DB4 ;на их места в выходном порту,
bst data,1 ;подключенному к ЖКИ
bld temp,DB5 ;младшая тетрада данных
bst data,2
bld temp,DB6
bst data,3
bld temp,DB7
out lcd,temp ;выводим полученные данные в порт
rcall strobe
rcall delay40us
andi temp,(1<<led)
out lcd,temp
pop temp
pop data ;восстанавливаем data
retКод: Выделить всё
strobe:
sbi lcd,e
nop nop nop nop nop
cbi lcd,e
nop nop nop nop nop
retКод: Выделить всё
lcdinit:
push tmp1
push lcddata
ldi tmp1, 0
ldi r30,low(InitData*2)
ldi r31, high(InitData*2)
init:
lpm lcddata, Z+
ldi tmp1, '$'
cpse lcddata, tmp1
rcall WrCMD
cpi lcddata, 0b00010000
breq d1500
rcall delay40mks
naz:
ldi tmp1, '$'
cpse tmp1, lcddata
rjmp init
pop lcddata
pop tmp1
ret
d1500:
rcall delay1500mks
rcall delay40mks
rjmp naz
InitData:
.db 0b11000000, 0b00100000
.db 0b11000000, 0b00000000
.db 0b11000000, 0b00000000
.db 0b00010000, 0b00000000, '$'
WrCMD:
push lcddata
swap lcddata
sbi portB, e
nop
nop
nop
nop
nop
nop
nop
out portc, lcddata
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
cbi PortB, e
pop lcddata
retКод: Выделить всё
WrCMD:
push lcddata
swap lcddata
sbi portB, e
nop
nop
nop
nop
nop
nop
nop
out portc, lcddata
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
cbi PortB, e
pop lcddata
retКод: Выделить всё
write:
push lcddata
swap lcddata
sbi portB, e
sbi portB, rs
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
out portc, lcddata
nop
nop
nop
nop
nop
nop
nop
nop
nop
nop
cbi PortB, e
cbi portB, rs
pop lcddata
ret
WriteLn:
push lcddata
push tmp1
Ln:
rcall delay40mks
rcall delay40mks
lpm lcddata, Z+
ldi tmp1, '$'
cpse lcddata, tmp1
rjmp wr
re:
cpse lcddata, tmp1
rjmp Ln
pop tmp1
pop lcddata
ret
wr:
rcall write
swap lcddata
rcall write
rjmp reКод: Выделить всё
ldi lcddata, 0b11000000
rcall wrcmd
ldi lcddata, 0
rcall wrcmd
rcall delay40mks