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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


حسین شیخ بارانی

کاربر عادی
  • تعداد ارسال ها

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

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

  • روز های برد

    2

آخرین بار برد حسین شیخ بارانی در 15 مرداد

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

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

26 خوب

درباره حسین شیخ بارانی

  • درجه
    کاربر باسابقه
  • تاریخ تولد تعیین نشده

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

486 بازدید کننده نمایه
  1. مشاهده فایل پروگرس بار گرد بدون کتابخانه سلام این سورس پروگرس بار گرد هست و از کتابخانه استفاده نکردم ، روش کار خیلی ساده هست و شما براحتی می توانید هر شکلی بخواهید بسازید یاعلی ارسال کننده hosseinsheikhbarani ارسال شنبه, 26 مرداد 1398 دسته سورس
  2. سلام فرض می کنم که سوال شما این بوده* و جواب میدم! * شما با سنسور ها اومدید لفت و تاپ توپ رو تغیر می دید و می خواهید اگر توپ از صفحه راکت خارج شد برنامه متوقف بشه!؟؟! خب شما اول تصویرتون رو کراپ کنید تا حاشیه اضافه نداشته باشه بعد بیایداز طریق left و widthعرض تصویر و topو height تصویر تشخیص بدید توپ خارج شده یا نه dim toopLeft,toopTop AS int if toopLeft+img.width <lmg.left Or toopTop <img.top+img.height OR toopLeft+img.width >img.width Or toopTop >img.height then log("next") end if کد چک نکردم اما روش کار همینه که عرض کردم توی html چیز های تحت عنوان SVG و map داریم که میشه مقدار مشخصی از تصویر انتخاب کرد اما شما توی بیسک باید با شرط گذاشتن به مقدار تقریبی خودتون برسید یا علی
  3. سلام اول میام یک متغیر Boolean تعریف می کنیم و مقدار اولیش رو false می ذاریم بعد توی رویداد KeyPress چک میکنیم اگه این متغیر false هست و خب یک پیام نشون میدیم یعد مقدار رو هم true کنه تا اگر یک بار دیگه کلیک کرد توی else شرط برنامه رو ببندیم و یک تایمر رو فعال می کنیم تا بعد از یک مدت مقدار متغیر مون رو false کنه کد ها رو می ذارم اگه جای سوالی بود در خدمتم یاعلی Sub Process_Globals Dim t As Timer End Sub Sub Globals Dim back As Boolean =False End Sub Sub Activity_Create(FirstTime As Boolean) Activity.Color =Colors.White t.Initialize("t",1500) End Sub Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event If KeyCode =KeyCodes.KEYCODE_BACK Then If back =False Then ToastMessageShow("test",False) back=True t.Enabled=True Else Activity.Finish End If End If Return True End Sub Sub t_Tick back=False t.Enabled=False End Sub
  4. مشاهده فایل سورس SeekBar اختصاصی بدون کتابخانه سلام دوستان SeekBar اختصاصی هست با امکانات b4a و با این روش توی سورس می تونید برای برنامه های خدتون اختصاصی طراحی کنید زیاد به ظاهر کار نداشتم هدف تفهیم کد نویسی بود امیدوارم مورد استفاده شما قرار بگیره یا علی ارسال کننده hosseinsheikhbarani ارسال سه شنبه, 15 مرداد 1398 دسته سورس  
  5. مشاهده فایل طراحی چک باکس اختصاصی بدون کتابخانه طراحی چک باکس اختصاصی بدون کتابخانه و با امکانات خود b4a امیدوارم دوستان بپسندن یاعلی ارسال کننده hosseinsheikhbarani ارسال سه شنبه, 15 مرداد 1398 دسته سورس کد ها
  6. نگارش 1.0.0

    5 دریافت

    طراحی چک باکس اختصاصی بدون کتابخانه و با امکانات خود b4a امیدوارم دوستان بپسندن یاعلی
  7. مشاهده فایل استایل شعری برای متن سلام با این سورس می توانید متن های خودتون رو بصورت شعر نمایش بدید ارسال کننده hosseinsheikhbarani ارسال دوشنبه, 14 مرداد 1398 دسته سورس
  8. سلام این editext بدون هیچ کتابخانه ای و با امکانات b4a ساخته شده امیدوارم مورد استفاده دوستان قرار بگیره دانلود سورس
  9. سلام با این سورس می توانید مطالبتون رو بصورت لیست گرید نمایش بدید این لیست با مولتی پنل هست امیدوارم برای شما دوستان بدرد بخوره. دانلود سورس
  10. شما بیاید یک مولتی پنل بسازید و برسی کنید اضافه شدن مقادیر لیوت یا عناصر مشخسی در پنل قرار بگیره کار سختی نیست فقط باید هنگام لود شرط بذارید
  11. Sub Globals Dim e_text As EditText Dim btn As Button Dim matn As String Dim harf() As String End Sub Sub Activity_Create(FirstTime As Boolean) Activity.Color=Colors.RGB(45,73,2) e_text.Initialize("e_text") Activity.AddView(e_text,0,0,100%x,60dip) btn.Initialize("btn") Activity.AddView(btn,0,100dip,100dip,60dip) End Sub Sub btn_Click matn=e_text.Text.Trim harf = Regex.Split("",matn) For i = 1 To matn.Length Log(harf(i)) Next End Sub با این کد می تونید متن مورد نظرتون رو بدید و خودش به ترتیب ، حرف به حرف جدا می کنه و توی لاگ نشون می ده حالا شما حرف ها رو جدا جدا دارید و می تونید چک کنید مثال اگر (ز) بود همه حالات ز-ظ-ض-ذ رو به کاربر نمایش بده و یا هر کاری که خواستید انجام بده یا علی
  12. سلام خیلی از برنامه ها دارن از ویو های استفاده می کنند که کاملا اختصاصی شده این کار چه جور اتفاق میفته و یک ویو با ظاهر متفاوت ساخته میشه مثال چک باکس رو کاملا تغیر می دن مثل توی اسنپ وقتی نظر روتون در مورد راننده می پرسه چگ باکس هاش کاملا اختصاصی هست؟
  13. استاد رمز می زنه اشتباه پیکوفایل basic4android.org\ و answercenter.ir
  14. برای قرار دادن پراگسس بار هم خب اول از دیزاین تعریف کنید بعد این کد بنویسید Sub PAD_Update (Progress As Int) ProgressBar1.Progress=Progress End Sub
  15. سلام خسته نباشی چه جور فایل ها رو توی یک پوش که خودمون انتخاب کردیم بریزیم؟ حل شد ممنون با این کد PAD.setPath(File.DirRootExternal & "/hossein","1.gif") به جای hossein اسم پوشه خودتون رو بذارید موفق باشید
×
×
  • جدید...