Ayuda con DS1821

[wasty]

Hola, necesito la ayuda de alguien que sepa como hacer funcionar el DS1821 en basic, tengo PBP version 2.46. Quiero leer la temperatura y en lo posible lograr configurarlo. Los datos los mando al pc por puerto serie al hyperterminal.

He probado con los comandos OWOUT, OWIN sin ningun exito, talves no entendi como se usan.

Tengo un PIC16F84A a 4Mhz y quiero leer la Temperatura por el RB7. Ah tengo una resistencia de pullup de 4,7K en el DQ del sensor, todo alimentado con 5voltios.

[sanpic]

Acá te dejo un ejemplo en protón , para el 18f452.
Espero te sirva de orientación.


" Conexion del DS1821  ( Pin1 a GND, Pin2 a Pin16 "portc.1" del 18F452 mediante res pullup ,
" Pin3 a VCC
"
         
      @CONFIG_REQ
      @__CONFIG CONFIG1H, OSCS_OFF_1 & XT_OSC_1
      @__CONFIG CONFIG2L, BOR_ON_2 & BORV_20_2 & PWRT_ON_2
      @__CONFIG CONFIG2H, WDT_OFF_2 & WDTPS_128_2
      @__CONFIG CONFIG3H, CCP2MX_ON_3
      @__CONFIG CONFIG4L, STVR_ON_4 & LVP_OFF_4 & DEBUG_OFF_4


   
         Include "PROTON18_4.INC"
     
           
      " variables para lectura del DS1821
      Dim temperatura as byte
      Symbol DQ = portc.1
       
     
     
       Delayms 500            " Pausa para estabilizar el Micro
 
Main:   gosub Leo_temp

   

     
Leo_temp:       "Rutina para la lectura de la temperatura
      OWRITE DQ, 1 , [ $EE ]
      delayms 100
      OWRITE DQ, 1 , [ $AA ]
      delayms 100
      OREAD DQ, 0 , [temperatura]
      hserout ["Temperatura : ",Dec temperatura, " celsius",13,10]
      hserout ["=======================================",13,10,13,10]
      delayms 500
      goto Main


     

"FIN DEL PROGRAMA       

[wasty]

Gracias por la informacion, lo adapte a PBP y funciona perfectamente

[wasty]

Hola yo denuevo....

Aca dejo otros ejemplos de como obtener el resto de la información del DS1821, DQ pin donde se conecta el sensor.
Yo saco la informacion por el puerto serie y la veo en el hyperterminal, cosa de gustos.

OWout DQ, 1 , [$EE] 'Comienza Conversion de Temperatura
pause 100
OWout DQ, 1 , [$AA] 'Prepara commando
pause 100
Owin DQ, 0 , [res] 'Guarda respuesta en res
pause 100
serout2 S_OUT,84,[dec res] 'Envia res al PC
pause 100

OWout DQ, 1 , [$A1] 'Leer TH
pause 100
Owin DQ, 0 , [temp]
serout2 S_OUT,84,["TH: ",bin temp,"  ",dec temp,13,10]

OWout DQ, 1 , [$A2] 'Leer TL
pause 100
Owin DQ, 0 , [temp]
serout2 S_OUT,84,["TL: ",bin temp,"  ",dec temp,13,10]

OWout DQ, 1 , [$AC] 'Leer configuración
pause 100
Owin DQ, 0 , [temp]
serout2 S_OUT,84,["CFG: ",bin temp,"  ",dec temp,13,10]

temp = 30
OWout DQ, 1 , [$01] 'Escribe TH
pause 100
Owout DQ, 2 , [temp]
pause 100

temp = 26
OWout DQ, 1 , [$02] 'Escribe TL
pause 100
Owout DQ, 2 , [temp]
pause 100

Bueno eso es lo que he logrado gracias a la respuesta de Sanpic, la información esta, solo hay que usarla...

Ahora que logre obtener la temperatura y las configuraciones llegue a otro problema pero eso ya es asunto de otro post, que aun busco en el foro ...