Tak sobie próbuje różne pomysły wcielać w telefon. "Trochę się uczyć i nie umieć"
więc jeżeli ktoś chciałby coś podpowiedzieć jak zrobić to prościej, lepiej, to chętnie podpatrzę.
Wybrałem sobie pokrętełko w grafikach google konkretnie z jakiegoś kursu PS na YouTube , pociąłem w gimpie i spróbowałem je ożywić.
iframe
Muszę jeszcze dodać skalowanie, bo o ile panel/canvas ustawia się procentowo, to odczyt współrzędnych podczas miziania palcem na ekranie o innej rozdzielczości niż mój, nie będzie dobrze działać.
Tak się kręci
iframe
Kto wie skąd jest cytat ?
[syntax=basic4gl]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim knob_rect As Rect ' obszar malowania - prostokąt
Dim knob_knob As Bitmap ' gałka z tłem alfa
Dim knob_panel As Bitmap ' tło dla gałki
Dim canvas As Canvas ' canvas
Dim tt As Long
Private Panel1 As Panel
Private Label1 As Label
Private Label2 As Label
Private Label3 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("knob")
Activity.Title ="Biszkopt knob"
canvas.Initialize(Panel1)
knob_panel.Initialize(File.DirAssets, "knob_all.bmp") ' tło dla gałki
knob_knob.Initialize(File.DirAssets, "knob_zero.bmp") ' gałka
knob_rect.Initialize(0%x, 0%y, 100%x, 56%x) ' obszar malowania
canvas.DrawBitmap(knob_panel, Null, knob_rect)
canvas.DrawBitmap(knob_knob, Null, knob_rect) ' umieszcza gałkę i tło na obszarze malowania
Activity.Invalidate
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
Case Activity.ACTION_MOVE
Label1.Text = Floor(X) & " X"
Label2.Text = Floor(Y) & " Y"
If X > 260 And X < 820 And y < 400 Then ' ograniczenie obszaru reakcji na dotyk
If x < 550 Then
tt = y - 40
tt = tt / 3.3
tt = tt - (2 * tt)' wartości ujemne
Else
tt = y - 40
tt = tt / 3.3 ' wartości dodatnie
End If
canvas.DrawBitmapRotated(knob_knob, Null, knob_rect, tt) ' maluje gałkę obróconą o kąt tt
Activity.Invalidate
Label3.Text = Floor(tt +108)
End If
Case Activity.ACTION_UP
End Select
End Sub[/syntax]
Statystyki: Napisane przez Wojtek Apel — 24 lip 2017, o 23:12
]]>