اطلاعیه

کاربر گرامی

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

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


مهران محمودی

معاون انجمن
  • تعداد ارسال ها

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

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

2 دنبال کننده

درباره مهران محمودی

  • درجه
    معاونت انجمن

روش های تماس

  • اسکایپ Meran.Mahmoudi
  • آدرس سایت http://AnswerCenter.ir
  • یاهو MehranMahmoudi1119

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

  • محل زندگی قزوین
  • محل تولد قزوین
  • علایق -
  • شغل -
  1. سلام، اشیا رو به جای Activity_Create، توی Activity_Resume آماده سازی کنید.
  2. سلام، معماری اندروید به شکلیه که هر برنامه ای برای اجرا شدن حتما باید نصب شده باشه. کاری که شما میخواید بکنید رو توی مارکت ها میتونیم ببینیم! وقتی اپلیکیشن رو دانلود و نصب میکنید، یه دکمه وجود داره برای اجرای برنامه ی دانلود شده... شما میخواید چندین دکمه رو در یه اکتیویتی قرار بدید برای اینکار!
  3. سلام، اگه فکر میکنید شبیه ساز به محیط برنامه نویسیتون متصل نیست، بعد از اجرای شبیه ساز توی B4A از منوی Tools گزینه Restart ADB Server رو بزنید و بعد اقدام به اجرای برنامتون بکنید. ضمنا، چه نسخه ای از B4A رو استفاده میکنید؟
  4. سلام

    خسته نباشی

    از آموزشتون ((رندوم بدون تکرار در دیتابیس)) استفاده کردم وااقعا عالی بود اما یه کل داشت اینکه مورد اولو دو بار نشون میده 

    و اگه تعداد رکورد ها 20 تا باشه 18 تارو نمایش میده

     

    1. مهران محمودی

      مهران محمودی

      سلام دوست عزیز،

      میشه لطفا سوالتون رو در قالب یه تاپیک مطرح کنید تا بهتر بتونیم کمکتون کنیم؟!

  5. سلام، متوجه سوالتون نشدم، میخواید یه متنی رو تو clipboard دستگاه ذخیره کنید؟ اگه قصدتون همینه کتابخانه پیوست شده رو دانلود و به کتابخانه هاتون اضافه کنید، از لیست کتابخانه ها فعالش کنید. یه نمونه از شیء BClipboard تعریف کنید در Globals: Dim bCb As BClipboard به اینصورت متنی رو توی حافظه ذخیره کنید: bCb.setText("AnswerCenter.iR") برای دریافت متن ذخیره شده در حافظه: Dim savedText as String : savedText = bCb.getText اگه نه سوالتون رو واضح تر بیان کنید. clipboard-answercenter.ir.rar
  6. درود، مستقیما نمیشه ورژن اندروید رو گرفت و چیزی که با کد میتونی بهش دسترسی داشته باشی فقط نسخه SDK هستش. کتابخانه Phone رو از لیست کتابخانه هاتون فعال کنید. با توجه به اینکه اندروید 5 با sdk نسخه 21 کار میکنه، کد شما به این شکل میشه: Dim p As Phone if p.SdkVersion > 21 Then ' age android 5.0.1 be bala bood else ' age paeintar bood End if یه لیست از نسخه های SDK میذارم که با ورژن های مختلف اندروید ارائه شدن: Android Version | SDK Version 2.1 | 7 2.2 | 8 2.3.1 | 9 2.3.3 | 10 3.0 | 11 3.1 | 12 3.2 | 13 4.0 | 14 4.0.3 | 15 4.1.2 | 16 4.2.2 | 17 4.3.1 | 18 4.4.2 | 19 4.4W.2 | 20 5.0.1 | 21 5.1.1 | 22 6.0 | 23 7.0 | 24 7.1.1 | 25 موفق باشید.
  7. من کی ام؟ اینجا کجاست؟! :DD:

    1. مهدی ایزدی

      مهدی ایزدی

      تو عشق منی... اینجا هم قلب منه

  8. سلام مهران جان شما توی این تاپیک

    لینک کتابخونه دادید ولی لینکش از کار افتاده میشه کتابخونه رو بدید؟؟

    1. صادق رمضانی

      صادق رمضانی

      آقای محمودی لطفا جواب بدید

    2. مهران محمودی

      مهران محمودی

      سلام عزیز، لینک ها ویرایش شد.

    3. صادق رمضانی

      صادق رمضانی

      سلام دادداش

      ممنون

  9. درود، علاوه بر کدها و راهنمایی های که دوستان لطف کردن و گفتن میتونید با ترکیب متدهای Substring و IndexOf نتیجه دلخواهتون رو به دست بیارید: Dim strFullAddress As String : strFullAddress = "sdcard/android/data/salam/asd/234.txt" Dim strAddress = strFullAddress.SubString2(0,strFullAddress.LastIndexOf("/")) As String Dim strFileName = strFullAddress.SubString(strFullAddress.LastIndexOf("/")+1) As String Log(strAddress) ' sdcard/android/data/salam/asd Log(strFileName) ' 234.txt متغیر strAddress: آدرس فایل متغیر strFileName: نام فایل همین کد رو اجرا کنید و در قسمت لاگ ها، نتیجه رو ببینید. موفق باشید.
  10. رتبه 13K بدِ؟ حقیقتش تو اینستا که خوبه..

    1. نمایش نظر قبلی  بیشتر 2
    2. Gray Mind

      Gray Mind

      خدا قوت خسته نباشی خخخ

    3. شهاب اسکندری

      شهاب اسکندری

      :)

      عالیه مهران ، خسته نباشی گلکم ♥

    4. arastooms

      arastooms

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

  11. درود، ضمن عرض خوش آمدگویی به شما بابت شروع برنامه نویسی و همچنین عضویت در سایت، بنده سورسی که شما قرار دادید رو دریافت کردم و متوجه شدم که در حال انجام پروژه ای نه چندان کوچک (ولی ساده) هستید!! توصیه اکید دارم که از ادامه دادن کدنویسی پروژه صرف نظر و شروع به یادگیری مفاهیم پایه ای برنامه نویسی کنید! چون تجربه ثابت کرده یادگیری مفاهیم پایه به روش پروژه محور در 95% مواقع با مشکلات و سختی مواجه میشه! این شیوه یادگیری برای مبحث های پیشرفته تر کاربردیِ؛ مثل برقراری ارتباط با بانک اطلاعاتی (آنلاین و افلاین) و یا ارتباط با سایت های اینترنتی و ... نه مفاهیم اصلی مثل استفاده از حلقه و متغیر و یا ساخت لیست سفارشی (به قول دوستان مولتی پنل)! در ضمن خوشحالم که توی این سن شروع به یادگیری کردید ولی نباید خودتون رو دست کم بگیرید، کاملا پتانسیل یادگیری زبان برنامه نویسی رو دارید مثل خیلی از دوستانی که از این سن شروع به یادگیری کردند و الان برنامه هاشون در مارکت ها هستش و البته خیلی حرفه ای کدنویسی میکنند. امیدوارم توصیه بنده رو جدی بگیرید! موفق باشید.
  12. درود، از کتابخانه Animation یا AnimationPlus میتونید استفاده کنید. جستجو کنید، در این مورد بحث های بسیار زیادی صورت گرفته! http://answercenter.ir/topic/935-%D8%A7%D9%86%DB%8C%D9%85%DB%8C%D8%B4%D9%86-%D9%BE%D9%84%D8%A7%D8%B3/ http://answercenter.ir/topic/4351-%D8%AD%D8%B1%DA%A9%D8%AA-%D8%AF%D8%A7%D8%AF%D9%86-button-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%D8%A7%D9%86%DB%8C%D9%85%DB%8C%D8%B4%D9%86/ http://answercenter.ir/topic/1265-%D8%B8%D8%A7%D9%87%D8%B1-%D9%88-%D9%85%D8%AD%D9%88-%D8%B4%D8%AF%D9%86-%D9%BE%D9%86%D9%84-%D8%A8%D8%A7-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%A7%D9%86%DB%8C%D9%85%DB%8C%D8%B4%D9%86/ http://answercenter.ir/topic/11938-%D8%AF%D8%A7%D9%86%D9%84%D9%88%D8%AF-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%D8%A7%D9%86%DB%8C%D9%85%DB%8C%D8%B4%D9%86-%D8%AC%D8%AF%DB%8C%D8%AFcoolanimation-2016/
  13. درود، یکی از راه های که ذهنم میرسه اینه که یه Type تعریف کنید در قسمت Globals: Type Buttons_Info(FirstButton As String,SecondButton As String) به این صورت Type که تعریف کردید رو یه نمونه ازش بسازید و استفاده کنید: Dim info As Buttons_Info info.Initialize info.FirstButton = "meghdare dokme avval" info.SecondButton = "meghdare dokme dovvom" حالا این نمونه رو به مشخصه Tag دکمه هاتون نسبت بدید: btn1.Tag = info btn2.Tag = info از این به بعد هرجا که روی یکی از این دکمه ها کلیک بشه با این کد میتونید به مقادیر هر دو دسترسی داشته باشید: Dim info As Buttons_Info Dim btn As Button btn = Sender info = btn.Tag Msgbox(info.FirstButton & CRLF & info.SecondButton,"") جستجو کنید، اطلاعات بیشتری توی سایت وجود داره. موفق باشید.
  14. درود، با استفاده از کتابخانه Reflection میتونید اینکار رو انجام بدید: Dim button1 as Button button1 = x.GetView("fade_animation") Dim ref as Reflector ref.Target = button1 ref.SetOnClickListener("button1_Click") و رویداد کلیک روی دکمه رو به این صورت تعریف کنید: Sub button1_Click(tag as object) ' ettefaghi ke mogheye click ro button biofte ro inja benevisid! ' End Sub من B4A رو الان رو سیستمم ندارم که تست کنم، ولی فکر میکنم این کدها جواب بده! تست و نتیجه رو اعلام کنید لطفا! موفق باشید.