PİC BASİC YARDIM

[gokhan616]

Porta nın nerhangi bir girişine baglı butonu 1sn den fazla basınca portb den çıkış almak istiyorum bunu nasıl yapabiliriz yardımlarınızı bekliyorum


örneğin:

Trısa=%11111
trısb=%00000000
portb=0
kontrol:
ıf porta.1>(1000 sn) then hıgh portb.0
pause 50
ıf porta.1=0 then low portb.0
goto kontrol

[power]

yazım hataları çok fazla.en basit şekilde aşağıdaki gibi olabilir.birde öğrenmek istiyorsan ete hocanın konuyla ilgili detaylı anlatımları var.formdan ulaşabilirsin.bakmanda yarar var.
'****************************************************************
'* Name : *
'* Author : *
'* Notice : *
'* : *
'* Date : 07.06.2009 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
TRISB=%00000001 'b portu çıkış olarak ayarlandı 0.bit hariç
TRISA=%00000000 'a portu çıkış olarak ayarlandı
PORTA=0 'a portu tüm çıkışlar Low (0)
PORTB=0 'b portu tüm çıkışlar Low (0)
'-----------------------------------------------------------------
@ DEVICE pic16F628 'işlemci 16F628
@ DEVICE pic16F628, WDT_ON 'Watch Dog timer açık
@ DEVICE pic16F628, PWRT_ON 'Power on timer açık
@ DEVICE pic16F628, PROTECT_OFF 'Kod Protek kapalı
@ DEVICE pic16F628, MCLR_off 'MCLR pini kullanılMIYOR.
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak

CMCON=7 'komparatörler iptal

BASLA:

IF PORTB.0=0 then
PAUSE 100
PORTA.0=1
ENDIF
GOTO BASLA

End

[ETE]

Mademki Tus PortA.1 de bağlı, bu tusa basılı olduğu müddetçe bir timer sayacı çalıştırmak gerekir.
Sayac değeri yaklaşık 1000 ms (yani 1sn) deeğrine ulaştığı zamanda PORTB ye değer verilmelidir.
Aşağıda buna ait örneği göreceksiniz.

Ete

"kontrol:
X=0
While Porta.1=1 
 X=X+1
PAUSE 1
IF X=1000 then PORTB=255
Wend
goto kontrol

[gokhan616]

TEŞEKKÜR EDERİM YARDIMCI OLDUGUNUZ İÇİN
BİLGİLER PAYLAŞILDIKCA ÇOGALIR. NE KADAR ÇOK PAYLAŞIM O KADAR HIZLI YOL ALMAMIZA SAĞLAR.