Привет! я вот написал вот такой вот код, который по плану будет управлять синтезатором
я вот хотел сделать управление при помощи энкодера но я не понимаю как его подключить
вот программа:
$regfile "m16def.dat"
$crystal = 16000000
Config Portc = Output

Config Portb.0 = Input
Config Portb.1 = Input
Config Portb.2 = Input
config int0 = Falling

Dim A As Long
Dim B As Long
Dim C As Long
Dim D As Long
dim E as long
'***********************
Dim N1 As Byte
Dim N2 As Byte
Dim N3 As Byte
Dim N4 As Byte
Dim N5 as byte
'***********************
Dim Q As long ' main variable
Dim R As Byte
Dim Dat As Byte
dim steps as byte
'***********************
'Freqdec Alias Portb.0
'Freqinc Alias Portb.1
'Save Alias Portb.2
Declare Sub Mat()
Declare Sub 1()
Q=88000
'steps = 50

Do
Call Mat()

Loop

Mat:
A = Q
B = A
C = A
D = A
E = A
A = A / 10000
N1 = Abs(A)

B = B Mod 10000
B = B / 1000
N2 = Abs(B)

C = C Mod 1000
C = C / 100
N3 = Abs(C)

D = D Mod 100
D = D / 10
N4 = Abs(D)

E = E Mod 10
N5 = Abs(E)
Call 1
Return

1:
R = 239'247
Dat = Lookup(n5 , Numbers)
Gosub Tx1

R = 247'254
Dat = Lookup(n4 , Numbers)
Gosub Tx1

R = 251'253
Dat = Lookup(n3 , Numbers)
Gosub Tx1

R = 253'251
Dat = Lookup(n2 , Numbers)
Gosub Tx1

R = 254'247
Dat = Lookup(n1 , Numbers)
Gosub Tx1
Return

Tx1:
Shiftout Portc.2 , Portc.0 , Dat , 1
Shiftout Portc.2 , Portc.0 , R , 1
Pulseout Portc , 1 , 5
waitms 1
Return

Numbers:
Data &HEB '0
Data &H48 '1
Data &H73 '2
Data &H7A '3
Data &HD8 '4
Data &HBA '5
Data &HBB '6
Data &H68 '7
Data &HFB '8
Data &HFA '9

encode:
if Q
return

Индикацию нужно выполнять в прерывании таймера и тогда мерцаний не будет.

ребята подскажите пожта. если в динамике работает мк как собрать алгоритм что бы бы еще и опрос ацп и исполнительных контактов? ведь мерцание будет. или я торможу

У индикатора на схеме не использован вывод DP, вот он отвечает за точку. Принцип отображения точки абсолютно такой же. По поводу резисторов, лучше конечно ставить на ножки отвечающие за сегменты (A, B, C и т.д.)

токоограничительные сопротивления не нужны?

а как вывести запятую?

Так тоже работает но весит меньше.

$regfile = "m8def.dat"
$crystal = 8000000

Dim A As Integer
Dim N1 As Byte
Dim N2 As Byte
Dim N3 As Byte
Dim N4 As Byte
Dim M1 As Integer
Dim M2 As Integer
Dim M3 As Integer
Dim M4 As Integer
Dim W As Integer
Dim Nx As Byte

A = &B00000001

Ddrb = &B11111111
Ddrd = &B11111111

Portb = A
Portd = &B11000000
W = 4321

Do

M1 = W
M2 = M1
M3 = M1
M4 = M1

M1 = M1 / 1000 ' M1 = 1234/1000 = 1,234
N1 = Abs(m1) ' N1 = Abs (1,234) = 1

M2 = M2 Mod 1000 ' M2 =1234 Mod 1000 = 234
M2 = M2 / 100 ' M2 = 234 / 100 = 2,34
N2 = Abs(m2) ' N2 = Abs (2,34) = 2

M3 = M3 Mod 100
M3 = M3 / 10
N3 = Abs(m3)

M4 = M4 Mod 10
N4 = Abs(m4)

Nx = N1
Gosub Select_n
Gosub Led

Nx = N2
Gosub Select_n
Gosub Led

Nx = N3
Gosub Select_n
Gosub Led

Nx = N4
Gosub Select_n
Gosub Led

Loop
End

Select_n:
Select Case Nx
Case 0 : Portd = &B11000000
Case 1 : Portd = &B11111001
Case 2 : Portd = &B10100100
Case 3 : Portd = &B10110000
Case 4 : Portd = &B10011001
Case 5 : Portd = &B10010010
Case 6 : Portd = &B10000010
Case 7 : Portd = &B11111000
Case 8 : Portd = &B10000000
Case 9 : Portd = &B10010000
End Select
Return

Led:
Waitms 5
Rotate Portb , Left
If Portb = &B00010000 Then Portb = A

Return