Mirley - Elektronika i Programowanie

$regfile = "attiny13.dat"
$crystal = 9600000
 
Config Portb = &B000011 : Portb = &B111111
 
Config Timer1 = Pwm , Prescale = 1 , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect
 
Dim F As Byte         'w tej linijce pokazuje error brak pam. sram
 
S1 Alias Pinb.2       '1 przycisk
S2 Alias Pinb.3       '2 przycisk
Pwm1a = 0
 
Do
 
F = Pwm1a   'zeby nie pisac ciagle pwm1a tylko F
 
If S1 = 0 Then
Waitms 15      'zamiast polecenie debounce
If S1 = 0 Then
Incr F        'zmniejsza wypelnienie
If F = 0 Then
F = 255
End If
End If
 
 
If S2 = 0 Then
Waitms 15      'zamiast polecenie debounce    
If S2 = 0 Then
Decr F        'zwieksza wypelnienie
If F = 255 Then
F = 0
End If
End If
 
 
Loop
End

$hwstack = 20
$swstack = 10
$framesize = 40

Config Timer0 = Timer , Prescale = 8

x = x / 5  'pobrane ADC podzieliłem przez 5
           'żeby mieć rozpiętość od skrajnych płożeń
           'do środka równą 100.

Prztimer0:
 
rled = 200 - x
if rled > 100 then
   rled = 100
end if
 
bled = x
if bled > 100 then
   bled = 100
end if
 
if x > 100 then
   gled = x - 100
end if
 
if x < 100 then
   gled = 100 - x
end if
 
gled=gled *2
 
 Incr Licznik
 If Licznik = 100 Then Licznik = 0
 
 If Licznik < Rled Then Set Rd Else Reset Rd
 If Licznik < Gled Then Set Gd Else Reset Gd
 If Licznik < Bled Then Set Bd Else Reset Bd
Return

Prztimer0:
 stop timer0
 Incr Licznik
  If Licznik = 100 Then
     Licznik = 0
     toggle zmienna_pomocnicza
  end if
 
  If Licznik < Bled Then Set Bd Else Reset Bd
  If Licznik < Rled Then Set Rd Else Reset Rd
  If Licznik < Gled Then Set Gd Else Reset Gd
 
  timer0 = 120
  start timer0
Return

if zmienna_pomocnicza = 1 then
   gosub obliczenia
end if

If Licznik < Gled Then Set Gd Else Reset Gd

x = 0
x = getadc(0)
x = x / 5
if x > 200 then
   x = 200
end if
 
locate 1 , 5
lcd x ; "  "

$regfile = "m8def.dat"
$crystal = 8000000
 
 
Ddrb = &B00111111 : Portb = &B11000000
Ddrc = &B11001111 : Portc = &B00XX0000
Ddrd = &B11111110 : Portd = &B00000001
 
 
Dim X As Byte
Dim Y As Byte
Dim W As Word
Dim E As Word
 
 
Config Adc = Single , Prescaler = Auto , Reference = Avcc
 
Start Adc
 
Do
W = Getadc(4)
E = Getadc(5) * 2
 
If Pind.0 = 0 Then
Waitms 20
If Pind.0 = 0 Then
 
   For X = 1 To 7
   Portd.x = 1
   Waitms E
   Next X
 
       For X = 0 To 5
       Portb.x = 1
       Waitms E
       Next X
 
         For X = 0 To 3
         Portc.x = 1
         Waitms E
         Next X
 
                  For Y = 0 To W
                  Waitms 150
                  Next Y
 
     For X = 1 To 7
     Portd.x = 0
     Waitms E
     Next X
 
 
       For X = 0 To 5
       Portb.x = 0
       Waitms E
       Next X
 
               For X = 0 To 3
               Portc.x = 0
               Waitms E
               Next X
 
     End If
        End If
 
 
Loop

Config Timer0 = Timer , Prescale = 8
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts

Prztimer0:
 Incr Licznik
 If Licznik = 100 Then Licznik = 0
 
 If Licznik < Poziom Then Set portx.y Else Reset portx.y
 
Return

Prztimer0:
 Incr Licznik
 If Licznik = 100 Then Licznik = 0
 
 If Licznik < Poziom Then Set Portd.3 Else Reset Portd.3
  If Licznik < Poziom Then Set Portd.4 Else Reset Portd.4
   If Licznik < Poziom Then Set Portd.5 Else Reset Portd.5
    If Licznik < Poziom Then Set Portd.6 Else Reset Portd.6
     If Licznik < Poziom Then Set Portd.7 Else Reset Portd.7
      If Licznik < Poziom Then Set Portb.0 Else Reset Portb.0
Return

If Licznik < Poziom Then Set Portd.3 Else Reset Portd.3

do
  waitms 50
  incr Poziom
  if Poziom > 100 then poziom = 0 
loop

$regfile = "m8def.dat"
$crystal = 8000000
 
 
Ddrb = &B11111111 : Portb = &B00000000
Ddrc = &B11110000 : Portc = &B0000XX00
Ddrd = &B11111111 : Portd = &B00000000
 
Dim Licznik As Byte
Dim X As Byte
Dim Y As Byte
Dim Poziom As Byte
 
 
 
 
Config Timer0 = Timer , Prescale = 8
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts
 
 
 
 
Do
waitms 50
  incr Poziom
  If Poziom > 100 Then Poziom = 0
 
loop
Prztimer0:
If Licznik = 100 Then Licznik = 0
 Incr Licznik
 If Licznik < Poziom Then Set Portd.3 Else Reset Portd.3
  If Licznik < Poziom Then Set Portd.4 Else Reset Portd.4
   If Licznik < Poziom Then Set Portd.5 Else Reset Portd.5
    If Licznik < Poziom Then Set Portd.6 Else Reset Portd.6
     If Licznik < Poziom Then Set Portd.7 Else Reset Portd.7
 
Return

$regfile = "m8def.dat"
$crystal = 8000000
 
 
Ddrb = &B11111111 : Portb = &B00000000
Ddrc = &B11110000 : Portc = &B0000XX00
Ddrd = &B11111111 : Portd = &B00000000
 
Dim Licznik As Byte
Dim X As Byte
Dim Y As Byte
Dim Poziom As Byte
 
 
 
 
Config Timer0 = Timer , Prescale = 8
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts
 
 
 
 
Do
 
   For X = 3 To 7
   Portd.x = 1
   Waitms 300
   Next X
 
   loop
Prztimer0:
If Licznik = 100 Then Licznik = 0
 Incr Licznik
 If Licznik < Poziom Then Set Portd.3 Else Reset Portd.3
  If Licznik < Poziom Then Set Portd.4 Else Reset Portd.4
   If Licznik < Poziom Then Set Portd.5 Else Reset Portd.5
    If Licznik < Poziom Then Set Portd.6 Else Reset Portd.6
     If Licznik < Poziom Then Set Portd.7 Else Reset Portd.7
 
Return

For X = 3 To 7
...
...
...
Next x

   For X = 3 To 7
   Portd.x = 1
   Waitms 300
   Next X
 

 For X = 3 To 7
   Portd.x = x ' zadziała to?
   Waitms 300
   Next X
 

If Licznik < Poziom Then Set Portd.3 Else Reset Portd.3

Dim Poziom(5) as byte 

 If Licznik < Poziom(1) Then Set Portd.3 Else Reset Portd.3
 If Licznik < Poziom(2) Then Set Portd.4 Else Reset Portd.4
 If Licznik < Poziom(3) Then Set Portd.5 Else Reset Portd.5
 If Licznik < Poziom(4) Then Set Portd.6 Else Reset Portd.6
 If Licznik < Poziom(5) Then Set Portd.7 Else Reset Portd.7

Do
  waitms 100 
  If Poziom(1) < 100 Then incr Poziom(1)
  If Poziom(1) > 20 and Poziom(2) < 100 Then incr Poziom(2)
  If Poziom(2) > 20 and Poziom(3) < 100 Then incr Poziom(3)
  If Poziom(3) > 20 and Poziom(4) < 100 Then incr Poziom(4)
  If Poziom(4) > 20 and Poziom(5) < 100 Then incr Poziom(5)
loop

If Licznik = 100 Then Licznik = 0

If Licznik = 100 Then 
  Licznik = 0
  set f25m
  incr dziel
  if dziel = 4 then
    dziel = 0
    set f100m
  end if
End If

Do
  if f25m = 1 then
    f25m = 0
 
    'obsługa przycisku 1
    if pinx.y = 0 then
      incr sw1_licz
      if sw1_licz = 100 then
        animacja = 1 
      end if
    else
      sw1_licz = 95
    end if  
 
  end if  
 
  if f100m = 1 then
    f100m = 0
    if animacja = 1
      If Poziom(1) < 100 Then incr Poziom(1)
      If Poziom(1) > 20 and Poziom(2) < 100 Then incr Poziom(2)
      If Poziom(2) > 20 and Poziom(3) < 100 Then incr Poziom(3)
      If Poziom(3) > 20 and Poziom(4) < 100 Then incr Poziom(4)
      If Poziom(4) > 20 and Poziom(5) < 100 Then incr Poziom(5)
      'tutaj trzeba dopisać czekanie za pomocą licznika jeśli Poziom(5) = 100 i potem dalsza animacja gaszenia, na końcu animacja = 0 trzeba ustawić
    end if 
  end if
loop

Do
  if f25m = 1 then
    f25m = 0
 
    'obsługa przycisku 1
    if PIND.0 = 0 then
      incr sw1_licz
      if sw1_licz = 100 then
        animacja = 1 
      end if
    else
      sw1_licz = 95
    end if  
 
  end if  
 
  if f100m = 1 then
    f100m = 0
    if animacja = 1'''''''''''''''''''''TUTEJ MAM BŁĄD
      If Poziom(1) < 100 Then incr Poziom(1)
      If Poziom(1) > 20 and Poziom(2) < 100 Then incr Poziom(2)
      If Poziom(2) > 20 and Poziom(3) < 100 Then incr Poziom(3)
      If Poziom(3) > 20 and Poziom(4) < 100 Then incr Poziom(4)
      If Poziom(4) > 20 and Poziom(5) < 100 Then incr Poziom(5)
      'tutaj trzeba dopisać czekanie za pomocą licznika jeśli Poziom(5) = 100 i potem dalsza animacja gaszenia, na końcu animacja = 0 trzeba ustawić
    end if 
  end if
loop

    if animacja = 1'''''''''''TUTEJ MAM BŁĄD     czy tu masz na końcu then?

 if animacja = 1 then
      If Poziom(1) < 100 Then incr Poziom(1)
      If Poziom(1) > 20 and Poziom(2) < 100 Then incr Poziom(2)
      If Poziom(2) > 20 and Poziom(3) < 100 Then incr Poziom(3)
      If Poziom(3) > 20 and Poziom(4) < 100 Then incr Poziom(4)
      If Poziom(4) > 20 and Poziom(5) < 100 Then incr Poziom(5)
      'tutaj trzeba dopisać czekanie za pomocą licznika jeśli Poziom(5) = 100 i potem dalsza animacja gaszenia, na końcu animacja = 0 trzeba ustawić
    end if 

$regfile = "m8def.dat"
$crystal = 8000000
 
 
Ddrb = &B00111111 : Portb = &B11000000
Ddrc = &B11001111 : Portc = &B00XX0000
Ddrd = &B11111110 : Portd = &B00000001
 
Dim Licznik As Byte
Dim Poziom(6) As Byte
Dim X As Byte
Dim F25m As Bit
Dim F100m As Bit
Dim Dziel As Byte
Dim Sw1_licz As Byte
Dim Animacja As Bit
 
 
Config Timer0 = Timer , Prescale = 8
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts
 
 
 
Do
If F25m = 1 Then
    F25m = 0
 
    'obsługa przycisku 1
    If Pind.0 = 0 Then
      Incr Sw1_licz
      If Sw1_licz = 100 Then
        Animacja = 0
      End If
    Else
      Sw1_licz = 95
    End If
 
  End If
 
  If F100m = 1 Then
    F100m = 0
     If Animacja = 1 Then
 
      If Poziom(1) < 100 Then Incr Poziom(1)
      If Poziom(1) > 20 And Poziom(2) < 100 Then Incr Poziom(2)
      If Poziom(2) > 20 And Poziom(3) < 100 Then Incr Poziom(3)
      If Poziom(3) > 20 And Poziom(4) < 100 Then Incr Poziom(4)
      If Poziom(4) > 20 And Poziom(5) < 100 Then Incr Poziom(5)
      If Poziom(5) > 20 And Poziom(6) < 100 Then Incr Poziom(6)
 
 
 
      'tutaj trzeba dopisać czekanie za pomocą licznika jeśli Poziom(5) = 100 i potem dalsza animacja gaszenia, na końcu animacja = 0 trzeba ustawić
    End If
    End If
 
Loop
 
 
Prztimer0:
If Licznik = 100 Then
  Licznik = 0
  Set F25m
  Incr Dziel
  If Dziel = 1 Then
    Dziel = 0
    Set F100m
  End If
End If
  Incr Licznik
 If Licznik < Poziom(1) Then Set Portc.3 Else Reset Portc.3
  If Licznik < Poziom(2) Then Set Portc.2 Else Reset Portc.2
   If Licznik < Poziom(3) Then Set Portc.1 Else Reset Portc.1
    If Licznik < Poziom(4) Then Set Portc.0 Else Reset Portc.0
     If Licznik < Poziom(5) Then Set Portb.5 Else Reset Portb.5
      If Licznik < Poziom(6) Then Set Portb.4 Else Reset Portb.4
Return

If Pind.0 = 0 Then
      Incr Sw1_licz
      If Sw1_licz = 100 Then
        Animacja = 0
      End If
    Else
      Sw1_licz = 95
    End If

If Pind.0 = 0 Then
    Incr Sw1_licz
      If Sw1_licz = 100 Then
        Sw1_licz = 95
        Animacja = 0
      End If
End If

If Pind.0 = 0 Then
    Incr Sw1_licz
      If Sw1_licz = 100 Then
        Sw1_licz = 95
        Animacja = 0
      End If
End If

Config Timer0 = Timer , Prescale = 8
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts
 
Sw1_licz = 0

If Pind.0 = 0 Then
   waitms 25
    Incr Sw1_licz
      If Sw1_licz = 5 Then
        Sw1_licz = 0
        Animacja = 0
      End If
End If

If Pind.0 = 0 Then
   waitms 25
    Incr Sw1_licz
      If Sw1_licz = 5 Then
        Sw1_licz = 0
        Animacja = 0''''''''''''''''''''''Animacja = 1
      End If
End If

If F25m = 1 Then
   If Pind.0 = 0 Then
   ...
   ...
   ...
   end if
end if

If F25m = 1 Then
    F25m = 0
 
    'obsługa przycisku 1
    If Pind.0 = 0 Then
      Incr Sw1_licz
      If Sw1_licz = 100 Then
        Sw1_licz = 0
        Animacja = 0
      End If
    Else
      Sw1_licz = 95
    End If
 
End If

      If Poziom(1) < 100 Then Incr Poziom(1)
      If Poziom(1) > 20 And Poziom(2) < 100 Then Incr Poziom(2)
      If Poziom(2) > 20 And Poziom(3) < 100 Then Incr Poziom(3)
      If Poziom(3) > 20 And Poziom(4) < 100 Then Incr Poziom(4)
      If Poziom(4) > 20 And Poziom(5) < 100 Then Incr Poziom(5)
      If Poziom(5) > 20 And Poziom(6) < 100 Then Incr Poziom(6)
 
      If Poziom(6) = 100 and Licz_anim < 100 Then Incr Licz_anim
 
      If Licz_anim = 100 And Poziom(1) > 0 Then Decr Poziom(1)
      If Poziom(1) < 80 And Poziom(2) > 0 Then Decr Poziom(2)
      If Poziom(2) < 80 And Poziom(3) > 0 Then Decr Poziom(3)
      If Poziom(3) < 80 And Poziom(4) > 0 Then Decr Poziom(4)
      If Poziom(4) < 80 And Poziom(5) > 0 Then Decr Poziom(5)
      If Poziom(5) < 80 And Poziom(6) > 0 Then Decr Poziom(6)
 
      If Poziom(6) = 0 Then Animacja = 0

$regfile = "attiny26.dat"
$crystal = 1000000
 
Config Portb = &B11111111 : Portb = &B11111111
Config Porta = &B11111111 : Porta = &B00000010
 
Config Timer0 = 100 , Prescale = 1
Enable Timer0 : On Timer0 Prztimer0
Enable Interrupts
 
 
Gd Alias Porta.1
 
 
Dim Licznik As Byte
Dim  Gled As Byte
 
 
Gled = 10
 
Do
 
Loop
End
 
Prztimer0:
 Incr Licznik
 
 If Licznik = 100 Then Licznik = 0
 
 If Licznik < Gled Then Set Gd Else Reset Gd
 
Return