Witam próbuje napisać program w Bascomie dla At90S2313 do obslugi wyswietlaczy LED za pomoca 74LS164. POdłączyłem dwa wyswietlacze które obsługuje multipleksowo. Oto kod źródłowy:
Efekt jest taki że na wyświetlaczu jest liczba 02 ale niestety nie mogę całkowicie zlikwidować lekkiego świecenia się pozostałych segmentów danego wyświetlacza które akurat nie są potrzebne do wyświetlenia prawidłowo danej cyfry. Tzn na tym wyswietlaczu gdzie jest cyfra 0 dodatkowo lekko świeci segment g. ogólnie to caly czas lekko świecą się wsyztskie segmenty obu wyświetlaczy.Wyswietlacze sa ze wspolna anoda. Do anody idzie kolektor tranzystora PNP a poszegolne segment sa poloczone z ukladem 74LS164 przez rezystory 220 om.moze ktoś mi pomóc?
Tytuł poprawiłem - regulamin.
[zumek]
Ddrd = &B1111100 : Portd = &B1111111 : Ddrb = &B11111111 : Portb = &B11111111
Tccr0 = &B11 : Timsk.1 = 1 : Sreg.7 = 1 : On Timer0 Co4ms
'Tccr1b = &B11 : Timsk.7 = 1 : On Timer1 Co1s
Dim Mop As Bit , Rejestr As Byte , X As Byte , Pomoc As Bit
Rejestr = 0 : Pomoc = 0
Do
If Pomoc = 0 Then
Portb.0 = 0
Portb.1 = X.0
Rotate X , Right
Portb.0 = 1
Incr Rejestr
If Rejestr = 8 Then
Rejestr = 0
Pomoc = 1
End If
End If
Loop
'Co1s:
'Timer1 = 65500
'Return
Co4ms:
Portd.5 = 1 : Portd.6 = 1
Toggle Mop
Select Case Mop
Case 0:
Portd.6 = 0 : X = &B00000011 : POMOC = 0
Case 1:
Portd.5 = 0 : X = &B00100101 : Pomoc = 0
End Select
Return
Tabela:
'Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144
Efekt jest taki że na wyświetlaczu jest liczba 02 ale niestety nie mogę całkowicie zlikwidować lekkiego świecenia się pozostałych segmentów danego wyświetlacza które akurat nie są potrzebne do wyświetlenia prawidłowo danej cyfry. Tzn na tym wyswietlaczu gdzie jest cyfra 0 dodatkowo lekko świeci segment g. ogólnie to caly czas lekko świecą się wsyztskie segmenty obu wyświetlaczy.Wyswietlacze sa ze wspolna anoda. Do anody idzie kolektor tranzystora PNP a poszegolne segment sa poloczone z ukladem 74LS164 przez rezystory 220 om.moze ktoś mi pomóc?
Tytuł poprawiłem - regulamin.
[zumek]