Version sans CustomView
B4X:
#Region Project Attributes
#ApplicationLabel: Digital_dashboard
#VersionCode: 1
#VersionName:
#SupportedOrientations: landscape
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private ImageView1, ImageView2, ImageView3, ImageView4, ImageView5, ImageView6, ImageView7 As ImageView
Private ImageView8, ImageView9, ImageView10, ImageView11, ImageView12, ImageView13, ImageView14 As ImageView
Private ImageView15, ImageView16, ImageView17, ImageView18, ImageView19, ImageView20, ImageView21 As ImageView
Private ImageView22, ImageView23, ImageView24, ImageView25, ImageView26, ImageView27, ImageView28 As ImageView
Private ImageView29, ImageView30, ImageView31, ImageView32, ImageView33, ImageView34, ImageView35 As ImageView
Private ImageView36, ImageView37, ImageView38, ImageView39, ImageView40, ImageViews(40), ImageViews(41) As ImageView
Private SeekBarRPM As SeekBar
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
If FirstTime Then
SeekBarRPM.Value = 1
SeekBarRPM.Max = 39
End If
ImageViews = Array As ImageView (ImageView1, ImageView2, ImageView3, ImageView4, ImageView5, ImageView6, ImageView7, _
ImageView8, ImageView9, ImageView10, ImageView11, ImageView12, ImageView13, ImageView14, ImageView15, ImageView16, _
ImageView17, ImageView18, ImageView19, ImageView20, ImageView21, ImageView22, ImageView23, ImageView24, ImageView25, _
ImageView26, ImageView27, ImageView28, ImageView29, ImageView30, ImageView31, ImageView32, ImageView33, ImageView34, _
ImageView35, ImageView36, ImageView37, ImageView38, ImageView39, ImageView40)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SeekBarRPM_ValueChanged (Value As Int, UserChanged As Boolean)
Private i As Int
For i = 0 To Value
ImageViews(i).visible = True
Next
For i = Value + 1 To 39
ImageViews(i).visible = False
Next
End Sub
Attachments
Last edited: