|
PBD Kullanılarak geliştirilen Sıcaklık ve Işık kontrolunü gerçekleştiren LCD Ekranlı Devre |
|
|
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
|
|
-------------------------------------------------------------------------------------------------------------
|
|
/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
|
|
KONULAR 
