دوستان من نوتیفیکیشن ساختم برای برنامه که تاریخ روز جاری رو توی اعلان ها نمایش بده . اما چون نوتیف ثابت میمونه روز که عوض میشه تاریخ بروز نمیشه . تاریخ همون روزی رو نشون میده که برنامه رو نصب کردیم باز کردیم . چجور میشه دستور بدیم توی نوتیف که هر روز تاریخ روز جاری رو بخونه ؟
اینم کدهام توی ماژول starter
#Region Service Attributes
#StartAtBoot: true
#StartCommandReturnValue: android.app.Service.START_STICKY
#ExcludeFromLibrary: True
#End Region
Sub Process_Globals
Private icon1,icon2 As Bitmap
Dim notf As Notification
Dim mpd As ManamPersianDate
End Sub
Sub Service_Create
End Sub
Sub Service_Start (StartingIntent As Intent)
If notf.IsInitialized = False Then
tarikh
End If
Service.StopAutomaticForeground 'Call this when the background task completes (if there is one)
End Sub
Sub Service_TaskRemoved
'This event will be raised when the user removes the app from the recent apps list.
End Sub
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
Sub Service_Destroy
End Sub
Sub tarikh
Try
Dim n As NB6
Dim cs As CSBuilder
n.Initialize("default","", "HIGH").AutoCancel(False).SmallIcon(icon1).LargeIcon(icon1).OnlyAlertOnce(True).Color(Colors.Yellow).SetDefaults(False,False,False)
Dim title As Object = cs.Initialize.Size(14).Typeface(Typeface.LoadFromAssets("BKOODB.TTF")).Color(Colors.Black).Append(ConvertFA2EN(mpd.PersianLongDate)).PopAll
Dim Content As Object = cs.Initialize.Size(14).Typeface(Typeface.LoadFromAssets("BKOODB.TTF")).Color(Colors.LightGray).Append(ConvertFA2EN(mpd.GregorianDay) & " " & mpd.GregorianMonthNameFarsi & " " & ConvertFA2EN(mpd.GregorianYear)).PopAll
notf = n.Build(title,Content, "tag1", taghvim)
Service.StartForeground(1,notf)
Catch
End Try
End Sub
Sub ConvertEn2fa (Content As String) As String
Dim Res As String = Content
Res = Res.Replace("۰","0")
Res = Res.Replace("۱","1")
Res = Res.Replace("۲","2")
Res = Res.Replace("۳","3")
Res = Res.Replace("۴","4")
Res = Res.Replace("۵","5")
Res = Res.Replace("۶","6")
Res = Res.Replace("۷","7")
Res = Res.Replace("۸","8")
Res = Res.Replace("۹","9")
Return Res
End Sub
Sub ConvertFA2EN (Content As String) As String
Dim Res As String = Content
Res = Res.Replace("0", "۰")
Res = Res.Replace("1", "۱")
Res = Res.Replace("2", "۲")
Res = Res.Replace("3", "۳")
Res = Res.Replace("4", "۴")
Res = Res.Replace("5", "۵")
Res = Res.Replace("6", "۶")
Res = Res.Replace("7", "۷")
Res = Res.Replace("8", "۸")
Res = Res.Replace("9", "۹")
Return Res
End Sub
سوال
mahfelsoft 130
دوستان من نوتیفیکیشن ساختم برای برنامه که تاریخ روز جاری رو توی اعلان ها نمایش بده . اما چون نوتیف ثابت میمونه روز که عوض میشه تاریخ بروز نمیشه . تاریخ همون روزی رو نشون میده که برنامه رو نصب کردیم باز کردیم . چجور میشه دستور بدیم توی نوتیف که هر روز تاریخ روز جاری رو بخونه ؟
اینم کدهام توی ماژول starter
#Region Service Attributes #StartAtBoot: true #StartCommandReturnValue: android.app.Service.START_STICKY #ExcludeFromLibrary: True #End Region Sub Process_Globals Private icon1,icon2 As Bitmap Dim notf As Notification Dim mpd As ManamPersianDate End Sub Sub Service_Create End Sub Sub Service_Start (StartingIntent As Intent) If notf.IsInitialized = False Then tarikh End If Service.StopAutomaticForeground 'Call this when the background task completes (if there is one) End Sub Sub Service_TaskRemoved 'This event will be raised when the user removes the app from the recent apps list. End Sub Sub Application_Error (Error As Exception, StackTrace As String) As Boolean Return True End Sub Sub Service_Destroy End Sub Sub tarikh Try Dim n As NB6 Dim cs As CSBuilder n.Initialize("default","", "HIGH").AutoCancel(False).SmallIcon(icon1).LargeIcon(icon1).OnlyAlertOnce(True).Color(Colors.Yellow).SetDefaults(False,False,False) Dim title As Object = cs.Initialize.Size(14).Typeface(Typeface.LoadFromAssets("BKOODB.TTF")).Color(Colors.Black).Append(ConvertFA2EN(mpd.PersianLongDate)).PopAll Dim Content As Object = cs.Initialize.Size(14).Typeface(Typeface.LoadFromAssets("BKOODB.TTF")).Color(Colors.LightGray).Append(ConvertFA2EN(mpd.GregorianDay) & " " & mpd.GregorianMonthNameFarsi & " " & ConvertFA2EN(mpd.GregorianYear)).PopAll notf = n.Build(title,Content, "tag1", taghvim) Service.StartForeground(1,notf) Catch End Try End Sub Sub ConvertEn2fa (Content As String) As String Dim Res As String = Content Res = Res.Replace("۰","0") Res = Res.Replace("۱","1") Res = Res.Replace("۲","2") Res = Res.Replace("۳","3") Res = Res.Replace("۴","4") Res = Res.Replace("۵","5") Res = Res.Replace("۶","6") Res = Res.Replace("۷","7") Res = Res.Replace("۸","8") Res = Res.Replace("۹","9") Return Res End Sub Sub ConvertFA2EN (Content As String) As String Dim Res As String = Content Res = Res.Replace("0", "۰") Res = Res.Replace("1", "۱") Res = Res.Replace("2", "۲") Res = Res.Replace("3", "۳") Res = Res.Replace("4", "۴") Res = Res.Replace("5", "۵") Res = Res.Replace("6", "۶") Res = Res.Replace("7", "۷") Res = Res.Replace("8", "۸") Res = Res.Replace("9", "۹") Return Res End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.