pıc fan konrol devresi (yardım)

[Majardoma]

18f887 pıc deney setim ile yaptımız termometre devresine fan eklemek isiyorum ama denklemi kuramıyorum bir türlü

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ş