logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

Jak uprościć kod dla rejestru przesuwnego 74HC595 w Bascom?

cichy999 05 Paź 2011 22:23 3525 5
REKLAMA
  • #1 9997078
    cichy999
    Poziom 20  
    Posty: 725
    Pomógł: 10
    Ocena: 23
    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.




    
      $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
  • REKLAMA
  • REKLAMA
  • #3 9997712
    cichy999
    Poziom 20  
    Posty: 725
    Pomógł: 10
    Ocena: 23
    xury napisał:
    No dobra. Ale co to jest ? Bo nic nie rozumiem. Po co tak wachlujesz tymi zmiennymi ?


    Chodzi mi o to czy jest może jakaś procedura krótsza aby wyświetlać te diody.
    Incr I dałem tylko do sprawdzenia czy działa.

    Założenie jest takie ze jak odbiorę zmienną I= 600 po RS232 to ma zapalić ileś diód.
  • REKLAMA
  • REKLAMA
  • #5 9999472
    cichy999
    Poziom 20  
    Posty: 725
    Pomógł: 10
    Ocena: 23
    A jakiś mały przykład można prosić??
  • #6 11860568
    grzechu9009
    Poziom 11  
    Posty: 125
    Ocena: 10
    Odkopuje temat.

    Jak tym sterować? (w Bascomie)

    ustawic jako stan poczatkowy DS, SH I ST na 0. Wysłać jakis stan logiczny na DS, ustawic SH na stan wysoki potem ST na wysoki i na odpowiedniej końcówce Q pojawi się stan wg wartości przesłanej w DS? Tylko na ktorej koncowce pojawi sie ten stan? Q0 czy Q7?

    czy musze powtarzac procedure dla kazdej koncowki Q osobno czy moge np zrobic to "hurtem" dla wszystkich 8 np wysylajac na DS kombinacje 00001011 co da mi stan wysoki na Q1 Q2 i Q4? Osobiscie wydaje mi sie ze chyba nic z tego bo kazda zmiana stanu SH przesuwa tą moją 1 czy 0 odczytana z DS robiac miejsce na kolejne dane (ewentualnie cos pomieszalem :P) a jak sprawa wyglada przy polaczeniu ze soba dwoch 74HC? do ktorego z nich pojdzie ta "1" z ds? do Q0 pierwszego czy Q7 drugiego? A moze jeszcze inaczej?
REKLAMA