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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


Mr Mansour

مدیر بخش
  • تعداد ارسال ها

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

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

  • روز های برد

    3

آخرین بار برد Mr Mansour در مرداد 25

Mr Mansour یکی از رکورد داران بیشترین تعداد پسند مطالب است !

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

244 عالی

درباره Mr Mansour

  • درجه
    کاربر حرفه ای

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

  • محل زندگی
    Array
  • محل تولد
    Array

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

1,885 بازدید کننده نمایه
  1. دوست عزیز واسه عکس هم به همین شکله کافیه یکم دقت میکردین اول میخواستم که نزارم این کد هارو چون این کار باعث تنبلی شما میشه که همیشه دنبال کد های آماده باشین اما خوب گذاشتم که بفهمید نحوه کارش چجوره ولی بهتره که بدونین در ظاهر داره چی میشه موفق باشید Dim pic As Matcher = Regex.Matcher("<meta property=""og:image"" content=""(.*)"" />",job.GetString) img.Download(pic.Group(1)) If job.JobName = "img" Then Preview.Bitmap = job.GetBitmap Dim imgname As String = "Rnd(10000,99999)&".jpg" Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"Download/"&imgname,False) job.GetBitmap.WriteToStream(out,100,"JPEG") out.Close End IF
  2. با سلام برای دانلود از اینستاگرام بهترین کار استفاده از regex هستش برای اشنایی ازش هم توی انجمن کلی مطلب هستش اما خوب بنده این برنامه رو نوشته ام و چون اینکه دیدم برای این دو خط کد کلی سایتا واسه فروش گذاشتن که واقعا هم خنده داره تصمیم گرفتم رایگان قرار بدمش که دوستان استفاده کنن برای دانلود ویدیو : Sub JobDone (job As HttpJob) If job.Success Then If job.JobName = "ok" Then Dim mt As Matcher = Regex.Matcher("<meta property=""og:video:secure_url"" content=""(.*)"" />",job.GetString) video.Download(mt.Group(1)) End If End If If job.JobName = "vid" Then Dim vidname As String = "vid-"&Rnd(1,10000)&".mp4" Dim out As OutputStream = File.OpenOutput(File.DirRootExternal,"Download/"&vidname,False) File.Copy2(job.GetInputStream,out) out.Close End If
  3. ببنید دوست عزیز به طول کلی فکر نکنم که بشه از keystore که b4a تولید میکنه رو در اندروید استودیو استفاده کرد اما یک راهی هستش میتونید فایل apk رو keystore تغییر داد با چند ترفند خیلی ساده اونم با ابزارهای مثل keytool و apk sign بنده یه ایده واسه اینکار دارم که صد در صد نباشه اما هزار درصد شدنیه شماا برنامه اتو بنویس بدون اینکه امضای دیجیتالی بهش بزنی فایل apk که اماده شد بیا با برنامه apk sign یه keystore بساز و بعد با خود برنامه امضاش کن به همین راحتی هر وقت هم ایده ات گرفت برو اندروید استودیو کد هاتو بزن بعد بیا همون keystore رو به فایل apk امضاش کن به همین راحتی پسورد فایل : answercenter.ir اموزش کار باهاش هم در سطح نت زیاده کافیه سرچ کنید دریافت فایل apksigner_v2.0.4-beta.zip
  4. Mr Mansour

    Material Settings

    منظورتون اینه که چطوری یک آیکون به تولبار اضافه کنیم ؟؟ توی انجمن اگه یه چرخ کوچولو میزدی میدیدین واسه اون فلش بک باید خودتون دستی آیکون به تولبارتون اضافه کنید Dim bd1 As BitmapDrawable bd1=xml1.GetDrawable("ic_back_white_24dp") Activity.AddMenuItem3("back","menu2",bd1.Bitmap,True) فقط کافیه اسم event رو صدا بزنی Sub menu2_Click ... End Sub
  5. خوب میتونین توی ساب باتون 1 بگید ساب باتون 2 رو اجرا کنه Sub Btn1_Click ToastMessageShow("TEST",False) Btn2_Click End Sub
  6. دوست عزیز شما قبل از انجام کاری اول b4a رو اپدیت کنید واقعا دیگه خیلی قدیمی شده حداقل از نسخه ی 8.50 به بالا استفاده کنید و اینکه نیازی به ریسورس دهی اضافی هم نداری که این هم خودش یه امتیازه توی کد نویسیتون مشکلی وجود نداره احتمالا مشکل از نسخه ی بیسیکتونه اون رو رو آپدیت کنید
  7. مگه میشه تو بیسیک لاگ نده !!! عجیبه واقعا کد های رویداد main رو بزارید
  8. Mr Mansour

    backup

    متغییر s از نوع کتابخانه ی sql هستش و اینجا گفتم که s که همون sql ما باشه initialize کردم که به اصطلاح میشه تعریف کردن یا مقدار دهی کردن یک متغییر
  9. دوست عزیز لطفلا اون لاگی که بعد از فورس کلوس شدن برنامه اتون میده رو یک اسکرین شات بگیرید و بگذارید تا راهنمایتون کنیم
  10. خوب برادرجان شما که نمیتونین از توی یک اکتیویتی بگین که بقیه ی اکتیویتی ها تم های مختلفی داشته باشن باید تو خود اکتیویتی جاری بهش بگی که اینی که قراره لود بشه با این رنگ ها لود کنی شما یک بار تست بگیرید با این چیزی که بنده گفتم ببینید نتیجه میگیرید یا نه نیازی به فینیش کردن اکتیویتی هم نداره اما اون چیزی که اقای ارتای عزیز گذاشتن چرا نیازه چون اون با زمین تا اسمون با این روشی که بنده گفتم فرق داره چونکه اون از ریسورس میخونه و اون ریسورس ها کلا به صورت پیشفرض توی اندروید وجود داره شما یک تست بگیرین با این روشی که بنده گفتم اگه نتیجه نداد مطرحش کنید
  11. Mr Mansour

    backup

    کدتون رو اینجا بزارید مشکلتون رو رفع کنیم ولی کار خاصی نمیخواد که File.MakeDir(File.DirInternal,"backup") File.Copy(File.DirInternal,"db.db",File.DirInternal&"/backup/","bk.db") Dim s As SQL s.Initialize(File.DirInternal&"/backup/","bk.db",False) فقط کافیه مسیر دیتابیسی که کپی کردی و اطلاعات توش هستش رو ازش یه کپی بزنی و به پوشه ای که ساختی بریزی حالا میتونی از کپی که کردی بازش کنی و ازش استفاده کنی
  12. خواهش میکنم AcToolbarLight جز کتابخانه ی Appcompat هستش تیک بزنید و توی لایوت ادد کنید قسمت کاستوم ویو
  13. با سلام ببنید دوست عزیز خیلی از کتابخانه ها کار رو واقعا ساده کردن یکی کتابخانه ی basicmaterial هستش ولی بنده ندارمش میتونی با سرچ پیداش کنی و ازش استفاده کنی برای تغییر رنگ استاتوس یک کتابخانه ای هستش که پیوست میکنم براتون میاد رنگ استاتوس بار رو تغییر میده واسه اکشن بار هم میتونی دستی color بهش اعمال کنی Dim s As ACToolBarLight s.Color = 0xFFFF3030 واسه ساخت تنظیمات تغییر تم هم میتونی از sharedperference استفاده کنی مقدار رنگ رو بگیری و بعد هرجا خواستی صداش بزنی دریافت فایل Statusbar.rar
  14. از خیلی روش ها میشه انجام داد این دانلود رو توی انجمن کلاس دانلودر هستش اگر سرچ کنید پیداش میکنید ولی اگر میخواهید برنامه اتون حرفه ای تر بشه پیشنهادم کتابخانه ی AriaMultiThread هستش
  15. سلام دوست عزیز موضوعات زیادی توی انجمن در مورد نمودار هستش اگر سرچ میکردید بود
×
×
  • جدید...