gelen voltaja göre led yakma.

[scorpions_64]

Arkadaşlar aranızda yeniyim. benim bir projeye ihtiyacım var, şimdi 3 adet led düşünün giriş potansimetresine yada voltaja göre ledler tek tek yanacak. tabi devre şu şekilde olması gerekiyor; gelen voltaja göre birinci led yanacak, diğer voltajda birinci led sönüp 2. led yanacak ve aynı şekilde 2. sönüp 3. yanacak ve 3. led yandığında ikaz gibi yanıp sönmesi lazım. bunu nasıl yapabilirim? yada yardımcı olabilirmisiniz? teşekkürler.

[ferit06]

size yardım edilebilmesi için neler biliyorsunuz?  Ne yapabilirsiniz bunu bilmek gerekir.

Eğer birşeyler biliyorum derseniz PIC12F675 kullanarak çok kolayca yapabilirsiniz.


Bu size bir şey ifade ediyorsa işlem tamamdır.

Device 12F675
Config intrc_osc_noclkout, wdt_OFF, mclre_on, boden_off

Declare Xtal 4

IOC=0
ANSEL= %00001000
TRISIO=%00101000
ADCON0=%10001100 
'------------------------ ŞEMA---------------------------------------------------


'                    Vdd  ->1----        ---- 8   Vss/GND
'     Vdd--- POT----GND     2----  12F   ---- 7   GP0 <--LED1 ---330 Ohm --- |  LED
'             l-------GP3-->3----  675   ---- 6   GP1 <--LED2 ---330 Ohm --- | KATOT
'    Vdd---10K-------MCLR-->4----        ---- 5   GP2 <--LED3 ---330 Ohm --- |
'                                                                            |GND
'  
'             
'
Dim adval As Word
 
GPIO=0

basla:


ADCIN 3, adval


Select adval

Case 0 To 255 

GPIO=%00000001

Case 256 To 512
GPIO=%00000010

 
Case >512
GPIO=%00000100
DelayMS 500
GPIO=0
End Select

DelayMS 500
GoTo basla
End

[scorpions_64]

size yardım edilebilmesi için neler biliyorsunuz?  Ne yapabilirsiniz bunu bilmek gerekir.

Eğer birşeyler biliyorum derseniz PIC12F675 kullanarak çok kolayca yapabilirsiniz.


Bu size bir şey ifade ediyorsa işlem tamamdır.

Device 12F675
Config intrc_osc_noclkout, wdt_OFF, mclre_on, boden_off

Declare Xtal 4

IOC=0
ANSEL= %00001000
TRISIO=%00101000
ADCON0=%10001100 
'------------------------ ŞEMA---------------------------------------------------


'                    Vdd  ->1----        ---- 8   Vss/GND
'     Vdd--- POT----GND     2----  12F   ---- 7   GP0 <--LED1 ---330 Ohm --- |  LED
'             l-------GP3-->3----  675   ---- 6   GP1 <--LED2 ---330 Ohm --- | KATOT
'    Vdd---10K-------MCLR-->4----        ---- 5   GP2 <--LED3 ---330 Ohm --- |
'                                                                            |GND
'  
'             
'
Dim adval As Word
 
GPIO=0

basla:


ADCIN 3, adval


Select adval

Case 0 To 255 

GPIO=%00000001

Case 256 To 512
GPIO=%00000010

 
Case >512
GPIO=%00000100
DelayMS 500
GPIO=0
End Select

DelayMS 500
GoTo basla
End

kardeş öncelikle çok teşekkür ederim şemayı bile vermişsiniz gp3 pini boş oluyor sanırım, picin 2. bacağı yazıldığı şekilde potansımetre vb. girecek. MCLR resetleme pinine 10k ile voltaj verecem, gp0-gp1-gp2 pinlerimizide ledlere çıkış yapıyorum söylediklerim doğrumudur?

[ferit06]

2 nolu bacak boşta, gp4 te(verdiğim şemada GP3 gibi gösterilmiş) potansiyometre bağlanacak. diğer  yerler tamam.
Şemanın doğrusu;

'------------------------ ŞEMA----------------------------------------------


'                Vdd  ->1----      ---- 8  Vss/GND
' Vdd--- POT----GND     2----  12F ---- 7  GP0 <--LED1 ---330 Ohm --- |  LED
'         l-------GP4-->3----  675 ---- 6  GP1 <--LED2 ---330 Ohm --- | KATOT
' Vdd---10K-------MCLR-->4----     ---- 5  GP2 <--LED3 ---330 Ohm --- |
'                                                                     |GND
' 

[scorpions_64]

uzun bir aradan sonra tekrar merhaba, malum iş güç askerlik falan derken arayı baya bir açtık arkadaşlar ferid kardeş verdiğin projeyi çalıştıramadım ya, preteusta çizdim olmadı, uygulama yaptım yine yok ben mi yanlış yapıyorum anlamadım. programı proton'da derledim. zahmet olmazsa hazır hex dosyasını ve proteusta çizip yollarmısın? çok teşekkür ederim şimdiden