Sterownik Diody RGB

Lista elementów

Stabilizator LM 7805  0,5A

Procesor ATTINY 2313 dil

Dioda RGB – wspólna masa

Kondensator elektrolityczny 100uF /16V

Kondensator elektrolityczny 10uF /16V

Rezystor R1 500om

Rezystor R2 330om

Rezystor R3 500om

Rezystor R4 10k

Listwa goldpin – do programowarki

Programowarka od sterownika KNEST – Sample Electronics Programmer

Płytka uniwersalna – same pady np.:

Program przykładowy obsługi diody RGB

$regfile = "ATtiny2313.dat"

$crystal = 1000000

'$baud = 9600

$hwstack = 40

$swstack = 8

$framesize = 16

Dim I As Byte

Dim K As Byte

Dim L As Byte

Dim N As Byte

Config Portb = Output

Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up

Config Timer1 = Pwm , Prescale = 1 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down

Set Tccr0a.7 : Set Tccr0a.5 : Set Tccr0a.0

Set Tccr1a.7 : Set Tccr1a.5 : Set Tccr1a.0

'Pwm0b = Pwm0b + 1      'nie wykorzystany

Do

  For I = 1 To 250 Step 1

  Pwm1a = Pwm1a + 1                                         'niebieski

  Waitms 20

  Next I

  For I = 1 To 250 Step 1

  Pwm1a = Pwm1a - 1                                         'niebieski

  Waitms 20

  Next I

  For I = 1 To 250 Step 1

  Pwm0a = Pwm0a + 1                                         'zielony

  Waitms 20

  Next I

  For I = 1 To 250 Step 1                                   'zielony

  Pwm0a = Pwm0a - 1

  Waitms 20

  Next I

  For I = 1 To 250 Step 1                                   'czerwony

  Pwm1b = Pwm1b + 1

  Waitms 20

  Next I

  For I = 1 To 250 Step 1                                   'czerwony

  Pwm1b = Pwm1b - 1

  Waitms 20

  Next I

  For I = 1 To 200 Step 1                                   'zielony

  Pwm1b = Pwm1b + 1                                         'niebieski

  Pwm1a = Pwm1a + 1

  Pwm0a = Pwm0a + 1

  Waitms 20

  Next I

  For I = 1 To 200 Step 1                                   'zielony

  Pwm1b = Pwm1b - 1                                         'niebieski

  Pwm1a = Pwm1a - 1

  Pwm0a = Pwm0a - 1                                         'niebieski

  Waitms 20

  Next I

  Pwm1b = Pwm1b + 10                                        'niebieski

  Pwm1a = Pwm1a + 10

  Pwm0a = Pwm0a + 10

If Pwm0a <= 5 Then

Pwm0a = Pwm0a + 1

End If

If Pwm0a >= 200 Then

Pwm0a = Pwm0a - 1

End If

If Pwm1b <= 5 Then

Pwm1b = Pwm1b + 1

End If

If Pwm1b >= 200 Then

Pwm1b = Pwm1b - 1

End If

If Pwm1a <= 5 Then

Pwm1a = Pwm1a + 1

End If

If Pwm1a >= 200 Then

Pwm1a = Pwm1a - 1

End If

Loop

End

POWODZENIA J