TheWiktus napisał:
To leci mniej więcej tak:
----------------------------------------------------------------------
prezes_aps napisał:
Płytki wyglądają mniej więcej jak na GIFIE. Piszę mniej więcej bo jest kilka różnic w wyprowadzeniach kontrolera co można w prosty sposób dopasować w programie przez "przeportowanie". Niestety nie mam na dzień dzisiejszy nic innego. W orginale też musiałem przeciąć kilka ścieżek bo okazało się, że prawie cały portc jest uszkodzony.

Quote:No więc ja potrzebuje tego od obsługi w trybie multipleksowym pytam czytam szukam od tygodnia i nadal nic.
To leci mniej więcej tak:
Quote:Config Timer2 = Timer , Prescale = 256
Declare Sub Podstaw_cyfre(cyfra As Byte)
On Timer2 Przemiatanie
Dim A As Byte , B As Byte , C As Byte , D As Byte , E As Byte , F As Byte
Dim Nr_nixie As Byte
Nixie_1 Alias Porta.0
Nixie_2 Alias Porta.1
Nixie_3 Alias Porta.2
Nixie_4 Alias Porta.3
Nixie_5 Alias Porta.4
Nixie_6 Alias Porta.5
Enable Interrupts
Enable Timer2
Load Timer2 , 60
'####################################
' Petla glowna
Do
' Gdy Zmienne Przyjmą Jakąś Wartość
'. Zostaną Wyświetlone Np.
A = 1
B = 2
C = 3
D = 4
E = 5
F = 6
Loop
'####################################
Sub Podstaw_cyfre(cyfra As Byte)
Cyfra = Cyfra And &B00001111
Portb = Portb And &B11110000
Portb = Portb Or Cyfra
End Sub
'###################################
Przemiatanie:
Load Timer2 , 60
Reset Nixie_1
Reset Nixie_2
Reset Nixie_3
Reset Nixie_4
Reset Nixie_5
Reset Nixie_6
Select Case Nr_nixie
Case 0:
Call Podstaw_cyfre(a)
Set Nixie_1
Case 1:
Call Podstaw_cyfre(b)
Set Nixie_2
Case 2:
Call Podstaw_cyfre(c)
Set Nixie_3
Case 3:
Call Podstaw_cyfre(d)
Set Nixie_4
Case 4:
Call Podstaw_cyfre(e)
Set Nixie_5
Case 5:
Call Podstaw_cyfre(f)
Set Nixie_6
End Select
Incr Nr_nixie
If Nr_nixie = 6 Then
Nr_nixie = 0
End If
Return
----------------------------------------------------------------------
prezes_aps napisał:
Quote:Przydałby się jakiś rusunek PCB.
Płytki wyglądają mniej więcej jak na GIFIE. Piszę mniej więcej bo jest kilka różnic w wyprowadzeniach kontrolera co można w prosty sposób dopasować w programie przez "przeportowanie". Niestety nie mam na dzień dzisiejszy nic innego. W orginale też musiałem przeciąć kilka ścieżek bo okazało się, że prawie cały portc jest uszkodzony.
