Majardoma
Üye
- Katılım
- 30 Mar 2014
- Mesajlar
- 12
- Puanları
- 1
- Yaş
- 27
18f887 pıc deney setim ile yaptımız termometre devresine fan eklemek isiyorum ama denklemi kuramıyorum bir türlü
ısıyı okuyorum ama fanı ekliyemedim kurmak istedigim denklem tam olarak şöyle ortam sıcaklıgı 30 derece olunca port a veya port b den çıkış alıp motor veya led çalışıcak 30 altına düşer ise işlem gerçekleşmiyecek deney seti oldugu için portların numaralarınıda yazayım
gnd
+5v
b0
...
b7 ye kadar giriş portlarım
Güncelleme
Evet şuanda yaptım 22 derecenin üzerine çıkınca fan çalışıyor 22 derecenin altına düşünce fan kapanıyor
If derece1>22 Then High PORTC.6
If derece1<22 Then Low PORTC.6
Basitmiş
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
'///////////////// ANA PROGRAM \\\\\\\\\\\\\\\\\
'///////////////// ANA PROGRAM \\\\\\\\\\\\\\\\\
basla:
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
If derece1<22 Then Low PORTC.6
GoTo basla
End
ısıyı okuyorum ama fanı ekliyemedim kurmak istedigim denklem tam olarak şöyle ortam sıcaklıgı 30 derece olunca port a veya port b den çıkış alıp motor veya led çalışıcak 30 altına düşer ise işlem gerçekleşmiyecek deney seti oldugu için portların numaralarınıda yazayım
gnd
+5v
b0
...
b7 ye kadar giriş portlarım
Güncelleme
Evet şuanda yaptım 22 derecenin üzerine çıkınca fan çalışıyor 22 derecenin altına düşünce fan kapanıyor
If derece1>22 Then High PORTC.6
If derece1<22 Then Low PORTC.6
Basitmiş
Son düzenleme: