Other Problem wih seekbar tutorial

howard bassen

Licensed User
Longtime User
I compiled this code from an example on Youtube.

It flashes the screen for a second and then disappears.
It uses the audio library from B4A.
Can anyone see what is the problem with this code?

Also, how would I substitute a progressbar as an indicator of the seekbar value?

Thanks in advance.


Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
End Sub

Sub Globals
Dim audio1 As Beeper
Dim SeekBar1 As SeekBar
Dim btnplay As Button
Private SeekBar1 As SeekBar
End Sub

Sub Activity_Create(FirstTime As Boolean)
SeekBar1.Max = 2500
End Sub

Sub Activity_Resume
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
If UserChanged Then
End If
End Sub
Sub btnplay_Click
End Sub


Licensed User
Longtime User
To better assist you, it would be better you attached the project, on the IDE, click on FILE -> EXPORT AS ZIP.

Also, when you post code, please enclose it between [code]...[/code] tags.
Last edited:
Upvote 0