رفتن به مطلب
فایل های ویژه
PersianRetrofit
RecyclerView
Poolakey B4A
PersianTapsellPlus
PersianStandOut
AriaDatabase

مهدی ایزدی

موسس و بنیان گذار
 نمایش نمایه  مشاهده فعالیت های این کاربر

  • تعداد ارسال ها

    5,609

  • تاریخ عضویت

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

  • روز های برد

    212

 نوع محتوا 

تمامی مطالب نوشته شده توسط مهدی ایزدی

  1. مهدی ایزدی
    عزیز در این مورد شما تنظیماتتون رو به خوبی انجام ندادید . یکی دیگه از دوستان هم همین مشکل رو داشتن. به این تاپیک هم سر بزنید : کلیک کنید
  2. مهدی ایزدی
    خب جواب شما گفتی که یک عدد داری و یک حروف که نمیدونی اولی عدده یا دومی ! خب: از کتابخانه ها HttpUtils2 رو Add کن. بعدش: Sub Globals Dim HttpJob1 As HttpJob Dim address As String = "http://mehdiizadi.persiangig.com/foremad.html" Dim fulltext As String Private lblText As Label Private lblNum As Label End Sub من یک فایل Html آزمایشی برات درست کردم که توی بالا داری میبینی آدرسش رو. اینجا میاییم Initialize رو انجام میدیم و بعدش میگیم که HttpJob1 بیاد دانلود کنه address رو. Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("main") HttpJob1.Initialize("MyJob1",Me) HttpJob1.Download(address) End Sub خب وقتی که دانلود تمام شد بیاد string fulltext رو مساوی job.getstring قرار میدیم (کل متن توی فایل Html رو به string میدیم) و بعدش هم رویداد check رو فعال میکنیم Sub JobDone (Job As HttpJob) fulltext = Job.GetString check End Sub در آخر میاییم از طریق split که قبلا هم بهت توضیح دادم در رابطه با اون رنج IP ها میاییم دو قسمت رو با دو تا String به نام های part1 و part2 میگیریم. و بعدش هم یک Boolean تعریف میکنیم به نام chck و میگیم که چک کنه که part2 عدد هست(IsNumber) یا نه !!! توی شرط میگیم که اگه chck مثبت بود خب یعنی اینکه part2 عدد بوده پس حتما part1 حروف هست در نتیجه lblNum رو مساوی part2 و lblText رو مساوی part1 قرار میدیم. در غیر این صورت اگه chck مثبت نبود(منفی بود) lblNum رو مساوی part1 و lblText رو مساوی part2 قرار میدیم. Sub check Dim parts() As String = Regex.Split("#",fulltext) Dim part1 As String = parts(0).Trim Dim part2 As String = parts(1).Trim Dim chck = IsNumber(part2) As Boolean If chck = True Then lblNum.Text = part2 lblText.Text = part1 Else lblNum.Text = part1 lblText.Text = part2 End If End Sub موفق باشی !
  3. مهدی ایزدی
    فایل سورس پیوست شد پسورد: basic4android.org Bluetooth Chat(basic4android.org).rar
  4. مهدی ایزدی
    سلام این نام و عدد به چه صورتی توی هاست قرار گرفتن ؟ مثلا اینجوری: مهدی#1 عماد#2 مهران#3 آرمین#4 مصطفی#5 ... چطوری؟
  5. مهدی ایزدی

    Full Screen

    مهدی ایزدی پاسخی برای Sina ارسال کرد در سوال : پرسش و پاسخ (بیسیک4اندروید)

    سلام. سینا اگه میشه یک خورده امضات رو کوچیکتر کن عکس هاشو. خیلی بزرگه. ممنون میشم. اما جوابت : این رویداد رو تعریف میکنی: Sub FullScreen(active As Boolean,ActivityName As String) Dim obj1 As Reflector obj1.Target = obj1.GetMostCurrent(ActivityName) obj1.Target = obj1.RunMethod("getWindow") obj1.RunMethod2("clearFlags",1024,"java.lang.int") obj1.RunMethod2("clearFlags",2048,"java.lang.int") If active Then obj1.RunMethod2("addFlags",1024,"java.lang.int") Else obj1.RunMethod2("addFlags",2048,"java.lang.int") End If End Sub بعدش مثلا یک Button میزاری به اسم Button1 واسه Full Screen کردن . یک Button2 هم واسه Full Screen = False کردن. Sub Button1_Click FullScreen(True,"Main") End Sub Sub Button2_Click FullScreen(False,"Main") End Sub Add کردن کتابخانه Reflection فراموش نشود
  6. مهدی ایزدی
    سلام آرمین جان این روش رو گذاشته به صورت فیلم آموزشی میتونید ببینید : کلیک کنید این هم تاپیک سورس ( البته با اینکه طبق حرف مجید جان بهتره آموزش رو یاد بگیرید تا سورس ) : کلیک کنید موفق باشید
  7. مهدی ایزدی
    سلام. خوش آمد بهتون میگم. عزیز میشه پروژه ای که نوشتین رو به صورت سورس بزارید این رو هم بگین که توی تمام پروژه ها همین مشکل هست یا فقط پروژه ای که واسه ابتدا نوشتین ؟ توی کلاس های آموزشی که با Skype برگذار میشه هم حتما شرکت کنین . احتمالا فردا ساعت 7 شب اولین کلاس رو برگذار کنیم. اطلاعات کامل و دقیق تر توی صفحه ی اصلی سایت قرار میگیره.
  8. مهدی ایزدی
    به نام خدا عرض سلام و ادب دارم خدمت تمام کاربران انجمن تخصصی برنامه نویسی بیسیک4اندروید طبق صحبت هایی که مدیرهای سایت باهم داشتیم تصمیم گرفتیم که یک سری کلاس های آموزش آنلاین رو از طریق اسکایپ مسنجر برگذار کنیم. لازم به ذکر است که این کلاس های آنلاین کاملا مقدماتی هستند و مربوط به کسانی میشه تازه برنامه نویسی بیسیک4اندروید رو شروع کردند و هنوز آشنایی زیادی با ابزارها و کدنویسی های معمولی بیسیک4اندروید ندارند توی این کلاس ها یک سری نکات هست که باید رعایت بشه : اول اینکه سوالات پیشرفته و وقت گیر مورد بحث و بررسی قرار نمیگیره دوم اینکه کاربران سعی کنند که میکروفن داشته باشند و بشه صحبت کرد و راحت تر سوال و جوابها انجام بشه این کلاس ها از این به بعد هفته ای دو بار انجام میشه که ساعت و روز و تاریخ دقیق هر کلاس رو یک یا دو روز قبل در صفحه ی اول سایت اعلام میشه. دوستان تازه واردی که علاقه مند به شرکت در این کلاس های رایگان هستند میتونند نرم افزار Skype Messenger رو دانلود کنند و نام کاربری خودشون رو بسازن کابران میتونن بعد از نصب Skype و ساختن Account ، آیدی های زیر رو اد کنند: Mehdi izadi | ID: Metiux.izadi Mehran Mahmoudi | ID: Meran.Mahmoudi Armin | ID: Armin.Ramzani Mostafa Haqiqi | ID: Mostafa.Haqiqi Nima Ghobadi | ID: Nima.Ghobadi3 این کلاس ها هم باعث آشنایی بیشتر بچه های سایت با هم دیگه میشه و هم میتونن توی پروژه ها به همدیگه کمک کنند. این کلاس ها استاد خواصی نموته داشته باشه . شاید یک نفر یک سوالی بپرسه که بقیه بچه ها حتی بهتر از ما جواب رو بلد باشن. کلاس ها به صورت دو طرفه هستند. قصد داشتم مسنجر رایدکال بریم ولی خب متاسفانه واسه ایران مسدود شد. ان شالله اگه این کلاس ها جواب بده و موفقیت توش بدست بیاد، در آینده ی نزدیک کلاس های حرفه ای تر و گفت و گو هم برگذار میشه. اعلام کلاس ها در صفحه ی اول سایت در زیر قسمت آخرین ارسال ها صورت میگیره. دوستان میتونن نظر خودشون رو در این باره بدن تا همه بتونیم بهتر به موفقیت ها دست پیدا کنیم. همگی موفق باشیم
  9. مهدی ایزدی
    عزیز تو میتونی از Touch استفاده کنی . آموزش Touch ( لمس ) توی سایت آموزش داشته شده به صورت کامل . میتونی یک عکس یا متن بزاری که لطفا برای ورود لمس کنید. مثل خیلی دیگه از برنامه ها که حتما همگی ما دیدیم. الان برم یک سر بیرون کار دارم . برگردم برات حتما همون سورسی که گفتم میزارم . ××××××××××××××××××××××××× توی کدهات: اونجا که تعریف کردی اگه st مساوی 10 شد بریم داخل Activity2 خط بعدش قبل از Else باید Timer.Enabled = False هم کنی ! نکته بعدش هم دوباره تکرار میکنم : شما Initialize نکردی تایمر رو. نیازی به اون کد Timer.Interval = 1000 هم نداری. فقط به جای کد Interval باید این رو بزاری : Timer.Initialize("Timer",1000) تست نکردم ولی نیازی به تست هم نداره . همین کاری رو که گفتم شما انجام بده حل میشه مشکلت
  10. مهدی ایزدی
    سلام و درود اگه این نکات رو رعایت کنید هیچ مشکلی پیش نمیاد: برای SetLeftAndRight همیشه از x استفاده کنید برای SetTopAndBottom همیشه از y استفاده کنید سعی کنید تا جایی که امکانش هست از dip استفاده نکنید و کلا از % استفاده کنید اگه این 3 نکته بالا رو ( مخصوصا اولی و دومی ) رعایت نشه بدون شک توی گوشی های متفاوت مکان قرارگیری اجزاء فرق میکنه. تاکید میکنم: با دقت تمام کدهاتون رو توجه کنید. به هیچ عنوان ، به هیچ عنوان برای SetLeftAndRight از y و برای SetTopAndBottom از x استفاده نکنید. تا حد امکان هم از dip استفاده نکنید و فقط از x% و y% استفاده کنید.
  11. مهدی ایزدی
    سلام . هم کد سینا عزیز کاملا درسته و هم کد مهران عزیز البته سینا میتونست به جای تعیرف کردن TextChanged کد Sina = EditText1.Text رو توی همون Button1_Click هم قرار بده چون تا وقتی Button کلیک نشده Activity دوم نمایش داده نمیشه. روش های زیادی وجود داره که مهران و سینا دو تا از روش هارو برات توضیح دادن. من همین کد مهران رو دقیقا مطابق با پروژه شما نوشتم : توی Main : Sub Globals Private EditText1 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") End Sub Sub Button1_Click CallSubDelayed2(Share,"ShowText",EditText1.Text) End Sub توی Share : Sub Globals Private Label1 As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout2") End Sub Public Sub ShowText(text As String) Label1.Text = text End Sub Sub Button1_Click StartActivity(Main) End Sub دمو : [ATTACH=CONFIG]188[/ATTACH] سورس کد هم پیوست شد. پسورد: basic4android.org موفق باشی CallSubDelayed2 Example(basic4android.org).rar
  12. مهدی ایزدی
    میتونستید از آموزش تصویری استفاده از چند Activity این مشکل رو حل کنی به نحو احسنت. بخش آموزش های تصویری رو جست و جو کنید.
  13. مهدی ایزدی
    سلام اولا که باعث خوشحالی ماست که شما توسط این سایت دارید برنامه نویسی اندروید رو یاد میگیرید. دوست عزیز تا جایی که من متوجه شدم طبق این تصویر کوچیک شما Initialize رو انجام ندادید. زمانی که شما Initialize رو انجام بدید دیگه لازم نیست که مثل کد نویسی الانتون Interval رو به صورت جدا تعریف کنید. این کد رو با کد Interval اتون جایگذرین کنین مشکلتون کل میشه ان شاا... Timer.Initialize("Timer",1000) 1000 همون Interval هست. راستی اینجا دیگه فورم نداریم . Activity داریم .یادت نره. اسم فورم رو به کار نبر اصلا ;) فردا یادم باشه یک نمونه جالب ترش رو توی بخش سورس کد ها براتون بزارم شاید به کارتون بیاد *DntKnow*
  14. مهدی ایزدی
    سلام و درود و تشکر از وحید عزیز بخاطر راهنماییشون. مصطفی عزیز زحمت آموزش تصویری این مبحث رو کشیدن . توی سی شارپ و VB و VB.Net میگیم Form . توی B4A میگیم Activity برای دیدن تاپیک آموزش تصویری کلیک کن
  15. مهدی ایزدی
    سلام . در ادامه صحبت های دوستان این هم بگم که: تمام ابزارهای مربوط به اندروید ( api 14 ) توی بخش ابزارهای b4a هستند + آموزش نصبشون و راه اندازی به صورت متنی و ویدئویی. میتونید اندروید خودتون رو ارتقاء بدید. موفق باشید
  16. مهدی ایزدی
    موافقم آرمین . من خودم همیشه دنبال یک Note بودم برای گوشیم که خوب باشه. فقط سعی کن تمام حواست رو روی یک چیز خواص متمرکز نکنی. موفق باشی عزیز
  17. مهدی ایزدی
    سلام صبح بخیر خب جواب شما : فرض کنید شما یک string دارید که شامل IP شما میشه که باهاش کانکت شدید. بیایید با IP فرضی کار کنیم خب ؟ توی Sub Globals : Sub Globals Dim lines As String End Sub خب حالا IP فرضی رو تعریف میکنیم در Activty Create : Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("split") lines = "192.168.30.40" End Sub IP چهار قسمت داره دیگه !!! توی Sub Globals اینها رو هم تعریف کن : Dim aval As Int Dim dovom As Int Dim sevom As Int Dim chaharom As Int خب حالا می مونه قسمت شرطمون. واسه تمرین یک Button از Desginger اضافه کن و وارد رویداد کلیک اش بشو : Sub Button1_Click End Sub تمام کدهایی که زیر میزارم باید داخل کلیک قرار بگیرن: خب ما اول میاییم با یک Replace حروف های "." رو به "," تغییر میدیم : lines = lines.Replace(".",",") خب ؟ بعدش بعدش میریم سراغ split که دیشب بهت گفتم. از طریق Regex کار میکنیم: Dim ip() As String = Regex.Split(",",lines) خب ؟ حالا میریم سراغ جداسازی قسمت ها: aval = ip(0).Trim dovom = ip(1).Trim sevom = ip(2).Trim chaharom = ip(3).Trim خب کار ما تمومه / فقط حالا می مونه شرط هامون: If aval > 192 Then ToastMessageShow("قسمت اول رنج آی پی بزرگه",False) Return Else If dovom > 168 Then ToastMessageShow("قسمت دوم رنج آی پی بزرگه",False) Return Else If sevom > 30 Then ToastMessageShow("قسمت سوم رنج آی پی بزرگه",False) Return Else If chaharom > 40 Then ToastMessageShow("قسمت چهارم رنج آی پی بزرگه",False) Return Else ToastMessageShow("آفرین رنج آی پی درسته",False) End If End If End If End If تمام. سعی کنید این تالار رو به دوستاتون هم معرفی کنید.هنوز 1 ماه هم از راه اندازی سایت نگذشته.هرچقدر کاربران سایت بیشتر باشن و تالار فعال تر باشه اطلاعات علمی همگی بالاتر میره و ما هم با انگیزه بیشتری کار خودمون رو در کنار شما ادامه میدیم . به امید موفقیت همگی
  18. مهدی ایزدی
    آهان . خب راه های مختلفی میتونه وجود داشته باشه. یکی از راه هاش split هست. ساده هست صبر کن اگه کسی جوابتو نداد فردا خودم جوابت رو میدم کامل.
  19. مهدی ایزدی
    کاری نداره. میتونی یک database تعریف کنی چه از نوع db و چه txt و چه html و توش لیست IP هایی رو که میخوای قرار بدی. ip1 ip2 ip3 بعد از اینکه برنامه باز شد و IP گرفته شد از طریق indexOf میتونی به راحتی Search کنی که آیا IP که الان باهاش هستی توی لیست وجود داره یا نه روش کار کن اگه مشکل داشتی بگو. خیلی راحته این مدل چیزی که شما میخوایین.
  20. مهدی ایزدی
    سلام. مثلا مشخص کرد که فلان رنج ip ها بتونن از این برنامه استفاده کنن ؟
  21. مهدی ایزدی
    سلام . به این تالار برنامه نویسی خوش آمدید. شما آموزش تصویری Notification رو که در بخش آموزش های تصویری موجوده رو دانلود کنید. توش از Service Module استفاده شده. مشکلتون حل میشه. برای رفتن به تاپیک آموزش تصویری Notification کلیک کنید
  22. مهدی ایزدی
    سلام و درود تعریف پنل رو توی Sub Globals انجام بدید ( طبق کدهای خودتون مثال میزنم ) : Dim pnltest As Panel چون روی رخداد sc تعریف کردید که: pnltest.Initialize("pnlTest1") پس میاییم میگیم: Sub pnlTest1_Touch (Action As Int, X As Float, Y As Float) Select Action Case Activity.ACTION_DOWN pnltest.Color = Colors.Red Case Activity.ACTION_UP pnltest.Color = Colors.Blue End Select End Sub رنگ بندی و اتفاقات بعدیش رو دیگه به سلیقه و نظر خودتونه. موفق باشید
  23. مهدی ایزدی
    سلام. عزیز میشه یک نمونه از کدنویسی از Desinger Scripts ات رو ببینیم که مشکل هم داره توی گوشی ها ؟ به صورت سورس بزار لطفا. شاید عیب از تنظیماتت باشه و قرارگیری اشیا.
  24. مهدی ایزدی
    سلام و درود یک ضرب المثلی هست میگه که چرا عاقل کند کاری که باز آید به کنعان غم مخور ؟ اگه اگه اگه فقط منظورتون اینه که میخواهید مثلا Panel شما به این شکل باشه : خب میتونید از حاشیه های زیباتری به صورت عکس استفاده کنید توسط طراحی حاشیه توی Photoshop . مثلا اینحوری : الان این Panel هست ولی من خواصیت Drawable رو به BitmapDrawable تغییر دادم و عکس مورد نظرم رو بهش دادم. خیلی هم زیبا تر میشه. با یک عکس 10-15 کیلوبایتی میتونید بهترین حاشیه رو به Panel خودتون بدید. نه فقط Panel ، بلکه بیشتر کنترل ها این ویژگی رو دارن. اگه به جز اینه یا منظورم رو متوجه نشدید بگید سورس بزارم. اگه هم من منظورتون رو درست متوجه نشدم بیشتر توضیح بدید. موفق باشی
  25. مهدی ایزدی
    عزیز ممکنه کد نویسیتون رو تا حدی که خودتون مشکل ندارید بزارید ؟ از روی کد نویسی بهتر میشه فهمید که مشکل از کجاست و میفهمیم که میخواهید چه کاری رو انجام بدید.
×
×
  • اضافه کردن...