ADC0838 Picbasic ile kullanma

[oki]

Merhaba,
ADC0838 i picbasic kodları ile kullanmak istiyorum ama sorunlar çıktı. CS,DI/DO,CLK (3 wire) ile kontrol ediyorum kod aşağıda ama LCD de devamlı 0 yazıyor. 16F876 kullandım çünkü internal ADC ile ADC0838 çevirme hatalarını kontrol etmek istemiştim Yardım Lütfen

Acaba nerede hata yapıyorum.


       include "modedefs.bas"
@   device xt_osc
@   device wdt_off
@   device wrt_off
@   device pwrt_off
@   device protect_off
@   device bod_off


Define  LCD_DREG        PORTB
Define  LCD_DBIT        4
Define  LCD_RSREG       PORTB
Define  LCD_RSBIT       0
Define  LCD_EREG        PORTB
Define  LCD_EBIT        1
Define  LCD_LINES       1
Define  LCD_BITS        4
'
Define  ADC_BITS 8
Define  ADC_CLOCK 3
Define  ADC_SAMPLEUS 50  
Define  Shift_Pauseus 50  
'
ch1     var byte
ch2     var byte
addr    var byte
cs      var portc.2
clk     var portc.1
dio     var portc.0

   porta=0
   portb=0
   portc=0
   adcon1=0
   trisa=$ff
   trisb=0
   trisc=0
   
   

start:
   lcdout $fe,1,"Basla:"
   pause 500
   addr=0

loop:    
   adcin 0,ch1
'
   low cs
     Shiftout dio, clk, MSBFIRST, [1\1,addr\3,0\1]    
     Shiftin dio, clk, MSBPRE, [ch2]          
     high cs
'
   lcdout $fe,1,"INT:",dec3 ch1,"    ADC0838:",dec3 ch2        
   pause 300
   goto loop

[showtime]

dostum 876'da ADC yok maalesef  
saygılar

[Prof.EleCTroN]

dostum 876'da ADC yok maalesef  
saygılar

:shock:  :shock:  :shock:  :shock:  :shock:  :shock:  :shock:  PIC16F876'da ADC var.

[showtime]

dostum 876'da ADC yok maalesef  
saygılar

:shock:  :shock:  :shock:  :shock:  :shock:  :shock:  :shock:  PIC16F876'da ADC var.

hataya bak.  :lol:  :lol:  :lol:  :lol: doğru valla. başta oki den herkesten özür