pbp 2.5 ile pic10f204 programlamak

[outlaw57]

Device = 10F204    
Config INTRC_OSC,WDT_OFF,MCLRE_OFF,CP_OFF
XTAL = 4
ALL_DIGITAL = TRUE
TRISIO = %00000001
GPIO = 0

Dim saniye As Word  
Dim x As Word

Symbol LDR=GPIO.0
Symbol CAK=GPIO.1
Output CAK

loop:
   While LDR=1 'Aydınlık ise 5s sonra yanma
       If LDR=0 Then loop
       
       saniye=5
       GoSub bekle    'DelayMS 5000

       CAK=1
   Wend

   saniye=5
   GoSub bekle    'Karanlık ise 5s bekle
   
   If LDR=0 Then CAK=0
   GoTo loop

bekle:
   For x=1 To saniye
       DelayMS 1000
   Next
Return
   
End

[OG]

Bende normal çalışıyor.

http://rapidshare.com/files/179611210/10f.rar

[outlaw57]

arkadaslar,

tamam simdi calıstı, nedendir bilmiyorum ama bas dosyasını yukledim adım adım baktım ardıdndan hexi yukleyince calıstı.

Herkese teşekkürler.

birde ayrıca birsey sorabilirmiyim.

Bu pic i programlayamıyorum. OSCCAL value invalid diyor.
onu nasıl düzeltebilirim...

[tyildizak]

Benzer bir konu (12f serisi için) şu başlıklarda geçiyor:
https://www.picproje.org/index.php/topic,7682&highlight=osccal

https://www.picproje.org/index.php/topic,19829&highlight=osccal

10f serisinde de yapı aynıdır sanırım, denemek lazım.

[outlaw57]

teşekkür ederim herkese.
Sorunu cözdüm, yani erase yapmadıgım baska bir pic vardı onu kullandım.

bu arada kod ile ilgili birşey sormak istiyorum.

yazdıgım kod fotoselin anahtarlamasıyla baska bir pici devreye alıyor.

bu koda göre anahtarlama 0-10 sn arası sürüyor ancak ben bu süreyi sabit 5 sn yapmak için ne yapmalıyım.( gece oldu>5 sn bekle>akımı kes>>gündüz oldu>5sn bekle>akımı ver)

yardımlarınız için simdiden teşekkürler.