Witam!!!
Wzorowałem się na
https://www.elektroda.pl/rtvforum/topic1693428.html
Chcę aby przy zmiennej np. I > 1200 paliła się pierwsza dioda przy i > 2400 pierwsza i druga itd.
Czy jest możliwość uproszczenia tego co napisałem.
Wzorowałem się na
https://www.elektroda.pl/rtvforum/topic1693428.html
Chcę aby przy zmiennej np. I > 1200 paliła się pierwsza dioda przy i > 2400 pierwsza i druga itd.
Czy jest możliwość uproszczenia tego co napisałem.
$regfile = "m32def.DAT" 'deklaracja procesora, w tym wypadku Atmega32
$crystal = 16000000 'deklaracja cześtotlwiości pracy
'Deklaracja portów od wyświetlacza LCD
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Config Pina.1 = Output
Config Pina.2 = Output
Config Pina.3 = Output
Ds Alias Porta.1
Sh Alias Porta.3
Stcp Alias Porta.2
Ds = 0
Sh = 0
Stcp = 0
Dim I As Integer
Cls
Do
Incr I
If I > 0 And I < 1201 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 'brak
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 1200 And I < 2401 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 2400 And I < 3601 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '12
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 3600 And I < 4801 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '123
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 4800 And I < 6001 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1234
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 6000 And I < 7201 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '12345
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 7200 And I < 8401 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-6
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 8400 And I < 9601 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-7
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 9600 And I < 10801 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-8
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 10800 And I < 12001 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-9
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 12000 And I < 13201 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-10
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 13200 And I < 14401 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-11
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 14400 And I < 15601 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-12
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 15600 And I < 16801 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-13
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 16800 And I < 18001 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 '1-14
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 18000 And I < 18901 Then
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0 '1-15
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
End If
If I > 18900 Then
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0 'brak
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 0 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
Waitms 100
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0 '1-15
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Ds = 1 : Sh = 1 : Ds = 0 : Sh = 0
Stcp = 1
Stcp = 0
Waitms 100
End If
If I > 21000 Then
I = 0
End If
Loop