رفتن به مطلب

Mthzf1384

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

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

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

  • روز های برد

    1

آخرین بار برد Mthzf1384 در 24 آبان 1398

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

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

9 متوسط

درباره Mthzf1384

  • درجه
    کاربر
  • تاریخ تولد 20 تیر 1384

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

  • محل زندگی
    شیراز
  • محل تولد
    شیراز

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

156 بازدید کننده نمایه
  1. سلام خدمت آقای شاهپیری بزرگوار آقای شاهپیری عزیز من یه کتاب نوشتم که می‌خوام آخرین مشاهده داشته باشه چجوری پوزیشن آخرین آیتمی رو که کاربر دیده ذخیره کنم با تشکر
  2. سلام به همه ی دوستان و اساتید من میخوام از نویگیشن دراور کتابخانه دیزاین ساپورت استفاده کنم این وسط یه مشکل دارم. مشکلمم اینه که وقتی کد opendrawer رو بزنی منو از سمت چپ باز میشه ولی من میخوام از سمت راست باز بشه. برای این کار اومدم این کد(AddSecondaryDrawer) رو زدم و تنظیمات مربوطه رو هم انجام دادم فقط نمیدونم چجوری وقتی روی دکمه ی تولبار زده شد منو از سمت راست باز بشه با تشکر
  3. سلام آقای شاهپیری عزیز فکر می کنم شما منظور منو درست متوجه نشدید من آموزش هاتون رو نگاه کردم ولی داخل آموزش ها کلیک بر روی یک آیتم بوده مثل اینکه به جای لیست ویو از ریسایکلر ویو استفاده شده باشه شما به عکس توجه کنید این برنامه ی منه حالا من میخوام مثلا روی دکمه ی قلبه کلیک کنم باید چه کار کنم که ساب مربوط به خودش فراخوانی بشه؟ این OnItemClick من حتی اگر روی نوشته هم کلیک کنم ساب فراخوانی میشه ولی من میخوام هر دکمه یه کار خاصی انجام بده با دستور ایف هم هر چی فکر کردم نفهمیدم چجوری بزارم در هر صورت ممنون از کتابخانه ی خوبتون و پاسخگوییتون
  4. Mthzf1384

    تار کردن تصویر

    در ضمن این کد برای b4i و b4j هم قابل استفاده هست
  5. Mthzf1384

    تار کردن تصویر

    سلام در اینجا میخوام به شما آموزش بدم که چگونه یک عکس رو تار کنید برای این کار ابتدا کد زیر رو به اکتیویتون اضافه کنید Private Sub Blur (bmp As B4XBitmap) As B4XBitmap Dim n As Long = DateTime.Now Dim bc As BitmapCreator Dim ReduceScale As Int = 2 bc.Initialize(bmp.Width / ReduceScale / bmp.Scale, bmp.Height / ReduceScale / bmp.Scale) bc.CopyPixelsFromBitmap(bmp) Dim count As Int = 3 Dim clrs(3) As ARGBColor Dim temp As ARGBColor Dim m As Int For steps = 1 To count For y = 0 To bc.mHeight - 1 For x = 0 To 2 bc.GetARGB(x, y, clrs(x)) Next SetAvg(bc, 1, y, clrs, temp) m = 0 For x = 2 To bc.mWidth - 2 bc.GetARGB(x + 1, y, clrs(m)) m = (m + 1) Mod clrs.Length SetAvg(bc, x, y, clrs, temp) Next Next For x = 0 To bc.mWidth - 1 For y = 0 To 2 bc.GetARGB(x, y, clrs(y)) Next SetAvg(bc, x, 1, clrs, temp) m = 0 For y = 2 To bc.mHeight - 2 bc.GetARGB(x, y + 1, clrs(m)) m = (m + 1) Mod clrs.Length SetAvg(bc, x, y, clrs, temp) Next Next Next Log(DateTime.Now - n) Return bc.Bitmap End Sub Private Sub SetAvg(bc As BitmapCreator, x As Int, y As Int, clrs() As ARGBColor, temp As ARGBColor) temp.Initialize For Each c As ARGBColor In clrs temp.r = temp.r + c.r temp.g = temp.g + c.g temp.b = temp.b + c.b Next temp.a = 255 temp.r = temp.r / clrs.Length temp.g = temp.g / clrs.Length temp.b = temp.b / clrs.Length bc.SetARGB(x, y, temp) End Sub هر کجا هم که خواستید استفاده کنید این کد رو بگذارید و به جای ایمج ویو 1 اسم ایمیج ویوی خودتون رو بگذارید Dim bmp As B4XBitmap = xui.LoadBitmapResize(File.DirAssets, "bas-van-brandwijk-588535-unsplash.jpg", ImageView1.Width, ImageView1.Height, True) ImageView1.SetBitmap(Blur(bmp))
  6. سلام به همه اساتید و دوستان خوشبختانه مشکل قبلیم حل شد اما متاسفانه مشکل دیگری به مشکلاتمان اضافه شد من داخل برنامم دارم از ریسایکلر ویو استفاده می کنم و داخل این ریسایکلر ویو دارم یه پنل که داخلش دو تا لیبل و 5 تا دکمه هست رو لود می کنم . من دو تا سوال دارم: اگر بخوام روی یکی از این دکمه ها کلیک کنم آیا باید از رویداد کلیک دکمه استفاده کنم؟(من اومدم از این طریق رفتم ولی اصلا وقتی روی دکمه کلیک می کنم رویداد کلیک دکمه فراخوانی نمیشه و اصلا کد های این رو نمیخونه) اگر جوابتون به سوال اولم نه هست پس من چجوری باید کد های مربوط به کلیک روی دکمه رو بنویسم منظورم اینه که کجا؟ با تشکر از همه اساتید و دوستان انسر سنتری
  7. سلام دوستان میخواستم بدونم که چطوری میتونم فاصله ی بین دو آیتم رو در کتابخانه Persian Recycler View تنظیم کنم؟ با تشکر
  8. سلام دوست عزیز خواستم تشکر کنم وافعا مطالبی که میذارید مفید و بدرد بخور هست خیلی ممنون
  9. سلام من کد هامو عوض کردم ولی همون مشکل قبلی رو دارم Sub Process_Globals Dim sql As SQL End Sub Sub Globals Type mymodel(Text As String) Dim l As List Dim pr As PersianRecyclerLayout Dim su As StringUtils Dim cur As Cursor Private lblpyamaktext As Label Private lbltitr As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") If(File.Exists(File.DirInternal , "book10v(2.0.2)") = False)Then File.Copy(File.DirAssets , "book10v(2.0.2).db" , File.DirInternal , "book10v(2.0.2).db") End If sql.Initialize(File.DirInternal , "book10v(2.0.2).db" , True) l.Initialize gettext pr.Builder("pr").NormalRecycler.BALayout.ListView.RecyclerView.Build Activity.AddView(pr , 0 , 0 , 100%X , 100%Y) pr.ShowRecycler End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub pr_getItemCount As Int Return l.Size End Sub Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.LoadLayout("l") Return Null End Sub Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.Width = 100%X mainpanel.Height = 200dip Dim model As mymodel model.Initialize model.Text = l.Get(position) lblpyamaktext.Text = model.Text lblpyamaktext.TextColor = Colors.Black lblpyamaktext.Height = su.MeasureMultilineTextHeight(lblpyamaktext , lblpyamaktext.Text) Log(position) Log(model.Text) Return mainpanel End Sub Private Sub gettext cur= sql.ExecQuery("SELECT * FROM TblText WHERE IDzFasl = 2 AND IDzGoftar = 1 AND IDzBakhsh = 1") For i = 0 To cur.RowCount - 1 cur.Position = i l.Add(cur.GetString("Text")) Next این هم کد هام هستش یه چیزی هم که فهمیدم این بود که متن ها رو تا آیتم 6 درست لود می کنه و آیتم 7 رو هم وقتی اسکرول می کنم درست نشون میده اما وقتی که اسکرول می کنم میام رو آیتم 8 به جای اینکه متن آیتم 8 رو عوض کنه میاد متن آیتم 7 رو پاک میکنه و متن آیتم هشت رو داخلش میریزه و آیتم 8 هم انگار اینکه آیتم 1 رو از بالا گرفته باشن آورده باشنش پایین خیلی ممنون میشم راهنمایی کنید البته ببخشید که من اینقدر سوال میکنم
  10. خیلی ممنون از پاسخگوییتون
  11. ببخشید من خیلی مبتدیم اگر میشه این قسمت رو برام بیشتر توضیح بدید و اگر میشه مثال هم برام بزنید
  12. سلام من از کتابخانه خوبتون استفاده میکنم. فقط الان یه مشکل برام پیش اومده اونم اینه که متن هایی رو که میخوام به ترتیب لود کنه رو به ترتیب لود نمی کنه Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim sql As SQL End Sub Sub Globals Dim pr As PersianRecyclerLayout Dim su As StringUtils Dim cur As Cursor Private lblpyamaktext As Label Private lbltitr As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout") If(File.Exists(File.DirInternal , "book10v(2.0.2)") = False)Then File.Copy(File.DirAssets , "book10v(2.0.2).db" , File.DirInternal , "book10v(2.0.2).db") End If sql.Initialize(File.DirInternal , "book10v(2.0.2).db" , True) cur= sql.ExecQuery("SELECT * FROM TblText WHERE IDzFasl = 2 AND IDzGoftar = 1 AND IDzBakhsh = 1") pr.Builder("pr").NormalRecycler.BALayout.ListView.RecyclerView.Build Activity.AddView(pr , 0 , 0 , 100%X , 100%Y) pr.ShowRecycler End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub pr_getItemCount As Int Return cur.RowCount End Sub Sub pr_onCreateViewHolder(layoutitem As Object,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.LoadLayout("l") cur= sql.ExecQuery("SELECT * FROM TblText WHERE IDzFasl = 2 AND IDzGoftar = 1 AND IDzBakhsh = 1") Return Null End Sub Sub pr_onBindViewHolder(layoutitem As Object,position As Int,viewtype As Int) As Object Dim mainpanel As Panel = layoutitem mainpanel.Width = 100%X mainpanel.Height = 50%Y cur.Position = position lblpyamaktext.Text = cur.GetString("Text") lblpyamaktext.TextColor = Colors.Black lblpyamaktext.Height = su.MeasureMultilineTextHeight(lblpyamaktext , lblpyamaktext.Text) Log(position) Log(cur.GetString("Text")) Return mainpanel End Sub Sub pr_OnItemClick(ItemTag As Object,viewclicked As Object,position As Int) Log(ItemTag) End Sub این هم کد هام هست در ضمن لاگ هم که می گیرم لاگ ها هیچ مشکلی نداره و کاملا درسته منتهااشتباه در لیبل لود میکنه دلیلش رو نمیدونم. ممنون میشم راهنمایی کنید
×
×
  • جدید...