Majardoma
Üye
- Katılım
- 30 Mar 2014
- Mesajlar
- 12
- Puanları
- 1
- Yaş
- 27
Az önce yardım konusu açmıştım ama hallettim basitmiş 
yapmak isteyen olursa bu koddan faydalanabilir
yapmak isteyen olursa bu koddan faydalanabilir
Kod:
Device = 16F887
@CONFIG_REQ
@__CONFIG _CONFIG1, HS_OSC & WDT_OFF & MCLRE_ON & PWRTE_ON & DEBUG_OFF & LVP_OFF & FCMEN_OFF & IESO_OFF & BOR_SBODEN & CPD_OFF & CP_OFF
Xtal = 20
All_Digital = True ' Set PORTA and PORTE to all digital
Declare PortB_Pullups = On
TRISA = %111111 ' PORTA giriş olarak tanımla
TRISB = %11111111 ' PORTB giriş olarak tanımla
TRISC = %00000000 ' PORTC nin tüm bitlerini çıkış olarak ayarla
TRISD = %00000000 ' PORTD nin tüm bitlerini çıkış olarak ayarla
TRISE = %111 ' PORTE nin tüm bitlerini giriş olarak ayarla
Declare LCD_DTPin = PORTD.4
Declare LCD_RSPin = PORTD.2
Declare LCD_ENPin = PORTD.3
Declare LCD_Interface = 4 ' 4-bit Interface
Declare LCD_Lines = 2
Declare LCD_Type = 0
ADCON1 =%00000111 ' PORTA ve PORTE digital girişler aktif.
OPTION_REG = %00000000 ' PORTB PULLUP AKTİF
'************* GİRİŞ ÇIKIŞ TANIMLAMALARI ************
'****************** Değişken tanımlamaları **********
Dim hiz As Word
Symbol lm35 = PORTE.2
'****************** Değişken ilk değerleri **********
Dim analogdeg As Word
Dim derece1 As Word
Dim derece2 As Word
PORTC=0
PORTD=0
'///////////////// ANA PROGRAM \\\\\\\\\\\\\\\\\
'///////////////// ANA PROGRAM \\\\\\\\\\\\\\\\\
basla:
PORTD=%00000000
ADCON1 =%10000000 ' PORTA ve PORTE analog ölçüm girişler aktif.
analogdeg=ADIn 7 'Gerilim ölçüm pini PORTE.2 LM 35 bağlı. LM35 10 mv/C olacak şekilde çıkış verir
derece1=(analogdeg*49)/100 'Ölçülen analog değerin derece karşılığı hesaplama
derece2=(analogdeg*49)//100 'Ölçülen analog değerin derece karşılığı hesaplama
Print At 1,2, "ORTAM SICAKLIGI "
Print At 2,1,Dec2 derece1,",",Dec2 derece2,
If derece1>22 Then High PORTC.6 ' sıcaklık 22 derecenin üzerinde olursa portcnin 6. pinini aktif '
If derece1<22 Then Low PORTC.6 ' sıcaklık 22 derecenin altında olursa portc 6 pini kapalı '
GoTo basla
End
