 | Elektrotekno.com Elektronik ve Teknoloji Merkezi
| | Yazar | Mesaj | behlul | | Tarih: 16.04.2008, 22:06 Mesaj konusu: pic basic pro ile pic 16f628 e pwm acil yardım. | |
| arkadaşlar ben pic 16f628 ile led şov yapmak istiyorum. mesela 1. led yanacak, ardından ikinci yanacak, önceki ledler yanık klmak şartı ile hepsi sıra ile yanacak ve sonra tümü yanacak. sonra ledlerin hepsi birden yavaş yavaş sönecek, sonra tekrar hepsi yavaş yavaş parlayacak. bana program konusunda yardımcı olabilir misiniz?
-----------------------------------------------------
|
|
ömer | | Tarih: 16.04.2008, 22:19 Mesaj konusu: | |
| devre şeması yok kusura bakma bu kodlarda a degiskeni butonlar ile artıp azalıyor sen bu bölümü
high led1
pause 500
low led1
.
.
.
.
gosub artır
goto basla
artır
a=a+1
ıf a=200 then
endıf
goto azalt
azalt
a=a+1
ıf a=200 then
endıf
goto basla
gibi yapabilirsin.yukardaki programı şimdi karaladım eksiklerim hatalarım olabilir.
bu program ise alıntı
'****************************************************************
'* name : untıtled.bas *
'* author : [select vıew...edıtor optıons] *
'* notice : copyright (c) 2006 [select vıew...edıtor optıons] *
'* : all rights reserved *
'* date : 22.11.2006 *
'* version : 1.0 *
'* notes : *
'* : *
'****************************************************************
defıne ccp1_reg portc 'hpwm 1 pin port
defıne ccp1_bıt 2 'hpwm 1 pin bit
trisa=0
trisb=%00000011
trisc=0
porta = 0 :portb = 0:portc = 0
symbol tus1 = portb.0
symbol tus2 = portb.1
symbol led1 = portb.3
symbol led2 = portb.4
a var byte
a=127
high led1
basla:
pause 10
ıf tus1 =1 then a=a+1
ıf tus2 =1 then a=a-1
ıf a= 0 then a=a+1
ıf a =255 then a=a-1
hpwm 1,a,20000' send a 50% duty cycle pwm signal at 1khz
goto basla
|
|
ömer | | Tarih: 16.04.2008, 22:54 Mesaj konusu: bu siteyide incele | |
| http://a.parsons.edu/~stern/thesis/index.php/C4/
|
|
behlul | | Tarih: 17.04.2008, 08:17 Mesaj konusu: | |
| devre şemasına gerek yok arkadaşlar şemayı kendim çıkartırım. verdiklerinizi bi deneyeceğim. teşekkür ederim.
|
|
|
|