#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: esp8266
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#LibraryVersion: 2.20
#LibraryName: OkHttpUtils2
#End Region
Sub Process_Globals
Dim Timer1 As Timer
End Sub
Sub Globals
Dim daten As String
Dim job1 As HttpJob
Private hlinks As Button
Private links As Button
Private hrechts As Button
Private mitte As Button
Private rechts As Button
Private vor As Button
Private zurueck As Button
Private v0 As Button
Private v1 As Button
Private v2 As Button
Private ser0 As Button
Private ser1 As Button
Private sharp As Button
Private edit1 As EditText
Timer1.Initialize("Timer1", 700)
Timer1.Enabled = True
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("esp8266")
job1.Initialize("Job1", Me)
edit1.text ="hallo"
End Sub
Sub JobDone (job As HttpJob)
Log("JobName = " & job.JobName & ", Success = " & job.Success)
If job.Success = True Then
Select job.JobName
Case "Job1"
daten = job.getString
edit1.text=daten
End Select
End If
job.Release
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Timer1_Tick
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=leer")
Delay(400)
End Sub
Sub rechts_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=rechts")
Delay(200)
End Sub
Sub hrechts_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=hrechts")
Delay(200)
End Sub
Sub mitte_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=mitte")
Delay(200)
End Sub
Sub hlinks_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=hlinks")
Delay(200)
End Sub
Sub links_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=links")
Delay(200)
End Sub
Sub v0_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=v0")
Delay(200)
End Sub
Sub v1_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=v1")
Delay(200)
End Sub
Sub v2_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=v2")
Delay(200)
End Sub
Sub zurueck_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=zur")
Delay(200)
End Sub
Sub vor_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=vor")
Delay(200)
End Sub
Sub ser0_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=ser0")
Delay(200)
End Sub
Sub ser1_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=ser1")
Delay(200)
End Sub
Sub sharp_Click
Dim job1 As HttpJob
job1.Initialize("Job1", Me)
job1.Download("http://192.168.2.102/?pin=sharp")
Delay(200)
End Sub
Sub Delay(nMilliSecond As Long)
Dim nBeginTime As Long
Dim nEndTime As Long
nEndTime = DateTime.Now + nMilliSecond
nBeginTime = DateTime.Now
Do While nBeginTime < nEndTime
nBeginTime = DateTime.Now
Log(nBeginTime)
If nEndTime < nBeginTime Then
Return
End If
DoEvents
Loop
End Sub