G

P10 panel sürmek

Başlatan gogoce, 20 Şubat 2021, 16:07:38

Yazdır
Aşağı git Sayfa 1 2 3 4 5 6
Kullanıcı Eylemleri

gogoce

#45
31 Mart 2021, 20:48:53
Tekrar merhaba,
fırsat buldukça birşeyler yapmaya çalışıyorum.
define OSC 64
asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON=%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3    

clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [16]
B var byte [16]
C var byte [16]
D var byte [16]

x var byte

FOR X=15 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X

A[0] = 195
B[0] = 129
C[0] = 24
D[0] = 60
A[1] = 60
B[1] = 60
C[1] = 60
D[1] = 60
A[2] = 60
B[2] = 60
C[2] = 60
D[2] = 60
A[3] = 60
B[3] = 24
C[3] = 129
D[3] = 195




BASLA:

GOSUB TARA
goto basla



TARA:  
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[A[x]]
        next X
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[B[x]]
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[C[x]]
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[D[x]]
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        
    return
    
    
end


Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

aRci

#46
01 Nisan 2021, 16:14:32
Merhaba,
P10 parlaklık denemelerde rahatsız edici olabiliyor. pwm yapamadığım için bende timer kesme si içinde paneli aktif ettikten sonra kısa bir süre sonra paneli kapatarak çözüm uyguladım bu timerda fazla duraksamaya sebep olsada ekranda titreme olmuyor. paylaştığın koda düzenleme yaptım en azından biraz daha rahat çalışabilirsin.

Video atacağım buradada aynı şekilde parlaklık kısıldığı halde titreme yapmıyor.



define OSC 64
asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON=%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3    

clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [16]
B var byte [16]
C var byte [16]
D var byte [16]
X var byte
Tr    var byte
Sutun var byte
Say var byte
Light var byte
Tra   var word

FOR X=15 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X
'227, 221, 221, 193, 221, 221, 221, 255

A[0] = 195
B[0] = 129
C[0] = 24
D[0] = 60
A[1] = 60
B[1] = 60
C[1] = 60
D[1] = 60
A[2] = 60
B[2] = 60
C[2] = 60
D[2] = 60
A[3] = 60
B[3] = 24
C[3] = 129
D[3] = 195

Light = 10
Tra = 0


BASLA:

GOSUB TARA
Tra = Tra + 1
if Tra>200 then Tra = 0:Light = Light + 10
goto basla



TARA:  
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[A[x]]
        next X
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[B[x]]
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[C[x]]
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[D[x]]
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        
    return
    
    
end

aRci

#47
01 Nisan 2021, 16:33:31
Merhaba,
Artık panele alıştım ve kayan yazı da oluşturabildim. Saat ve derece haricinde istenilen konuma yazı da aktarabiliyorum. neredeyse tüm klavye tuşları için karekter tablosunuda oluşturdum.

Panelde bit seviyesinde işlem yapabilmeye başladım istediğim noktaya X ve Y olarak girdiğim noktadan itibaren yerleştiriyor.

Bu işlem sırasında aktarılacak 6 bit ( Karekterler 5*7 olarak oluşturuldu ) verinin aktarmak istediğim noktadaki değişkene sığmaz ise sıradaki diğer değişkene kalan veriyi atıp işlemi tamamlıyor. bu işlemde aktarılmak istenen değişkenin kaçıncı bitinden veri akatarılmaya başlanacağına göre hesaplanması gerekiyor ki bu işlemlerde çok fazla matemetik ve kaydırma işlemleri yaptırdığım için ekrana aktarma işlemi uzun sürüyor.
durağan halde iken problem olmuyor ama işin içine kayan yazı girince duraksama net bir şekilde görülüyor. bunun için yapılacak bir şey var mı bilmiyorum sanırım hızdan başka bir çözüm yoktur.

Kkrt:
    for Tara = 0 to 7
    Gosub Tablo
    if Y = 250 then Krk = Krk + 1
    Tr3 = 0: Tr4 = 0
    KorX =  X + tara 
    if Y > 200 then Tr4 = (255 - Y) + 1
    KorY = Y + Tr4
    KorY =  KorY / 8 
    Fark = 8 - ( (Y+Tr4) - (KorY * 8))
TrXX:
    lookup KorX,[13,29,45,61,14,30,46,62,15,31,47,63,16,32,48,64], Tara2    'lookup Tr4,[15,31,47,63,16,32,48,64], Tr3   'ikinci satır
    if Y <= 31 or Y > 249 then Tr1 = Tara2 - ((KorY - (Tr4/8)) * 4)

    if Tr3 = 0 then
    Hsb1 = 255 - (( Dcd Fark ) - 1 )
    if Tr4!= 0 or Y + Fark >=31 then Tbl1  = (Tbl1 << Tr4) | (( Dcd Tr4 ) - 1 )
    veri1[Tr1] = ( veri1[Tr1] & Hsb1 ) | ( Tbl1 >> (8-Fark))
    else
     
    Tr4 = 8 - Fark 
    Hsb1 = (( Dcd Tr4 ) - 1 )
    if Y + Fark <=31 then veri1[Tr1] = ( veri1[Tr1] & Hsb1 ) | ( Tbl1 << (8-Fark))
    endif
    
    hserout[TT2, 13]
    if Fark != 8 and Tr3 = 0 and Y + Fark <=31 then fark = 8 - Fark : KorY = KorY + 1:Tr3 = 1:goto TrXX

    next Tara 
return

Kaydırma işlemi ise ilgili karekter bilgisini tutan değişkenin içinden bir sütün değişkeni yardımı ile bir adet bit okunup ekran değişkenine aktarıyorum

Sola:    
    for Tara = 0 to 7
    gosub Tablo
    lookup Tara+X,[1,17,33,49,2,18,34,50,3,19,35,51,4,20,36,52], Tara2    'lookup Tr4,[15,31,47,63,16,32,48,64], Tr3   'ikinci satır
    i = Tbl1.0(7-Sutun)
    if i = 1 then 
       Veri1[Tara2] = veri1[Tara2] | (1+Cerc) 
    else
       Veri1[Tara2] = veri1[Tara2] & (254 - Cerc)
    endif

    Next Tara
return



gogoce

#48
01 Nisan 2021, 21:10:01
Alıntı yapılan: aRci - 01 Nisan 2021, 16:14:32Merhaba,
P10 parlaklık denemelerde rahatsız edici olabiliyor. pwm yapamadığım için bende timer kesme si içinde paneli aktif ettikten sonra kısa bir süre sonra paneli kapatarak çözüm uyguladım bu timerda fazla duraksamaya sebep olsada ekranda titreme olmuyor. paylaştığın koda düzenleme yaptım en azından biraz daha rahat çalışabilirsin.

Video atacağım buradada aynı şekilde parlaklık kısıldığı halde titreme yapmıyor.



define OSC 64
asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON=%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3    

clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [16]
B var byte [16]
C var byte [16]
D var byte [16]
X var byte
Tr    var byte
Sutun var byte
Say var byte
Light var byte
Tra   var word

FOR X=15 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X
'227, 221, 221, 193, 221, 221, 221, 255

A[0] = 195
B[0] = 129
C[0] = 24
D[0] = 60
A[1] = 60
B[1] = 60
C[1] = 60
D[1] = 60
A[2] = 60
B[2] = 60
C[2] = 60
D[2] = 60
A[3] = 60
B[3] = 24
C[3] = 129
D[3] = 195

Light = 10
Tra = 0


BASLA:

GOSUB TARA
Tra = Tra + 1
if Tra>200 then Tra = 0:Light = Light + 10
goto basla



TARA:  
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[A[x]]
        next X
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[B[x]]
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[C[x]]
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        for x = 15 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[D[x]]
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1:Pauseus Light:Oe = 0
        
        
    return
    
    
end

teşekkürler. Ben daha sonra donanımsal pwm ile oe pinini and kapısı ile birleştirip parlaklığı ayarlamaya çalışacağım
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

gogoce

#49
01 Nisan 2021, 21:11:09
Alıntı yapılan: aRci - 01 Nisan 2021, 16:33:31Merhaba,
Artık panele alıştım ve kayan yazı da oluşturabildim. Saat ve derece haricinde istenilen konuma yazı da aktarabiliyorum. neredeyse tüm klavye tuşları için karekter tablosunuda oluşturdum.

Panelde bit seviyesinde işlem yapabilmeye başladım istediğim noktaya X ve Y olarak girdiğim noktadan itibaren yerleştiriyor.

Bu işlem sırasında aktarılacak 6 bit ( Karekterler 5*7 olarak oluşturuldu ) verinin aktarmak istediğim noktadaki değişkene sığmaz ise sıradaki diğer değişkene kalan veriyi atıp işlemi tamamlıyor. bu işlemde aktarılmak istenen değişkenin kaçıncı bitinden veri akatarılmaya başlanacağına göre hesaplanması gerekiyor ki bu işlemlerde çok fazla matemetik ve kaydırma işlemleri yaptırdığım için ekrana aktarma işlemi uzun sürüyor.
durağan halde iken problem olmuyor ama işin içine kayan yazı girince duraksama net bir şekilde görülüyor. bunun için yapılacak bir şey var mı bilmiyorum sanırım hızdan başka bir çözüm yoktur.

Kkrt:
    for Tara = 0 to 7
    Gosub Tablo
    if Y = 250 then Krk = Krk + 1
    Tr3 = 0: Tr4 = 0
    KorX =  X + tara 
    if Y > 200 then Tr4 = (255 - Y) + 1
    KorY = Y + Tr4
    KorY =  KorY / 8 
    Fark = 8 - ( (Y+Tr4) - (KorY * 8))
TrXX:
    lookup KorX,[13,29,45,61,14,30,46,62,15,31,47,63,16,32,48,64], Tara2    'lookup Tr4,[15,31,47,63,16,32,48,64], Tr3   'ikinci satır
    if Y <= 31 or Y > 249 then Tr1 = Tara2 - ((KorY - (Tr4/8)) * 4)

    if Tr3 = 0 then
    Hsb1 = 255 - (( Dcd Fark ) - 1 )
    if Tr4!= 0 or Y + Fark >=31 then Tbl1  = (Tbl1 << Tr4) | (( Dcd Tr4 ) - 1 )
    veri1[Tr1] = ( veri1[Tr1] & Hsb1 ) | ( Tbl1 >> (8-Fark))
    else
     
    Tr4 = 8 - Fark 
    Hsb1 = (( Dcd Tr4 ) - 1 )
    if Y + Fark <=31 then veri1[Tr1] = ( veri1[Tr1] & Hsb1 ) | ( Tbl1 << (8-Fark))
    endif
    
    hserout[TT2, 13]
    if Fark != 8 and Tr3 = 0 and Y + Fark <=31 then fark = 8 - Fark : KorY = KorY + 1:Tr3 = 1:goto TrXX

    next Tara 
return

Kaydırma işlemi ise ilgili karekter bilgisini tutan değişkenin içinden bir sütün değişkeni yardımı ile bir adet bit okunup ekran değişkenine aktarıyorum

Sola:    
    for Tara = 0 to 7
    gosub Tablo
    lookup Tara+X,[1,17,33,49,2,18,34,50,3,19,35,51,4,20,36,52], Tara2    'lookup Tr4,[15,31,47,63,16,32,48,64], Tr3   'ikinci satır
    i = Tbl1.0(7-Sutun)
    if i = 1 then 
       Veri1[Tara2] = veri1[Tara2] | (1+Cerc) 
    else
       Veri1[Tara2] = veri1[Tara2] & (254 - Cerc)
    endif

    Next Tara
return




donanımsal SPI kullanmayı denedin mi peki?
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

aRci

#50
01 Nisan 2021, 21:42:11
bu kartta paneli portd ile kullanıyorum spı hattını kullanamıyorum. sıkıntı tarama hızında değil ekranda titreme yok.

aRci

#51
01 Nisan 2021, 21:43:24
Alıntı yapılan: gogoce - 01 Nisan 2021, 21:10:01teşekkürler. Ben daha sonra donanımsal pwm ile oe pinini and kapısı ile birleştirip parlaklığı ayarlamaya çalışacağım
bu kartta başarısız birkac denemeden sonra pwm pinlerine lehim yapamadım o sebeple bu çözümü uyguladım. :)

gogoce

#52
01 Nisan 2021, 22:37:34
:) çözüm varsa yöntem önemli değildir diyorsun yani :)
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

gogoce

#53
03 Nisan 2021, 22:15:42
Merhabalar
kurcalaya kurcalaya bu hale getirdim. Program ve çalışma videosu aşağıdadır.
Long tipi değişkenin değerini panelde gösterdim.
define OSC 64
asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON=%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3    

clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [32]
B var byte [32]
C var byte [32]
D var byte [32]

x var WORD
SAYI VAR LONG
S1 VAR BYTE
S2 VAR BYTE
S3 VAR BYTE
S4 VAR BYTE
S5 VAR BYTE
S6 VAR BYTE
S7 VAR BYTE
S8 VAR BYTE

FOR X=31 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X

SAYI=98563247
BASLA:
S1=SAYI DIG 0
S2=SAYI DIG 1
S3=SAYI DIG 2
S4=SAYI DIG 3
S5=SAYI DIG 4
S6=SAYI DIG 5
S7=SAYI DIG 6
S8=SAYI DIG 7
GOSUB RAKAM_AL

FOR X=0 TO 65535
GOSUB TARA
NEXT X
SAYI=SAYI-1
TOGGLE PORTB.0
goto basla

RAKAM_AL:
;__________________ KARAKTER 1 ______________________________________________
IF S1=0 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 57
D[1] = 57
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=1 THEN
A[0] = 199
B[0] = 135
C[0] = 7
D[0] = 39
A[1] = 103
B[1] = 231
C[1] = 231
D[1] = 231
A[2] = 231
B[2] = 231
C[2] = 231
D[2] = 231
A[3] = 231
B[3] = 231
C[3] = 1
D[3] = 1
ENDIF
IF S1=2 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 249
C[1] = 249
D[1] = 249
A[2] = 241
B[2] = 227
C[2] = 199
D[2] = 143
A[3] = 159
B[3] = 63
C[3] = 1
D[3] = 1
ENDIF
IF S1=3 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 185
B[1] = 249
C[1] = 227
D[1] = 227
A[2] = 251
B[2] = 249
C[2] = 249
D[2] = 185
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=4 THEN
A[0] = 57
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 1
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 249
B[3] = 249
C[3] = 249
D[3] = 249
ENDIF
IF S1=5 THEN
A[0] = 1
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 241
B[2] = 249
C[2] = 249
D[2] = 57
A[3] = 57
B[3] = 1
C[3] = 1
D[3] = 131
ENDIF
IF S1=6 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=7 THEN
A[0] = 1
B[0] = 1
C[0] = 249
D[0] = 241
A[1] = 241
B[1] = 231
C[1] = 199
D[1] = 207
A[2] = 207
B[2] = 207
C[2] = 207
D[2] = 207
A[3] = 207
B[3] = 207
C[3] = 207
D[3] = 207
ENDIF
IF S1=8 THEN
A[0] = 131
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 1
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=9 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 57
B[3] = 57
C[3] = 129
D[3] = 131
ENDIF
;_____________________________ KARAKTER 2_____________________________________

IF S2=0 AND S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[4] = 255
B[4] = 255
C[4] = 255
D[4] = 255
A[5] = 255
B[5] = 255
C[5] = 255
D[5] = 255
A[6] = 255
B[6] = 255
C[6] = 255
D[6] = 255
A[7] = 255
B[7] = 255
C[7] = 255
D[7] = 255
ELSE
IF S2=0 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 57
D[5] = 57
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=1 THEN
A[4] = 199
B[4] = 135
C[4] = 7
D[4] = 39
A[5] = 103
B[5] = 231
C[5] = 231
D[5] = 231
A[6] = 231
B[6] = 231
C[6] = 231
D[6] = 231
A[7] = 231
B[7] = 231
C[7] = 1
D[7] = 1
ENDIF
IF S2=2 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 249
C[5] = 249
D[5] = 249
A[6] = 241
B[6] = 227
C[6] = 199
D[6] = 143
A[7] = 159
B[7] = 63
C[7] = 1
D[7] = 1
ENDIF
IF S2=3 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 185
B[5] = 249
C[5] = 227
D[5] = 227
A[6] = 251
B[6] = 249
C[6] = 249
D[6] = 185
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=4 THEN
A[4] = 57
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 1
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 249
B[7] = 249
C[7] = 249
D[7] = 249
ENDIF
IF S2=5 THEN
A[4] = 1
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 241
B[6] = 249
C[6] = 249
D[6] = 57
A[7] = 57
B[7] = 1
C[7] = 1
D[7] = 131
ENDIF
IF S2=6 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=7 THEN
A[4] = 1
B[4] = 1
C[4] = 249
D[4] = 241
A[5] = 241
B[5] = 231
C[5] = 199
D[5] = 207
A[6] = 207
B[6] = 207
C[6] = 207
D[6] = 207
A[7] = 207
B[7] = 207
C[7] = 207
D[7] = 207
ENDIF
IF S2=8 THEN
A[4] = 131
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 1
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=9 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 57
B[7] = 57
C[7] = 129
D[7] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 3 _____________________________________
IF S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[8] = 255
B[8] = 255
C[8] = 255
D[8] = 255
A[9] = 255
B[9] = 255
C[9] = 255
D[9] = 255
A[10] = 255
B[10] = 255
C[10] = 255
D[10] = 255
A[11] = 255
B[11] = 255
C[11] = 255
D[11] = 255
ELSE
IF S3=0 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 57
D[9] = 57
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=1 THEN
A[8] = 199
B[8] = 135
C[8] = 7
D[8] = 39
A[9] = 103
B[9] = 231
C[9] = 231
D[9] = 231
A[10] = 231
B[10] = 231
C[10] = 231
D[10] = 231
A[11] = 231
B[11] = 231
C[11] = 1
D[11] = 1
ENDIF
IF S3=2 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 249
C[9] = 249
D[9] = 249
A[10] = 241
B[10] = 227
C[10] = 199
D[10] = 143
A[11] = 159
B[11] = 63
C[11] = 1
D[11] = 1
ENDIF
IF S3=3 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 185
B[9] = 249
C[9] = 227
D[9] = 227
A[10] = 251
B[10] = 249
C[10] = 249
D[10] = 185
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=4 THEN
A[8] = 57
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 1
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 249
B[11] = 249
C[11] = 249
D[11] = 249
ENDIF
IF S3=5 THEN
A[8] = 1
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 241
B[10] = 249
C[10] = 249
D[10] = 57
A[11] = 57
B[11] = 1
C[11] = 1
D[11] = 131
ENDIF
IF S3=6 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=7 THEN
A[8] = 1
B[8] = 1
C[8] = 249
D[8] = 241
A[9] = 241
B[9] = 231
C[9] = 199
D[9] = 207
A[10] = 207
B[10] = 207
C[10] = 207
D[10] = 207
A[11] = 207
B[11] = 207
C[11] = 207
D[11] = 207
ENDIF
IF S3=8 THEN
A[8] = 131
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 1
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=9 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 57
B[11] = 57
C[11] = 129
D[11] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 4 _____________________________________
IF S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[12] = 255
B[12] = 255
C[12] = 255
D[12] = 255
A[13] = 255
B[13] = 255
C[13] = 255
D[13] = 255
A[14] = 255
B[14] = 255
C[14] = 255
D[14] = 255
A[15] = 255
B[15] = 255
C[15] = 255
D[15] = 255
ELSE
IF S4=0 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 57
D[13] = 57
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=1 THEN
A[12] = 199
B[12] = 135
C[12] = 7
D[12] = 39
A[13] = 103
B[13] = 231
C[13] = 231
D[13] = 231
A[14] = 231
B[14] = 231
C[14] = 231
D[14] = 231
A[15] = 231
B[15] = 231
C[15] = 1
D[15] = 1
ENDIF
IF S4=2 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 249
C[13] = 249
D[13] = 249
A[14] = 241
B[14] = 227
C[14] = 199
D[14] = 143
A[15] = 159
B[15] = 63
C[15] = 1
D[15] = 1
ENDIF
IF S4=3 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 185
B[13] = 249
C[13] = 227
D[13] = 227
A[14] = 251
B[14] = 249
C[14] = 249
D[14] = 185
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=4 THEN
A[12] = 57
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 1
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 249
B[15] = 249
C[15] = 249
D[15] = 249
ENDIF
IF S4=5 THEN
A[12] = 1
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 241
B[14] = 249
C[14] = 249
D[14] = 57
A[15] = 57
B[15] = 1
C[15] = 1
D[15] = 131
ENDIF
IF S4=6 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=7 THEN
A[12] = 1
B[12] = 1
C[12] = 249
D[12] = 241
A[13] = 241
B[13] = 231
C[13] = 199
D[13] = 207
A[14] = 207
B[14] = 207
C[14] = 207
D[14] = 207
A[15] = 207
B[15] = 207
C[15] = 207
D[15] = 207
ENDIF
IF S4=8 THEN
A[12] = 131
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 1
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=9 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 57
B[15] = 57
C[15] = 129
D[15] = 131
ENDIF
ENDIF

;___________________________ KARAKTER 5 _____________________________________
IF S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[16] = 255
B[16] = 255
C[16] = 255
D[16] = 255
A[17] = 255
B[17] = 255
C[17] = 255
D[17] = 255
A[18] = 255
B[18] = 255
C[18] = 255
D[18] = 255
A[19] = 255
B[19] = 255
C[19] = 255
D[19] = 255
ELSE
IF S5=0 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 57
D[17] = 57
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=1 THEN
A[16] = 199
B[16] = 135
C[16] = 7
D[16] = 39
A[17] = 103
B[17] = 231
C[17] = 231
D[17] = 231
A[18] = 231
B[18] = 231
C[18] = 231
D[18] = 231
A[19] = 231
B[19] = 231
C[19] = 1
D[19] = 1
ENDIF
IF S5=2 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 249
C[17] = 249
D[17] = 249
A[18] = 241
B[18] = 227
C[18] = 199
D[18] = 143
A[19] = 159
B[19] = 63
C[19] = 1
D[19] = 1
ENDIF
IF S5=3 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 185
B[17] = 249
C[17] = 227
D[17] = 227
A[18] = 251
B[18] = 249
C[18] = 249
D[18] = 185
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=4 THEN
A[16] = 57
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 1
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 249
B[19] = 249
C[19] = 249
D[19] = 249
ENDIF
IF S5=5 THEN
A[16] = 1
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 241
B[18] = 249
C[18] = 249
D[18] = 57
A[19] = 57
B[19] = 1
C[19] = 1
D[19] = 131
ENDIF
IF S5=6 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=7 THEN
A[16] = 1
B[16] = 1
C[16] = 249
D[16] = 241
A[17] = 241
B[17] = 231
C[17] = 199
D[17] = 207
A[18] = 207
B[18] = 207
C[18] = 207
D[18] = 207
A[19] = 207
B[19] = 207
C[19] = 207
D[19] = 207
ENDIF
IF S5=8 THEN
A[16] = 131
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 1
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=9 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 57
B[19] = 57
C[19] = 129
D[19] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 6 _____________________________________
IF S6=0 AND S7=0 AND S8=0 THEN
A[20] = 255
B[20] = 255
C[20] = 255
D[20] = 255
A[21] = 255
B[21] = 255
C[21] = 255
D[21] = 255
A[22] = 255
B[22] = 255
C[22] = 255
D[22] = 255
A[23] = 255
B[23] = 255
C[23] = 255
D[23] = 255
ELSE
IF S6=0 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 57
D[21] = 57
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=1 THEN
A[20] = 199
B[20] = 135
C[20] = 7
D[20] = 39
A[21] = 103
B[21] = 231
C[21] = 231
D[21] = 231
A[22] = 231
B[22] = 231
C[22] = 231
D[22] = 231
A[23] = 231
B[23] = 231
C[23] = 1
D[23] = 1
ENDIF
IF S6=2 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 249
C[21] = 249
D[21] = 249
A[22] = 241
B[22] = 227
C[22] = 199
D[22] = 143
A[23] = 159
B[23] = 63
C[23] = 1
D[23] = 1
ENDIF
IF S6=3 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 185
B[21] = 249
C[21] = 227
D[21] = 227
A[22] = 251
B[22] = 249
C[22] = 249
D[22] = 185
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=4 THEN
A[20] = 57
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 1
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 249
B[23] = 249
C[23] = 249
D[23] = 249
ENDIF
IF S6=5 THEN
A[20] = 1
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 241
B[22] = 249
C[22] = 249
D[22] = 57
A[23] = 57
B[23] = 1
C[23] = 1
D[23] = 131
ENDIF
IF S6=6 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=7 THEN
A[20] = 1
B[20] = 1
C[20] = 249
D[20] = 241
A[21] = 241
B[21] = 231
C[21] = 199
D[21] = 207
A[22] = 207
B[22] = 207
C[22] = 207
D[23] = 207
A[23] = 207
B[23] = 207
C[23] = 207
D[23] = 207
ENDIF
IF S6=8 THEN
A[20] = 131
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 1
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=9 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 57
B[23] = 57
C[23] = 129
D[23] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 7 _____________________________________
IF S7=0 THEN
A[24] = 255
B[24] = 255
C[24] = 255
D[24] = 255
A[25] = 255
B[25] = 255
C[25] = 255
D[25] = 255
A[26] = 255
B[26] = 255
C[26] = 255
D[26] = 255
A[27] = 255
B[27] = 255
C[27] = 255
D[27] = 255
ELSE
IF S7=1 THEN
A[24] = 199
B[24] = 135
C[24] = 7
D[24] = 39
A[25] = 103
B[25] = 231
C[25] = 231
D[25] = 231
A[26] = 231
B[26] = 231
C[26] = 231
D[26] = 231
A[27] = 231
B[27] = 231
C[27] = 1
D[27] = 1
ENDIF
IF S7=2 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 249
C[25] = 249
D[25] = 249
A[26] = 241
B[26] = 227
C[26] = 199
D[26] = 143
A[27] = 159
B[27] = 63
C[27] = 1
D[27] = 1
ENDIF
IF S7=3 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 185
B[25] = 249
C[25] = 227
D[25] = 227
A[26] = 251
B[26] = 249
C[26] = 249
D[26] = 185
A[27] = 57
B[27] = 57
C[27] = 1
D[27] = 131
ENDIF
IF S7=4 THEN
A[24] = 57
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 1
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 249
B[27] = 249
C[27] = 249
D[27] = 249
ENDIF
IF S7=5 THEN
A[24] = 1
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 241
B[26] = 249
C[26] = 249
D[26] = 57
A[27] = 57
B[27] = 1
C[27] = 1
D[27] = 131
ENDIF
IF S7=6 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 57
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=7 THEN
A[24] = 1
B[24] = 1
C[24] = 249
D[24] = 241
A[25] = 241
B[25] = 231
C[25] = 199
D[25] = 207
A[26] = 207
B[26] = 207
C[26] = 207
D[26] = 207
A[27] = 207
B[27] = 207
C[27] = 207
D[27] = 207
ENDIF
IF S7=8 THEN
A[24] = 131
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 1
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=9 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 57
B[27] = 57
C[27] = 129
D[27] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 8 _____________________________________
IF S8=0 THEN
A[28] = 255
B[28] = 255
C[28] = 255
D[28] = 255
A[29] = 255
B[29] = 255
C[29] = 255
D[29] = 255
A[30] = 255
B[30] = 255
C[30] = 255
D[30] = 255
A[31] = 255
B[31] = 255
C[31] = 255
D[31] = 255
ELSE
IF S8=1 THEN
A[28] = 199
B[28] = 135
C[28] = 7
D[28] = 39
A[29] = 103
B[29] = 231
C[29] = 231
D[29] = 231
A[30] = 231
B[30] = 231
C[30] = 231
D[30] = 231
A[31] = 231
B[31] = 231
C[31] = 1
D[31] = 1
ENDIF
IF S8=2 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 249
C[29] = 249
D[30] = 249
A[30] = 241
B[30] = 227
C[30] = 199
D[30] = 143
A[31] = 159
B[31] = 63
C[31] = 1
D[31] = 1
ENDIF
IF S8=3 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 185
B[29] = 249
C[29] = 227
D[29] = 227
A[30] = 251
B[30] = 249
C[30] = 249
D[30] = 185
A[31] = 57
B[31] = 57
C[31] = 1
D[31] = 131
ENDIF
IF S8=4 THEN
A[28] = 57
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 1
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 249
B[31] = 249
C[31] = 249
D[31] = 249
ENDIF
IF S8=5 THEN
A[28] = 1
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 241
B[30] = 249
C[30] = 249
D[30] = 57
A[31] = 57
B[31] = 1
C[31] = 1
D[31] = 131
ENDIF
IF S8=6 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 57
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=7 THEN
A[28] = 1
B[28] = 1
C[28] = 249
D[28] = 241
A[29] = 241
B[29] = 231
C[29] = 199
D[29] = 207
A[30] = 207
B[30] = 207
C[30] = 207
D[30] = 207
A[31] = 207
B[31] = 207
C[31] = 207
D[31] = 207
ENDIF
IF S8=8 THEN
A[28] = 131
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 1
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=9 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 57
B[31] = 57
C[31] = 129
D[31] = 131
ENDIF
ENDIF
RETURN


TARA:  
        for x = 31 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[A[x]]
        next X
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[B[x]]
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[C[x]]
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SHIFTOUT  dta,clk,1,[D[x]]
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
return
    
    


end

Donanımsal SPI kullanmayı denedim ama beceremedim.
kodlar aşağıdadır. Bu konuda yardımcı olabilir misiniz?
define OSC 64
asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON=%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3    
SSPSTAT=%11000000
SSPCON1 = %00100000
clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [32]
B var byte [32]
C var byte [32]
D var byte [32]

x var WORD
SAYI VAR LONG
S1 VAR BYTE
S2 VAR BYTE
S3 VAR BYTE
S4 VAR BYTE
S5 VAR BYTE
S6 VAR BYTE
S7 VAR BYTE
S8 VAR BYTE

FOR X=31 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X

SAYI=98563247

BASLA:
S1=SAYI DIG 0
S2=SAYI DIG 1
S3=SAYI DIG 2
S4=SAYI DIG 3
S5=SAYI DIG 4
S6=SAYI DIG 5
S7=SAYI DIG 6
S8=SAYI DIG 7
GOSUB RAKAM_AL
GOSUB TARA
TOGGLE PORTB.0
goto basla

RAKAM_AL:
;__________________ KARAKTER 1 ______________________________________________
IF S1=0 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 57
D[1] = 57
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=1 THEN
A[0] = 199
B[0] = 135
C[0] = 7
D[0] = 39
A[1] = 103
B[1] = 231
C[1] = 231
D[1] = 231
A[2] = 231
B[2] = 231
C[2] = 231
D[2] = 231
A[3] = 231
B[3] = 231
C[3] = 1
D[3] = 1
ENDIF
IF S1=2 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 249
C[1] = 249
D[1] = 249
A[2] = 241
B[2] = 227
C[2] = 199
D[2] = 143
A[3] = 159
B[3] = 63
C[3] = 1
D[3] = 1
ENDIF
IF S1=3 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 185
B[1] = 249
C[1] = 227
D[1] = 227
A[2] = 251
B[2] = 249
C[2] = 249
D[2] = 185
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=4 THEN
A[0] = 57
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 1
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 249
B[3] = 249
C[3] = 249
D[3] = 249
ENDIF
IF S1=5 THEN
A[0] = 1
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 241
B[2] = 249
C[2] = 249
D[2] = 57
A[3] = 57
B[3] = 1
C[3] = 1
D[3] = 131
ENDIF
IF S1=6 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=7 THEN
A[0] = 1
B[0] = 1
C[0] = 249
D[0] = 241
A[1] = 241
B[1] = 231
C[1] = 199
D[1] = 207
A[2] = 207
B[2] = 207
C[2] = 207
D[2] = 207
A[3] = 207
B[3] = 207
C[3] = 207
D[3] = 207
ENDIF
IF S1=8 THEN
A[0] = 131
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 1
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=9 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 57
B[3] = 57
C[3] = 129
D[3] = 131
ENDIF
;_____________________________ KARAKTER 2_____________________________________

IF S2=0 AND S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[4] = 255
B[4] = 255
C[4] = 255
D[4] = 255
A[5] = 255
B[5] = 255
C[5] = 255
D[5] = 255
A[6] = 255
B[6] = 255
C[6] = 255
D[6] = 255
A[7] = 255
B[7] = 255
C[7] = 255
D[7] = 255
ELSE
IF S2=0 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 57
D[5] = 57
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=1 THEN
A[4] = 199
B[4] = 135
C[4] = 7
D[4] = 39
A[5] = 103
B[5] = 231
C[5] = 231
D[5] = 231
A[6] = 231
B[6] = 231
C[6] = 231
D[6] = 231
A[7] = 231
B[7] = 231
C[7] = 1
D[7] = 1
ENDIF
IF S2=2 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 249
C[5] = 249
D[5] = 249
A[6] = 241
B[6] = 227
C[6] = 199
D[6] = 143
A[7] = 159
B[7] = 63
C[7] = 1
D[7] = 1
ENDIF
IF S2=3 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 185
B[5] = 249
C[5] = 227
D[5] = 227
A[6] = 251
B[6] = 249
C[6] = 249
D[6] = 185
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=4 THEN
A[4] = 57
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 1
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 249
B[7] = 249
C[7] = 249
D[7] = 249
ENDIF
IF S2=5 THEN
A[4] = 1
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 241
B[6] = 249
C[6] = 249
D[6] = 57
A[7] = 57
B[7] = 1
C[7] = 1
D[7] = 131
ENDIF
IF S2=6 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=7 THEN
A[4] = 1
B[4] = 1
C[4] = 249
D[4] = 241
A[5] = 241
B[5] = 231
C[5] = 199
D[5] = 207
A[6] = 207
B[6] = 207
C[6] = 207
D[6] = 207
A[7] = 207
B[7] = 207
C[7] = 207
D[7] = 207
ENDIF
IF S2=8 THEN
A[4] = 131
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 1
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=9 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 57
B[7] = 57
C[7] = 129
D[7] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 3 _____________________________________
IF S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[8] = 255
B[8] = 255
C[8] = 255
D[8] = 255
A[9] = 255
B[9] = 255
C[9] = 255
D[9] = 255
A[10] = 255
B[10] = 255
C[10] = 255
D[10] = 255
A[11] = 255
B[11] = 255
C[11] = 255
D[11] = 255
ELSE
IF S3=0 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 57
D[9] = 57
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=1 THEN
A[8] = 199
B[8] = 135
C[8] = 7
D[8] = 39
A[9] = 103
B[9] = 231
C[9] = 231
D[9] = 231
A[10] = 231
B[10] = 231
C[10] = 231
D[10] = 231
A[11] = 231
B[11] = 231
C[11] = 1
D[11] = 1
ENDIF
IF S3=2 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 249
C[9] = 249
D[9] = 249
A[10] = 241
B[10] = 227
C[10] = 199
D[10] = 143
A[11] = 159
B[11] = 63
C[11] = 1
D[11] = 1
ENDIF
IF S3=3 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 185
B[9] = 249
C[9] = 227
D[9] = 227
A[10] = 251
B[10] = 249
C[10] = 249
D[10] = 185
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=4 THEN
A[8] = 57
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 1
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 249
B[11] = 249
C[11] = 249
D[11] = 249
ENDIF
IF S3=5 THEN
A[8] = 1
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 241
B[10] = 249
C[10] = 249
D[10] = 57
A[11] = 57
B[11] = 1
C[11] = 1
D[11] = 131
ENDIF
IF S3=6 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=7 THEN
A[8] = 1
B[8] = 1
C[8] = 249
D[8] = 241
A[9] = 241
B[9] = 231
C[9] = 199
D[9] = 207
A[10] = 207
B[10] = 207
C[10] = 207
D[10] = 207
A[11] = 207
B[11] = 207
C[11] = 207
D[11] = 207
ENDIF
IF S3=8 THEN
A[8] = 131
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 1
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=9 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 57
B[11] = 57
C[11] = 129
D[11] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 4 _____________________________________
IF S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[12] = 255
B[12] = 255
C[12] = 255
D[12] = 255
A[13] = 255
B[13] = 255
C[13] = 255
D[13] = 255
A[14] = 255
B[14] = 255
C[14] = 255
D[14] = 255
A[15] = 255
B[15] = 255
C[15] = 255
D[15] = 255
ELSE
IF S4=0 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 57
D[13] = 57
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=1 THEN
A[12] = 199
B[12] = 135
C[12] = 7
D[12] = 39
A[13] = 103
B[13] = 231
C[13] = 231
D[13] = 231
A[14] = 231
B[14] = 231
C[14] = 231
D[14] = 231
A[15] = 231
B[15] = 231
C[15] = 1
D[15] = 1
ENDIF
IF S4=2 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 249
C[13] = 249
D[13] = 249
A[14] = 241
B[14] = 227
C[14] = 199
D[14] = 143
A[15] = 159
B[15] = 63
C[15] = 1
D[15] = 1
ENDIF
IF S4=3 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 185
B[13] = 249
C[13] = 227
D[13] = 227
A[14] = 251
B[14] = 249
C[14] = 249
D[14] = 185
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=4 THEN
A[12] = 57
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 1
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 249
B[15] = 249
C[15] = 249
D[15] = 249
ENDIF
IF S4=5 THEN
A[12] = 1
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 241
B[14] = 249
C[14] = 249
D[14] = 57
A[15] = 57
B[15] = 1
C[15] = 1
D[15] = 131
ENDIF
IF S4=6 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=7 THEN
A[12] = 1
B[12] = 1
C[12] = 249
D[12] = 241
A[13] = 241
B[13] = 231
C[13] = 199
D[13] = 207
A[14] = 207
B[14] = 207
C[14] = 207
D[14] = 207
A[15] = 207
B[15] = 207
C[15] = 207
D[15] = 207
ENDIF
IF S4=8 THEN
A[12] = 131
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 1
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=9 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 57
B[15] = 57
C[15] = 129
D[15] = 131
ENDIF
ENDIF

;___________________________ KARAKTER 5 _____________________________________
IF S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[16] = 255
B[16] = 255
C[16] = 255
D[16] = 255
A[17] = 255
B[17] = 255
C[17] = 255
D[17] = 255
A[18] = 255
B[18] = 255
C[18] = 255
D[18] = 255
A[19] = 255
B[19] = 255
C[19] = 255
D[19] = 255
ELSE
IF S5=0 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 57
D[17] = 57
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=1 THEN
A[16] = 199
B[16] = 135
C[16] = 7
D[16] = 39
A[17] = 103
B[17] = 231
C[17] = 231
D[17] = 231
A[18] = 231
B[18] = 231
C[18] = 231
D[18] = 231
A[19] = 231
B[19] = 231
C[19] = 1
D[19] = 1
ENDIF
IF S5=2 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 249
C[17] = 249
D[17] = 249
A[18] = 241
B[18] = 227
C[18] = 199
D[18] = 143
A[19] = 159
B[19] = 63
C[19] = 1
D[19] = 1
ENDIF
IF S5=3 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 185
B[17] = 249
C[17] = 227
D[17] = 227
A[18] = 251
B[18] = 249
C[18] = 249
D[18] = 185
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=4 THEN
A[16] = 57
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 1
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 249
B[19] = 249
C[19] = 249
D[19] = 249
ENDIF
IF S5=5 THEN
A[16] = 1
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 241
B[18] = 249
C[18] = 249
D[18] = 57
A[19] = 57
B[19] = 1
C[19] = 1
D[19] = 131
ENDIF
IF S5=6 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=7 THEN
A[16] = 1
B[16] = 1
C[16] = 249
D[16] = 241
A[17] = 241
B[17] = 231
C[17] = 199
D[17] = 207
A[18] = 207
B[18] = 207
C[18] = 207
D[18] = 207
A[19] = 207
B[19] = 207
C[19] = 207
D[19] = 207
ENDIF
IF S5=8 THEN
A[16] = 131
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 1
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=9 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 57
B[19] = 57
C[19] = 129
D[19] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 6 _____________________________________
IF S6=0 AND S7=0 AND S8=0 THEN
A[20] = 255
B[20] = 255
C[20] = 255
D[20] = 255
A[21] = 255
B[21] = 255
C[21] = 255
D[21] = 255
A[22] = 255
B[22] = 255
C[22] = 255
D[22] = 255
A[23] = 255
B[23] = 255
C[23] = 255
D[23] = 255
ELSE
IF S6=0 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 57
D[21] = 57
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=1 THEN
A[20] = 199
B[20] = 135
C[20] = 7
D[20] = 39
A[21] = 103
B[21] = 231
C[21] = 231
D[21] = 231
A[22] = 231
B[22] = 231
C[22] = 231
D[22] = 231
A[23] = 231
B[23] = 231
C[23] = 1
D[23] = 1
ENDIF
IF S6=2 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 249
C[21] = 249
D[21] = 249
A[22] = 241
B[22] = 227
C[22] = 199
D[22] = 143
A[23] = 159
B[23] = 63
C[23] = 1
D[23] = 1
ENDIF
IF S6=3 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 185
B[21] = 249
C[21] = 227
D[21] = 227
A[22] = 251
B[22] = 249
C[22] = 249
D[22] = 185
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=4 THEN
A[20] = 57
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 1
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 249
B[23] = 249
C[23] = 249
D[23] = 249
ENDIF
IF S6=5 THEN
A[20] = 1
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 241
B[22] = 249
C[22] = 249
D[22] = 57
A[23] = 57
B[23] = 1
C[23] = 1
D[23] = 131
ENDIF
IF S6=6 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=7 THEN
A[20] = 1
B[20] = 1
C[20] = 249
D[20] = 241
A[21] = 241
B[21] = 231
C[21] = 199
D[21] = 207
A[22] = 207
B[22] = 207
C[22] = 207
D[23] = 207
A[23] = 207
B[23] = 207
C[23] = 207
D[23] = 207
ENDIF
IF S6=8 THEN
A[20] = 131
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 1
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=9 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 57
B[23] = 57
C[23] = 129
D[23] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 7 _____________________________________
IF S7=0 THEN
A[24] = 255
B[24] = 255
C[24] = 255
D[24] = 255
A[25] = 255
B[25] = 255
C[25] = 255
D[25] = 255
A[26] = 255
B[26] = 255
C[26] = 255
D[26] = 255
A[27] = 255
B[27] = 255
C[27] = 255
D[27] = 255
ELSE
IF S7=1 THEN
A[24] = 199
B[24] = 135
C[24] = 7
D[24] = 39
A[25] = 103
B[25] = 231
C[25] = 231
D[25] = 231
A[26] = 231
B[26] = 231
C[26] = 231
D[26] = 231
A[27] = 231
B[27] = 231
C[27] = 1
D[27] = 1
ENDIF
IF S7=2 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 249
C[25] = 249
D[25] = 249
A[26] = 241
B[26] = 227
C[26] = 199
D[26] = 143
A[27] = 159
B[27] = 63
C[27] = 1
D[27] = 1
ENDIF
IF S7=3 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 185
B[25] = 249
C[25] = 227
D[25] = 227
A[26] = 251
B[26] = 249
C[26] = 249
D[26] = 185
A[27] = 57
B[27] = 57
C[27] = 1
D[27] = 131
ENDIF
IF S7=4 THEN
A[24] = 57
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 1
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 249
B[27] = 249
C[27] = 249
D[27] = 249
ENDIF
IF S7=5 THEN
A[24] = 1
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 241
B[26] = 249
C[26] = 249
D[26] = 57
A[27] = 57
B[27] = 1
C[27] = 1
D[27] = 131
ENDIF
IF S7=6 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 57
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=7 THEN
A[24] = 1
B[24] = 1
C[24] = 249
D[24] = 241
A[25] = 241
B[25] = 231
C[25] = 199
D[25] = 207
A[26] = 207
B[26] = 207
C[26] = 207
D[26] = 207
A[27] = 207
B[27] = 207
C[27] = 207
D[27] = 207
ENDIF
IF S7=8 THEN
A[24] = 131
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 1
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=9 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 57
B[27] = 57
C[27] = 129
D[27] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 8 _____________________________________
IF S8=0 THEN
A[28] = 255
B[28] = 255
C[28] = 255
D[28] = 255
A[29] = 255
B[29] = 255
C[29] = 255
D[29] = 255
A[30] = 255
B[30] = 255
C[30] = 255
D[30] = 255
A[31] = 255
B[31] = 255
C[31] = 255
D[31] = 255
ELSE
IF S8=1 THEN
A[28] = 199
B[28] = 135
C[28] = 7
D[28] = 39
A[29] = 103
B[29] = 231
C[29] = 231
D[29] = 231
A[30] = 231
B[30] = 231
C[30] = 231
D[30] = 231
A[31] = 231
B[31] = 231
C[31] = 1
D[31] = 1
ENDIF
IF S8=2 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 249
C[29] = 249
D[30] = 249
A[30] = 241
B[30] = 227
C[30] = 199
D[30] = 143
A[31] = 159
B[31] = 63
C[31] = 1
D[31] = 1
ENDIF
IF S8=3 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 185
B[29] = 249
C[29] = 227
D[29] = 227
A[30] = 251
B[30] = 249
C[30] = 249
D[30] = 185
A[31] = 57
B[31] = 57
C[31] = 1
D[31] = 131
ENDIF
IF S8=4 THEN
A[28] = 57
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 1
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 249
B[31] = 249
C[31] = 249
D[31] = 249
ENDIF
IF S8=5 THEN
A[28] = 1
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 241
B[30] = 249
C[30] = 249
D[30] = 57
A[31] = 57
B[31] = 1
C[31] = 1
D[31] = 131
ENDIF
IF S8=6 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 57
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=7 THEN
A[28] = 1
B[28] = 1
C[28] = 249
D[28] = 241
A[29] = 241
B[29] = 231
C[29] = 199
D[29] = 207
A[30] = 207
B[30] = 207
C[30] = 207
D[30] = 207
A[31] = 207
B[31] = 207
C[31] = 207
D[31] = 207
ENDIF
IF S8=8 THEN
A[28] = 131
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 1
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=9 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 57
B[31] = 57
C[31] = 129
D[31] = 131
ENDIF
ENDIF
RETURN


TARA:  
        FOR X=31 TO 0 STEP -1
        SSPBUF=A[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        NEXT X
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SSPBUF=B[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2 
        
        for x = 31 to 0 Step - 1
        SSPBUF=D[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SSPBUF=D[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
return
end
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

aRci

#54
04 Nisan 2021, 14:55:14
Merhaba
formda yaptığım aramalarda ete beyin paylaştığı SPI haberleşme ile ilgili örneğe göre proteusda deneme yaptım denemede rc3 ve rc5 pinlerinden veri çıkışı alabiliyorum osiloskop ile gözlemledim.

kodda sadece yazım hatası olarak  için 7 bit ayar yuklemişsiniz ama sekiz olmalı :) alttaki kodu yuklermisiniz.

SSPSTAT =%11000000
SSPCON1 =%00100000

gogoce

#55
04 Nisan 2021, 17:12:52
Alıntı yapılan: aRci - 04 Nisan 2021, 14:55:14Merhaba
formda yaptığım aramalarda ete beyin paylaştığı SPI haberleşme ile ilgili örneğe göre proteusda deneme yaptım denemede rc3 ve rc5 pinlerinden veri çıkışı alabiliyorum osiloskop ile gözlemledim.

kodda sadece yazım hatası olarak  için 7 bit ayar yuklemişsiniz ama sekiz olmalı :) alttaki kodu yuklermisiniz.

SSPSTAT =%11000000
SSPCON1 =%00100000
olmadı neredeyse bütün ledler karmaşık şekilde yanıp sönüyor :(
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

gogoce

#56
04 Nisan 2021, 17:19:51
SSPCON1: registerinin ilk 3 biti gönderim hızını ayarlıyormuş. Ben 64mhz de çalıştırdığım için sistemi sanırım panel bu hıza yetişemedi.  fosc/16 yada fosc/64 seçeneğini seçtiğimde çalıştı. 
bit 3-0 SSPM<3:0>: Synchronous Serial Port Mode Select bits(3)
0101 = SPI Slave mode, clock = SCK pin, SS pin control disabled, SS can be used as I/O pin 
0100 = SPI Slave mode, clock = SCK pin, SS pin control enabled
0011 = SPI Master mode, clock = TMR2 output/2 
0010 = SPI Master mode, clock = FOSC/64 
0001 = SPI Master mode, clock = FOSC/16 
0000 = SPI Master mode, clock = FOSC/4
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

aRci

#57
04 Nisan 2021, 17:39:29
Merhaba
ilk olarak hatamı düzelteyim gogoce sizin paylaştığınız yazım şeklini gece yanlış aktamışım sizin yazım şekli doğru özür dilerim.

Alttaki kodu 18F46K20 ile simulasyonda denedim ve çalıştığını gördüm(Osiloskop ile). Sonra programı 16f877 için değiştirdim ve uyguladım çalışıyor. videode ise aralarındaki farkı göstermeye çalıştım.

tek uygulama ile her 2 yöntemi kullanıyor. ve geçişler belli oluyor. videoda titreme yanıltmasın.Normal görünüşü tamamen titremesiz. sadece SPI a geçtiğinde parlaklığı biraz artıyor.

aralarında geçişlerde fark ettiğim sayac SPI da daha hızlı yukseliyor. bu da haberleşme hızından kaynaklı olduğunu var sayabiliriz.

SPI ile i2c nin bugüne kadar aynı olduğunu sanırdım fark gerçekten fazla. Elimde olan bir deneme kartı nı yıllar sonra aradım buldum ve onun ile kendi programımı SPI pinlerini kullanarak çalıştırmayı denedim ve ekranda donma problemi kayboldu hiç yokmuşcasına :)

ama mevcut kartımı ne yazık kullanamayacağım için de canım sıkıldı. artık bi daki sefere.


asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
define OSC 64
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON =%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3 
   
SSPSTAT =%11000000
SSPCON1 =%00100000


clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [32]
B var byte [32]
C var byte [32]
D var byte [32]

x var WORD
SAYI VAR byte
S1 VAR BYTE
S2 VAR BYTE
S3 VAR BYTE
S4 VAR BYTE
S5 VAR BYTE
S6 VAR BYTE
S7 VAR BYTE
S8 VAR BYTE

FOR X=31 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X

SAYI=9999

BASLA:
S1=SAYI DIG 0
S2=SAYI DIG 1
S3=SAYI DIG 2
S4=SAYI DIG 3
S5=SAYI DIG 4
S6=SAYI DIG 5
S7=SAYI DIG 6
S8=SAYI DIG 7
GOSUB RAKAM_AL
GOSUB TARA
TOGGLE PORTB.0
goto basla

RAKAM_AL:
;__________________ KARAKTER 1 ______________________________________________
IF S1=0 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 57
D[1] = 57
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=1 THEN
A[0] = 199
B[0] = 135
C[0] = 7
D[0] = 39
A[1] = 103
B[1] = 231
C[1] = 231
D[1] = 231
A[2] = 231
B[2] = 231
C[2] = 231
D[2] = 231
A[3] = 231
B[3] = 231
C[3] = 1
D[3] = 1
ENDIF
IF S1=2 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 249
C[1] = 249
D[1] = 249
A[2] = 241
B[2] = 227
C[2] = 199
D[2] = 143
A[3] = 159
B[3] = 63
C[3] = 1
D[3] = 1
ENDIF
IF S1=3 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 185
B[1] = 249
C[1] = 227
D[1] = 227
A[2] = 251
B[2] = 249
C[2] = 249
D[2] = 185
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=4 THEN
A[0] = 57
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 1
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 249
B[3] = 249
C[3] = 249
D[3] = 249
ENDIF
IF S1=5 THEN
A[0] = 1
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 241
B[2] = 249
C[2] = 249
D[2] = 57
A[3] = 57
B[3] = 1
C[3] = 1
D[3] = 131
ENDIF
IF S1=6 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=7 THEN
A[0] = 1
B[0] = 1
C[0] = 249
D[0] = 241
A[1] = 241
B[1] = 231
C[1] = 199
D[1] = 207
A[2] = 207
B[2] = 207
C[2] = 207
D[2] = 207
A[3] = 207
B[3] = 207
C[3] = 207
D[3] = 207
ENDIF
IF S1=8 THEN
A[0] = 131
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 1
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=9 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 57
B[3] = 57
C[3] = 129
D[3] = 131
ENDIF
;_____________________________ KARAKTER 2_____________________________________

IF S2=0 AND S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[4] = 255
B[4] = 255
C[4] = 255
D[4] = 255
A[5] = 255
B[5] = 255
C[5] = 255
D[5] = 255
A[6] = 255
B[6] = 255
C[6] = 255
D[6] = 255
A[7] = 255
B[7] = 255
C[7] = 255
D[7] = 255
ELSE
IF S2=0 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 57
D[5] = 57
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=1 THEN
A[4] = 199
B[4] = 135
C[4] = 7
D[4] = 39
A[5] = 103
B[5] = 231
C[5] = 231
D[5] = 231
A[6] = 231
B[6] = 231
C[6] = 231
D[6] = 231
A[7] = 231
B[7] = 231
C[7] = 1
D[7] = 1
ENDIF
IF S2=2 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 249
C[5] = 249
D[5] = 249
A[6] = 241
B[6] = 227
C[6] = 199
D[6] = 143
A[7] = 159
B[7] = 63
C[7] = 1
D[7] = 1
ENDIF
IF S2=3 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 185
B[5] = 249
C[5] = 227
D[5] = 227
A[6] = 251
B[6] = 249
C[6] = 249
D[6] = 185
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=4 THEN
A[4] = 57
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 1
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 249
B[7] = 249
C[7] = 249
D[7] = 249
ENDIF
IF S2=5 THEN
A[4] = 1
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 241
B[6] = 249
C[6] = 249
D[6] = 57
A[7] = 57
B[7] = 1
C[7] = 1
D[7] = 131
ENDIF
IF S2=6 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=7 THEN
A[4] = 1
B[4] = 1
C[4] = 249
D[4] = 241
A[5] = 241
B[5] = 231
C[5] = 199
D[5] = 207
A[6] = 207
B[6] = 207
C[6] = 207
D[6] = 207
A[7] = 207
B[7] = 207
C[7] = 207
D[7] = 207
ENDIF
IF S2=8 THEN
A[4] = 131
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 1
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=9 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 57
B[7] = 57
C[7] = 129
D[7] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 3 _____________________________________
IF S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[8] = 255
B[8] = 255
C[8] = 255
D[8] = 255
A[9] = 255
B[9] = 255
C[9] = 255
D[9] = 255
A[10] = 255
B[10] = 255
C[10] = 255
D[10] = 255
A[11] = 255
B[11] = 255
C[11] = 255
D[11] = 255
ELSE
IF S3=0 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 57
D[9] = 57
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=1 THEN
A[8] = 199
B[8] = 135
C[8] = 7
D[8] = 39
A[9] = 103
B[9] = 231
C[9] = 231
D[9] = 231
A[10] = 231
B[10] = 231
C[10] = 231
D[10] = 231
A[11] = 231
B[11] = 231
C[11] = 1
D[11] = 1
ENDIF
IF S3=2 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 249
C[9] = 249
D[9] = 249
A[10] = 241
B[10] = 227
C[10] = 199
D[10] = 143
A[11] = 159
B[11] = 63
C[11] = 1
D[11] = 1
ENDIF
IF S3=3 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 185
B[9] = 249
C[9] = 227
D[9] = 227
A[10] = 251
B[10] = 249
C[10] = 249
D[10] = 185
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=4 THEN
A[8] = 57
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 1
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 249
B[11] = 249
C[11] = 249
D[11] = 249
ENDIF
IF S3=5 THEN
A[8] = 1
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 241
B[10] = 249
C[10] = 249
D[10] = 57
A[11] = 57
B[11] = 1
C[11] = 1
D[11] = 131
ENDIF
IF S3=6 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=7 THEN
A[8] = 1
B[8] = 1
C[8] = 249
D[8] = 241
A[9] = 241
B[9] = 231
C[9] = 199
D[9] = 207
A[10] = 207
B[10] = 207
C[10] = 207
D[10] = 207
A[11] = 207
B[11] = 207
C[11] = 207
D[11] = 207
ENDIF
IF S3=8 THEN
A[8] = 131
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 1
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=9 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 57
B[11] = 57
C[11] = 129
D[11] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 4 _____________________________________
IF S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[12] = 255
B[12] = 255
C[12] = 255
D[12] = 255
A[13] = 255
B[13] = 255
C[13] = 255
D[13] = 255
A[14] = 255
B[14] = 255
C[14] = 255
D[14] = 255
A[15] = 255
B[15] = 255
C[15] = 255
D[15] = 255
ELSE
IF S4=0 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 57
D[13] = 57
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=1 THEN
A[12] = 199
B[12] = 135
C[12] = 7
D[12] = 39
A[13] = 103
B[13] = 231
C[13] = 231
D[13] = 231
A[14] = 231
B[14] = 231
C[14] = 231
D[14] = 231
A[15] = 231
B[15] = 231
C[15] = 1
D[15] = 1
ENDIF
IF S4=2 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 249
C[13] = 249
D[13] = 249
A[14] = 241
B[14] = 227
C[14] = 199
D[14] = 143
A[15] = 159
B[15] = 63
C[15] = 1
D[15] = 1
ENDIF
IF S4=3 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 185
B[13] = 249
C[13] = 227
D[13] = 227
A[14] = 251
B[14] = 249
C[14] = 249
D[14] = 185
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=4 THEN
A[12] = 57
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 1
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 249
B[15] = 249
C[15] = 249
D[15] = 249
ENDIF
IF S4=5 THEN
A[12] = 1
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 241
B[14] = 249
C[14] = 249
D[14] = 57
A[15] = 57
B[15] = 1
C[15] = 1
D[15] = 131
ENDIF
IF S4=6 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=7 THEN
A[12] = 1
B[12] = 1
C[12] = 249
D[12] = 241
A[13] = 241
B[13] = 231
C[13] = 199
D[13] = 207
A[14] = 207
B[14] = 207
C[14] = 207
D[14] = 207
A[15] = 207
B[15] = 207
C[15] = 207
D[15] = 207
ENDIF
IF S4=8 THEN
A[12] = 131
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 1
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=9 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 57
B[15] = 57
C[15] = 129
D[15] = 131
ENDIF
ENDIF

;___________________________ KARAKTER 5 _____________________________________
IF S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[16] = 255
B[16] = 255
C[16] = 255
D[16] = 255
A[17] = 255
B[17] = 255
C[17] = 255
D[17] = 255
A[18] = 255
B[18] = 255
C[18] = 255
D[18] = 255
A[19] = 255
B[19] = 255
C[19] = 255
D[19] = 255
ELSE
IF S5=0 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 57
D[17] = 57
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=1 THEN
A[16] = 199
B[16] = 135
C[16] = 7
D[16] = 39
A[17] = 103
B[17] = 231
C[17] = 231
D[17] = 231
A[18] = 231
B[18] = 231
C[18] = 231
D[18] = 231
A[19] = 231
B[19] = 231
C[19] = 1
D[19] = 1
ENDIF
IF S5=2 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 249
C[17] = 249
D[17] = 249
A[18] = 241
B[18] = 227
C[18] = 199
D[18] = 143
A[19] = 159
B[19] = 63
C[19] = 1
D[19] = 1
ENDIF
IF S5=3 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 185
B[17] = 249
C[17] = 227
D[17] = 227
A[18] = 251
B[18] = 249
C[18] = 249
D[18] = 185
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=4 THEN
A[16] = 57
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 1
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 249
B[19] = 249
C[19] = 249
D[19] = 249
ENDIF
IF S5=5 THEN
A[16] = 1
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 241
B[18] = 249
C[18] = 249
D[18] = 57
A[19] = 57
B[19] = 1
C[19] = 1
D[19] = 131
ENDIF
IF S5=6 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=7 THEN
A[16] = 1
B[16] = 1
C[16] = 249
D[16] = 241
A[17] = 241
B[17] = 231
C[17] = 199
D[17] = 207
A[18] = 207
B[18] = 207
C[18] = 207
D[18] = 207
A[19] = 207
B[19] = 207
C[19] = 207
D[19] = 207
ENDIF
IF S5=8 THEN
A[16] = 131
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 1
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=9 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 57
B[19] = 57
C[19] = 129
D[19] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 6 _____________________________________
IF S6=0 AND S7=0 AND S8=0 THEN
A[20] = 255
B[20] = 255
C[20] = 255
D[20] = 255
A[21] = 255
B[21] = 255
C[21] = 255
D[21] = 255
A[22] = 255
B[22] = 255
C[22] = 255
D[22] = 255
A[23] = 255
B[23] = 255
C[23] = 255
D[23] = 255
ELSE
IF S6=0 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 57
D[21] = 57
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=1 THEN
A[20] = 199
B[20] = 135
C[20] = 7
D[20] = 39
A[21] = 103
B[21] = 231
C[21] = 231
D[21] = 231
A[22] = 231
B[22] = 231
C[22] = 231
D[22] = 231
A[23] = 231
B[23] = 231
C[23] = 1
D[23] = 1
ENDIF
IF S6=2 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 249
C[21] = 249
D[21] = 249
A[22] = 241
B[22] = 227
C[22] = 199
D[22] = 143
A[23] = 159
B[23] = 63
C[23] = 1
D[23] = 1
ENDIF
IF S6=3 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 185
B[21] = 249
C[21] = 227
D[21] = 227
A[22] = 251
B[22] = 249
C[22] = 249
D[22] = 185
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=4 THEN
A[20] = 57
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 1
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 249
B[23] = 249
C[23] = 249
D[23] = 249
ENDIF
IF S6=5 THEN
A[20] = 1
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 241
B[22] = 249
C[22] = 249
D[22] = 57
A[23] = 57
B[23] = 1
C[23] = 1
D[23] = 131
ENDIF
IF S6=6 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=7 THEN
A[20] = 1
B[20] = 1
C[20] = 249
D[20] = 241
A[21] = 241
B[21] = 231
C[21] = 199
D[21] = 207
A[22] = 207
B[22] = 207
C[22] = 207
D[23] = 207
A[23] = 207
B[23] = 207
C[23] = 207
D[23] = 207
ENDIF
IF S6=8 THEN
A[20] = 131
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 1
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=9 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 57
B[23] = 57
C[23] = 129
D[23] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 7 _____________________________________
IF S7=0 THEN
A[24] = 255
B[24] = 255
C[24] = 255
D[24] = 255
A[25] = 255
B[25] = 255
C[25] = 255
D[25] = 255
A[26] = 255
B[26] = 255
C[26] = 255
D[26] = 255
A[27] = 255
B[27] = 255
C[27] = 255
D[27] = 255
ELSE
IF S7=1 THEN
A[24] = 199
B[24] = 135
C[24] = 7
D[24] = 39
A[25] = 103
B[25] = 231
C[25] = 231
D[25] = 231
A[26] = 231
B[26] = 231
C[26] = 231
D[26] = 231
A[27] = 231
B[27] = 231
C[27] = 1
D[27] = 1
ENDIF
IF S7=2 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 249
C[25] = 249
D[25] = 249
A[26] = 241
B[26] = 227
C[26] = 199
D[26] = 143
A[27] = 159
B[27] = 63
C[27] = 1
D[27] = 1
ENDIF
IF S7=3 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 185
B[25] = 249
C[25] = 227
D[25] = 227
A[26] = 251
B[26] = 249
C[26] = 249
D[26] = 185
A[27] = 57
B[27] = 57
C[27] = 1
D[27] = 131
ENDIF
IF S7=4 THEN
A[24] = 57
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 1
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 249
B[27] = 249
C[27] = 249
D[27] = 249
ENDIF
IF S7=5 THEN
A[24] = 1
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 241
B[26] = 249
C[26] = 249
D[26] = 57
A[27] = 57
B[27] = 1
C[27] = 1
D[27] = 131
ENDIF
IF S7=6 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 57
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=7 THEN
A[24] = 1
B[24] = 1
C[24] = 249
D[24] = 241
A[25] = 241
B[25] = 231
C[25] = 199
D[25] = 207
A[26] = 207
B[26] = 207
C[26] = 207
D[26] = 207
A[27] = 207
B[27] = 207
C[27] = 207
D[27] = 207
ENDIF
IF S7=8 THEN
A[24] = 131
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 1
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=9 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 57
B[27] = 57
C[27] = 129
D[27] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 8 _____________________________________
IF S8=0 THEN
A[28] = 255
B[28] = 255
C[28] = 255
D[28] = 255
A[29] = 255
B[29] = 255
C[29] = 255
D[29] = 255
A[30] = 255
B[30] = 255
C[30] = 255
D[30] = 255
A[31] = 255
B[31] = 255
C[31] = 255
D[31] = 255
ELSE
IF S8=1 THEN
A[28] = 199
B[28] = 135
C[28] = 7
D[28] = 39
A[29] = 103
B[29] = 231
C[29] = 231
D[29] = 231
A[30] = 231
B[30] = 231
C[30] = 231
D[30] = 231
A[31] = 231
B[31] = 231
C[31] = 1
D[31] = 1
ENDIF
IF S8=2 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 249
C[29] = 249
D[30] = 249
A[30] = 241
B[30] = 227
C[30] = 199
D[30] = 143
A[31] = 159
B[31] = 63
C[31] = 1
D[31] = 1
ENDIF
IF S8=3 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 185
B[29] = 249
C[29] = 227
D[29] = 227
A[30] = 251
B[30] = 249
C[30] = 249
D[30] = 185
A[31] = 57
B[31] = 57
C[31] = 1
D[31] = 131
ENDIF
IF S8=4 THEN
A[28] = 57
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 1
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 249
B[31] = 249
C[31] = 249
D[31] = 249
ENDIF
IF S8=5 THEN
A[28] = 1
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 241
B[30] = 249
C[30] = 249
D[30] = 57
A[31] = 57
B[31] = 1
C[31] = 1
D[31] = 131
ENDIF
IF S8=6 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 57
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=7 THEN
A[28] = 1
B[28] = 1
C[28] = 249
D[28] = 241
A[29] = 241
B[29] = 231
C[29] = 199
D[29] = 207
A[30] = 207
B[30] = 207
C[30] = 207
D[30] = 207
A[31] = 207
B[31] = 207
C[31] = 207
D[31] = 207
ENDIF
IF S8=8 THEN
A[28] = 131
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 1
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=9 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 57
B[31] = 57
C[31] = 129
D[31] = 131
ENDIF
ENDIF
RETURN


TARA:  
        FOR X=31 TO 0 STEP -1
        
        SSPBUF=A[X]:PIR1.3=0
        WHILE PIR1.3=0
        WEND
        NEXT X 
        high portc.0
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SSPBUF=B[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2 
        
        for x = 31 to 0 Step - 1
        SSPBUF=D[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SSPBUF=D[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
return
end
 

gogoce

#58
04 Nisan 2021, 17:51:27
Alıntı yapılan: aRci - 04 Nisan 2021, 17:39:29Merhaba
ilk olarak hatamı düzelteyim gogoce sizin paylaştığınız yazım şeklini gece yanlış aktamışım sizin yazım şekli doğru özür dilerim.

Alttaki kodu 18F46K20 ile simulasyonda denedim ve çalıştığını gördüm(Osiloskop ile). Sonra programı 16f877 için değiştirdim ve uyguladım çalışıyor. videode ise aralarındaki farkı göstermeye çalıştım.

tek uygulama ile her 2 yöntemi kullanıyor. ve geçişler belli oluyor. videoda titreme yanıltmasın.Normal görünüşü tamamen titremesiz. sadece SPI a geçtiğinde parlaklığı biraz artıyor.

aralarında geçişlerde fark ettiğim sayac SPI da daha hızlı yukseliyor. bu da haberleşme hızından kaynaklı olduğunu var sayabiliriz.

SPI ile i2c nin bugüne kadar aynı olduğunu sanırdım fark gerçekten fazla. Elimde olan bir deneme kartı nı yıllar sonra aradım buldum ve onun ile kendi programımı SPI pinlerini kullanarak çalıştırmayı denedim ve ekranda donma problemi kayboldu hiç yokmuşcasına :)

ama mevcut kartımı ne yazık kullanamayacağım için de canım sıkıldı. artık bi daki sefere.


asm
 __CONFIG    _CONFIG1H, _FOSC_HSPLL_1H & _FCMEN_OFF_1H & _IESO_ON_1H
 __CONFIG    _CONFIG2L, _PWRT_OFF_2L & _BOREN_OFF_2L 
 __CONFIG    _CONFIG2H, _WDTEN_OFF_2H 
 __CONFIG    _CONFIG3H, _MCLRE_ON_3H & _HFOFST_ON_3H & _LPT1OSC_OFF_3H & _PBADEN_OFF_3H & _CCP2MX_PORTC_3H 
 __CONFIG    _CONFIG4L, _STVREN_OFF_4L & _LVP_OFF_4L & _XINST_OFF_4L & _DEBUG_OFF_4L 
 __CONFIG    _CONFIG5L, _CP0_ON_5L & _CP1_ON_5L & _CP2_ON_5L & _CP3_ON_5L
 __CONFIG    _CONFIG5H, _CPB_ON_5H & _CPD_ON_5H 
 __CONFIG    _CONFIG6L, _WRT0_ON_6L & _WRT1_ON_6L & _WRT2_ON_6L & _WRT3_ON_6L
 __CONFIG    _CONFIG6H, _WRTB_ON_6H & _WRTC_ON_6H & _WRTD_ON_6H  
 __CONFIG    _CONFIG7L, _EBTR0_ON_7L & _EBTR1_ON_7L & _EBTR2_ON_7L & _EBTR3_ON_7L 
 __CONFIG    _CONFIG7H, _EBTRB_ON_7H
endasm
define OSC 64
TRISA = %00000000
TRISB = %00000000
TRISC = %00000000
TRISD = %00000000
TRISE.0=0
TRISE.1=0
TRISE.2=0
TRISE.3=0
OSCCON =%01110000 
OSCTUNE=%01000000
P10_A VAR PORTD.1  
P10_B VAR PORTB.2 
CLK VAR PORTC.3
DTA VAR PORTC.5
LATCH VAR PORTD.2
OE VAR PORTD.3 
   
SSPSTAT =%11000000
SSPCON1 =%00100000


clear
pause 250
porta=0
portb=0
portc=0
portd=0
porte=0

A var byte [32]
B var byte [32]
C var byte [32]
D var byte [32]

x var WORD
SAYI VAR byte
S1 VAR BYTE
S2 VAR BYTE
S3 VAR BYTE
S4 VAR BYTE
S5 VAR BYTE
S6 VAR BYTE
S7 VAR BYTE
S8 VAR BYTE

FOR X=31 TO 0 STEP -1
A[X]=255
B[X]=255
c[X]=255
d[X]=255
NEXT X

SAYI=9999

BASLA:
S1=SAYI DIG 0
S2=SAYI DIG 1
S3=SAYI DIG 2
S4=SAYI DIG 3
S5=SAYI DIG 4
S6=SAYI DIG 5
S7=SAYI DIG 6
S8=SAYI DIG 7
GOSUB RAKAM_AL
GOSUB TARA
TOGGLE PORTB.0
goto basla

RAKAM_AL:
;__________________ KARAKTER 1 ______________________________________________
IF S1=0 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 57
D[1] = 57
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=1 THEN
A[0] = 199
B[0] = 135
C[0] = 7
D[0] = 39
A[1] = 103
B[1] = 231
C[1] = 231
D[1] = 231
A[2] = 231
B[2] = 231
C[2] = 231
D[2] = 231
A[3] = 231
B[3] = 231
C[3] = 1
D[3] = 1
ENDIF
IF S1=2 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 249
C[1] = 249
D[1] = 249
A[2] = 241
B[2] = 227
C[2] = 199
D[2] = 143
A[3] = 159
B[3] = 63
C[3] = 1
D[3] = 1
ENDIF
IF S1=3 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 185
B[1] = 249
C[1] = 227
D[1] = 227
A[2] = 251
B[2] = 249
C[2] = 249
D[2] = 185
A[3] = 57
B[3] = 57
C[3] = 1
D[3] = 131
ENDIF
IF S1=4 THEN
A[0] = 57
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 1
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 249
B[3] = 249
C[3] = 249
D[3] = 249
ENDIF
IF S1=5 THEN
A[0] = 1
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 241
B[2] = 249
C[2] = 249
D[2] = 57
A[3] = 57
B[3] = 1
C[3] = 1
D[3] = 131
ENDIF
IF S1=6 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 63
A[1] = 63
B[1] = 63
C[1] = 1
D[1] = 1
A[2] = 57
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=7 THEN
A[0] = 1
B[0] = 1
C[0] = 249
D[0] = 241
A[1] = 241
B[1] = 231
C[1] = 199
D[1] = 207
A[2] = 207
B[2] = 207
C[2] = 207
D[2] = 207
A[3] = 207
B[3] = 207
C[3] = 207
D[3] = 207
ENDIF
IF S1=8 THEN
A[0] = 131
B[0] = 57
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 1
B[2] = 57
C[2] = 57
D[2] = 57
A[3] = 57
B[3] = 57
C[3] = 57
D[3] = 131
ENDIF
IF S1=9 THEN
A[0] = 131
B[0] = 1
C[0] = 57
D[0] = 57
A[1] = 57
B[1] = 57
C[1] = 1
D[1] = 131
A[2] = 249
B[2] = 249
C[2] = 249
D[2] = 249
A[3] = 57
B[3] = 57
C[3] = 129
D[3] = 131
ENDIF
;_____________________________ KARAKTER 2_____________________________________

IF S2=0 AND S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[4] = 255
B[4] = 255
C[4] = 255
D[4] = 255
A[5] = 255
B[5] = 255
C[5] = 255
D[5] = 255
A[6] = 255
B[6] = 255
C[6] = 255
D[6] = 255
A[7] = 255
B[7] = 255
C[7] = 255
D[7] = 255
ELSE
IF S2=0 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 57
D[5] = 57
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=1 THEN
A[4] = 199
B[4] = 135
C[4] = 7
D[4] = 39
A[5] = 103
B[5] = 231
C[5] = 231
D[5] = 231
A[6] = 231
B[6] = 231
C[6] = 231
D[6] = 231
A[7] = 231
B[7] = 231
C[7] = 1
D[7] = 1
ENDIF
IF S2=2 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 249
C[5] = 249
D[5] = 249
A[6] = 241
B[6] = 227
C[6] = 199
D[6] = 143
A[7] = 159
B[7] = 63
C[7] = 1
D[7] = 1
ENDIF
IF S2=3 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 185
B[5] = 249
C[5] = 227
D[5] = 227
A[6] = 251
B[6] = 249
C[6] = 249
D[6] = 185
A[7] = 57
B[7] = 57
C[7] = 1
D[7] = 131
ENDIF
IF S2=4 THEN
A[4] = 57
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 1
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 249
B[7] = 249
C[7] = 249
D[7] = 249
ENDIF
IF S2=5 THEN
A[4] = 1
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 241
B[6] = 249
C[6] = 249
D[6] = 57
A[7] = 57
B[7] = 1
C[7] = 1
D[7] = 131
ENDIF
IF S2=6 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 63
A[5] = 63
B[5] = 63
C[5] = 1
D[5] = 1
A[6] = 57
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=7 THEN
A[4] = 1
B[4] = 1
C[4] = 249
D[4] = 241
A[5] = 241
B[5] = 231
C[5] = 199
D[5] = 207
A[6] = 207
B[6] = 207
C[6] = 207
D[6] = 207
A[7] = 207
B[7] = 207
C[7] = 207
D[7] = 207
ENDIF
IF S2=8 THEN
A[4] = 131
B[4] = 57
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 1
B[6] = 57
C[6] = 57
D[6] = 57
A[7] = 57
B[7] = 57
C[7] = 57
D[7] = 131
ENDIF
IF S2=9 THEN
A[4] = 131
B[4] = 1
C[4] = 57
D[4] = 57
A[5] = 57
B[5] = 57
C[5] = 1
D[5] = 131
A[6] = 249
B[6] = 249
C[6] = 249
D[6] = 249
A[7] = 57
B[7] = 57
C[7] = 129
D[7] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 3 _____________________________________
IF S3=0 AND S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[8] = 255
B[8] = 255
C[8] = 255
D[8] = 255
A[9] = 255
B[9] = 255
C[9] = 255
D[9] = 255
A[10] = 255
B[10] = 255
C[10] = 255
D[10] = 255
A[11] = 255
B[11] = 255
C[11] = 255
D[11] = 255
ELSE
IF S3=0 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 57
D[9] = 57
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=1 THEN
A[8] = 199
B[8] = 135
C[8] = 7
D[8] = 39
A[9] = 103
B[9] = 231
C[9] = 231
D[9] = 231
A[10] = 231
B[10] = 231
C[10] = 231
D[10] = 231
A[11] = 231
B[11] = 231
C[11] = 1
D[11] = 1
ENDIF
IF S3=2 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 249
C[9] = 249
D[9] = 249
A[10] = 241
B[10] = 227
C[10] = 199
D[10] = 143
A[11] = 159
B[11] = 63
C[11] = 1
D[11] = 1
ENDIF
IF S3=3 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 185
B[9] = 249
C[9] = 227
D[9] = 227
A[10] = 251
B[10] = 249
C[10] = 249
D[10] = 185
A[11] = 57
B[11] = 57
C[11] = 1
D[11] = 131
ENDIF
IF S3=4 THEN
A[8] = 57
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 1
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 249
B[11] = 249
C[11] = 249
D[11] = 249
ENDIF
IF S3=5 THEN
A[8] = 1
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 241
B[10] = 249
C[10] = 249
D[10] = 57
A[11] = 57
B[11] = 1
C[11] = 1
D[11] = 131
ENDIF
IF S3=6 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 63
A[9] = 63
B[9] = 63
C[9] = 1
D[9] = 1
A[10] = 57
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=7 THEN
A[8] = 1
B[8] = 1
C[8] = 249
D[8] = 241
A[9] = 241
B[9] = 231
C[9] = 199
D[9] = 207
A[10] = 207
B[10] = 207
C[10] = 207
D[10] = 207
A[11] = 207
B[11] = 207
C[11] = 207
D[11] = 207
ENDIF
IF S3=8 THEN
A[8] = 131
B[8] = 57
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 1
B[10] = 57
C[10] = 57
D[10] = 57
A[11] = 57
B[11] = 57
C[11] = 57
D[11] = 131
ENDIF
IF S3=9 THEN
A[8] = 131
B[8] = 1
C[8] = 57
D[8] = 57
A[9] = 57
B[9] = 57
C[9] = 1
D[9] = 131
A[10] = 249
B[10] = 249
C[10] = 249
D[10] = 249
A[11] = 57
B[11] = 57
C[11] = 129
D[11] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 4 _____________________________________
IF S4=0 AND S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[12] = 255
B[12] = 255
C[12] = 255
D[12] = 255
A[13] = 255
B[13] = 255
C[13] = 255
D[13] = 255
A[14] = 255
B[14] = 255
C[14] = 255
D[14] = 255
A[15] = 255
B[15] = 255
C[15] = 255
D[15] = 255
ELSE
IF S4=0 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 57
D[13] = 57
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=1 THEN
A[12] = 199
B[12] = 135
C[12] = 7
D[12] = 39
A[13] = 103
B[13] = 231
C[13] = 231
D[13] = 231
A[14] = 231
B[14] = 231
C[14] = 231
D[14] = 231
A[15] = 231
B[15] = 231
C[15] = 1
D[15] = 1
ENDIF
IF S4=2 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 249
C[13] = 249
D[13] = 249
A[14] = 241
B[14] = 227
C[14] = 199
D[14] = 143
A[15] = 159
B[15] = 63
C[15] = 1
D[15] = 1
ENDIF
IF S4=3 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 185
B[13] = 249
C[13] = 227
D[13] = 227
A[14] = 251
B[14] = 249
C[14] = 249
D[14] = 185
A[15] = 57
B[15] = 57
C[15] = 1
D[15] = 131
ENDIF
IF S4=4 THEN
A[12] = 57
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 1
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 249
B[15] = 249
C[15] = 249
D[15] = 249
ENDIF
IF S4=5 THEN
A[12] = 1
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 241
B[14] = 249
C[14] = 249
D[14] = 57
A[15] = 57
B[15] = 1
C[15] = 1
D[15] = 131
ENDIF
IF S4=6 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 63
A[13] = 63
B[13] = 63
C[13] = 1
D[13] = 1
A[14] = 57
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=7 THEN
A[12] = 1
B[12] = 1
C[12] = 249
D[12] = 241
A[13] = 241
B[13] = 231
C[13] = 199
D[13] = 207
A[14] = 207
B[14] = 207
C[14] = 207
D[14] = 207
A[15] = 207
B[15] = 207
C[15] = 207
D[15] = 207
ENDIF
IF S4=8 THEN
A[12] = 131
B[12] = 57
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 1
B[14] = 57
C[14] = 57
D[14] = 57
A[15] = 57
B[15] = 57
C[15] = 57
D[15] = 131
ENDIF
IF S4=9 THEN
A[12] = 131
B[12] = 1
C[12] = 57
D[12] = 57
A[13] = 57
B[13] = 57
C[13] = 1
D[13] = 131
A[14] = 249
B[14] = 249
C[14] = 249
D[14] = 249
A[15] = 57
B[15] = 57
C[15] = 129
D[15] = 131
ENDIF
ENDIF

;___________________________ KARAKTER 5 _____________________________________
IF S5=0 AND S6=0 AND S7=0 AND S8=0 THEN
A[16] = 255
B[16] = 255
C[16] = 255
D[16] = 255
A[17] = 255
B[17] = 255
C[17] = 255
D[17] = 255
A[18] = 255
B[18] = 255
C[18] = 255
D[18] = 255
A[19] = 255
B[19] = 255
C[19] = 255
D[19] = 255
ELSE
IF S5=0 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 57
D[17] = 57
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=1 THEN
A[16] = 199
B[16] = 135
C[16] = 7
D[16] = 39
A[17] = 103
B[17] = 231
C[17] = 231
D[17] = 231
A[18] = 231
B[18] = 231
C[18] = 231
D[18] = 231
A[19] = 231
B[19] = 231
C[19] = 1
D[19] = 1
ENDIF
IF S5=2 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 249
C[17] = 249
D[17] = 249
A[18] = 241
B[18] = 227
C[18] = 199
D[18] = 143
A[19] = 159
B[19] = 63
C[19] = 1
D[19] = 1
ENDIF
IF S5=3 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 185
B[17] = 249
C[17] = 227
D[17] = 227
A[18] = 251
B[18] = 249
C[18] = 249
D[18] = 185
A[19] = 57
B[19] = 57
C[19] = 1
D[19] = 131
ENDIF
IF S5=4 THEN
A[16] = 57
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 1
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 249
B[19] = 249
C[19] = 249
D[19] = 249
ENDIF
IF S5=5 THEN
A[16] = 1
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 241
B[18] = 249
C[18] = 249
D[18] = 57
A[19] = 57
B[19] = 1
C[19] = 1
D[19] = 131
ENDIF
IF S5=6 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 63
A[17] = 63
B[17] = 63
C[17] = 1
D[17] = 1
A[18] = 57
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=7 THEN
A[16] = 1
B[16] = 1
C[16] = 249
D[16] = 241
A[17] = 241
B[17] = 231
C[17] = 199
D[17] = 207
A[18] = 207
B[18] = 207
C[18] = 207
D[18] = 207
A[19] = 207
B[19] = 207
C[19] = 207
D[19] = 207
ENDIF
IF S5=8 THEN
A[16] = 131
B[16] = 57
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 1
B[18] = 57
C[18] = 57
D[18] = 57
A[19] = 57
B[19] = 57
C[19] = 57
D[19] = 131
ENDIF
IF S5=9 THEN
A[16] = 131
B[16] = 1
C[16] = 57
D[16] = 57
A[17] = 57
B[17] = 57
C[17] = 1
D[17] = 131
A[18] = 249
B[18] = 249
C[18] = 249
D[18] = 249
A[19] = 57
B[19] = 57
C[19] = 129
D[19] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 6 _____________________________________
IF S6=0 AND S7=0 AND S8=0 THEN
A[20] = 255
B[20] = 255
C[20] = 255
D[20] = 255
A[21] = 255
B[21] = 255
C[21] = 255
D[21] = 255
A[22] = 255
B[22] = 255
C[22] = 255
D[22] = 255
A[23] = 255
B[23] = 255
C[23] = 255
D[23] = 255
ELSE
IF S6=0 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 57
D[21] = 57
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=1 THEN
A[20] = 199
B[20] = 135
C[20] = 7
D[20] = 39
A[21] = 103
B[21] = 231
C[21] = 231
D[21] = 231
A[22] = 231
B[22] = 231
C[22] = 231
D[22] = 231
A[23] = 231
B[23] = 231
C[23] = 1
D[23] = 1
ENDIF
IF S6=2 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 249
C[21] = 249
D[21] = 249
A[22] = 241
B[22] = 227
C[22] = 199
D[22] = 143
A[23] = 159
B[23] = 63
C[23] = 1
D[23] = 1
ENDIF
IF S6=3 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 185
B[21] = 249
C[21] = 227
D[21] = 227
A[22] = 251
B[22] = 249
C[22] = 249
D[22] = 185
A[23] = 57
B[23] = 57
C[23] = 1
D[23] = 131
ENDIF
IF S6=4 THEN
A[20] = 57
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 1
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 249
B[23] = 249
C[23] = 249
D[23] = 249
ENDIF
IF S6=5 THEN
A[20] = 1
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 241
B[22] = 249
C[22] = 249
D[22] = 57
A[23] = 57
B[23] = 1
C[23] = 1
D[23] = 131
ENDIF
IF S6=6 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 63
A[21] = 63
B[21] = 63
C[21] = 1
D[21] = 1
A[22] = 57
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=7 THEN
A[20] = 1
B[20] = 1
C[20] = 249
D[20] = 241
A[21] = 241
B[21] = 231
C[21] = 199
D[21] = 207
A[22] = 207
B[22] = 207
C[22] = 207
D[23] = 207
A[23] = 207
B[23] = 207
C[23] = 207
D[23] = 207
ENDIF
IF S6=8 THEN
A[20] = 131
B[20] = 57
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 1
B[22] = 57
C[22] = 57
D[22] = 57
A[23] = 57
B[23] = 57
C[23] = 57
D[23] = 131
ENDIF
IF S6=9 THEN
A[20] = 131
B[20] = 1
C[20] = 57
D[20] = 57
A[21] = 57
B[21] = 57
C[21] = 1
D[21] = 131
A[22] = 249
B[22] = 249
C[22] = 249
D[22] = 249
A[23] = 57
B[23] = 57
C[23] = 129
D[23] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 7 _____________________________________
IF S7=0 THEN
A[24] = 255
B[24] = 255
C[24] = 255
D[24] = 255
A[25] = 255
B[25] = 255
C[25] = 255
D[25] = 255
A[26] = 255
B[26] = 255
C[26] = 255
D[26] = 255
A[27] = 255
B[27] = 255
C[27] = 255
D[27] = 255
ELSE
IF S7=1 THEN
A[24] = 199
B[24] = 135
C[24] = 7
D[24] = 39
A[25] = 103
B[25] = 231
C[25] = 231
D[25] = 231
A[26] = 231
B[26] = 231
C[26] = 231
D[26] = 231
A[27] = 231
B[27] = 231
C[27] = 1
D[27] = 1
ENDIF
IF S7=2 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 249
C[25] = 249
D[25] = 249
A[26] = 241
B[26] = 227
C[26] = 199
D[26] = 143
A[27] = 159
B[27] = 63
C[27] = 1
D[27] = 1
ENDIF
IF S7=3 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 185
B[25] = 249
C[25] = 227
D[25] = 227
A[26] = 251
B[26] = 249
C[26] = 249
D[26] = 185
A[27] = 57
B[27] = 57
C[27] = 1
D[27] = 131
ENDIF
IF S7=4 THEN
A[24] = 57
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 1
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 249
B[27] = 249
C[27] = 249
D[27] = 249
ENDIF
IF S7=5 THEN
A[24] = 1
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 241
B[26] = 249
C[26] = 249
D[26] = 57
A[27] = 57
B[27] = 1
C[27] = 1
D[27] = 131
ENDIF
IF S7=6 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 63
A[25] = 63
B[25] = 63
C[25] = 1
D[25] = 1
A[26] = 57
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=7 THEN
A[24] = 1
B[24] = 1
C[24] = 249
D[24] = 241
A[25] = 241
B[25] = 231
C[25] = 199
D[25] = 207
A[26] = 207
B[26] = 207
C[26] = 207
D[26] = 207
A[27] = 207
B[27] = 207
C[27] = 207
D[27] = 207
ENDIF
IF S7=8 THEN
A[24] = 131
B[24] = 57
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 1
B[26] = 57
C[26] = 57
D[26] = 57
A[27] = 57
B[27] = 57
C[27] = 57
D[27] = 131
ENDIF
IF S7=9 THEN
A[24] = 131
B[24] = 1
C[24] = 57
D[24] = 57
A[25] = 57
B[25] = 57
C[25] = 1
D[25] = 131
A[26] = 249
B[26] = 249
C[26] = 249
D[26] = 249
A[27] = 57
B[27] = 57
C[27] = 129
D[27] = 131
ENDIF
ENDIF
;___________________________ KARAKTER 8 _____________________________________
IF S8=0 THEN
A[28] = 255
B[28] = 255
C[28] = 255
D[28] = 255
A[29] = 255
B[29] = 255
C[29] = 255
D[29] = 255
A[30] = 255
B[30] = 255
C[30] = 255
D[30] = 255
A[31] = 255
B[31] = 255
C[31] = 255
D[31] = 255
ELSE
IF S8=1 THEN
A[28] = 199
B[28] = 135
C[28] = 7
D[28] = 39
A[29] = 103
B[29] = 231
C[29] = 231
D[29] = 231
A[30] = 231
B[30] = 231
C[30] = 231
D[30] = 231
A[31] = 231
B[31] = 231
C[31] = 1
D[31] = 1
ENDIF
IF S8=2 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 249
C[29] = 249
D[30] = 249
A[30] = 241
B[30] = 227
C[30] = 199
D[30] = 143
A[31] = 159
B[31] = 63
C[31] = 1
D[31] = 1
ENDIF
IF S8=3 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 185
B[29] = 249
C[29] = 227
D[29] = 227
A[30] = 251
B[30] = 249
C[30] = 249
D[30] = 185
A[31] = 57
B[31] = 57
C[31] = 1
D[31] = 131
ENDIF
IF S8=4 THEN
A[28] = 57
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 1
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 249
B[31] = 249
C[31] = 249
D[31] = 249
ENDIF
IF S8=5 THEN
A[28] = 1
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 241
B[30] = 249
C[30] = 249
D[30] = 57
A[31] = 57
B[31] = 1
C[31] = 1
D[31] = 131
ENDIF
IF S8=6 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 63
A[29] = 63
B[29] = 63
C[29] = 1
D[29] = 1
A[30] = 57
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=7 THEN
A[28] = 1
B[28] = 1
C[28] = 249
D[28] = 241
A[29] = 241
B[29] = 231
C[29] = 199
D[29] = 207
A[30] = 207
B[30] = 207
C[30] = 207
D[30] = 207
A[31] = 207
B[31] = 207
C[31] = 207
D[31] = 207
ENDIF
IF S8=8 THEN
A[28] = 131
B[28] = 57
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 1
B[30] = 57
C[30] = 57
D[30] = 57
A[31] = 57
B[31] = 57
C[31] = 57
D[31] = 131
ENDIF
IF S8=9 THEN
A[28] = 131
B[28] = 1
C[28] = 57
D[28] = 57
A[29] = 57
B[29] = 57
C[29] = 1
D[29] = 131
A[30] = 249
B[30] = 249
C[30] = 249
D[30] = 249
A[31] = 57
B[31] = 57
C[31] = 129
D[31] = 131
ENDIF
ENDIF
RETURN


TARA:  
        FOR X=31 TO 0 STEP -1
        
        SSPBUF=A[X]:PIR1.3=0
        WHILE PIR1.3=0
        WEND
        NEXT X 
        high portc.0
        p10_a=0:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SSPBUF=B[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=1:p10_b=0
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2 
        
        for x = 31 to 0 Step - 1
        SSPBUF=D[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=0:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
        
        for x = 31 to 0 Step - 1
        SSPBUF=D[X]:PIR1.3=0
        WHILE PIR1.3=0:WEND
        next X
        p10_a=1:p10_b=1
        LATCH=1:LATCH=0:OE=0
        OE=1
        Pause 2
return
end
 


Ben testler için pcb yaptıracağım. 2-3-4-5 panel eklemeyi düşünüyorum zamanım varken biraz kurcalayayım sistemi. Çözdükçe insanın birşeyler daha ekleyesi geliyor.

Şimdi rs232 ile karakter (şimdilik rakam) gönderip ekrana yazmayı deneyeceğim
Ne ukalayı affederim nede yapılan haksızlığı ...
Ya sus adam sansınlar , yada adam gibi kouş ilham alsınlar

aRci

#59
04 Nisan 2021, 18:43:35
Ama ipin ucunu kaçırmayın dikkat edin sırf bu huyum yüzünden bir karta karar vermem 2 ay sürüyor. dikkat edin :)

Yanlış anlamayın benim tavsiyem rs232 ye ek olarak harici olarakda heberleşme modülü düşünmeniz yönünde olaracak. haberleşeme rs232 de dahil hepsi amacı aynı o sebeple kendinizi sınırlamamak gerek. Benim en çok tercih ettiğim ESp8266, buna ek olarak bluetooth da eklenebilir. grupta bir prohe görmüştüm bir pc programı idi local ağda birden çok panele yazılacak metni gönderen bir program idi konuyu hatırlamıyorum ama arayıp bulabilirsiniz program ne kadar hoş da olsa gerekli açık kodlar olmadığı için deneme yapamadım.

ama fikir olarak güzel bir metot proda panllere yazı göndermek harıcınde panele kapat panel saati güncelle vs özellikler vardı.

ben 16f ile deneme yapıyorum sanırım en fazla 4 panel sürebileceğimi düşünüyorum 18f4550 de var ancak onunla test yapmıyorum benim için 877 yeterli. kullandığınız denetleyici yi temin edersem onun ile çalışma yapacağım.

bir şey daha LONG değişkeni bende hata veriyor derlerken Bende picbasic kullanıyorum bunun için bir ayarmı var?
Yazdır
Yukarı git Sayfa 1 2 3 4 5 6
Kullanıcı Eylemleri
Powered by EzPortal
▲