16f819 bir türlü çalıştıramadım ?

[hackorsan]

Device = 16F819
OSCCON      = $60  '%01110000 '8 MHz OSC '$60  '%01100000 '4 MHz OSC
XTAL = 4

TRISB = 0 ;portb çıkış

basla:
PORTB = 0
DelayMS 500
PORTB = 255
DelayMS 500

GoTo basla
End

Merhaba
daha önce 16f819 için onlarca kod yazdım fakat adc okuma ile ilgili yazdığım kodda 2 haftadır çakıldım kaldım yazdığım program simulasyonda çalışıyor (16f88 kullanarak sim de çalıştı) dışarıda çalışmıyor.
Programlayıcı olarak K149 , JDM ve USB GTP lite kullandım yine olmadı programlama esnasında hata vermiyor.

En sonunda yukarıdaki basit kodu yazdım fakat bu da dışarıda çalışmıyor.
Daha önce böyle bir problemle karşılaşan oldumu ?

[tyildizak]

Osccon registeriyle zaten hız tanımlıyorsunuz, tekrardan xtal = 4 diye belirtmeye gerek yok, zaten bu (xtal=4) tanımlaması 16f819 ile iş görmez.
Bu karışıklık yaratıyordur belki.

[hackorsan]

xtali kaldırdırıpta denedim sonuç aynı

programlama esnasında config ayarlarından dahili osc seçiyorum

[OG]

ADC çalışması için 16F88 ile farklılık var, bu sebeple 16F88 ile doğru simule edemezsiniz, gercek devrede denemek gerekir.  Mesela 16F819 da ANSEL yok. ADCON1 ayarlarını doğru yapmak gerekir. Şu yapı ile bir deneyin (pbp için),

@ device pic16F819 
@ device pic16F819, INTRC_OSC_NOCLKOUT 
@ device pic16F819, PWRT_ON 
@ device pic16F819, PROTECT_OFF
@ device pic16F819, wdt_off 
@ device pic16F819, MCLR_OFF
@ device pic16F819, lvp_off
DEFINE OSC 8 
DEFINE ADC_BITS 8 
DEFINE ADC_CLOCK 3 
DEFINE ADC_SAMPLEUS 50 
ADCON1=7         
OSCTUNE=0

OPTION_REG=%10001111
INTCON=0


TRISA=%11111111
TRISB=0

PORTB=0

DEGER VAR BYTE

'''''' 
.
.
.

adcin 0 ,deger
.
.

[hackorsan]

yardımlarınız için teşekkür ederim
fakat şu anki problem adc değil

yukarıdaki çok basit kodun dahi çalışmaması

bir çok yeni pic denedim ama yine olmadı ve bu ilk kez başıma geldi 2 haftadır araştırmadığım yer kalmadı

[ahmet2004]

Bu kod çalışıyor...

Device = 16F819

Config XT_OSC , WDT_OFF , PWRTE_ON , BODEN_OFF , LVP_OFF , CP_OFF

XTAL 4
ALL_DIGITAL true

OSCCON      = $60  '%01110000 '8 MHz OSC '$60  '%01100000 '4 MHz OSC

TRISB = 0 ;portb çıkış

basla:
   PORTB = 0
   DelayMS 500
   PORTB = 255
   DelayMS 500
   GoTo basla
   
   End