''''''''''''''''''''''''''''''''''''''''
' Program za božično zvezdo            '

' Avtor programa: Srečko Lavrič 2001   '
' Http://www2.arnes.si/~sspslavr       '
' Mikrokontroler: at89c2051            '

' Priredil za AVR: Rudi Šlejkovec 2003 '
' Http://www.avr.4mg.com               '
' Mikrokontroler: at90s2313            '

' Pozor! C3=470n zamenjamo z R=330ohm  '
''''''''''''''''''''''''''''''''''''''''

$regfile = "2313def.dat"                                    'Tip mikrokontrolerja
$crystal = 5500000                                          'Frekvenca kristala

Dim N As Byte , M As Byte , Bport As Byte
Dim Dport As Byte , Cikli As Byte , Pause As Byte

Ddrb = &B11111111                                           'Določitev izhodov na B portu
Ddrd = &B11011111                                           'Določitev izhodov in vhoda na D portu

Do                                                          'Začetek glavne zanke
Portb = 255                                                 'Ugasni port b. Na izhodih je "1".
Portd = 255                                                 'Ugasni port d. Na izhodih je "1".
If Pind.5 = 1 Then                                          'Preveri foto upor.
   For N = 1 To 3                                           'Določi število ponovitev.
      Pause = 150                                           'Določi hitrost preklapljanja.
      Cikli = 8                                             'Določi koliko podatkov je v tabeli.
      Restore Tabela_1                                      'Aktiviraj 1. tabelo.
      Gosub Read_data                                       'Izvedi cikel.
   Next N

   For N = 1 To 5                                           'Druga kombinacija (5X)
      Pause = 100                                           'z drugačno hitrostjo,
      Cikli = 8                                             'enakim št. ciklov
      Restore Tabela_2                                      'in drugo tabelo
      Gosub Read_data
   Next N

   For N = 1 To 3                                           'Tretja kombinacija
      Pause = 250
      Cikli = 8
      Restore Tabela_3
      Gosub Read_data
   Next N

   For N = 1 To 3                                           'Četrta kombinacija
      Pause = 100
      Cikli = 8
      Restore Tabela_4
      Gosub Read_data
   Next N

'Na to mesto lahko vstavljate dodatne kombinacije, vendar
'morate tudi vpisati podatke v tabelo npr Tabela_5 itd.

End If

Loop

End                                                         'Konec glavne zanke

Read_data:
For M = 1 To Cikli                                          'Število ciklov
   Read Bport
   Read Dport
   Portb = Bport
   Portd = Dport
   Waitms Pause                                             'Počakaj
Next M
Return

'Tabele s podatki

Tabela_1:
Data 119 , 255 , 187 , 255 , 221 , 255 , 238 , 255
Data 119 , 255 , 187 , 255 , 221 , 255 , 238 , 255

Tabela_2:
Data 63 , 254 , 159 , 253 , 207 , 253 , 231 , 251
Data 243 , 251 , 249 , 247 , 252 , 247 , 126 , 254

Tabela_3:
Data 255 , 191 , 255 , 127 , 255 , 240 , 0 , 191
Data 255 , 191 , 255 , 127 , 255 , 240 , 0 , 191

Tabela_4:
Data 127 , 255 , 123 , 251 , 91 , 251 , 90 , 243
Data 26 , 115 , 18 , 114 , 16 , 114 , 0 , 112

'Zapis si sledi v vrstnem redu DATA1 , DATA2 , DATA1...
'Število ciklov mora biti prilagojeno številu podatkov
'v tabeli, in sicer 1/2.