Introduccion sensor de temperatura con control maximo minimo

Introducción sensor de temperatura con control máximo mínimo

TRISA = %11111111

PORTA = %00000000

TRISB = 0x00

PORTB = 0x00

TRISC = %00001001

PORTC = 0x00

TRISD = 0x00

PORTD = 0x00

Define LCD_BITS = 8  'comentar

Define LCD_DREG = PORTB  'comentar

Define LCD_DBIT = 0  'comentar

Define LCD_RSREG = PORTD  'comentar

Define LCD_RSBIT = 7  'comentar

Define LCD_EREG = PORTD  'comentar

Define LCD_EBIT = 6  'comentar

Define LCD_RWREG = PORTD  'comentar

Define LCD_RWBIT = 5  'comentar

Lcdinit LcdCurBlink  'comentar

PWMon 1, 9

Dim sensor As Word

Dim min As Word

Dim max As Word

Dim maxs As Word

Dim mins As Word

Dim lo As Word

Dim celsius As Word

Dim fahrenheit As Word

Dim time As Word

Dim data As Byte

Dim duty As Byte

'Define word_decimal_places = 1

time = 1

main:

'Toggle RD1  'comentar

'Gosub pwm'comentar

'Goto main'comentar

'Gosub senddata'comentar

Adcin 0, sensor

Adcin 1, min

Adcin 2, max

maxs = max / 6

mins = min / 6

celsius = sensor / 6  '3.333 '*0.48875

fahrenheit = 2 * celsius + 32

'Gosub display  'comentar

If sensor > max Then  'Si el pulsador esta activado enciende el led

RC7 = 1

WaitMs 1

Gosub bajar

Else

RC7 = 0  'Si el pulsador no esta activado el led no enciende Low PORTB.4 'Tambien podemos ut

WaitMs 1

Endif

If sensor < min Then

RC7 = 1

WaitMs 1

Gosub subir

Else

RC7 = 0

WaitMs 1

Endif

'Gosub bt

Gosub displayc

Goto main

End                                              

'display:  'comentar

'Lcdcmdout LcdClear  'comentar

'Lcdcmdout LcdLine1Home  'comentar

'Lcdout #celsius, "°C"  'comentar

'Lcdcmdout LcdLine2Home  'comentar

'Lcdout #fahrenheit, "°F"  'comentar

'WaitMs 1  'comentar

Return  'comentar                                

bajar:  'escanea el púerto para que baje el nivel de agua

While sensor > min

Adcin 0, sensor

RD2 = 1

'Gosub display  'comentar

Wend

RD2 = 0

Return                                            

subir:  'escanea el puerto para que suba el nivel de agua

While sensor < max

Adcin 0, sensor

RD3 = 1

Gosub displayc

Wend

RD3 = 0

Return                                            

displayc:

Adcin 0, sensor

Adcin 1, min

Adcin 2, max

maxs = max / 6

mins = min / 6

celsius = sensor / 6  '3.333 '* 0.48875

lo = celsius

WaitMs 1

'Gosub bt'comentar

...