کتابخانه PersianData (آپدیت)

[نیما قبادی 246]

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

کتابخانه ای بود به نام PersianData که بعد از چند وقت آپدیتی از بچه های بیسیک فور اندروید بیرون اومد که انگار کتابخانه با انسخه 5 بیسیک مشکل داشت

حالا برای ما مشکل داشت برای شما عزیزان نمیدونم .

فقط اگه مشکلی داشت حتما اطلاع بدید به خود بنده (خصوصی)

 

دانلود

 

امیدوارم بدرد بخور باشه

در ضمن هر کس کتابخانه ای یا ایده ای برای ساخت کتاب خانه داشت در بخش http://answercenter.ir/forum/35-%D8%AF%D8%B1%D8%AE%D9%88%D8%A7%D8%B3%D8%AA-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87/   حتما موضوع خودشو ایجاد کنه

 

با تشکر

[coco 1,746]

میشه بگین کتابخانه چکار میکنه؟

[نیما قبادی 246]

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

حالا یک نمونه از کاراش اینه:

میتونی توی سرویس ازش استفاده کنی برای تایم گذاری به برنامه حالا هرچی مثلا 10 تا متن داری میخوای یه زمانی بزاری براش تا اجرا بشه و یکی یکی عوض بشه هم خودت بتونی عوض کنی هم کاربر دیگه بستگی به برنامه داره کی چی باشه

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

اینم یک نمونه از سرویسش که برای هفته هاست:

#Region  Service Attributes 
	#StartAtBoot: False
#End Region

Sub Process_Globals
	Dim r As RemoteViews
	Dim T As Timer
	Dim strdate As String
	Dim day As String
	Dim DaysStr() As String
	DaysStr = Array As String ("یکشنبه", "دوشنبه", "سه شنبه", "چهارشنبه", "پنج شنبه", "جمعه", "شنبه")
End Sub
Sub Service_Create
	r = ConfigureHomeWidget("persian_Date", "r", 0 , "1  تقویم", False)
End Sub

Sub Service_Start (StartingIntent As Intent)
	r.HandleWidgetEvents(StartingIntent)

	T.Initialize("T1", "1000")
	T.Enabled = True
	Dim Pers_date As PersianDate
	strdate = Pers_date.getDate(0, 0, 0, "/")
	day = DaysStr(DateTime.GetDayOfWeek(DateTime.Now) - 1)
	r.SetText("Label1",strdate&"  "& day)
End Sub

Sub rv_RequestUpdate
	Dim Pers_date As PersianDate
	strdate = Pers_date.getDate(0, 0, 0, "/")
	day = DaysStr(DateTime.GetDayOfWeek(DateTime.Now) - 1)
	r.SetText("Label1",strdate&"  "& day)
	
	r.UpdateWidget
End Sub

Sub T1_Tick
	rv_RequestUpdate
End Sub

Sub Label1_Click
	StartActivity(Main)
End Sub

Sub rv_Disabled
	StopService("")
End Sub

Sub Service_Destroy
	T.Enabled = False
End Sub

موفق باشید

[Mostafanet 21]

مشگل برطرف شد.

[sajad325 76]

لینک مشکل داره