آهنگ زدن برنامه هنگام برابر شدن زمان

[dr.mohammad 68]

سلام دوستان

من دو تا ادیت تکست دارم که توی یکیشون ساعت و در دیگری تاریخ را میزنم ودر دیتا بیس ذهیره می کنم می خوام وقتی ساعت و زمان فعلی با سلعت و تاریخی که ما وارد کردیم اگه برابر بود برنامه آهنگ بهش کنه و نمی خوام صرفا داخل برنامه باشم اگه برنامه هم بسته بود می خوام زنگ بزنه

ممنون میشم توضیح بفرمایید

[مهدی ایزدی 9,203]

درود

اگر میخواهید در هر حال برنامه زنگ خودش رو بخوره باید از سرویس استفاده کنید

بارها در این مورد توی انجمن سوالات پرسیده شده و پاسخ داده شدن

جست و جو کنید حتما به نتیجه میرسید

[dr.mohammad 68]

سلام استاد نیکروان شما به من گفتید که توی کد هام اشتباه کردم ولی من کل کد رو دوباره چک کردم و نمی دونم کجاش اشتباهه هر دقیقه یکبار پیام میده متاسفانه برنامه بسته شده اینم کد ها دوباره میزارم

#Region  Service Attributes 
	#StartAtBoot: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	
	
   Dim pn As PNBroadcastReceiver
	Dim n As Notification
	Dim med As MediaPlayer


    Dim SQL As SQL
	
	Dim cur As Cursor
End Sub
Sub Service_Create

	'--------------------------------------------
	'data base
	If File.Exists(File.DirInternal,"barnameriz.db") = False Then
		File.Copy(File.DirAssets,"barnameriz.db",File.DirInternal,"barnameriz.db")
	End If
	If SQL.IsInitialized = False Then
		SQL.Initialize(File.DirInternal,"barnameriz.db",True)
	End If 
	 '-------------------------------------------

   
	pn.Initialize("pn")
	pn.AddAction("android.intent.action.TIME_TICK")
	pn.RegisterReceiver
	
	
End Sub




Sub Service_Start (StartingIntent As Intent)

StartServiceAt("", DateTime.Now + 60000*4,True)

End Sub
Sub pn_OnReceive(Action As String,keys() As String,Data As Object)

     Dim t As tabdiladadBeEn
	t.Initialize

   If Action="android.intent.action.TIME_TICK" Then



   Dim time2 As String=DateTime.time(DateTime.Now)
		time2=time2.SubString2(0,5)
		time2=t.Tabdil(time2)
		
		Dim date2 As String=DateTime.date(DateTime.Now)
		date2=t.Tabdil(date2)


        cur = SQL.ExecQuery("Select * from table_kol")  ' where saat like '%"&time2&"%' AND tarikh like '%"&date2&"%'" ")
	
        For i = 0 To cur.RowCount - 1
		cur.Position = i
		
		Next
If cur.GetString("saat")=time2 AND cur.GetString("tarikh") = date2 Then
		
		
			n.Initialize
			n.Icon="icon"
			n.OnGoingEvent=True
			n.AutoCancel=True
			n.SetInfo("ساعت زنگدار","دیرینگ دیرینگ...",getNoty)
			n.Notify(1)
			
			
			med.Initialize
			med.Load(File.DirAssets,"ring.mp3")
			med.Looping=True
			med.Play
			Else
				'Log(time&"|"&time2&" && "&date&"|"&date2)
		End If
        
   End If
   
   
End Sub

Sub stopmed
	med.Stop
End Sub
Sub Service_Destroy
	StartService("")
End Sub

ممنونم

[porya 959]

سلام این تاپیک رو ببینید...
http://answercenter.ir/topic/12737-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A7%D9%86%D8%AC%D8%A7%D9%85-%D8%B9%D9%85%D9%84%DB%8C-%D8%AF%D8%B1-%D8%B3%D8%A7%D8%B9%D8%AA-%D9%88-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-%D9%85%D8%B4%D8%AE%D8%B5-%D8%A8%D8%B5%D9%88%D8%B1%D8%AA-%D8%A7%D8%B3%D8%AA%D8%A7%D9%86/

[dr.mohammad 68]

سوالای من چه مشکلی داره کسی جواب نمیده جواب بدین دیگه

[محمد رشوند 1,208]

@@dr.mohammad,

این ساب رو جایگزین کنید

Sub pn_OnReceive(Action As String,keys() As String,Data As Object)
     Dim t As tabdiladadBeEn
	t.Initialize
   If Action="android.intent.action.TIME_TICK" Then	
   Dim time2 As String=DateTime.time(DateTime.Now)
		time2=time2.SubString2(0,5)
		time2=t.Tabdil(time2)
		Dim date2 As String=DateTime.date(DateTime.Now)
		date2=t.Tabdil(date2)
        For i = 0 To cur.RowCount - 1
		cur.Position = i
		If time2=cur.GetString("saat") And date2 = cur.GetString("tarikh") Then
			n.Initialize
			n.Icon="icon"
			n.OnGoingEvent=True
			n.AutoCancel=True
			n.SetInfo("ساعت زنگدار","دیرینگ دیرینگ...",getNoty)
			n.Notify(1)
			med.Initialize
			med.Load(File.DirAssets,"ring.mp3")
			med.Looping=True
			med.Play
			Else
		End If	
		Next
   End If
End Sub

[mamadreza 0]

در در 1395/02/25, 20:21:19، basic4roid گفته است :

Dim t As tabdiladadBeEn t.Initialize

 

[reza644 435]

در 16 دقیقه قبل، mamadreza گفته است :

سلام

آقا کتابخانه tabdiladadBeEn چیه؟؟؟؟؟؟

لطفا راهنمایی کنین.

من توی کد استفاده می کنم ولی میگه کتابخانه اش موجود نیست

تاپیک جدید بزنید

 

لطفا تاپیک قدیمی رو بالا نیارید

[dr.mohammad 68]

سلام استاد نیکروان

بنده از کد شما استافاده کردم وتا جاهایی پیش رفتم ولی چون اولین بارمه که با سرویس کار می کنم مسلما با ید برام گنگ باشه سوالاتی دارم

1- دقیقا اکتیویتی starter وgetnoty کارشون چیه

2- در اکتویتیه myclock  هم از کد هایی استفاده کردین که اولین باریه که من می بینم و نمی دونم چیه اون کد هارو تیکه تیکه میزارم

pn.AddAction("android.intent.action.TIME_TICK")
	pn.RegisterReceiver

Sub Service_Start (StartingIntent As Intent)
	StartServiceAt("", DateTime.Now + 60000*4,True)
	
End Sub

Action="android.intent.action.TIME_TICK"

time2=time2.SubString2(0,5)

Log(time&"|"&time2&" && "&date&"|"&date2)

Sub stopmed
	med.Stop
End Sub
Sub Service_Destroy
	StartService("")
End Sub

3- در اکتویتی main هم به مشکلاتی برخوردم

arr=Regex.Split(":",time)
EditText1.Text=arr(0)
EditText2.Text=arr(1)

--------------------------------------

 

در ضممن من چطوری دیتا بیس رو در اکتیوتی my clock فرا خوانی کنم چون اون data و time شما که ادیت تکست هست برای من در دیتا بیسم هست

 

-----------------------------------

 

از این کد هم استفاده کردم ولی کار نمی کنه

#Region  Service Attributes 
	#StartAtBoot: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	
	
   Dim pn As PNBroadcastReceiver
	Dim n As Notification
	Dim med As MediaPlayer


    Dim SQL As SQL
	
	Dim cur As Cursor
End Sub
Sub Service_Create

	'--------------------------------------------
	'data base
	If File.Exists(File.DirInternal,"barnameriz.db") = False Then
		File.Copy(File.DirAssets,"barnameriz.db",File.DirInternal,"barnameriz.db")
	End If
	If SQL.IsInitialized = False Then
		SQL.Initialize(File.DirInternal,"barnameriz.db",True)
	End If 
	 '-------------------------------------------

   
	pn.Initialize("pn")
	pn.AddAction("android.intent.action.TIME_TICK")
	pn.RegisterReceiver
	
	
End Sub




Sub Service_Start (StartingIntent As Intent)

StartServiceAt("", DateTime.Now + 60000*4,True)

End Sub
Sub pn_OnReceive(Action As String,keys() As String,Data As Object)

     Dim t As tabdiladadBeEn
	t.Initialize

   If Action="android.intent.action.TIME_TICK" Then



   Dim time2 As String=DateTime.time(DateTime.Now)
		time2=time2.SubString2(0,5)
		time2=t.Tabdil(time2)
		
		Dim date2 As String=DateTime.date(DateTime.Now)
		date2=t.Tabdil(date2)


        cur = SQL.ExecQuery("Select * from table_kol")  ' where saat like '%"&time2&"%' AND tarikh like '%"&date2&"%'" ")
	
        For i = 0 To cur.RowCount - 1
		cur.Position = i
		
		Next
If cur.GetString("saat")=time2 AND cur.GetString("tarikh") = date2 Then
		
		
			n.Initialize
			n.Icon="icon"
			n.OnGoingEvent=True
			n.AutoCancel=True
			n.SetInfo("ساعت زنگدار","دیرینگ دیرینگ...",getNoty)
			n.Notify(1)
			
			
			med.Initialize
			med.Load(File.DirAssets,"ring.mp3")
			med.Looping=True
			med.Play
			Else
				'Log(time&"|"&time2&" && "&date&"|"&date2)
		End If
        
   End If
   
   
End Sub

Sub stopmed
	med.Stop
End Sub
Sub Service_Destroy
	StartService("")
End Sub

ممنون میشم بگید :heart: :heart: :heart: :53: :cheshmak: :cheshmak: ♥ :pardon: :pardon:

[محمد رشوند 1,208]

@@dr.mohammad,

بهتون یه وقت بر نخوره ولی پیشنهادم اینه اول یه دور قسمت مبتدیان سایت رو مطالعه کنید یکم اطلاعاتتون بره بالا

کد هاتون به ترتیب

قسمت اول یک اکشن با هر بار تیک خوردن ثانیه زمان خود گوشی تعریف شده و در خط دوم با رجیستر کردن اون اکشن روی حالت دریافت قرار گرفته تا هر لحظه چک کنه

قسمت دوم سرویس اون اکشن رو که به صورت برادکست ساخته شده هر 6 ثانیه چک میشه

قسمت سوم هم که اکشن تعریف شده

قسمت بعدی هم با ساب استرینگ اومدیم به صورت ارایه مقدار زمان رو داخل تایمر ریختیم

بقیش هم کد ها زیاده باید منطق برنامه نویسی رو بدونید کار با دیتابیس و مدیا پلیر و سرویس و .....

[dr.mohammad 68]

من از این کد استفاده کردم و از اون به بعد هر چند دیقه یه یه بار تو گوشی پیام میده متاسفانه برنامه متوقف شده است منم نمی تونم از برنامه تست بگیرم چجوری این مشکل رو حل کنم

[dr.mohammad 68]

استاد نیکروان لطفا چک کنید بیشتر از بیست و چهار ساعت شد

[dr.mohammad 68]

ینی کسی نیست سول منو جواب بده الان یه هفتست برنامم خوابیده جواب بدید دیگه

[dr.mohammad 68]

ممنون که وقت گذاشتید وجواب سوالمو دادید

این کد من با کدی که شما دادید چه تفاوتی داره

ممنون میشم پاسخ دهید

[dr.mohammad 68]

نه من در حال برنامه نمی خوام می خوام برنامه بسته باشه زنگ بزنه

[پژمان نیکروان 6,055]

نه من در حال برنامه نمی خوام می خوام برنامه بسته باشه زنگ بزنه

اینم وقتی برنامه بسته هست زنگ میزنه دیگه عزیز.

از سرویس باید استفاده کنید که اینجا هم از سرویس استفاده شده.