Skocz do zawartości

Programowanie przez usbasp


Pomocna odpowiedź

A do tej lampki RGB trzeba?

Jak schemat musiałbym zmienić, żeby nie było wejścia na programator i stabilizatora napięcia 5V?

Schemat:

Kod:

$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

Oświadczam, że to nie jest mojego autorstwa.

Gość
Ten temat został zamknięty.
×
×
  • Utwórz nowe...