#Region Project Attributes
#MainFormWidth: 280
#MainFormHeight: 880
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Public mainpnl,panel2 As B4XView
Private xui As XUI
Private MediaView1 As MediaView
Private MediaView2 As MediaView
Private Label1 As Label
Private Label2 As Label
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.SetFormStyle("UNDECORATED")
MainForm.WindowLeft=0
MainForm.WindowTop=0
MainForm.Show
MediaView2.Source= File.geturi(File.DirAssets,"design.mp4")
MediaView1.Source= File.geturi(File.DirAssets,"forestn.mp4")
dostart
End Sub
Sub dostart
Dim x As Int =0
Do Until x=1
loadpageinadvance(mainpnl)
MediaView1.Position=0
MediaView1.Play
clickpanel2(1)
showPanelandHideSender(panel2,mainpnl)
Dim first As Int =10000
Do Until first = 0
Sleep(1000)
first = first - 1000
Label1.Text="1 "&(first/1000)
Sleep(0)
Loop
loadpageinadvance(panel2)
MediaView2.Position=0
MediaView2.Play
clickpanel1(1)
showPanelandHideSender(mainpnl,panel2)
Dim second As Int =10000
Do Until second = 0
Sleep(1000)
second = second - 1000
Label2.Text= "2 "&(second/1000)
Sleep(0)
Loop
Loop
End Sub
