PBD Kullanılarak geliştirilen Sıcaklık ve Işık kontrolunü gerçekleştiren LCD Ekranlı Devre

Posted on by
PBD Kullanılarak geliştirilen Sıcaklık ve Işık kontrolunü gerçekleştiren LCD Ekranlı Devrenin Özellikleri

> Set degerlerinin EEPROM da saklanması ve Elektrik kesintisinden etkilenmeme
> RS232 iletişim
> 5 Ayrı Analog Değer Ölçme, Mantıksal Karşılaştırma (0-5v) 10 Bit
> Aynı Anda 4 Değeri LCD Üzerinde görme ve Set Değerlerini deiştirme.
> Enter (set)  <-        ->    + ve –   tusları   (4 tus)
> Harici sensör ekleme ve kullanma
> Ölçülen değerlerin bilgisayar ortamına txt olarak aktarılması….
> Opsiyonel Led Display Ekran
> 8 Digital Çıkış + 3 Digital Giriş  I/O

 

wpe2.jpg (85064 bytes)
————————————————————————————————————-

wpe4.jpg (80189 bytes)

/RS232 PROGRAMLAMA
/BUTONLAR ILE ADC VE SICAKLIK KONTROLU
/RB5 TX
SAILOGO
CHIP "P16F877"
SETET PORTA = 255
SETET PORTB = ‘00011100’
SETET PORTD = 0

/SAKLA1 GENEL AMACLI GLOBAL DEGİSKEN
DTIP SAKLA1 = 0
DTIP BTSAY = 0
DTIP BDATA = 65
DTIP BTEMP = 8
DTIP SAYAC1 = 0
DTIP SAYAC2 = 0
DTIP BUTONA = 0
DTIP BUTONB = 0
DTIP BUTONC = 0
DTIP KAYKAY = 0
DTIP SICAKLIK = 30
## ADCINIT
## LCDINIT
## SANIYE
## BUTONBEKLE
## LCDKOMUT
## BCD
## EEPROM

<EKRANISIL
<SATIR1
LCD> ‘RS03 ‘
LCD> ‘SetT1:’
EEOKU SICAKLIK, 0
SAKLA1 := SICAKLIK
<ONLUKTABAN
<SATIR2
LCD> ‘@SiNAN S@i BiM’
PINB5 = 1
<SANIYE

BUTONA = PINB2

<SATIR1
<EKRANISIL

BDATA := 79
MODUL TX232

BDATA := 75
MODUL TX232

BDATA := 33
MODUL TX232

BDATA := 46
MODUL TX232

BASLA:

BUTONA = PINB2

EGER BUTONA = 1 OLURSA
MODUL TATAMA
EGERSON

CHAN := 0
<ADC_OKU
<SATIRBASI

LCD> ‘T:’
SAKLA1 := MEMLO
>> SAKLA1
<ONLUKTABAN
LCD> ‘C ‘

BDATA := 84
MODUL TX232

BDATA := 58
MODUL TX232

DIJITAL := YUZLUK
MODUL DIJITRS
DIJITAL := ONLUK
MODUL DIJITRS
DIJITAL := BIRLIK
MODUL DIJITRS

BDATA := 13
MODUL TX232
BDATA := 12
MODUL TX232

EGER SICAKLIK < SAKLA1 OLURSA
<SATIR2
LCD> ‘Tehlike:30>SetT1’
PINB5 = 1
<SANIYE
<SATIR1
<EKRANISIL
PINB5 = 0

EGERSON

/<SANIYE
/<SANIYE

CHAN := 2
<ADC_OKU
/ <SATIR2
LCD> ‘L:’
SAKLA1 := MEMHI
>> SAKLA1
<ONLUKTABAN
LCD> ‘:’
SAKLA1 := MEMLO
>> SAKLA1
<ONLUKTABAN

GIT BASLA

TATAMA:
LCD> ‘AYARLAMA:’
<SANIYE

<EKRANISIL
<SATIR1

AYARLA:
BUTONA = PINB2
BUTONB = PINB3
BUTONC = PINB4

EGER BUTONA = 1 OLURSA
EEYAZ SICAKLIK, 0
GIT AYARSONU
EGERSON

EGER BUTONB = 1 OLURSA
SICAKLIK := SICAKLIK + 1
EGERSON

EGER BUTONC = 1 OLURSA
SICAKLIK := SICAKLIK – 1
EGERSON

<SATIRBASI
LCD> ‘T1:’
SAKLA1 := SICAKLIK
<ONLUKTABAN
LCD> ‘C’

MODUL BUTONBEKLE

BDATA := SICAKLIK
MODUL TX232
GIT AYARLA

AYARSONU:
<SATIRBASI
LCD> ‘AYARLAMA TAMAM.!’
<SANIYE
<SANIYE
<SANIYE

GERIGIT

TX232:
/START BITI
PINB5 = 1
MODUL BAUDTIME
*MOVLW H’8′ ; W <- 8
*MOVWF BTEMP
SERIKOMUT:
*RRF BDATA, 1 ; 1 BIT SOLA KAY
*BTFSS STATUS, C
GIT BSIFIR
PINB5 = 0
GIT BSONU
BSIFIR:
PINB5 = 1
BSONU:

MODUL BAUDTIME
*DECFSZ BTEMP
*GOTO SERIKOMUT
PINB5 = 0
MODUL BAUDTIME
MODUL BAUDTIME
GERIGIT

BAUDTIME:
/BU SATIR DENEMEK İÇİNDİR.
/*MOVF SICAKLIK, W
/4800 BAUDDA GECERLİDİR 87

*MOVLW H’AA’ ; W <- 80
*MOVWF BTSAY ; BTSAY <- W
NEXT001:
*DECFSZ BTSAY, F ; BTSAY <- W
*GOTO NEXT001
GERIGIT

DIJITRS:

EGER DIJITAL = 0 OLURSA
BDATA := 48
MODUL TX232
EGERSON

EGER DIJITAL = 1 OLURSA
BDATA := 49
MODUL TX232
EGERSON

EGER DIJITAL = 2 OLURSA
BDATA := 50
MODUL TX232
EGERSON

EGER DIJITAL = 3 OLURSA
BDATA := 51
MODUL TX232
EGERSON

EGER DIJITAL = 4 OLURSA
BDATA := 52
MODUL TX232
EGERSON

EGER DIJITAL = 5 OLURSA
BDATA := 53
MODUL TX232
EGERSON

EGER DIJITAL = 6 OLURSA
BDATA := 54
MODUL TX232
EGERSON

EGER DIJITAL = 7 OLURSA
BDATA := 55
MODUL TX232
EGERSON

EGER DIJITAL = 8 OLURSA
BDATA := 56
MODUL TX232
EGERSON

EGER DIJITAL = 9 OLURSA
BDATA := 57
MODUL TX232
EGERSON

GERIGIT
Posted in Uncategorized.

Bir cevap yazın