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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


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

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

پست های پیشنهاد شده

حمید زارع    330

کاربر نیمه فعال

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

 

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

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

  • پسندیدن 1

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
پژمان نیکروان    6,012

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

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

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

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

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

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

 

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

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

 

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

  • پسندیدن 7
  • تشکر 1

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


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

کاربر عادی

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,578

معاون انجمن

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

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

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


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

کاربر عادی

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

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

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

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

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

ممنون و متشکر

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
محمدرضا شاهپیری    3,578

معاون انجمن

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

  • تشکر 1

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


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

کاربر عادی

در 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

 

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
ارسال پاسخ به این موضوع ...

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

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

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

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

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


×
×
  • جدید...