اطلاعیه

کاربر گرامی

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

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


تمامی فعالیت ها

این جریان به طور خودکار بروز می شود   

  1. ساعت گذشته
  2. امروز
  3. خودتم گیج کننده کد بزن
  4. دیروز
  5. سلام دوست عزیز. همه ی این کارهایی که دسترسی روت میخواد رو گذاشتم برای آپدیت بعدی انشالا. خیلی امکانات تو ذهنم هست که تو محیط لینوکس میشه انجام داد. یه خورده تمرکز و دقت میخواد. انشالا تو آپدیت بعدی امکانات عجیب غریبی میزارم. (البته با دسترسی روت و قاعدتا تو محیط لینوکس).
  6. سلام برنامه بدون اجازه کاربر نصب میشه؟
  7. سلام کتابخانه HashGirl وسورسش رو که آقا امیر اشاره کردند رومیتونید از این لینک دانلود کنید.استفاده ازش عین لقمه آماده تو دهن کردنه یه سطرهم بیشترنیست کتابخانه وسورس HashGirl
  8. تا لحظه آخر تو فکرم بود که اینو بزارما. یادم رفت آخرش. چشم اضافه میشه. با امکانات خیلی خوب.
  9. سلام خسته نباشید آقا محمد یک امکان دیگه وجود داشت عالی تر میشد بازکردن برنامه موردنظر خیلی ممنون
  10. upppppppppppppppppppppp
  11. جسارتا بیشتر از یک خط توضیح بدید تا ما هم متوجه بشیم چی شده؟
  12. دو تا راه هست یکی استفاده از دیتابیس مثلا تیبل factor بعد همه رو اینجا ذخیره کنی. دومیش هم این که بدون دست کاری یک فاکتور بصورت عکس باشه . اسکرین شات بگیره از صفحه و جایی ذخیره کنه تا قابل اشتراک بشه البته این یکی ور سورس آمادش رو هم دیدم
  13. سلام. بنده در این فکرم به جای این که نرم افزارم رو بزارم داخل بازار، بزارم داخل یه سایت مرتبط که باسم بفروشه و درصدی هم باسه خودش برداره. حالا دوستان هر نظری، روشی، چیزی در این زمینه به ذهنشون میاد بگن. معایب و مشکلات احتمالیش؟ راه حل؟ -------------- خودم فکر کردم بعد از خرید در سایت مورد نظر (نمایندگی) یک لینک فعال سازی به کاربر بده به این شکل www.mysite.com/faalsazi.php?email=kharidar-email@email.com www.mysite.com سایت خودم بعد از کلیک رو این لینک و ثبت ایمیل خریدار در هاست خودم. خریدار می تونه ایمیل خودش رو در نرم افزار وارد کنه و پس از ارتباط با هاست و چک کردن ایمیل دیگر امکانات نرم افزار براش فعال بشه یعنس ترجیح میدم خودم یک مدیریتی روی خریداران داشته باشم ------------- روش دیگه هم اینه که سایت مورد نظر با یک لینک، کاربر رو به سایت خودم هدایت کنه و در صورت خرید من هم پورسانتشو بدم که فکر کنم علازقم سادگی بیشتر استقبال کمتری از این بشه
  14. به نام خدا عرض سلام و ادب خدمت انسورسنتریهای عزیز. با یک مجصول شگفت انگیز دیگه از سری محصولات پرشین در خدمتتون هستیم. از اسم کتابخونه مشخصه که قراره چه کاری انجام بده. این کتابخونه برای کار با پکیج ها ساخته شده. یعنی شما هر کاری که فکرشو بکنین میتونین با برنامه های نصب شده روی گوشیتون انجام بدین رو توی این کتابخونه آوردیم. امکانات کتابخانه. اول کتابخابخونه رو تیک بزنید و به شکل زیر اینشیالایز کنید. Dim pr As Persian_PackageManager pr.initialize("pr") 1: گرفتن خروجی apk از برنامه های نصب شده pr.getBackUpFromApp("com.whatsapp",File.DirRootExternal) 2: گرفتن لیست برنامه های دارای یک دسترسی خاص (برای مثال اینترنت) Sub permission Dim m As Map=pr.getAppsByPermition("android.permission.INTERNET",True) For i=0 To m.Size-1 Dim appi As Persian_AppInfo=pr.getAppInfo(m.GetValueAt(i)) Log(appi.PackageName) Next End Sub 3: گرفتن لیست برنامه های نصب شده توسط کاربر Sub userapp Dim m As Map=pr.UserAppInstalled For i=0 To m.Size-1 Dim appi As Persian_AppInfo=pr.getAppInfo(m.GetValueAt(i)) Log(appi.PackageName) Next End Sub 4: گرفتن لیست برنامه های سیستمی Sub systemapp Dim m As Map=pr.SystemAppInstalled For i=0 To m.Size-1 Dim appi As Persian_AppInfo=pr.getAppInfo(m.GetValueAt(i)) Log(appi.PackageName) Next End Sub 5: گرفتن رسیورهای یک برنامه Sub reciver Dim m As Map=pr.getReciverssFromPackage("com.android.phone") For i=0 To m.Size-1 Log(m.GetValueAt(i)) Next End Sub 6: گرفتن سرویسهای یک برنامه 7:گرفتن اکتیویتیهای یک برنامه 8: گرفتن پرووایدرهای یک برنامه 9: گرفتن امضاهای یک برنامه 10:گرفتن بک آپ و ریستور از دیتای برنامه(نیازمند دسترسی روت) 11: گرفتن آیکن از برنامه نصب شده یا فایل apk موجود بر روی حافظه. 12:نصب برنامه از حافظه. 13: حذف برنامه دلخواه Sub uninstal pr.uninstallApp("com.quizapp.online") End Sub Sub pr_onDeleteResult(Result As String) ToastMessageShow(Result,False)گرفتن نتیجه حذف توسط کاربر End Sub 14:برسی اینکه یک برنامه سیستمی هست یا اینکه توسط کاربر نصب شده. Sub issystemapp If pr.isSystemApp("com.android.phone") Then ToastMessageShow("sytemapp",False) Else ToastMessageShow("nosytemapp",False) End If End Sub 15: برسی نصب بودن یا نبودن یک برنامه. Sub isappinstall If pr.isAppInstalled("com.quizapp.online") Then ToastMessageShow("app installed",False) Else ToastMessageShow("app notinstalled",False) End If End Sub 16: گرفتن اطلاعات کامل یک برنامه.(شامل نام، پکیج، ورژن کد، ورژن نیم، احجم برنامه، uid ، زمان نصب، و ...) Sub getinfo Dim appi As Persian_AppInfo=pr.getAppInfo("packagename") Log(appi.PackageName) Log(appi.AppName) Log(appi.Size) Log(appi.CreatedAt) Log(appi.Uid) End Sub و یه سری امکانات دیگه به علاوه امکاناتی که در آینده به کتابخونه اضافه میشه. امیدوارم مورد پسند قرار بگیره لینک محصول در فروشگاه
  15. سلام میخواستم در اپلکیشن از تبلیغات کلیک یاب استفاده کنم اما در سایتشون گفتند که کتابخانه برای b4a در دسترس نیست،سوال من اینه که راهی نیست که بتونیم از تبلیغات کلیک یاب استفاده کنیم؟
  16. سلام. خوب منظورتون رو نفهمیدم. دیتابیس انلاین منظورتون همون سرور هستش. چون معمولا فایل رو داخل دیتابیس نمیزارن. و بیشتر "اطلاعات" رو در دیتابیس ذخیره میکنن. فایل ها رو می تونید داخل یک هاست یا سرور بزارید می خواهید فایل ها فقط از طریق نرم افزار قابل دانلود و دسترسی باشند یا اهمیتی نداره؟ اگه می خواهید دسترسی به فایل هارو محدود کنید باید با زبان های برنامه نویسی سمت سرور مثل php یا asp.net لینک مستقیم رو به لینک غیر مستقیم تبدیل کنید. و اونوقت لینک دانلود هم مثلا از این حالت http://www.site.com/myfile.zip تبدیل میشه به این http://www.site.com/index.php?file=myfile.zip&user=user465&password=546446 که در صورت درست بودن یوزر و پسورد فایل رو بر می گردونه . خود فایل هم مثلا در همون پوشه با چنین نامی ذخیره میشه qw54eqw654e65qw4e64q6w.zzz
  17. محافظت از الگوریتم برنامه برام مهمه. لطفا نظر بدید
  18. دوستان کسی راهی نداره ؟
  19. دوستان ماشالله این همه برنامه نویس داریم یکی بلد نیست جواب منو بده ؟
  20. خب 1000 تا لیمیت دادم ، مثل اسکرول نمیخواد 10 تا 10 لود کنم ؟
  21. سلام به همه دوستان قصد دارم در این آموزش کوتاه با یکی از کد های زیبای بیسیک شما رو آشنا کنم این کد باعث میشه یک ویو فعال و یا غیر فعال بشه اما نه به صورت ناگهانی بلکه خیلی زیبا با کسری از ثانیه محو میشه این کد ها هر ویویی رو که لازم باشه فعال و غیر فعال میکنه تست کنید button1.Visible=True فعال کردن یک دمه در برنامه button1.Visible=falst غیر فعال کردن یک دکمه در برنامه خوب حالا این کد ها رو جایگزین کنید button1.SetVisibleAnimated(250,False) button1.SetVisibleAnimated(250,true) می بینید که این دکمه به صورت کم کم محو میشه و غیر فعال میشه این کد ها میتونه به طراحی شما کمک کنه تا گرافیکی مطلوب تر برای برنامه آماده کنید موفق باشید
  22. کشف فعال و غیر فعال کردن یک ویو با انیمیشن رو به خودم و جامعه جهانی بیسیک تبریک میگم
    .SetVisibleAnimated(250,False)

    1. Amir - B

      Amir - B

      اینو به خودتون تبریک بگید چون قبلا کشف شده :bigsmile:  :malih:

    2. alimo1999

      alimo1999

      منم به شما تبریک می گم:53:

  23. سلام مورد عجیب این کتابخانه اینه که وقتی جاستیفای میشه و ارتفاع متن بیشتر میشه متن میره پایین و طول اسکرول هم نسبت به متن افزایش پیدا نمیکنه... انگار امکانی هم قرار نداده که بشه طول متن رو بدست آورد و ارتفاع اسکرول رو برابر با اون قرار داد ! درسته یا من پیداش نکردم ؟
  24. سلام دوستان @محمدرضا شاهپیری @مجید آرتا ببخشید من میخوام از کد زیر تو ایمیج ویوم استفاده کنم Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim bm As Bitmap Private ImageView1 As ImageView Private ImageView2 As ImageView Private ImageView3 As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("main") nativeMe.InitializeContext bm.Initialize(File.DirAssets,"parrot.jpg") bm = nativeMe.RunMethod("getRoundBitmap",Array(bm)) ImageView1.Bitmap = bm ImageView2.Bitmap = bm ImageView3.Bitmap = bm End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub #If Java import android.graphics.Bitmap; import android.graphics.Canvas; import android.graphics.Path; import android.graphics.Rect; import android.graphics.drawable.BitmapDrawable; import android.graphics.drawable.Drawable; public static Bitmap getRoundBitmap(Bitmap scaleBitmapImage) { int targetWidth = 1000; int targetHeight = 1000; Bitmap targetBitmap = Bitmap.createBitmap(targetWidth, targetHeight, Bitmap.Config.ARGB_8888); Canvas canvas = new Canvas(targetBitmap); Path path = new Path(); path.addCircle(((float) targetWidth - 1) / 2, ((float) targetHeight - 1) / 2, (Math.min(((float) targetWidth), ((float) targetHeight)) / 2), Path.Direction.CCW); canvas.clipPath(path); Bitmap sourceBitmap = scaleBitmapImage; canvas.drawBitmap(sourceBitmap, new Rect(0, 0, sourceBitmap.getWidth(), sourceBitmap.getHeight()), new Rect(0, 0, targetWidth, targetHeight), null); return targetBitmap; } public static Drawable getRoundDrawable(Drawable d){ Bitmap b=getRoundBitmap(((BitmapDrawable) d).getBitmap()); return new BitmapDrawable(b); } #End If من یکی دوتا تصویرم رو با پیکاسو تو ایمیج ویوم نمایش میدم . الان میخوام کد بالا رو، رو ایمیج ویو اعمال کنم . Picasso یک دستوری داره به اسم Get که Bitmap بر میگردونه . ولی هر وفت باهاش کار میکنم ، خطا میده . لطفا راهنمایی کنید .
  25. سلام من فکر میکنم به کتابخونه ای نیاز نباشه حقیقتش سریع براتون کد نوشتم اگر مشکلی داشت بگید درست کنم . Sub Globals Dim Edit As EditText Dim i As Int End Sub Sub Activity_Create(FirstTime As Boolean) Edit.Initialize("Edit") Activity.AddView(Edit,0,40%y,40%x,10%y) Edit.InputType = Edit.INPUT_TYPE_NUMBERS Activity.Color = Colors.White End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Edit_TextChanged (Old As String, New As String) i = i+1 If i=3 Then Edit.Text=New&"," Edit.SelectionStart = New.Length+1 i=0 End If End Sub
  26. با سلام دوستان توی برنامه های متریال وقتی روی یه باتن کلیک می کنی مثل اینه که دستتو میزنی تو آب یه رنگ سفید پخش میشه البته وقتی باتن ها پیشفرض هستن هم همینطوره ولی وقتی به باتن عکس میدی خاصیتش رو از دست میده.چجوری میشه این خاصیت رو به اجزای متریال و غیر متریال داد؟
  27. میشه یه سورس کوچیک راجبش بدید اینجا؟؟؟؟ ممنون
  28. به ترتیب 1- نوشتن کلمه Sub 2- کلید Space (فاصله) 3- کلید TAB
  1. نمایش فعالیت های بیشتر