#Region Project Attributes
#AutoFlushLogs: True
#CheckArrayBounds: True
#StackBufferSize: 600
#End Region
'
' Medida de Velocidad de ejecucion de Instrucciones
'
Sub Process_Globals
Public Serial1 As Serial
Private wifi As ESP8266WiFi
Public T_Inicio As ULong = 0
Public T_Final As ULong = 0
Public DT As ULong = 0
Public CT As Float = 0.0
Public C As ULong = 0
Public Tiempo01 As Timer
Public E1 As Pin
Public A1 As Pin
Public Estado_E1 As Boolean
Public Estado_A1 As Boolean
Dim B As Long = 1
Dim BB As Float = 0.1
Public M00(1000) As Float
Public M01(1000) As Float
Public M02(1000) As Float
Public M03(1000) As Float
Public M04(1000) As Float
Public M05(1000) As Float
Public M06(1000) As Float
Public M07(1000) As Float
Public M08(1000) As Float
Public M09(1000) As Float
Public M10(1000) As Float
Public M11(1000) As Float
Public M12(1000) As Float
Public M13(1000) As Float
Public M14(1000) As Float
Public M15(1000) As Float
Public M16(1000) As Float
Public M17(1000) As Float
Public M18(1000) As Float
Public M19(1000) As Float
Public Fr00(1000) As Float
Public Fr01(1000) As Float
Public Fr02(1000) As Float
Public Fr03(1000) As Float
Public Fr04(1000) As Float
Public Fr05(700) As Float
' Public Fr06(1000) As Float
' Public Fr07(1000) As Float
' Public Fr08(1000) As Float
' Public Fr09(1000) As Float
' Public Fr10(1000) As Float
' Public Fr11(1000) As Float
' Public Fr12(1000) As Float
' Public Fr13(1000) As Float
' Public Fr14(1000) As Float
' Public Fr15(1000) As Float
' Public Fr16(1000) As Float
' Public Fr17(1000) As Float
' Public Fr18(1000) As Float
' Public Fr19(1000) As Float
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
Log("................")
Log("... ARRANQUE ...")
Log("................")
'example of connecting to a local network
'If wifi.Connect2("SSID", "PASSWORD") Then
' Log("Connected to network")
'Else
' Log("Failed to connect to network")
'End If
' Define Entradas
E1.Initialize(36,E1.MODE_INPUT)
A1.Initialize(25,A1.MODE_INPUT)
Tiempo01.Initialize("Tarea",1000)
Tiempo01.Enabled = True
End Sub
Sub Tarea()
Dim A As Float = 0.0
Dim AA As Float = 0.0
T_Inicio = Micros ' Momento Inicial
For C = 0 To 999999
A = Rnd(-1000,1000)
A = A / 7
AA = Rnd(-1000,1000)
AA = AA / 7
AA = A / AA
Next
T_Final = Micros ' Momento Final
DT = T_Final - T_Inicio
CT = DT / C
Log("Tardo=", NumberFormat(DT,5,0), " us en Ejecutar ",C," Instruciones. ",CT ," ... ",A," ... ",AA )
End Sub