protonda adc+glcd sorunu

Başlatan mustafa_cmbz, 31 Ocak 2009, 18:10:17

mustafa_cmbz

arkadaşlar protonda glcd ile ilgili çalışmalarımı geliştirmek istiyorum aynı zamanda adc kullanarak pottan okuduğum ham veriyi ekrana yazdırmak istiyorum ama gel gelelim programın başına "ADCON1 = %10000000 " koyduğum zaman glcd de ilk açılışta yapılan simulasyon ekranın 3 yerinde çıkıyor aynı çekilde adc okuma ya geçtiğinde de ekranda gözüken değerde aynı şekilde ekranın 2-3 yerinde çıkıyor...bu sorunu nasıl aşabilirim_?

yazmaya çalıştığım kod:

Include "PROTON_G4.INT" ' Use a 4MHz XTAL

Device 16F877
TRISA = %00000001         ' Configure AN0 (PORTA.0) as an input 
  ADCON1 = %10000000 
 Declare ADIN_RES 10       ' 10-bit result required 
 Declare ADIN_TAD FRC      ' RC OSC chosen 
 Declare ADIN_STIME 50     ' Allow 50us sample time
               
 Dim VAR1 As Word 
 
 VAR1 = ADIn 0             ' Place the conversion into variable VAR1 
 
 Dim XPOS As Byte 

 BASLA:
 Cls 
 DelayMS 500
 Print At 1,1,
 Print At 2,4,"loading..."
 Print At 7,7,"mustafa"                                ' Clear the LCD 
 For XPOS = 30 To 90                  ' Create a loop of 128 
 LCDWrite 5, XPOS, [%1100111]       ' Write to the LCD's top line 
 DelayMS 90 
 Next
  
GoTo adc_yaz

adc_yaz:

GoSub adc_oku
Cls
 
DelayMS 200
Print "VAR1= " , Dec VAR1
GoTo   adc_yaz

adc_oku:

  VAR1 = ADIn 0      ' Place the conversion into variable VAR1
  DelayMS 200 
 Return

End
Include "FONT.INC" ' Add the LCD's Font

Maxim

ADCON1 = %10000010 yazıver ,
PORTE çıkışı ekran için kullanılıyor ,

birde ,
Declare GLCD_CS_INVERT On
eklemen gerekebilir ..

mustafa_cmbz

ben help inde yazılan porta yı aktif eder cümlesinden yola çıkarak hiç üstüne gitmedim en sonunda canıma tak dedi bende programdaki configlerden etkileniyor düşüncesiyle onu sil bunu sil buldum...aslında porte ninde analog pinleri olduğunu unutmuşum :D çok teşekkürler hocam ...iyi çalışmalar...

edit:

Declare GLCD_CS_INVERT On 'yi de ekledim bu da sorun çıkartıyor...ama realde ne yapar bilemiyorum...sorun çözüldü...kolay gelsin...