Config Timer0 = Timer , Prescale = 8 Tcnt0 = 105 Tcnt0 = 105
Config Timer0 = Timer , Prescale = Divider Tcnt0 = _time Tcnt0 = _time
$crystal = 2000000 _time Alias 225 Divider Alias 8
$crystal = 4000000 _time Alias 185 Divider Alias 8
$crystal = 8000000 _time Alias 105 Divider Alias 8
$crystal = 16000000 _time Alias 0 Divider Alias 8
/*****************************************************
This program was produced by the
CodeWizardAVR V2.05.3 Standard
Automatic Program Generator
© Copyright 1998-2011 Pavel Haiduc, HP InfoTech s.r.l.
http://www.hpinfotech.com
Project : 32-channel PWM (Rain LED)
Version : 2.0
Date : 2/27/2014
Author : Saman.Asadi
www.ECA.ir
Chip type : ATmega16
Program type : Application
AVR Core Clock frequency: 8.000000 MHz
Memory model : Small
External RAM size : 0
Data Stack size : 256
*****************************************************/
#include <mega16a.h>
#include <delay.h>
#define led1 PORTA.0
#define led2 PORTA.1
#define led3 PORTA.2
#define led4 PORTA.3
#define led5 PORTA.4
#define led6 PORTA.5
#define led7 PORTA.6
#define led8 PORTA.7
#define led9 PORTC.7
#define led10 PORTC.6
#define led11 PORTC.5
#define led12 PORTC.4
#define led13 PORTC.3
#define led14 PORTC.2
#define led15 PORTC.1
#define led16 PORTC.0
#define led17 PORTD.7
#define led18 PORTD.6
#define led19 PORTD.5
#define led20 PORTD.4
#define led21 PORTD.3
#define led22 PORTD.2
#define led23 PORTD.1
#define led24 PORTD.0
#define led25 PORTB.7
#define led26 PORTB.6
#define led27 PORTB.5
#define led28 PORTB.4
#define led29 PORTB.3
#define led30 PORTB.2
#define led31 PORTB.1
#define led32 PORTB.0
#define byte unsigned char
#define max_var_PWM 100
#define factor
byte a = max_var_PWM;
byte pwm[35];
flash byte rain1[25]={99,70,40,20,10,5,4,3,2,1,0};
flash byte rain2[40]={0,1,2,3,4,5,10,20,40,70,99,70,40,20,10,5,4,3,2,1,0};
flash byte rain3[35]={0,1,2,3,4,5,10,20,40,70,99};
flash byte rain4[40]={1,2,3,4,5,10,20,40,70,99,70,40,20,10,5,4,3,2,1,0};
// Timer 0 output compare interrupt service routine
interrupt [TIM0_COMP] void timer0_comp_isr(void)
{
if(a < pwm[1] )led1=1;
if(a < pwm[2] )led2=1;
if(a < pwm[3] )led3=1;
if(a < pwm[4] )led4=1;
if(a < pwm[5] )led5=1;
if(a < pwm[6] )led6=1;
if(a < pwm[7] )led7=1;
if(a < pwm[8] )led8=1;
if(a < pwm[9] )led9=1;
if(a < pwm[10])led10=1;
if(a < pwm[11])led11=1;
if(a < pwm[12])led12=1;
if(a < pwm[13])led13=1;
if(a < pwm[14])led14=1;
if(a < pwm[15])led15=1;
if(a < pwm[16])led16=1;
if(a < pwm[17])led17=1;
if(a < pwm[18])led18=1;
if(a < pwm[19])led19=1;
if(a < pwm[20])led20=1;
if(a < pwm[21])led21=1;
if(a < pwm[22])led22=1;
if(a < pwm[23])led23=1;
if(a < pwm[24])led24=1;
if(a < pwm[25])led25=1;
if(a < pwm[26])led26=1;
if(a < pwm[27])led27=1;
if(a < pwm[28])led28=1;
if(a < pwm[29])led29=1;
if(a < pwm[30])led30=1;
if(a < pwm[31])led31=1;
if(a < pwm[32])led31=1;
a-=1;
if(a == 255)
{ a = max_var_PWM;
PORTA=0;
PORTB=0;
PORTC=0;
PORTD=0;
}
}
void main(void)
{
byte x1,x2,x3;
//Config all
//Config timers
//Config PORTS
{
DDRA=255;
DDRB=255;
DDRC=255;
DDRD=255;
// Timer/Counter 0 initialization
// Clock source: System Clock
// Clock value: 1000.000 kHz
// Mode: CTC top=OCR0
// OC0 output: Disconnected
TCCR0=0x0A;
OCR0=150;
// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x02;
// Glopwmal enapwmle interrupts
#asm("sei")
}
//End Config ......
while(1)
{
/////////////////////////////////////////
for(x1=0;x1<25;x1++)
{ pwm[1]=rain1[x1];
for(x2=17;x2>0;x2--)pwm[x2+1]=pwm[x2];
delay_ms(40);
}
for(x1=0;x1<35;x1++)
{ pwm[1]=rain2[x1];
for(x2=17;x2>0;x2--)pwm[x2+1]=pwm[x2];
delay_ms(40);
}
delay_ms(500);
for(x1=0;x1<25;x1++)
{ pwm[1]=rain3[x1];
for(x2=17;x2>0;x2--)pwm[x2+1]=pwm[x2];
delay_ms(40);
}
/////////////////////////////////////////
for(x1=0;x1<25;x1++)
{ pwm[17]=rain1[x1];
for(x2=0;x2<17;x2++)pwm[x2]=pwm[x2+1];
delay_ms(40);
}
for(x1=0;x1<35;x1++)
{ pwm[17]=rain2[x1];
for(x2=0;x2<17;x2++)pwm[x2]=pwm[x2+1];
delay_ms(40);
}
for(x1=0;x1<25;x1++)
{ pwm[17]=rain3[x1];
for(x2=0;x2<17;x2++)pwm[x2]=pwm[x2+1];
delay_ms(40);
}
//////////////////////////////////////////
for(x3=0;x3<3;x3++)
for(x1=0;x1<14;x1++)
{ for(x2=0;x2<8;x2++)pwm[x2]=pwm[x2+1];
for(x2=17;x2>9;x2--)pwm[x2]=pwm[x2-1];
pwm[8]=rain1[x1];
pwm[9]=rain1[x1];
delay_ms(40);
}
for(x3=0;x3<3;x3++)
for(x1=0;x1<14;x1++)
{ for(x2=8;x2>00;x2--)pwm[x2]=pwm[x2-1];
for(x2=9;x2<17;x2++)pwm[x2]=pwm[x2+1];
pwm[0]=rain1[x1];
pwm[17]=rain1[x1];
delay_ms(40);
}
//////////////////////////////////////////
for(x3=0;x3<4;x3++)
for(x1=0;x1<19;x1++)
{ for(x2=0;x2<8;x2++)pwm[x2]=pwm[x2+1];
for(x2=17;x2>9;x2--)pwm[x2]=pwm[x2-1];
pwm[8]=rain4[x1];
pwm[9]=rain4[x1];
delay_ms(40);
}
for(x3=0;x3<4;x3++)
for(x1=0;x1<19;x1++)
{ for(x2=8;x2>00;x2--)pwm[x2]=pwm[x2-1];
for(x2=9;x2<17;x2++)pwm[x2]=pwm[x2+1];
pwm[0]=rain4[x1];
pwm[17]=rain4[x1];
delay_ms(40);
}
//////////////////////////////////////////
}
}
/*****************************************************
This program was produced by the
CodeWizardAVR V2.05.3 Standard
Automatic Program Generator
© Copyright 1998-2011 Pavel Haiduc, HP InfoTech s.r.l.
http://www.hpinfotech.com
Project : 53-channel PWM (Rain LED)
Version : 3.0
Date : 2/27/2014
Author : Saman.Asadi
www.ECA.ir
Chip type : ATmega64A
Program type : Application
AVR Core Clock frequency: 8.000000 MHz
Memory model : Small
External RAM size : 0
Data Stack size : 2048
*****************************************************/
#include <mega64a.h>
#include <delay.h>
#include <iobits.h>
#define setled1 SETBIT(PORTF,0)
#define setled2 SETBIT(PORTF,1)
#define setled3 SETBIT(PORTF,2)
#define setled4 SETBIT(PORTF,3)
#define setled5 SETBIT(PORTF,4)
#define setled6 SETBIT(PORTF,5)
#define setled7 SETBIT(PORTF,6)
#define setled8 SETBIT(PORTF,7)
#define setled9 SETBIT(PORTA,0)
#define setled10 SETBIT(PORTA,1)
#define setled11 SETBIT(PORTA,2)
#define setled12 SETBIT(PORTA,3)
#define setled13 SETBIT(PORTA,4)
#define setled14 SETBIT(PORTA,5)
#define setled15 SETBIT(PORTA,6)
#define setled16 SETBIT(PORTA,7)
#define setled17 SETBIT(PORTG,2)
#define setled18 SETBIT(PORTC,7)
#define setled19 SETBIT(PORTC,6)
#define setled20 SETBIT(PORTC,5)
#define setled21 SETBIT(PORTC,4)
#define setled22 SETBIT(PORTC,3)
#define setled23 SETBIT(PORTC,2)
#define setled24 SETBIT(PORTC,1)
#define setled25 SETBIT(PORTC,0)
#define setled26 SETBIT(PORTG,1)
#define setled27 SETBIT(PORTG,0)
#define setled28 SETBIT(PORTD,7)
#define setled29 SETBIT(PORTD,6)
#define setled30 SETBIT(PORTD,5)
#define setled31 SETBIT(PORTD,4)
#define setled32 SETBIT(PORTD,3)
#define setled33 SETBIT(PORTD,2)
#define setled34 SETBIT(PORTD,1)
#define setled35 SETBIT(PORTD,0)
#define setled36 SETBIT(PORTG,4)
#define setled37 SETBIT(PORTG,3)
#define setled38 SETBIT(PORTB,7)
#define setled39 SETBIT(PORTB,6)
#define setled40 SETBIT(PORTB,5)
#define setled41 SETBIT(PORTB,4)
#define setled42 SETBIT(PORTB,3)
#define setled43 SETBIT(PORTB,2)
#define setled44 SETBIT(PORTB,1)
#define setled45 SETBIT(PORTB,0)
#define setled46 SETBIT(PORTE,7)
#define setled47 SETBIT(PORTE,6)
#define setled48 SETBIT(PORTE,5)
#define setled49 SETBIT(PORTE,4)
#define setled50 SETBIT(PORTE,3)
#define setled51 SETBIT(PORTE,2)
#define setled52 SETBIT(PORTE,1)
#define setled53 SETBIT(PORTE,0)
#define byte unsigned char
#define max_var_PWM 100
#define factor
byte a = max_var_PWM;
byte pwm[55];
flash byte rain1[25]={99,70,40,20,10,5,4,3,2,1,0};
flash byte rain2[40]={0,1,2,3,4,5,10,20,40,70,99,70,40,20,10,5,4,3,2,1,0};
flash byte rain3[35]={0,1,2,3,4,5,10,20,40,70,99};
flash byte rain4[40]={1,2,3,4,5,10,20,40,70,99,70,40,20,10,5,4,3,2,1,0};
// Timer 0 output compare interrupt service routine
interrupt [TIM0_COMP] void timer0_comp_isr(void)
{
if(a < pwm[1] )setled1;
if(a < pwm[2] )setled2;
if(a < pwm[3] )setled3;
if(a < pwm[4] )setled4;
if(a < pwm[5] )setled5;
if(a < pwm[6] )setled6;
if(a < pwm[7] )setled7;
if(a < pwm[8] )setled8;
if(a < pwm[9] )setled9;
if(a < pwm[10])setled10;
if(a < pwm[11])setled11;
if(a < pwm[12])setled12;
if(a < pwm[13])setled13;
if(a < pwm[14])setled14;
if(a < pwm[15])setled15;
if(a < pwm[16])setled16;
if(a < pwm[17])setled17;
if(a < pwm[18])setled18;
if(a < pwm[19])setled19;
if(a < pwm[20])setled20;
if(a < pwm[21])setled21;
if(a < pwm[22])setled22;
if(a < pwm[23])setled23;
if(a < pwm[24])setled24;
if(a < pwm[25])setled25;
if(a < pwm[26])setled26;
if(a < pwm[27])setled27;
if(a < pwm[28])setled28;
if(a < pwm[29])setled29;
if(a < pwm[30])setled30;
if(a < pwm[31])setled31;
if(a < pwm[32])setled32;
if(a < pwm[33])setled33;
if(a < pwm[34])setled34;
if(a < pwm[35])setled35;
if(a < pwm[36])setled36;
if(a < pwm[37])setled37;
if(a < pwm[38])setled38;
if(a < pwm[39])setled39;
if(a < pwm[40])setled40;
if(a < pwm[41])setled41;
if(a < pwm[42])setled42;
if(a < pwm[43])setled43;
if(a < pwm[44])setled44;
if(a < pwm[45])setled45;
if(a < pwm[46])setled46;
if(a < pwm[47])setled47;
if(a < pwm[48])setled48;
if(a < pwm[49])setled49;
if(a < pwm[50])setled50;
if(a < pwm[51])setled51;
if(a < pwm[52])setled52;
if(a < pwm[53])setled53;
a-=1;
if(a == 255)
{ a = max_var_PWM;
PORTA=0;
PORTB=0;
PORTC=0;
PORTD=0;
PORTE=0;
PORTF=0;
PORTG=0;
}
}
void main(void)
{
byte x1,x2,x3;
//Config all
//Config timers
//Config PORTS
{
DDRA=255;
DDRB=255;
DDRC=255;
DDRD=255;
DDRE=255;
DDRF=255;
DDRG=31;
// Timer/Counter 0 initialization
// Clock source: System Clock
// Clock value: 1000.000 kHz
// Mode: CTC top=OCR0
// OC0 output: Disconnected
TCCR0=0x0A;
OCR0=150;
// Timer(s)/Counter(s) Interrupt(s) initialization
TIMSK=0x02;
// Glopwmal enapwmle interrupts
#asm("sei")
}
//End Config ......
while(1)
{
/////////////////////////////////////////
for(x1=0;x1<25;x1++)
{ pwm[1]=rain1[x1];
for(x2=17;x2>0;x2--)pwm[x2+1]=pwm[x2];
delay_ms(40);
}
for(x1=0;x1<35;x1++)
{ pwm[1]=rain2[x1];
for(x2=17;x2>0;x2--)pwm[x2+1]=pwm[x2];
delay_ms(40);
}
delay_ms(500);
for(x1=0;x1<25;x1++)
{ pwm[1]=rain3[x1];
for(x2=17;x2>0;x2--)pwm[x2+1]=pwm[x2];
delay_ms(40);
}
/////////////////////////////////////////
for(x1=0;x1<25;x1++)
{ pwm[17]=rain1[x1];
for(x2=0;x2<17;x2++)pwm[x2]=pwm[x2+1];
delay_ms(40);
}
for(x1=0;x1<35;x1++)
{ pwm[17]=rain2[x1];
for(x2=0;x2<17;x2++)pwm[x2]=pwm[x2+1];
delay_ms(40);
}
for(x1=0;x1<25;x1++)
{ pwm[17]=rain3[x1];
for(x2=0;x2<17;x2++)pwm[x2]=pwm[x2+1];
delay_ms(40);
}
//////////////////////////////////////////
for(x3=0;x3<3;x3++)
for(x1=0;x1<14;x1++)
{ for(x2=0;x2<8;x2++)pwm[x2]=pwm[x2+1];
for(x2=17;x2>9;x2--)pwm[x2]=pwm[x2-1];
pwm[8]=rain1[x1];
pwm[9]=rain1[x1];
delay_ms(40);
}
for(x3=0;x3<3;x3++)
for(x1=0;x1<14;x1++)
{ for(x2=8;x2>00;x2--)pwm[x2]=pwm[x2-1];
for(x2=9;x2<17;x2++)pwm[x2]=pwm[x2+1];
pwm[0]=rain1[x1];
pwm[17]=rain1[x1];
delay_ms(40);
}
//////////////////////////////////////////
for(x3=0;x3<4;x3++)
for(x1=0;x1<19;x1++)
{ for(x2=0;x2<8;x2++)pwm[x2]=pwm[x2+1];
for(x2=17;x2>9;x2--)pwm[x2]=pwm[x2-1];
pwm[8]=rain4[x1];
pwm[9]=rain4[x1];
delay_ms(40);
}
for(x3=0;x3<4;x3++)
for(x1=0;x1<19;x1++)
{ for(x2=8;x2>00;x2--)pwm[x2]=pwm[x2-1];
for(x2=9;x2<17;x2++)pwm[x2]=pwm[x2+1];
pwm[0]=rain4[x1];
pwm[17]=rain4[x1];
delay_ms(40);
}
//////////////////////////////////////////
}
}
while(1)
{
if(a)
{
if(a == pwm[1] )Set_LED1;
if(a == pwm[2] )Set_LED2;
if(a == pwm[3] )Set_LED3;
if(a == pwm[4] )Set_LED4;
if(a == pwm[5] )Set_LED5;
if(a == pwm[6] )Set_LED6;
if(a == pwm[7] )Set_LED7;
if(a == pwm[8] )Set_LED8;
if(a == pwm[9] )Set_LED9;
if(a == pwm[10])Set_LED10;
if(a == pwm[11])Set_LED11;
if(a == pwm[12])Set_LED12;
if(a == pwm[13])Set_LED13;
if(a == pwm[14])Set_LED14;
if(a == pwm[15])Set_LED15;
if(a == pwm[16])Set_LED16;
if(a == pwm[17])Set_LED17;
if(a == pwm[18])Set_LED18;
if(a == pwm[19])Set_LED19;
if(a == pwm[20])Set_LED20;
if(a == pwm[21])Set_LED21;
if(a == pwm[22])Set_LED22;
}
if(--a == 255)
{ a = max_var_PWM;
PORTB=0;
PORTC=0;
PORTD=0;
}
delay_us(100);
}
$regfile = "m8def.dat"
$crystal = 8000000
Motor1 Alias Portd.0
Motor2 Alias Portd.1
Motor3 Alias Portd.2
Max_var_pwm Alias 99
Dim Pwm(10) As Byte , A As Byte
A = Max_var_pwm
Dim I As Byte , J As Byte , K As Byte
I = 0
J = 0
K = 0
'Config All =============================================
'Config Timers
'Config Ports
Config Timer0 = Timer , Prescale = 8
Enable Interrupts
Enable Timer0
On Ovf0 T0
Tcnt0 = 105
Start Timer0
Ddrb = 1
Ddrd = 255
'End Config ============================================
Do
Loop
End 'end program
T0:
Tcnt0 = 105
Pwm(1) = Lookup(i , Sin_data)
Pwm(2) = Lookup(j , Sin_data)
Pwm(3) = Lookup(k , Sin_data)
Incr I
Incr J
Incr K
If I > 255 Then I = 0
If J > 255 Then J = 0
If K > 255 Then K = 0
If A > 0 Then
If A = Pwm(1) Then Set Motor1
If A = Pwm(2) Then Set Motor2
If A = Pwm(3) Then Set Motor3
End If
Decr A
If A = 255 Then
A = Max_var_pwm
Portb = Pinb And 254
Portd = 0
End If
Return
Sin_data:
Data &H80 , &H83 , &H86 , &H89 , &H8C , &H8F , &H92 , &H95 , &H98 , &H9C , &H9F , &HA2 , &HA5 , &HA8 , &HAB , &HAE,
Data &HB0 , &HB3 , &HB6 , &HB9 , &HBC , &HBF , &HC1 , &HC4 , &HC7 , &HC9 , &HCC , &HCE , &HD1 , &HD3 , &HD5 , &HD8,
Data &HDA , &HDC , &HDE , &HE0 , &HE2 , &HE4 , &HE6 , &HE8 , &HEA , &HEC , &HED , &HEF , &HF0 , &HF2 , &HF3 , &HF5,
Data &HF6 , &HF7 , &HF8 , &HF9 , &HFA , &HFB , &HFC , &HFC , &HFD , &HFE , &HFE , &HFF , &HFF , &HFF , &HFF , &HFF,
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFE , &HFE , &HFD , &HFC , &HFC , &HFB , &HFA , &HF9 , &HF8 , &HF7,
Data &HF6 , &HF5 , &HF3 , &HF2 , &HF0 , &HEF , &HED , &HEC , &HEA , &HE8 , &HE6 , &HE4 , &HE2 , &HE0 , &HDE , &HDC,
Data &HDA , &HD8 , &HD5 , &HD3 , &HD1 , &HCE , &HCC , &HC9 , &HC7 , &HC4 , &HC1 , &HBF , &HBC , &HB9 , &HB6 , &HB3,
Data &HB0 , &HAE , &HAB , &HA8 , &HA5 , &HA2 , &H9F , &H9C , &H98 , &H95 , &H92 , &H8F , &H8C , &H89 , &H86 , &H83,
Data &H80 , &H7C , &H79 , &H76 , &H73 , &H70 , &H6D , &H6A , &H67 , &H63 , &H60 , &H5D , &H5A , &H57 , &H54 , &H51,
Data &H4F , &H4C , &H49 , &H46 , &H43 , &H40 , &H3E , &H3B , &H38 , &H36 , &H33 , &H31 , &H2E , &H2C , &H2A , &H27,
Data &H25 , &H23 , &H21 , &H1F , &H1D , &H1B , &H19 , &H17 , &H15 , &H13 , &H12 , &H10 , &H0F , &H0D , &H0C , &H0A,
Data &H09 , &H08 , &H07 , &H06 , &H05 , &H04 , &H03 , &H03 , &H02 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00,
Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H01 , &H02 , &H03 , &H03 , &H04 , &H05 , &H06 , &H07 , &H08,
Data &H09 , &H0A , &H0C , &H0D , &H0F , &H10 , &H12 , &H13 , &H15 , &H17 , &H19 , &H1B , &H1D , &H1F , &H21 , &H23,
Data &H25 , &H27 , &H2A , &H2C , &H2E , &H31 , &H33 , &H36 , &H38 , &H3B , &H3E , &H40 , &H43 , &H46 , &H49 , &H4C,
Data &H4F , &H51 , &H54 , &H57 , &H5A , &H5D , &H60 , &H63 , &H67 , &H6A , &H6D , &H70 , &H73 , &H76 , &H79 , &H7C
If I > 255 Then I = 0 If J > 255 Then J = 0 If K > 255 Then K = 0
If I > 255 Then I = 0 If J > 255 Then J = 0 If K > 255 Then K = 0
دیدگاه