'Program za božično zvezdo



$crystal = 5500000                        'frekvenca kristala

Dim N As Byte , M As Byte , Port1 As Byte       'dimenzioniranje spremenljivk
Dim Port3 As Byte , Cikli As Byte , Pause As Byte

Do
P1 = 255                                  'Ugasni oba porta.
P3 = 255
If P3.5 = 1 Then                          'Preveri foto upor, CE JE DAN IMA FOTOUPOR IMA FOTOUPOR NIZKO UPORNOST

   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.



Loop

End

Read_data:
For M = 1 To Cikli                        'število ciklov
   Read Port1
   Read Port3
   P1 = Port1                             'žal Read P1 ne deluje :(
   P3 = Port3
   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 , 255 , 255 , 127 , 255 , 240 , 0 , 255
Data 255 , 255 , 255 , 127 , 255 , 240 , 0 , 255

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.

End If