گروه مجستیک الکترونیک

برنامه تابلو روان 8 در 16 با زبان بسکام جهت اشنایی بیشتر شما با ساخت و عملکرد این نمایشگرها

‘*************************************
$ regfile = “M32def.dat”
$crystal = 8000000
‘*************************************
Config Porta = Output
Config Portb = Output
Config Portc = Output
‘*************************************
Dim Buf(16) As Byte
Dim K As Byte
Dim H16 As Byte
Dim Ref As Byte
Dim P As Word
Dim I As Word
Dim Endmatn As Word
‘*******************************************************************************
‘*******************************************************************************
Do
P = 0
Endmatn = 208
For I = 1 To 16
Buf(i) = Lookup(p , Jb)
Incr P
Next
M1:
Gosub Nama
For K = 1 To 15
Buf(k) = Buf(k + 1)
Next
Buf(16) = Lookup(p , Jb)
Incr P
If P = Endmatn Then P = 0
If P < Endmatn Then Goto M1
Loop
End
‘*******************************************************************************
‘*******************************************************************************
Nama:
For Ref = 1 To 16
For H16 = 1 To 16
Select Case H16
Case 1 : Porta = &B11111110
Case 2 : Porta = &B11111101
Case 3 : Porta = &B11111011
Case 4 : Porta = &B11110111
Case 5 : Porta = &B11101111
Case 6 : Porta = &B11011111
Case 7 : Porta = &B10111111
Case 8 : Porta = &B01111111
Case 9 : Portc = &B11111110
Porta = &B11111111
Case 10 : Portc = &B11111101
Case 11 : Portc = &B11111011
Case 12 : Portc = &B11110111
Case 13 : Portc = &B11101111
Case 14 : Portc = &B11011111
Case 15 : Portc = &B10111111
Case 16 : Portc = &B01111111
End Select
Portb = Buf(h16)
Waitus 400
Portb = 0
Next H16
Next Ref
Return
‘*******************************************************************************
‘*******************************************************************************
Jb:
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0
Data &B00011000
Data &B00001100
Data &B00011000
Data &B00001100
Data &B00011000
Data &B00001100
Data &B00001100
Data &B11111000
Data &B01111100
Data &B00001100
Data &B00001100
Data &B00001100
Data &B00001100
Data &B11111100

تابلوروان آموزشی

تابلوروان آموزشی