سلام و عرض ادب و احترم به اساتید محترم و دوستان گرامی سایت
من یک مشکل شاید از نظر شما اساتید محترم پیش پا افتاده است ولی من با اون مشکل دارم هر چه در سایت و اینترنت گشتم پیدا نکردم لطفا کمک بفرمایید
دوستان و اساتید محترم من یک دیتا بیس دارم که در دیتا بیسم آمدم titr و متن و آهنگ معرفی کردم حال میخوام لیست ویویی که ساختم مثلا سوره حمد و آیه الکرسی که معرفی کردم روی هر کدام کلیک کنم سوره مربوط به هر کدام در اکتویتی دیگری که لیبل یا اسکرول دارم صدا زده شود و همراه با متن فایل mp3 من خوانده شود
البته بنده هم به این شکل برنامه نوشتم ولی نمی دانم مشکل کجاست
این main من است
#Region Project Attributes
#ApplicationLabel: منتخبی از قرآن
#VersionCode: 1
#VersionName:
'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
Dim sql1 As SQL
Dim matnnn As String
Dim music As String
End Sub
Sub Globals
Dim cur As Cursor
Private lv As ListView
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Lm")
If File.Exists(File.DirInternal,"databook.db") = False Then
File.Copy(File.DirAssets,"databook.db",File.DirInternal,"databook.db")
End If
sql1.Initialize(File.DirInternal,"databook.db",False)
cur=sql1.ExecQuery("SELECT * FROM tblbook")
For i=0 To cur.RowCount-1
cur.Position=i
lv.AddSingleLine(cur.GetString("Titr"))
Next
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub lv_ItemClick (Position As Int, Value As Object)
matnnn=Value
' music=Value
StartActivity(list)
End Sub
این هم list من که همان اکتویتی که لیبل در آن هست
Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim m As MediaPlayer
Dim sql1 As SQL
Dim cur As Cursor
Private btn As Button
Private lbl As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("list")
sql1.Initialize(File.DirInternal,"databook.db",False)
cur = sql1.ExecQuery("SELECT * FROM tblbook WHERE ID="&Main.matnnn&"")
For i = 0 To cur.RowCount -1
cur.Position = i
lbl.Text = cur.GetString("matn")
Next
m.Initialize2("m")
m.Load(File.DirAssets,cur.GetString("music"))
m.Play
End Sub
سوال
omid-j 28
سلام و عرض ادب و احترم به اساتید محترم و دوستان گرامی سایت
من یک مشکل شاید از نظر شما اساتید محترم پیش پا افتاده است ولی من با اون مشکل دارم هر چه در سایت و اینترنت گشتم پیدا نکردم لطفا کمک بفرمایید
دوستان و اساتید محترم من یک دیتا بیس دارم که در دیتا بیسم آمدم titr و متن و آهنگ معرفی کردم حال میخوام لیست ویویی که ساختم مثلا سوره حمد و آیه الکرسی که معرفی کردم روی هر کدام کلیک کنم سوره مربوط به هر کدام در اکتویتی دیگری که لیبل یا اسکرول دارم صدا زده شود و همراه با متن فایل mp3 من خوانده شود
البته بنده هم به این شکل برنامه نوشتم ولی نمی دانم مشکل کجاست
این main من است
#Region Project Attributes #ApplicationLabel: منتخبی از قرآن #VersionCode: 1 #VersionName: '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 Dim sql1 As SQL Dim matnnn As String Dim music As String End Sub Sub Globals Dim cur As Cursor Private lv As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Lm") If File.Exists(File.DirInternal,"databook.db") = False Then File.Copy(File.DirAssets,"databook.db",File.DirInternal,"databook.db") End If sql1.Initialize(File.DirInternal,"databook.db",False) cur=sql1.ExecQuery("SELECT * FROM tblbook") For i=0 To cur.RowCount-1 cur.Position=i lv.AddSingleLine(cur.GetString("Titr")) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub lv_ItemClick (Position As Int, Value As Object) matnnn=Value ' music=Value StartActivity(list) End Subاین هم list من که همان اکتویتی که لیبل در آن هست
Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region Sub Process_Globals End Sub Sub Globals Dim m As MediaPlayer Dim sql1 As SQL Dim cur As Cursor Private btn As Button Private lbl As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("list") sql1.Initialize(File.DirInternal,"databook.db",False) cur = sql1.ExecQuery("SELECT * FROM tblbook WHERE ID="&Main.matnnn&"") For i = 0 To cur.RowCount -1 cur.Position = i lbl.Text = cur.GetString("matn") Next m.Initialize2("m") m.Load(File.DirAssets,cur.GetString("music")) m.Play End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.