Android Example digital dashboard

Screenshot.png


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

  • RPMMeter.zip
    146.6 KB · Views: 524
Last edited:
Top