18f4520 de Portc nin özelliği nedir?

[yuppi]

Herkeze kolay gelsin.
Beşkşde çok basit bir yerde takıldım
Device = 18F4520
Declare XTAL=20
Declare LCD_DTPIN PORTD.4
Declare LCD_ENPIN PORTD.3
Declare LCD_RSPIN PORTD.2
Declare LCD_RWPIN PORTD.1
Declare LCD_INTERFACE 4
Declare LCD_LINES 4
Declare LCD_TYPE 0
TRISA = %00000000
TRISC = %00000000
TRISD = %00000000
   Symbol  SEC   =PORTB.5
   Symbol  YUKARI=PORTB.6
   Symbol  ASAGI =PORTB.7
   Symbol  DVRR=PORTD.0
   Symbol  UCYVR=PORTC.2
   Symbol  FANR=PORTC.3
   Symbol  ALTSR=PORTA.4
   Dim YPOS As Byte
   While SEC=1
   DelayMS 100
   High DVRR
   DelayMS 100
   High UCYVR
   DelayMS 100
   High FANR : High UCYVR
   DelayMS 100
   High ALTSR
   DelayMS 100
   Wend
burada yazdığımı isis de çalıştırıyorum lakin c2 ile c3 aynı anda yanmıyor.Nasıl aynı anada yakarım Port c inin problemi ne özel bir şeylermi grtrkli

[ete]

Programda bazı eksikler var.

Aşağıdaki halini bir deneç Ben denedim çalışıyor.
Bu arada PortA.4 open collectordur. Bu pine Pullup tatbik etmez isen HIGH çıkaramaz.
Port pinleri ilk açılışta mutlaka sıfırlanmalıdır. Rast gele açıldıklarından bazı pinler HIGH olarak gelebilir.

Ete

Device = 18F4520
Declare XTAL=20
Declare LCD_DTPIN PORTD.4
Declare LCD_ENPIN PORTD.3
Declare LCD_RSPIN PORTD.2
Declare LCD_RWPIN PORTD.1
Declare LCD_INTERFACE 4
Declare LCD_LINES 4
Declare LCD_TYPE 0
TRISA = %00000000
TRISB = %11100000
TRISC = %00000000
TRISD = %00000000
Symbol SEC =PORTB.5
Symbol YUKARI=PORTB.6
Symbol ASAGI =PORTB.7
Symbol DVRR=PORTD.0
Symbol UCYVR=PORTC.2
Symbol FANR=PORTC.3
Symbol ALTSR=PORTA.4
Dim YPOS As Byte

Basla:
PORTC=0
PORTA=0
PORTD=0
While SEC=1
DelayMS 100
High DVRR
DelayMS 100
High UCYVR
DelayMS 100
High FANR : High UCYVR
DelayMS 100
High ALTSR
DelayMS 100
Wend
Goto basla

[yuppi]

Teşekkürler.