Na wstępie napiszę, że jestem w trakcie przechodzenia na C, jednak ze względu na przymus szybkiej realizacji projektu, zmuszony zostałem do tworzenia go w BASCOMie, w którym trochę już działam.
Problem opiera się o to, iż stworzyłem już (fizycznie) zegar z analogowym sekundnikiem. Sekundnik został multiplexowany z użyciem rejestru przesuwnego 74LS164, jednak na moje nieszczęście (głupotę) zamiast wysterować rejestrem pojedyncze diody, to układ zaprojektowałem tak, że rejestr steruje segmentem diod. Za nic w świecie nie mogę się dogadać teraz z tym multiplexowaniem.
Byłby ktoś w stanie mi pomóc ruszyć to, mi już ręce opadają.
Za wszelką pomoc będę bardzo wdzięczny.
W załączniku przesyłam schemat.
kod:
[syntax=basic4gl]Config Timer0 = Timer , Prescale = 64
Do
Incr Kod_zn
If Kod_zn = 19 Then Kod_zn = 1
Waitms 800
Loop
End
Sub Pob_w_zn
Select Case Nr_kol
Case 0:
Kol_zn = Lookup(kod_zn , Kol1)
Case 1:
Kol_zn = Lookup(kod_zn , Kol2)
(....)
End Select
N0 = Kol_zn : Shift Kol_zn , Right , 1
N1 = Kol_zn : Shift Kol_zn , Right , 1
N2 = Kol_zn : Shift Kol_zn , Right , 1
N3 = Kol_zn : Shift Kol_zn , Right , 1
N4 = Kol_zn : Shift Kol_zn , Right , 1
N5 = Kol_zn : Shift Kol_zn , Right , 1
N6 = Kol_zn : Shift Kol_zn , Right , 1
N7 = Kol_zn
End Sub
Mult_wysw_matr:
Load Timer0 , 50
Set N0
Set N1
Set N2
Set N3
Set N4
Set N5
Set N6
Set N7
Call Pob_w_zn
Shift Nr_kol , Right , 1
Shiftout Ena , Clk , Nr_kol , 1
Incr Nr_kol
If Nr_kol = 2 Then
Nr_kol = 0
End If
Return
Kol1:
Data &B11111111 , &B01111111 , &B10111111 , &B11011111 , &B11101111 , &B11110111 , &B11111011 , &B11111101 , &B11111110
Kol2:
Data 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 254 , 127 , 63 , 31 , 15 , 7 , 3 , 1 , 0[/syntax]
Kod wklejamy przy pomocy syntax=basic4gl - Różowy J.Statystyki: Napisane przez LooPeZ — 19 gru 2013, o 23:39
]]>