Stap 4: macro's
La hoja Excel contains the dos macro's: La primera permite limpiar el área de lectura para iniciar el proceso. Se invoca zwaartelijn "Control + i"
La segunda macro inicia el proceso de lectura support y se invoca zwaartelijn "Ctrl + t" según se definiëren al construirlas
. La cantidad de puntos een leer y el intervalo de lectura se especifican nl la misma hoja, nl las celdas "L1" y "L2". La velocidad máxima de lectura es de alrededor de una muestra por segundo aunque geen hij realizado pruebas concluyentes y puede llegar, aparentemente een 5/segundo, pero depende del entorno. El número máximo de puntos een leer esta voor por los cerca de 32.000 uitsluitend que se pueden graficar pero nl otras met versies de Excel este número es burgemeester. El gráfico es opcional, pero bueno, siendo posible adicionar otros cálculos convenientes como máximos y mínimos y todo lo que se estima adecuado dentro de la velocidad de operación. Nl el ejemplo se agrega una "trendlijn" de suavizado de 45 puntos.
Macro de inicio:
' Sneltoets: Ctrl + i
Sub inicia()
ActiveSheet.Range("D4:E32005"). ClearContents
End Sub
------
Macro de lectura:
Sub temper()
' Macro opgenomen 20/06/2016 door JaimeAravena Lee valor desde web esp8266
' Sneltoets: Ctrl + t
Rij 4' fila de inicio de los datos leidos =
Laatste = ActiveSheet.Range("L2"). Waarde + 3 ' numero de datos een leer
Retardo = ActiveSheet.Range("L1"). Waarde ' retardo medición(aprox)
L: Range("A1"). Selecteer ' gebied donde esta el query
Op Error Resume Next ' para geen trabarse
Selection.QueryTable.Refresh BackgroundQuery: = False
ActiveSheet.Range ("D" & CStr(Row)). Waarde = Worksheets(1). Range("D1"). Waarde
ActiveSheet.Range ("E" & CStr(Row)). Waarde = Worksheets(1). Range("E1"). Waarde
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + Retardo
waitTime = TimeSerial (newHour, newMinute, newSecond)
Application.Wait waitTime ' esperar para continuar
Rij = rij + 1
Als (rij < definitieve) Then GoTo L:
End Sub
Esta macro copia los valores de "D1:E1" nl cada linea consecutiva. Puede llamar la atención el uso de la rietuil estructura con GOTO pero, al parecer los bucles terwijl interactúan con el query pudiendo provocar que se "cuelgue". La cláusula ON ERROR es fundamentele pues la Conexión entre draagt geen está garantizada. Nl caso de perdida de conectividad, se repite el valor anterior. El dibujo de inicio se muestra una pagina nl que se ha definido una trendlijn que suaviza 30 lecturas. La sensibilidad del sensor es del orden de 1/3 de grado dat al ADC.
