رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند

m007moh

پاسخگو و راهنما
  • تعداد ارسال ها

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

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

  • روز های برد

    34

تمامی ارسال های m007moh

  1. سلام به دوستان اگر کسی لایسنس سایت اصلی رو داره (b4x.com) و میتونه فایل و کتابخونه دانلود کنه به آی دی تلگرامم پیام بده هزینشم پرداخت میشه @mohsen007moh
  2. در خواست یک پروژه alamer clock

    خصوصی پیام بدید
  3. ارسال دیتا به یک سرور

    واسه این کار لازمه php سمت سرور نوشته بشه پوشه رو نمیشه ارسال کرد و باید با استفاده ار حلقه فایل های داخل پوشه رو ارسال کرد
  4. در خواست یک پروژه alamer clock

    خواستی برنامش رو برات مینویسم
  5. کاهش حجم برنامه ها

    واسه کم کردن حجم عکسات از این سایت استفاده کن https://tinypng.com/
  6. تبدیل تاریخ شمسی به میلادی

    از این کتابخونه استفاده کن http://s9.picofile.com/file/8281648976/ManamPersianDate.zip.html Dim mn As ManamPersianDate mn.PersianToGregorian(2012,12,12)
  7. طریقه اتصال به api سایت

    داداش چنتا مورد رو من بگم 1- کار با api همونقدر که کار رو آسون میکنه دقت زیاد هم میخواد 2- Api باید راهنمای کامل داشته باشه 3- شما کلا خاکی رفته بودی 4- کدای jobdone اکتیویتی login رو مث زیر بذار Sub jobdone(job As HttpJob) ProgressDialogHide If job.Success = True Then Dim json As JSONParser Dim mp,mp2 As Map Dim lst As List json.Initialize(job.GetString) mp=json.NextObject lst=mp.Get("messages") mp2=lst.Get(0) Log(mp2.Get("type")) ToastMessageShow(mp2.Get("text"),True) Else ToastMessageShow("Error: " & job.ErrorMessage, True) End If job.Release End Sub Sub signup1_Click StartActivity(signup) Activity.Finish End Sub
  8. گت المنت کردم کپچا

    من ندارم از کسی که تایپیک رو زده تو خصوصی بپرسید
  9. در خواست یک پروژه alamer clock

    خب الان شما سورس میخواید یا برنامه کامل؟؟
  10. گت المنت کردم کپچا

    اینجا رو یه نگاهی کنید https://answercenter.ir/topic/13542-کتابخانه-pncaptchapicker-گرفتن-هرنوع-کپتچاهای-تصویری-از-وب-ویو-بصورت-bitmap/
  11. گت المنت کردم کپچا

    شما باید آدرس اصلی رو اینجا بذارید تا ما ببینیم شما آدرس مستقیم کپچا رو گذاشتید
  12. کم کردن قسمتی از یک متن

    واسه این کار شما دوتا کار منتقی میتونید انجام بدید 1- مطمدنید که قسمت دوم .text هست که بیاید اینکار رو کنید مثلا متنتون تو استرینک std هست std=std.Replace(".text","") این کار میاد .text رو حذف میکنه 2- شما نمیدونید این پسوند چی هست و هر چیزی میتونه باشه مثلا .jpeg .mpeg .png و .... واسه این کار شما باید با توجه به "." (دات) بخش ها رو از هم جدا کنید و بخش دوم رو حذف کنید Dim lst As List lst=Regex.Split(".",std) std=lst.get(0) این کار پسوند رو حذف میکنه و std شامل اسم بدون پسوند میشه
  13. مشکل با دیتابیس

    شما کدتون مشکلی نداره باید دیتا بیستون رو بررسی کنید
  14. مشکل با ویرایش در edit text

    کدتون رو بذارید
  15. چک کردن این که وای فای روشنه یا نه

    سلام به همه دوستان. من میخوام برنامه ای بنویسم که چک کنه،اگه وای
  16. لود دوتا فیلد دیتابیس در یک یادولیبل

    شما باید از مولتی پنل است
  17. تایمر و لود

    کدای main
  18. سرعت برنامه

    یعنی هر لایوت توی یه اکتیویتی باشه بهتره ؟
  19. سرعت برنامه

    توی اکتیویتی Main ک مشکلی نداری فقط دیتا بیست رو initialize کردی فقط شاید پون لایوتات رو remove و load میکنی این مشکل داشته باشه (سورس که گقتم منظورم این بود که کل پروژه منهای پوشه فایل اونم فقط عکسا و فایلای پر حجمت اینی که شما گذاشتی انگار فقط اکتیویتی Main رو گداشته باشی)
  20. سرعت برنامه

    شما فقت سورس کدتون رو بدارید و اگه داره دیتا بیستون رو
  21. سرعت برنامه

    داداش علم غیب ک نداریم سورست رو بذار ببینیم اگه شد حتما کمک می کنیم
  22. join کردن برنامه در تلگرام

    مثلا ورزش 3 Dim i As Intent i.initialize (i.ACTION_VIEW,"https://telegram.me/varzesh3_channel") StartActivity (i)
  23. منو با قابلیت سوئیچ

    خب بستگی داره شما تنظیمات رو کجا دخیره میکنیدمیتونه دیتابیس باشه شرپرفرمنس باشه یا اصن یه فایل تکس معمولی من فرض میگیرم شما دارید از یه مولتی پنل استفاده میکنید که دوتا لیبل داره یکی متن دعا یکی ترجمه دعا و ی فایل تکست دارید که اگه مقدارش 1 بود ترجمه رو نشون بده و اگه 0 بود نشون نده خب تو تابع ساخت مولتی پنلتون اینجور کد بزنید Sub creatlist dim show as int show=File.ReadString(File.DirRootExternal,"setting.txt") For i=0 To lst.Size-1 Dim pan As Panel pan.Initialize("pan") history_scr.Panel.AddView(pan,4%x,top,92%x,55.2%x) pan.LoadLayout("HistoryBlock") matn.Text="matn doa" tarjome.Text="tarjome doa" if show=1 then tarjome.Visible=true else tarjome.Visible=false end if top=top+60%x Next history_scr.Panel.Height=top End Sub
  24. گزاشتن عکس توسط کاریر

    واسه متن و اسم پروفایلو و.... که کاری نداره پنتا لیبیل بذار واسه عکس بایل گالری گوشی رو باز کنی و عکس رو انتخاب کنی که آسونش که انتخاب از content chooser هست یا استفاده از کتابخونه آماده که سرپ کنی هست یا که از کد زیر استفاده کن Sub sel_Click tst=DateTime.GetYear(DateTime.Now)&DateTime.GetMonth(DateTime.Now)&DateTime.GetDayOfMonth(DateTime.Now)&DateTime.GetHour(DateTime.Now)&DateTime.GetMinute(DateTime.Now)&DateTime.GetSecond(DateTime.Now)&".png" cc.Initialize("cc") cc.Show("image/*","Choose image") End Sub Sub cc_Result (Success As Boolean, Dir As String, FileName As String) If Success Then uriimage=GetPathFromContentResult(FileName) pic = LoadBitmapSample("",uriimage,img.Width,img.Height) ' pic=ResizeBitmap(pic,200,200) Dim Out As OutputStream Out = File.OpenOutput(File.DirRootExternal&"/divar telegram", tst, False) pic.WriteToStream(Out, 100, "PNG") Out.Close img.Bitmap=pic ToastMessageShow("Success",False) Else ToastMessageShow("Not Success",False) End If End Sub Sub GetPathFromContentResult(UriString As String) As String If UriString.StartsWith("/") Then Return UriString 'If the user used a file manager to choose the image Dim Cursor1 As Cursor Dim Uri1 As Uri Dim Proj() As String = Array As String("_data") Dim cr As ContentResolver cr.Initialize("") If UriString.StartsWith("content://com.android.providers.media.documents") Then Dim i As Int = UriString.IndexOf("%3A") Dim id As String = UriString.SubString(i + 3) Uri1.Parse("content://media/external/images/media") Cursor1 = cr.Query(Uri1, Proj, "_id = ?", Array As String(id), "") Else Uri1.Parse(UriString) Cursor1 = cr.Query(Uri1, Proj, "", Null, "") End If Cursor1.Position = 0 Dim res As String res = Cursor1.GetString("_data") Cursor1.Close Return res End Sub
  25. چرخش گوشی و حفظ اطلاعات

    من خودم واسه جلو گیری از این مشکلا کلا نرم افزارام رو فقط توی یه حالت مینویسم حالا یا landscape یا portrait ولی شما اگه میخواید حتما پیخش داشته باشه باید بیاید تو رویداید اسکرول ویو position رو ذخیره کنید بعد تو Activity_Create این position رو بدی به اسکرول
×