Una vez leido todos los sensores....
'****************************************************************
'**************************************************************************************
'************************* GRABACION DE SERIES EN EEPROM *****************************
''**************************************************************************
Edata $10,$12,$0E,$7F,$01,$08,$00,$83 'Número de serie del sensor 0
' Edata $10,$BE,$0F,$7F,$01,$08,$00,$6F 'Número de serie del sensor 1
' Edata $10,$C6,$58,$7F,$01,$08,$00,$92 'Número de serie del sensor 2
Edata $10,$A0,$51,$7F,$01,$08,$00,$10 'Número de serie del sensor 3
Edata $10,$74,$46,$7F,$01,$08,$00,$25 'Número de serie del sensor 4
Edata $10,$51,$4D,$7F,$01,$08,$00,$08 'Número de serie del sensor 5
' Edata $10,$F1,$49,$7F,$01,$08,$00,$4B 'Número de serie del sensor 6
' Edata $10,$66,$16,$70,$01,$08,$00,$1F 'Número de serie del sensor 7
Edata $10,$F4,$59,$F8,$00,$08,$00,$28 'Número de serie del sensor 8
'**************************************************************************
'****************************************************************
'**************************************************************************
y con esto visualizaremos las temperaturas....
Pass = 1
OtraVez:
fOR Sensor = 0 to 4 'Numero_de_sensores Quitar este 3 provisional
Sensor_por_8 = Sensor * 8 '....8
gosub Escribe_serie 'envía el código $55 seguido de los 8 bytes del número de serie
OWRITE DQ, 0,[$44] 'envía el código $44 de petición de conversión ADC
gosub Resete
gosub Escribe_serie
OWRITE DQ, 0,[$BE] 'Envía el código $BE para que se pueda leer el scratchpad
OREAD DQ,2,[Temp.LOWBYTE,Temp.HIGHBYTE,Cnt,Cnt,Cnt,Cnt,Cnt,Count_Per_Deg] 'Lee el scratchpad
Temp_Dec = (6.25 * Cnt)
Gosub Signo
select Pass
case 1
Print At 1,2, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 1 L ***
Case 2
Print At 1,10, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 1 - 1 L ***
Case 3
Print At 2,2, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 2 L ***
'Sala = Temp
case 4
Print At 2,10, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 2 - 2 L ***
Case 5
Print At 3,2, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 3 L ***
' case 6
' Print At 3,10, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 3 - 3L ***
' case 7
' Print At 4,2, Sign, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 4 L ***
' case 8
' Print At 4,11, Dec Temp, ".", Dec DIG Temp_Dec, 1, g',"c"'**** 3 - 3L ***
Pass = 1
endselect
Pass = Pass +1
Next
goto OtraVez
El numero de sensores es casi inf
creo, no creo que nadie compre sensores con el mismo codigo...
Un saludete....