Étape 4: Macros
Macros de la hoja Excel contiene dos : La primera permite limpiar el área de lectura para iniciar el proceso. Se invoca mediante « Ctrl + i »
La segunda macro inicia el proceso de lectura automática y se invoca mediante « Ctrl + t » según se définir al construirlas
. La cantidad de puntos un leer y el intervalo de lectura se especifican en la misma hoja, en las celdas "L1" y "L2". La velocidad máxima de lectura es de alrededor de una muestra por segundo aunque aucune he realizado pruebas concluyentes y puede llegar, aparentemente un 5/segundo, pero depende del entorno. El número máximo de puntos un leer esta limitado por los cerca de 32.000 pares que se pueden graficar pero en otras versiones de Excel este número es mayor. El gráfico es opcional, pero útil, siendo adicionar posible otros cálculos convenientes como máximos y mínimos y todo lo que se estima adecuado dentro de la velocidad de operación. En el ejemplo se agrega una « trendline » de suavizado de 45 puntos.
Macro de inicio :
« Raccourci clavier : Ctrl + i
Void inicia()
ActiveSheet.Range("D4:E32005"). ClearContents
End Sub
------
Macro de lectura :
Void temper()
' Macro enregistrée le 20/06/2016 par JaimeAravena Lee valor desde web esp8266
« Raccourci clavier : Ctrl + t
Ligne = 4' fila de inicio de los datos leidos
Finale = ActiveSheet.Range("L2"). Valeur + 3 ' numero de datos un leer
Retardo = ActiveSheet.Range("L1"). Valeur ' retardo medición(aprox)
L: Range("A1"). Sélectionnez « requête d’el aire donde esta
On Error Resume Next ' para aucun trabarse
Selection.QueryTable.Refresh BackgroundQuery: = False
ActiveSheet.Range (« D » & CStr(Row)). Valeur = Worksheets(1). Range("D1"). Valeur
ActiveSheet.Range (« E » & CStr(Row)). Valeur = Worksheets(1). Range("E1"). Valeur
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + Retardo
waitTime = TimeSerial (newHour, newMinute, newSecond)
WaitTime Application.Wait "esperar para continuar
Ligne = ligne + 1
Si (ligne < Final) Then GoTo l :
End Sub
Esta macro copia los valores de "D1:E1" en cada linea consecutiva. Puede llamar la atención el uso de la obsoleta estructura con GOTO pero, al parecer los bucles tandis qu’interactúan con el requête comprometer provocar que se "cuelgue". La cláusula ON ERROR es fondamentales pues la conexión entre equipos aucun está garantizada. En caso de perdida de conectividad, antérieur valor pour se repite el. El dibujo de inicio se muestra una pagina fr que se ha una definido Trendline que suaviza 30 lecturas. La sensibilidad del capteur es del orden de 1/3 de grado debido al ADC.