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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


amardia

کاربر عادی
  • تعداد ارسال ها

    68
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

18 خوب

درباره amardia

  • درجه
    کاربر سایت
  • تاریخ تولد ۸۸/۰۵/۲۸

مشخصات پروفایل

  • محل زندگی
    Array

آخرین بازدید کنندگان نمایه

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

  1. چطور ؟ کدای androidvideocapture هم کار نکرد و دوربینو هم بالا نیاورد
  2. ممنون از پاسخگوییتون اما من می خوام داخل یک پنل دوربین نمایش داده بشه
  3. سلام گشتم ولی نتیجه ی دلخواهو نتوستم پیدا کنم اگه میشه راهنماییم کنید چطور می تونم داخل یک پنل دوربین جلو رو نمایش بدم و با زدن یه باتن فیلم برداری و زدن باتن دیگه فیلم برداری رو متوقف کنم ؟ اگه ممکنه با کد توضیح بدید
  4. سلام کسی میتونه چطور میشه تو برنامه یه تایمر آنلاین بذارم؟ اگه میشه با کد راهنمایی کنید
  5. amardia

    چک باکس در سرویس

    ممنون از پاسخگوییتون راه حلی که گفتید جواب داد اما وقتی برنامه اجرا نمیشه عمل نمی کنه و فقط توی برنامه عمل می کنه مثلا هر وقت باطری پر شد می خوام یه توست مسیج نشون بده (وقتی که کاربر تیک چک باکسو زده باشه ) ، توی خود برنامه این اتفاق می افته اما وقتی کامل برنامه رو می بندم نه اگه میشه در این مورد هم راهنمایی کنید
  6. سلام چطور می تونم از یه چک باکس توی سرویس استفاده کنم ؟ ظاهرا چک باکس رو نمیشه تو پروسس گلوباز تعریف کرد . یا سئوالمو بهتر بپرسم : اگه بخوام هر وقت تو اکتیویتی main یک چک باکس true شد یک شرط توی یک سرویس انجام بشه چه کار باید بکنم ؟ ممنون میشم کمکم کنید
  7. اینترنال ظاهرا مربوط به پوشه هایی هست که توی خود برنامه هست و ربطی به اون رم داخلی گوشی نداره
  8. ممنون داداش مال حافظه داخلی خود گوشی رو می خوام اگه ممکنه
  9. کسی نمی تونه کمک کنه ؟
  10. سلام عیدتون مبارک اگه میشه راهنمایی کنید که اگه بخوام اپ بیاد چک کنه که اگه یه فایلی تو حافظه داخلی خود گوشی وجود داشت حذف بشه و اگه نه بیاد اون فایل رو تو حافظه خارجی یا همون removable disk حذف کنه از چه کد هایی باید استفاده کنم . مرسی
  11. سلام اگه میشه راهنماییمم کنید که چطور وقتی برنامه اجرا شد داخل ادیت تکست کاربر اسم برنامه رو بنویسه و بازدن یه باتن اون برنامه اجرا بشه ؟ اگه میشه با کد راهنماییم کنید . سپاسگذارم
  12. سلام اگه میشه اکشن مربوط به قفل و باز شدن قفل صفحه رو هم بفرمایید چه کدیه ممنون
  13. سلام اگه بخوام بعد از هربار باز شدن قفل گوشی یه فایل صوتی تکراری پخش بشه چکار باید بکنم ؟ اگه میشه با کد توضیح بدید مرسی
  14. #Region Activity Attributes #FullScreen: False #IncludeTitle: 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. End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim job1 As HttpJob Dim cl2 As BClipboard Dim farhad As String Dim hjt As HttpJob End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.Color=Colors.Transparent If File.Exists(File.DirRootExternal,"instagram files") = False Then File.MakeDir(File.DirRootExternal, "instagram files") Else End If ProgressDialogShow2("دریافت اطلاعات دانلود...",False) job1.Initialize("job1",Me) job1.download(cl2.getText) End Sub Sub jobdone (job As HttpJob) If job.Success= True Then farhad=cl2.getText Dim get As String Dim strimage As String Dim strvideo As String get=job.GetString 'Msgbox(get,"") ProgressDialogHide Dim id As id Dim ii As Int ii = id.InputList1(Array As String("عکس","فیلم"),"انتخاب کنید:") If ii = 0 Then Select Msgbox2("انتخاب کنید:","","دانلود","اشتراک","بازکردن",Null) Case DialogResponse.POSITIVE Dim get As String Dim strimage As String get=job.GetString Dim startimage As Int Dim endoimage As Int startimage = get.IndexOf("igcdn-photos") -9 endoimage = get.IndexOf2(".jpg",startimage)+4 strimage=get.SubString2(startimage,endoimage) DownloaderService.DOWNLOAD_ADDRESS = strimage DownloaderService.DOWNLOAD_FILENAME="intapic.jpg" StartService(DownloaderService) Activity.Finish Case DialogResponse.CANCEL Dim get As String Dim strimage As String get=job.GetString Dim startimage As Int Dim endoimage As Int startimage = get.IndexOf("igcdn-photos") -9 endoimage = get.IndexOf2(".jpg",startimage) +4 strimage=get.SubString2(startimage,endoimage) Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", strimage) share.WrapAsIntentChooser("اشتراک متن من") StartActivity(share) Activity.Finish Case DialogResponse.NEGATIVE Dim get As String Dim strimage As String get=job.GetString Dim startimage As Int Dim endoimage As Int startimage = get.IndexOf("igcdn-photos") -9 endoimage = get.IndexOf2(".jpg",startimage)+4 strimage=get.SubString2(startimage,endoimage) Dim openim As PhoneIntents StartActivity(openim.OpenBrowser(strimage)) Activity.Finish End Select End If If ii = 1 Then Select Msgbox2("انتخاب کنید:","","دانلود","اشتراک","بازکردن",Null) Case DialogResponse.POSITIVE Dim get As String Dim strvideo As String get=job.GetString Dim startvideo As Int Dim endovideo As Int startvideo = get.IndexOf("og:video:secure_url") +30 endovideo = get.IndexOf2(".mp4",startvideo)+4 strvideo=get.SubString2(startvideo,endovideo) Msgbox(strvideo,"") DownloaderService.DOWNLOAD_ADDRESS = strvideo DownloaderService.DOWNLOAD_FILENAME="instavideo.mp4" StartService(DownloaderService) Activity.Finish Case DialogResponse.CANCEL Dim get As String Dim strvideo As String get=job.GetString Dim startvideo As Int Dim endovideo As Int startvideo = get.IndexOf("og:video:secure_url") +30 endovideo = get.IndexOf2(".mp4",startvideo)+4 strvideo=get.SubString2(startvideo,endovideo) Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", strvideo) share.WrapAsIntentChooser("اشتراک متن من") StartActivity(share) Activity.Finish Case DialogResponse.NEGATIVE Dim get As String Dim strvideo As String get=job.GetString Dim startvideo As Int Dim endovideo As Int startvideo = get.IndexOf("og:video:secure_url") +30 endovideo = get.IndexOf2(".mp4",startvideo)+4 strvideo=get.SubString2(startvideo,endovideo) Msgbox(strvideo,"") Dim openim As PhoneIntents StartActivity(openim.OpenBrowser(strvideo)) Activity.Finish End Select End If Else job1.download(cl2.getText) End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub تو ذخیره ویدئو مشکلی ندارم . فقط بعد از اجرا برنامه موقع دانلود ،اشتراک یا بازکردن لینک عکس این خطا که عکسشو گذاشته بودم میاد
×
×
  • جدید...