Wpadł pomysł, żeby do mojego wskaźnika napięcia akumulatora, dołożyć wykres, który malowałby zmiany napięcia i który można by przesuwać paluchem po ekranie tak, żeby możliwe było cofanie do wcześniejszych odczytów.
Po pierwszych próbach wygląda to tak.
iframe
[syntax=basic4gl]Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim siatka As Bitmap
Dim marg As Bitmap
Dim wykres_canvas As Canvas
Dim wykres_rect As Rect
Dim list As List
Dim tt As Double
Dim py As Double
Dim ky As Double
Dim tx As Double
Dim mx As Double
Dim mx_up As Double
Dim txx As Double
Dim sht As Double
Private Panel1 As Panel
Private Label2 As Label
Private Label1 As Label
Private Label3 As Label
Private Label4 As Label
Private Label5 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("wykres")
Activity.Title="Wykres mbDroid"
Label1.Text=".."
Label2.Text=".."
wykres_canvas.Initialize(Panel1)
siatka.Initialize(File.DirAssets, "tabela_alfa.bmp")
marg.Initialize(File.DirAssets, "tabela_marg.bmp")
wykres_rect.Initialize(0%x, 0%y, 100%x, 100%y)
wykres_canvas.DrawBitmap(siatka, Null, wykres_rect)
list.Initialize
list.Clear
list = File.ReadList(File.DirAssets, "pomiary.txt")
Label3.Text = list.size
For tt = 0 To list.Size -2
If tt < list.Size - 1 Then
If IsNumber(list.Get(tt)) Then
py = list.Get(tt)
End If
If IsNumber(list.Get(tt+1)) Then
ky = list.Get(tt+1)
End If
End If
txx = tx+30
wykres_canvas.DrawLine(tx, py, txx , ky, Colors.Red, 7)
wykres_canvas.DrawBitmap(marg, Null,wykres_rect)
tx = txx
Activity.Invalidate
Label2.Text = tx
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Activity_Touch (Action As Int, X As Float, Y As Float)
Select Action
Case Activity.ACTION_DOWN
mx = X
Label1.Text = mx
Case Activity.ACTION_MOVE
sht = (X - mx) + mx_up
py = 730
wykres_canvas.DrawRect(wykres_rect, Colors.White, True , 5dip)
wykres_canvas.DrawBitmap(siatka, Null,wykres_rect)
tx = 150 + sht
For tt = 0 To list.Size -2
If tt < list.Size - 1 Then
If IsNumber(list.Get(tt)) Then
py = list.Get(tt)
End If
If IsNumber(list.Get(tt+1)) Then
ky = list.Get(tt+1)
End If
End If
txx = tx+30
wykres_canvas.DrawLine(tx, py, txx , ky, Colors.Red, 7)
tx = txx
Activity.Invalidate
Next
wykres_canvas.DrawBitmap(marg, Null, wykres_rect)
Label2.Text = Floor(sht)
Case Activity.ACTION_UP
mx_up = sht
End Select
End Sub[/syntax]Statystyki: Napisane przez Wojtek Apel — 23 lip 2017, o 21:33
]]>
