اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


محمدرضا شاهپیری

استفاده حرفه ای از اکتیویتی و سرویس در بیسیک(انتقال مقادیر به صورت استاندارد بین کامپوننتها)

8 ارسال در این موضوع قرار دارد

استاد شاهپیری عزیز

 

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

میشه یه مثال بزنید ؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 51 دقیقه قبل، حمید زارع گفته است :

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

به دردهای زیادی میخوره.:DD:

یکی از مواردش اینه که مثلا یه رسیور داریم(مثل پوش) ، وقتی اطلاعات دریافت میشن خب سرویس ما استارت میشه، همون لحظه میخوایم یه اکتیویتی استارت کنیم و اطلاعاتِ توی سرویس رو اونجا نمایش بدیم.

میایم بجای اینکه متغیر توی Proccess_Gloubal تعریف کنیم مستقیماً مقادیر رو میدیم به Intent ای که قراره واسمون کلاس مورد نظر رو استارت کنه. و ازاونور هم اون مقادیر رو میگیریم.

 

مثلا سرویس های پوش ناتیفیکیشن مثل توسعه یار، پوشه و...

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

 

درکل کارش همون انتقال مقادیر بین سرویس، اکتیویتی.... و... هست(بجای تعریف متغیر در Proccess_Goubal) - اما کمی متفاوت و بهینه تر

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

چطور می شود که بعد از کلیک بر روی نوتیفکشن اکتویتی باز گردد.الان به محض باز شدن سرویس و نوتیفکشن اکتیوتی باز می شود.

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

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

لطفا سوالتون رو واضح بپرسید و اگه به این تاپیک مربوط نمیشه یه تاپیک جداگونه بزنید.

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

سلام مهندس شاهپیری

من یه سرویس ماژول دارم که تاریخ شمسی رو برمی گردونه.

حالا می خوام تاریخ شمسی رو از سرویس ماژول توی یه اکتیویتی(مثلاmain) نمایش بدم.

کدهایی که نوشتین رو وارد کردم ولی شما توضیح ندادین که کجای اکتیویتی می تونیم نمایشش بدیم.

مقداری که از سرویس ماژول گرفتیم رو چطوری تو لیبل در اکتیویتی main نمایش بدیم؟

ممنون و متشکر

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

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

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
در 21 ساعت قبل، محمدرضا شاهپیری گفته است :

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

من مبتدی هستم و این کد سوریس ماژولم هست . میخوام تو لیبل در اکتیویتی main تاریخ شمسی رو نشون بدم. کدش چیه؟ ممنون

 

Sub Process_Globals

Dim sNotif As Notification
Dim sd As String

End Sub
Sub Service_Create
sNotif.Initialize
sNotif.Icon = "icon"
sd = getDate
sNotif.SetInfo("تاریخ امروز",sd,Main)
sNotif.Sound = False
sNotif.Notify(1)
Service.StartForeground(1,sNotif)
End Sub


Sub getDate As String  'کد تبدیل ماه های میلادی به شمسی
Dim d1 As PersianDate
Dim s1(),month,Day As String
s1 = Regex.Split("/",d1.getDate(0,0,0,"/"))
Dim now As String 
now = DateTime.GetDayOfWeek(DateTime.now)
Select now
		Case "1"
			Day="یکشنبه"
		Case "2"
			Day="دوشنبه"
		Case "3"
			Day="سه شنبه"
		Case "4"
			Day="چهار شنبه"
		Case "5"
			Day="پنج شنبه"
		Case "6"
			Day="جمعه"
		Case "7"
			Day="شنبه"
	End Select
Select Case s1(1)
 Case 1
  month = "فروردین"
 Case 2
  month = "اردیبهشت"
 Case 3
  month = "خرداد"
 Case 4
  month = "تیر"
 Case 5
  month = "مرداد"
 Case 6
  month = "شهریور"
 Case 7
  month = "مهر"
 Case 8
  month = "آبان"
 Case 9
  month = "آذر"
 Case 10
  month = "دی"
 Case 11
  month = "بهمن"
 Case 12
  month = "اسفند"
End Select
Return " امروز " & Day & "" & ConvertNumbers2Persian(s1(2))  & " " & month & " " & ConvertNumbers2Persian(s1(0))
End Sub

Sub ConvertNumbers2Persian(sNumber As String) As String  'اینم کد تبدیل اعداد به فارسی
Dim sNumbers(10) As String
Dim res As String
Dim j As Int
res = sNumber
sNumbers(0) = "٠"
sNumbers(1) = "١"
sNumbers(2) = "٢"
sNumbers(3) = "٣"
sNumbers(4) = "٤"
sNumbers(5) = "٥"
sNumbers(6) = "٦"
sNumbers(7) = "٧"
sNumbers(8) = "٨"
sNumbers(9) = "٩"
For i =0 To sNumber.Length - 1
 j = sNumber.SubString2(i,i+1)
 res = res.Replace(sNumber.CharAt(i),sNumbers(j))
Next
Return res
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

مطالب شما نیاز است به تایید مدیران برسد

مهمان
شما به عنوان کاربر مهمان در حال حاضر دیدگاه ارسال می کنید. اگر دارای حساب کاربری در سایت هستید لطفا وارد حساب کاربری خود شوید.
ارسال پاسخ به این موضوع ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از ۷۵ اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.