Mediciones directas en Excel. (4 / 6 steg)

Steg 4: makron

La hoja Excel contiene dos makron: La primera permite limpiar el área de lectura para iniciar el proceso. Se invoca mediante "Kontroll + i"

La segunda makro inicia el proceso de lectura automática y se invoca mediante "CTRL + t" según se definiera al construirlas

. La cantidad de puntos en 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 nej han realizado pruebas concluyentes y puede llegar, aparentemente en 5/segundo, pero depende del entorno. El número máximo de puntos en leer esta limitado por los cerca de 32.000 pares que se pueden graficar pero sv otras banan de Excel este número es borgmästare. El gráfico es opcional, pero útil, siendo posible adicionar otros cálculos convenientes como máximos y mínimos y todo lo que se uppskatt adecuado dentro de la velocidad de operación. En el ejemplo se agrega una "trendline" de suavizado de 45 puntos.

Makro de inicio:

"Kortkommando: Ctrl + i

Sub inicia()

ActiveSheet.Range("D4:E32005"). ClearContents

End Sub

------

Makro de lectura:

Sub temper()

"Makro inspelad 20/06/2016 av JaimeAravena Lee valor desde web esp8266

"Kortkommando: Ctrl + t

Rad = 4' fila de inicio de los datos leidos

Slutliga = ActiveSheet.Range("L2"). Värdet + 3 "numero de datos en leer

Retardo = ActiveSheet.Range("L1"). Värdet ' retardo medición(aprox)

L: Range("A1"). Välj ' område donde esta el fråga

On Error Resume Next ' para ingen trabarse

Selection.QueryTable.Refresh BackgroundQuery: = False

ActiveSheet.Range ("D" & CStr(Row)). Värde = Worksheets(1). Range("D1"). Värde

ActiveSheet.Range ("E" & CStr(Row)). Värde = Worksheets(1). Range("E1"). Värde

newHour = Hour(Now())

newMinute = Minute(Now())

newSecond = Second(Now()) + Retardo

waitTime = TimeSerial (newHour, newMinute, newSecond)

Application.Wait waitTime "esperar para continuar

Rad = rad + 1

Om (rad < slutliga) sedan GoTo L:

End Sub

ESTA makro copia los valores de "D1:E1" en cada linea consecutiva. Puede llamar la atención el uso de la amerikansk estructura con GOTO pero, al parecer los bucles medan interactúan con el fråga pudiendo provocar que se "cuelgue". La cláusula På fel es grundläggande pues la conexión entre equipos ingen está garantizada. En caso de perdida de conectividad, se repite el valor främre. El dibujo de inicio se muestra una pagina sv que se ha definido una trendlinje que suaviza 30 lecturas. La sensibilidad del sensorn es del orden de 1/3 de grado debido al ADC.