Led devresi

[MAIN_LOOP]

olur gönderirim

 

[MAIN_LOOP]

kodu gönderdim.

pic16f628A olarak yazdım eğer A değilse düzeltelim.

 

[aegeanxtr]

kodu gönderdim.

pic16f628A olarak yazdım eğer A değilse düzeltelim.

Hocam çok teşekkür ederim. PIC16F628A için olacak doğrudur. Şuan evdeyim herşey iş yerinde hemen iş yerine gidip deniyorum hocam. Tekrar çok teşekkür ederim.

 

[karaapak]

Süper bir durum, canlı yayın pic programlama, bende takipteyim merakla devrenizin sonucunu bekliyorum, başarılar.

 

[MAIN_LOOP]

Device = 16F628A


XTAL
10

CMCON=7

ALL_DIGITAL true


Declare WATCHDOG 0

Output PORTB.0 'leds1

Output PORTB.1 'leds2

Output PORTB.2 'leds3

Output PORTB.3 'pwm leds


Input PORTA.0 'input low active


Symbol led1 =PORTB.0
Symbol led2 =PORTB.1
Symbol led3 =PORTB.2
Symbol pwmled =PORTB.3
Symbol inp =PORTA.0


led1 =0
led2 =0
led3 =0
pwmled =0

Dim duty As Byte
Dim
i As Byte
Dim
lck As Bit


Clear

DelayMS
100

GoTo oversub

Include "modedefs.bas"
　
　
step1:

For duty=0 To 255
HPWM 0,duty,2000
DelayMS 10
Next duty
led1=1
DelayMS 200
led2=1
DelayMS 200
led3=1
Return

step2:

For duty=255 To 0 Step -1
HPWM 0,duty,2000
DelayMS 10
Next duty
led1=0
led2=0
led3=0
Return


oversub:
While 1=1

If inp=0 Then
DelayMS
10
If inp=0 And lck=0 Then

lck=1

For duty=i To 250
DelayMS 10
If inp=1 Then Break
HPWM
0,duty,3000
Next duty
i=duty
led1=1
DelayMS 200
led2=1
DelayMS 200
led3=1
EndIf
EndIf

If
inp=1 Then
DelayMS
10
If inp=1 And lck=1 Then

lck=0
For duty=i To 1 Step - 1
DelayMS 10
If inp=0 Then Break
HPWM
0,duty,3000
Next duty
i=duty
HPWM 0,0,3000
led1=0
led2=0
led3=0
EndIf
EndIf

DelayMS
5



Wend

 

[MAIN_LOOP]

kodu denedim isiste çalışıyor.

 

[aegeanxtr]

kodu denedim isiste çalışıyor.

Hocam ben isis te çalıştıramadım ama şimdi gidip devre üzerinde denicem. benim çizdiğim şemayı mailinize göndereyim bir de siz bakın isterseniz

 

[MAIN_LOOP]

isiste bazı analog modeller çaışmayabilir. bir adet pic, pwm bacağındanda bir skop bağlayın, giriş içinde bir adet switch.
isiste denemeyi böyle yapın

 

[aegeanxtr]

isiste bazı analog modeller çaışmayabilir. bir adet pic, pwm bacağındanda bir skop bağlayın, giriş içinde bir adet switch.
isiste denemeyi böyle yapın

Hocam devreyi çalıştıramadım. Şimdi şöyle kullandığım uln2003a arızalı olabilir başka bulamadım bunu kullanmayıp 40 adet ledi irfz44n ile sürsem diğerlerini direkt bağlasam olur mu? 4n25 yerine 4n35 kullansam olur mu? ayrıca kontak girişi yazan yer nereye bağlanacak? orayı tam olarak anlayamadım.

 

[karaapak]

Takipteyim demiştim, gece gece devreye devam, sabredin çalıştırırsınız, kusura bakmayın ben yardımcı olamıyorum, sadece manevi destek.