Direkt till Excel mätning (6 / 7 steg)
Steg 6: makron
Excel-bladet innehåller två makron: den första som låter dig att rengöra den
skrivområdet att starta processen. Det anropas av "Kontroll + i" enligt definitionen när den skapas.
Det andra makrot startar automatiskt läsprocessen med en slinga. Antal poäng att läsa och läsa intervall anges på samma blad, i cellerna "L1" och "L2". Den maximala läshastighet är om ett prov per sekund även om jag inte har avgörande bevis och kan tydligen 4 eller 5/sekund, men det beror på miljön.
Det maximala antalet poäng att läsa begränsas av de nästan 32 000 par som kan visas i diagram men i nyare versioner av Excel kunde detta antal vara större. Diagrammet är användbara, att vara möjligt att lägga till andra meningsfulla beräkningar som maximum och minimum och allt som anses lämpligt inom operativa hastighet. En instrumentpanel graf kan också genomföras.
Starta makrot:
"Kortkommando: Ctrl + i
Sub start()
ActiveSheet.Range("D4:E32005"). ClearContents
End Sub
Behandlingen makro:
Sub temper()
"Makro inspelad 20/06/2016 av c
"läsa värdet från web esp8266
"Kortkommando: Ctrl + t
Rad = 4' första datarad Läs
Slutliga = ActiveSheet.Range("L2"). Värdet + 3 ' antal värden att läsa
Retardo = ActiveSheet.Range("L1"). Värdet "ca fördröjning mellan läsningar
L: Range("A1"). Välj ' område holdiing frågan
På fel återupptas nästa
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
Rad = rad + 1
Om (rad < slutliga) sedan GoTo L:
End Sub
Detta makro kopierar "D1: E1" innehåll till det skriva-området.
Användning av föråldrade struktur GOTO är dued det uppenbara faktum att "medan" loopar samverkar dåligt med åtgärden "fråga" och kan få den att "hänga" men jag är inte säker. Instruktionen på fel är viktigt eftersom anslutningen mellan datorer inte kan garanteras. Vid förlust av connectivity upprepas det tidigare värdet. Andra lösningar är möjliga. I exemplet har definierat en trendlinje som slätar 30 avläsningar. Sensor känslighet här är ca 1/3 grader på grund av resolutionen som ADC.