18F4520 de RA4 u çıkış olarak kullanamıyorum

Başlatan elektroacemi, 05 Temmuz 2012, 11:35:57

JKramer

Çıkışları PORT değil LAT üzerinden yapmalısınız.

bymrz

Device = 18F4520
 
OSCCON = %01100000     'Internal 4 MHz clock select
Xtal=4

Config_Start
   OSC = INTIO67 ; Internal oscillator block, port function on RA6 and RA7
   PWRT = OFF ; PWRT disabled
   BOREN = OFF ; Brown-out Reset disabled in hardware and software
   BORV = 0 ; Maximum setting
   WDT = OFF ; WDT disabled (control is placed on the SWDTEN bit)
   MCLRE = OFF ; RE3 input pin enabled; MCLR disabled
   PBADEN = On ; PORTB<4:0> pins are configured as analog input channels on Reset
   LVP = OFF ; Single-Supply ICSP disabled
   WRTD = OFF ; Enabled
Config_End


Dim ZAMAN As Word
Dim y  As Byte 
Dim SURE  As Byte 
Dim KERE  As Byte 
'Port Tanımlamaları,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
S1 VAR PORTA.4      
S2 VAR PORTA.5
S3 VAR PORTE.0
S4 VAR PORTE.1
S5 VAR PORTE.2
S6 VAR PORTC.1
S7 VAR PORTC.2
S8 VAR PORTC.3
S9 VAR PORTD.0
S10 VAR PORTD.1
S11 VAR PORTD.2
S12 VAR PORTD.3
S13 VAR PORTD.4
ROT VAR PORTB.6    
FIS VAR PORTB.7    
TRA VAR PORTA.2   
SUF VAR PORTA.0   
EMI VAR PORTB.5   
TRAG VAR PORTB.4  
',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,


'Port Ayarlamaları,,,,,,,,,,,,,,,,,,,,,,

PORTA=0
PORTB=1
PORTC=0
PORTD=0
LATA=0


' ADC Ayarları   /kapalı
ADCON1=%00001111

CMCON=07h
INTCON2.7=1 'pullup pasif
'interrupt,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
On Interrupt GoTo KESME
INTCON=%11100000 
'timer,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
T0CON=%10000010
INTCON.2=0 
TMR0L=8
SURE=10
KERE=4



TRISA=%00000000
TRISB=%00111100
TRISC=%00000000  
TRISD=%00000000  
TRISE=%00000000 

DelayMS 1000
Clear
BASLA:

    S1=1:S2=1:S3=1:S4=1:S5=1:S6=1:S7=1:S8=1:S9=1:S10=1:S11=1:S12=1:S13=1

   
GoTo BASLA


Disable
KESME: 
     ZAMAN=ZAMAN+1
     TMR0L=8  
     INTCON.2=0        'TMR0 Kesme bayrağı sıfırlanıyor 
    
     Resume
     Enable


End



bir de böyle denesene...

skara1214

Alıntı yapılan: alone_lover - 05 Temmuz 2012, 14:03:14
yaparsam ?  :)
yaparsan Allah razı olsun derim:D.Madem böyle ilginç sorunlardan konusuyoruz bir tane daha söyliyeyim aynı pic üzerinden 2 tane usart çalıştırmak istendiğinde c4 c5 çalışmıyor (ikinci usart pinleri olarak).Bu nasıl oluyor
Herkes ölür ama herkes gerçekten yaşamaz

picpicpic


elektroacemi

Arkadaşlar gerçek devrede sorunsuz çalıştı, çıkış lojik 1 oldu, proteustaymış sorun...

Çıkış LAT tan olur diye daha önce de duymuştum ama LATA.4=1 yazdım hiç bir değişiklik olmadı...

bymrz

Alıntı yapılan: elektroakif - 05 Temmuz 2012, 17:44:31
Arkadaşlar gerçek devrede sorunsuz çalıştı, çıkış lojik 1 oldu, proteustaymış sorun...


Şimdiye kadar hep tam tersini duydum forumda... İlk defa proteusta çalışmayıp, gerçekte çalışanını görmüş oldum...   :)

Neyse kolay gelsin...

@skara1214, senin söylediklerini de merak ettim.. vaktim olduğunda inceleyeceğim...