led animasyon deresi

[maxel]

s.a arkadaşlar ekteki  devreyi yapmış bulunmaktayım daha önce yaptığım da saat gibi çalışıyordu ama şimdi nedense çalışmıyor pice 5 volt geliyor devreye enerji verirken parmağımla picin boşta olan bacaklarına dokunduğum zaman en başta ki led yanıp sönüyor ne yapmak lazım acaba


http://s3.dosya.tc/server12/OOcChZ/8KanlaledAnimasyondevresi.rar.html

[sadogan]

Pic basic den anlama ama pic konfigürasyon u göremedim.
Pic in fuse leri var osc tipi reset durumu vs belirleniyor.
onların tanımları görünmüyor.

[maxel]

Pic basic den anlama ama pic konfigürasyon u göremedim.
Pic in fuse leri var osc tipi reset durumu vs belirleniyor.
onların tanımları görünmüyor.

nasıl yani anlıyamadım ? 

[sadogan]

#CONFIG
__config _XT_OSC & _WDT_ON & _LVP_OFF & _CP_OFF & _MCLRE_OFF

#ENDCONFIG
Buna benzer bir config tanımlaması gerekiyor.

[maxel]

#CONFIG
__config _XT_OSC & _WDT_ON & _LVP_OFF & _CP_OFF & _MCLRE_OFF

#ENDCONFIG
Buna benzer bir config tanımlaması gerekiyor.

eee nasıl yapacaz peki ?

[ipek]

16F628A'ya göre yeniden derledim

'****************************************************************
'*  Name    : HPWM2.BAS                                         *
'*  Author  : [AYKUT YILMAZ]                                    *
'****************************************************************
@ Device PIC16F628A,WDT_OFF,PWRT_ON,PROTECT_OFF, CPD_OFF,MCLR_OFF,BOD_OFF,INTRC_OSC_NOCLKOUT,LVP_OFF
DEFINE OSC 4 	'Oscillator speed in MHz

TRISB=0
PORTB=0
CMCON=7

DUTY VAR BYTE                
k var byte

BASLA:

for k=2 to 10 step 2  'tabela dizini 2 kez tekrarla komutu
gosub tabela
next
 
for k=2 to 10 step 2   ' pwm dizini 2 kez tekrarla komutu
gosub pvm

return

tabela:
PORTB=%10000000
pause 100
PORTB=%00000000
pause 100
PORTB=%00000001
pause 100
PORTB=%00000000
pause 100
PORTB=%00011000
pause 100
PORTB=%00000000
pause 100
PORTB=%00011000
pause 500
PORTB=%00000000
pause 100
PORTB=%11110000
pause 50
PORTB=%00000000
pause 50
PORTB=%11110000
pause 50
PORTB=%00000000
pause 100
PORTB=%00001111
pause 50
PORTB=%00000000
pause 50
PORTB=%00001111
pause 50
PORTB=%00000000
pause 100
PORTB=%11110000
pause 50
PORTB=%00000000
pause 50
PORTB=%11110000
pause 50
PORTB=%00000000
pause 100
PORTB=%00001111
pause 50
PORTB=%00000000
pause 50
PORTB=%00001111
pause 50
PORTB=%00000000
pause 100


    

PVM:
 FOR DUTY=255 to 0 step -1
  GOSUB PALS1
   next

    FOR DUTY=0 to 255
  GOSUB PALS1
   NEXT
   RETURN
PALS1:
         PORTB=$00
 PAUSEUS (Duty*25)
         PORTB=$FF
 PAUSEUS (255-DUTY)*25
  RETURN
  

next

GOTO BASLA

END

:100000003E28A301A200FF30A207031CA307031C84
:1000100039280330A100DF300F200328A101E83E7A
:10002000A000A109FC30031C1828A00703181528FC
:10003000A0076400A10F152820181E28A01C222844
:100040000000222808001030A800A101A001A70C80
:10005000A60C031C31282208A00723080318230F2D
:10006000A107A10CA00CA50CA40CA80B2728240800
:100070003928831303138312640008008316860152
:100080008312860107309F000230BB0064000B30F2
:100090003B020318502859200230BB07031C462896
:1000A0000230BB0064000B303B020318E728AF208E
:1000B0000800803086006430012086016430012011
:1000C0000130860064300120860164300120183040
:1000D00086006430012086016430012018308600DB
:1000E0000130A300F4300220860164300120F0309A
:1000F000860032300120860132300120F030860047
:10010000323001208601643001200F308600323009
:1001100001208601323001200F308600323001206C
:10012000860164300120F0308600323001208601E3
:1001300032300120F03086003230012086016430F8
:1001400001200F308600323001208601323001203C
:100150000F30860032300120860164300120FF30EC
:10016000BA00BB200130BA020318B128BA01BB2083
:10017000BA0FB728080086013A08A600A70119306F
:10018000A200A3012320B8002508B9003908A10066
:1001900038080F20FF3086003A08FF3CB8000030D6
:1001A000031CFF3EB9003808A6003908A700193023
:1001B000A200A3012320B8002508B9003908A10036
:1001C00038080F2008000230BB07031C52284428BF
:0401D0006300E828B8
:02400E00103F61
:00000001FF

text editörü ile adı atıyorum led.hex yap, sonra kod seçTen dosyayı alıp bu hex dosyasına yapıştır.

ben derler iken konfigürasyonda MCLR ayağını içten bağladım. belki senin şemada işlemcinin  4 nolu ayağını 14 no'ya yani + 5 volta bağlamak icap ediyordur. bir dene bakalım bende okadar anlamam ama basit bir şey bu.

[maxel]

ipek hocam Allah razı olsun senden hemi ...  
çok saol çok tşk ederim oldu çalıştı devrem çok sal .....senin yazdğın hex kodunu attım işlemciye çalıştı .. yav birde devrem daha var o da pek sağlıklı çalışmıyor onada yardımcı olurmusun acaba ?  0-99 ileri geri sayıcı devresi 7805 çok ısınıyor birde displeylerde rakamlar tam çıkmıyor ...

[ipek]

basic ile yazılmış ise yardımcı olaya çalışırım.
devren soketli ise birer,birer sök entegreleri ısınma düzeliyormu diye.
birde kaç volt veriyorsun devreye gücün ısıys dönüşmesi (Dissipation Factor) olayı var,normal şartlartda 7805'e 10 volt'tan fazla veremezsin, her ne kadar 30 volt desede kepab olur.

[maxel]

basic ile yazılmış ise yardımcı olaya çalışırım.
devren soketli ise birer,birer sök entegreleri ısınma düzeliyormu diye.
birde kaç volt veriyorsun devreye gücün ısıys dönüşmesi (Dissipation Factor) olayı var,normal şartlartda 7805'e 10 volt'tan fazla veremezsin, her ne kadar 30 volt desede kepab olur.

valla bilmiyorum neyde yazıldığını ?  devreye 12 vot veriyorum.. devre şemasını ekliyorum ...

http://www.dosya.tc/server18/YQToy0/0-99Say_c_Devresi.rar.html

[ipek]

jal denilen bir dille yazılmış.fakat simulasyonda bir kusur görülmemekte ,sanırım displey'leri ya hatalı bağladın ,yada bozdun.mclr ile bir problemin olduğunu zannetmiyorum ,çünki aksakta olsa çalışıyor diyorsun.
önerim pic' yerinden çıkart.
soketteki pinlerden 1no ve 2 noyu + 5 volta bağla
sonra sırasıyla 6,7,8,9,10,11,12 bu pinleri + 5 volta değdir bakalım yanmayan varmı??

[maxel]

mclr ney usta  ?

[polleme]

mclr ney usta  ?

PIC'ın reset pini

[ipek]

Pic'in 4 nolu ayağı .en basit tanımlamasına reset diyelim,yani pic'in kontak anahtarı.

[maxel]

tamam anladım ..