Sub dispara
Try
If pimagenbreak(laban99,0)<>"" Then
If File.Exists (File.DirDefaultExternal & "/bzmonitor/ImgBreak" , pimagenbreak(laban99,0)) Then
timer6.Enabled=False
If pimagenbreak(laban99,1)>0 Then 'seconds
timer6.Interval=pimagenbreak(laban99,1)*1000
End If
Dim ss1 As Int
ss1=sf.InString(pimagenbreak(laban99,0),".mp4")
If ss1>0 Then
ss1=0
ImageView11.Visible=False
SimpleExoPlayerView1.Visible= True
Log ("Show Video: " & "/bzmonitor/ImgBreak " & pimagenbreak(laban99,0))
player1.Prepare(player1.CreateFileSource(File.DirDefaultExternal & "/bzmonitor/ImgBreak" , pimagenbreak(laban99,0)))
SimpleExoPlayerView1.Player = player1
SimpleExoPlayerView1.UseController = False
SimpleExoPlayerView1.ResizeMode="FILL"
player1.Play
Else
'if is image
SimpleExoPlayerView1.Visible= False
ImageView11.Visible=True
Log ("Show Image: " & pimagenbreak(laban99,0))
ImageView11.SetBackgroundImage (LoadBitmap(File.DirDefaultExternal & "/bzmonitor/ImgBreak" , pimagenbreak(laban99,0)))
'timer6.Enabled=True
End If
timer6.Enabled=True
Else
End If
End If
Catch
Log("44" & LastException.Message)
timer6.Enabled=True
End Try
End Sub