pic10f204 te bir pini sürekli high yapmak??

[outlaw57]

arkadaslar,

pic basic pro 2.50 + mcs plus kullanıyorum.

Benim sorunum; herhangi bir pic te(benim sorunum pic10f204) bir bacağı program basında high yapıp hep oyle kalmasını istiyorum bunu nasıl yapabilirim.??

[OG]

BURADA hepsi var.

[outlaw57]

benim sormak istediğim gecikme vermeden bir pini high olarak ayarlayamıyormuyuz. programın basında?

[Maxim]

benim sormak istediğim gecikme vermeden bir pini high olarak ayarlayamıyormuyuz. programın basında?

gecikme derken ?

progamın başında o pini high yaparsan zaten öyle kalır ,

örnek :

portb.1

portb.1= 1 yazarsın programın başına ,bir o pin kendi kendine low olmazki zaten

[outlaw57]

ama sonrasında bir komut işletine lowa düşüyor.

[tyildizak]

Başlangıçta high olup hep öyle de kalacaksa, pic bacağı yerine vdd'ye de bağlayabilirsin.

[outlaw57]

cok akım cekiyo..
lcd kapanıyo : )
picten kucuk bir akım vermeyi dusundum..
ama beceremedim

[tyildizak]

O halde ya daha güçlü bir kaynak lazım, ya da lcd ledine bağlı direncin değerini arttırarak daha az ışıkla kullanmalı.

[outlaw57]

ya aslında ledle kaynak arasına diren koyunca sorun cözülüyor ama dirençler devrede yer kaplıyor o yuzden varsa bi yolu pin bacagından sabit akım verip alandan kazanmıs olurum diye dusundum.

[Erol YILMAZ]

ya aslında ledle kaynak arasına diren koyunca sorun cözülüyor ama dirençler devrede yer kaplıyor o yuzden varsa bi yolu pin bacagından sabit akım verip alandan kazanmıs olurum diye dusundum.

Sen o direnci kullan en iyisi

[Maxim]

ama sonrasında bir komut işletine lowa düşüyor.

burada bir gariplik var
ne komutudur o ?

[outlaw57]

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

Dim x As Word
Dim k As Word
Symbol LDR=GPIO.3
Symbol CAK=GPIO.1
Symbol LED=GPIO.2
Symbol PLED=GPIO.0
Output CAK
Output LED
Output PLED
PLED=1

If LDR=0 Then
     
    k=1
    CAK=0
Else
    
    k=0
    CAK=1
EndIf
loop:
     If k=1 Then    'Karanlık Mod da ise fotoseli bi kontrol et
            While LDR=0     'Karanlık Olmayana Kadar Loop
            LED=1
            
            Wend
                For x=1 To 100       '100ms aralıklarla 10 s kontlrol yap
                    
                    DelayMS 100
                    If LDR=1 Then LED=0
                    If LDR=0 Then 
                        GoTo loop
                    EndIf
                Next 
                
            k=0
            CAK=1
            
             
        Else                'Aydınlık Mod ise, Loopa gir
            While LDR=1     'Aydınlık Olmayana Kadar Loop
            LED=0
            
            Wend

                       
                For x=1 To 100       '100ms aralıklarla 10 s kontlrol yap
                    
                    DelayMS 100
                    If LDR=0 Then LED=1 
                    If LDR=1 Then
                        GoTo loop
                    EndIf
                Next
                
            k=1
            CAK=0
         
        EndIf 
      GoTo loop
   
    
End

burada pled high kalmııoo..