muzikmp3
Üye
- Katılım
- 9 Eyl 2012
- Mesajlar
- 82
- Puanları
- 1
- Yaş
- 38
merhaba arkadaslar rf ile Lcd devresi yaptım uzaktan butona basınca ekrandan istedıgım yazıyı yazıyorum ancak bu sefer 2 buton ile bir roleyı acma kapama yağma ıstıyorum ama bır turlu olmuyor isis te calısıyor ama uygulamada bi turlu olmuyor alıcı verıcı oalrak udea nın arx ve atx sistemını kullnıyorum gercı picler arası kablo atıyorum yıne de herhangi bir sey oluyor ... bende diyot yok diye bu sefer led bagladım ancak yınede portb,0 cıkıs vermıyor kodlar bunlar yardımcı olurmusunuz rica etsem
verıcı :
include "modedefs.bas"
cmcon = 7
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_off
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%00000110 'VERİCİ PORTA.0
TRISB=%00000000 'PORTB.0.1.2 GİRİŞ DİĞERLERİ ÇIKIŞ
PORTA=0
PORTB=0
CMCON=7 'KOMPARATÖR PİNLERİNİN HEPSİ DİJİTAL GİRİŞ VE ÇIKIŞ
OPTION_REG.7=0 'PULL UP DİREÇLERİNİ KULLANMAYA GEREK YOK
'*****DEĞİŞKENLERİ TANIMLA*****
SYMBOL CIKIS=PORTA.0 'HABERLEŞME HATTI
VER VAR BYTE
VER=0
PAUSE 500
BASLA:
IF PortA.1 = 0 THEN
VER=10
GOSUB GONDER
ENDIF
IF PortA.2 = 0 THEN
VER=11
GOSUB GONDER
ENDIF
GOTO BASLA
GONDER:
SEROUT2 CIKIS,396,["D","E","V","R","E",VER]
SEROUT2 CIKIS,396,["D","E","V","R","E",VER]
RETURN
END
alıcı :
include "modedefs.bas"
cmcon = 7
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_off
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%0000001 'PORTA.0 HABERLEŞME HATTI VAR GİRİŞ
TRISB=0 'PORTB TAMAMI ÇIKIŞ
PORTA=0
PORTB=0
OPTION_REG.7=0
CMCON=7
'*****DEĞİŞKENLERİ TANIMLA*****
AL VAR BYTE 'BYTE CİNSİNDEN TANIMLAMA
GIRIS VAR PORTA.0
BASLA:
SERIN2 GIRIS,396,[WAIT("DEVRE"),AL]
IF AL=10 THEN
HIGH PORTB.0
ENDIF
IF AL=11 THEN
LOW PORTB.0
ENDIF
goto basla
END
verıcı :
include "modedefs.bas"
cmcon = 7
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_off
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%00000110 'VERİCİ PORTA.0
TRISB=%00000000 'PORTB.0.1.2 GİRİŞ DİĞERLERİ ÇIKIŞ
PORTA=0
PORTB=0
CMCON=7 'KOMPARATÖR PİNLERİNİN HEPSİ DİJİTAL GİRİŞ VE ÇIKIŞ
OPTION_REG.7=0 'PULL UP DİREÇLERİNİ KULLANMAYA GEREK YOK
'*****DEĞİŞKENLERİ TANIMLA*****
SYMBOL CIKIS=PORTA.0 'HABERLEŞME HATTI
VER VAR BYTE
VER=0
PAUSE 500
BASLA:
IF PortA.1 = 0 THEN
VER=10
GOSUB GONDER
ENDIF
IF PortA.2 = 0 THEN
VER=11
GOSUB GONDER
ENDIF
GOTO BASLA
GONDER:
SEROUT2 CIKIS,396,["D","E","V","R","E",VER]
SEROUT2 CIKIS,396,["D","E","V","R","E",VER]
RETURN
END
alıcı :
include "modedefs.bas"
cmcon = 7
@ DEVICE pic16F628A
@ DEVICE pic16F628A, WDT_OFF
@ DEVICE pic16F628A, PWRT_OFF
@ DEVICE pic16F628A, PROTECT_OFF
@ DEVICE pic16F628A, MCLR_off
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT
'*****GİRİŞ VE ÇIKIŞLARI TANIT*****
TRISA=%0000001 'PORTA.0 HABERLEŞME HATTI VAR GİRİŞ
TRISB=0 'PORTB TAMAMI ÇIKIŞ
PORTA=0
PORTB=0
OPTION_REG.7=0
CMCON=7
'*****DEĞİŞKENLERİ TANIMLA*****
AL VAR BYTE 'BYTE CİNSİNDEN TANIMLAMA
GIRIS VAR PORTA.0
BASLA:
SERIN2 GIRIS,396,[WAIT("DEVRE"),AL]
IF AL=10 THEN
HIGH PORTB.0
ENDIF
IF AL=11 THEN
LOW PORTB.0
ENDIF
goto basla
END