
RF Alıcı
- Kod: Tümünü seç
'****************************************************************
'* Name : Onur
'* Author : www.elektroarge.com
'* Notice :
'* : All Rights Reserved *
'* Date : 30.04.2010 *
'* Version : 1.0 *
'* Notes : 4 kanal alıcı kodu *
'* : *
'****************************************************************
@ DEVICE pic16F628A 'işlemci 16F628
@ DEVICE pic16F628A, WDT_on 'Watch Dog timer kapalı
@ DEVICE pic16F628A, PWRT_ON 'Power on timer açık
@ DEVICE pic16F628A, PROTECT_OFF 'Kod Protek kapalı
@ DEVICE pic16F628A, MCLR_off 'MCLR pini kullanılıyor.
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak
include "modedefs.bas" 'SERİN VE SEROUT KOMUTLARININ ÇALIŞMASI İÇİN GEREKLİ KÜTÜPHANE DOSYASI
VERI var byte 'SERİ İLETİŞİMDE ALINACAK VERİ
TRISB=0 'PORTB TAMAMI ÇIKIŞ
CMCON=7 'KOMPARATÖR PİNLERİ DİJİTAL GİRİŞ VEYA ÇIKIŞ
TRISA=%00010 'PORTA.1 GİRİŞ
PORTB=0 'PORTB İÇERİĞİ SIFIR NEDENİ İSE İLK ENERJİ VERİLDİĞİNDE GİRİŞ VEYA ÇIKIŞLAR AKTİF OLMAMASI İÇİN
BASLA:
serin PORTA.1,T300,["ELEKTROARGE"],veri 'PORTA.1 ELEKTROARGE VERİSİNİ AL
PORTB = veri 'PORTB'DE HANGİ VERİ ALINDIYSA O VERİYE AİT LEDİ YAK (ÇIKIŞ VER)
goto BASLA 'BASLA ETİKETİNE GİT
RF Verici
- Kod: Tümünü seç
'************************************************
'* Name : Onur
'* Author : www.elektroarge.com
'* Notice :
'* : All Rights Reserved *
'* Date : 30.04.2010 *
'* Version : 1.0 *
'* Notes : 4 kanal verici kodu *
'* : *
'**************************************************
@ DEVICE pic16F628A 'işlemci 16F628
@ DEVICE pic16F628A, WDT_on 'Watch Dog timer kapalı
@ DEVICE pic16F628A, PWRT_ON 'Power on timer açık
@ DEVICE pic16F628A, PROTECT_OFF 'Kod Protek kapalı
@ DEVICE pic16F628A, MCLR_off 'MCLR pini kullanılıyor.
@ DEVICE pic16F628A, INTRC_OSC_NOCLKOUT 'Dahili osilatör kullanılacak
include "modedefs.bas" 'SERİN VE SEROUT KOMUTLARININ ÇALIŞMASI İÇİN GEREKLİ KÜTÜPHANE DOSYASI
VERI var byte 'SERİ İLETİŞİMDE VERİLECEK VERİ
TRISB=%11111111 'PORTB TAMAMI GİRİŞ
CMCON=7 'KOMPARATÖR PİNLERİ DİJİTAL GİRİŞ VEYA ÇIKIŞ
OPTION_REG=7 'PULL UP DİREÇLERİ İPTAL
PORTB=0 'PORTB İÇERİĞİ SIFIR NEDENİ İSE İLK ENERJİ VERİLDİĞİNDE GİRİŞ VEYA ÇIKIŞLAR AKTİF OLMAMASI İÇİN
BASLA:
VERI = PORTB 'VERİ=PORTB EŞİTLE
serout PORTA.1,T300,["ELEKTROARGE",VERI] 'PORTA.1 ELEKTROARGE VERİSİNİ GÖNDER
goto basla 'BASLA ETİKETİNE GİT
- İçerik Kapalı:
- Mesaj içeriğini görmek için kayıt ve giriş gerektirir