اطلاعیه

کاربر گرامی

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

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


arfan2x

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

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

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

درباره arfan2x

  • درجه
    کاربر باسابقه
  1. همکاری در ساخت بازی کلمات؟

    سلام دوستان وقت تون بخیر. بنده طراح جدول و سرگرمی هستم و طرحهای خوبی واسه تبدیل شدن به بازی آندرویدی دارم. همونطور که می دونید بازیهای کلمات زیادی تو کافه بازار هست که فروش خوبی دارند. پس میشه روش حساب کرد. این طرحها هم که می گم اصلا تکراری نیستن و بازی مشابهی ندارند. می خواستم بپرسم جایی یا کسی رو می شناسید که بشه به صورت شراکتی باهاشون کار انجام داد؟ یعنی طرح جداول از من و ساخت اپ از اونا. خوشحال می شم نظرتون رو بفرمایید. تشکر
  2. مشکل با جستجو در مولتی پنل

    بله می دونم، تو حالت عادی با کلیک رو هر عنوان متن مربوطه رو میاره. مشکلم با این جستجو هستش. مثلاً وقتی کلمه ای رو سرچ می کنی و پنج مورد رو پیدا می کنه، رو هر کدوم که بزنی فقط یه متن رو نشون می ده. این سورس کوچک رو اگه لطف کنید یه نگاهی بندازید ممنونت می شم. خودم خیلی تلاش کردم نشد MultiPanel Search
  3. مشکل با جستجو در مولتی پنل

    تشکر فراوان از شما، مشکل نیاوردن آیتم ها حل شد فقط یه مشکل کوچیک باقی مونده لطف کنید این رو هم راهنمایی بفرمایید. الان کلمه ای رو که سرچ می کنم آیتم ها رو میاره ولی رو هر کدوم که می زنی فقط یه متن رو نشون می ده چه تغییری لازمه تا رو هر عنوان که زدم متن مربوط به خودش رو بیاره؟
  4. سلام وقت تون بخیر. بنده یه لیستی رو از دیتابیس گرفتم و تو مولتی پنل لود کردم و بالای این لیست یه ادیت تکست گذاشتم برای جستجو در عناوین. اما وقتی تو ادیت تکست کلمه ای رو می نویسم هیچ اتفاقی نمی افته و چیزی رو نمایش نمی ده فقط این کد کار میکنه: ScrollView1.Panel.RemoveAllViews لطفاٌ راهنمایی کنید مشکل از کجاست. کدهایی که استفاده کردم: Sub ETxtSrch_TextChanged (Old As String, New As String) ScrollView1.Panel.RemoveAllViews cur = Main.sql1.ExecQuery("Select * From Tbl Where Onvan1 Like '%" & ETxtSrch.Text & "%'") For i = 0 To cur.RowCount -1 cur.Position = i Dim p As Panel p.Initialize("") ScrollView1.Panel.AddView(p,3%x,top,94%x,80dip) p.LoadLayout("listPnl") Label2.Text = cur.GetString("Onvan1") top = top + 80dip + 3%X Panel1.Tag = i If (cur.GetString("Fasl") = 1) Then Label1.Visible = True Else If (cur.GetString("Fasl") = 2) Then Label3.Visible = True End If Next End Sub
  5. اعمال نشدن تنظیمات متن روی لیبل

    سلام. خدمت شما عرض کنم من هرچی به ذهنم برسه رو امتحان می کنم اگه واقعاً به جواب نرسم و نتونم پست می ذارم. الان هم همینطوره هر راهی رو امتحان کردم اما بازم همینجوریه. جالب اینجاست روشهای دیگه واسه گذاشتن چندین عکس و متن و نمایش تو لیبل رو هم امتحان کردم اما بازم هنگام اعمال تنظیمات فونت و سایز، رو بخشی از متن تنظیمات اعمال می شه. فقط واسه مطالبی که شامل عکس و متن هست همچین مشکلی پیش میاد اما اگه فقط متن باشه به درستی کار می کنه. سورس رو می ذارم لطفاً هرکی از دوستان وقت کرد یه نگاهی بندازه این مشکل ما رو حل کنه. اجرش با خدا دانلود سورس
  6. سلام خدمت شما. بنده طبق یکی از آموزشهای انجمن یه سری متن و عکس رو از دیتابیس می گیرم و تو لیبل نشون می دم. حالا یه بخش تنظیمات هم ساختم که اندازه متن و فونت رو تغییر می ده. مشکلم از اینجا شروع میشه که تنظیمات رو که اعمال می کنم رو همه بخشهایی که عکس نداره به درستی اعمال میشه اما بخشهایی که بیشتر از یه عکس داره فقط رو قسمتی از متن اعمال میشه و بقیه متن تغییری درش بوجود نمیاد. کدهایی که استفاده کردم واسه فراخوانی متن و عکس از دیتابیس: Dim h As Int For i = 0 To 4 If Cur.GetString("Matn"&i) <> Null Then Label1.Initialize("Label1") Label1.Text = Cur.GetString("Matn"&i) Label1.TextColor = Colors.Black Label1.TextSize = 20 Label1.Gravity = Gravity.RIGHT Label1.Padding = Array As Int(2,0,0,5) ScrollView1.Panel.AddView(Label1,0,h+2%Y,ScrollView1.Width-8,ScrollView1.Height) ScrollView1.Width = 100%x Label1.Height = strut.MeasureMultilineTextHeight(Label1 , Label1.Text) + 10 h = h + strut.MeasureMultilineTextHeight(Label1 , Label1.Text) + 70 ScrollView1.Panel.Height = h End If If Cur.GetString("Ax"&i) <> Null Then Dim ImageView1 As ImageView ImageView1.Initialize("imageView") ImageView1.Tag = Cur.GetString("Ax"&i) ScrollView1.Panel.AddView(ImageView1,0,h,ScrollView1.Width,ScrollView1.Height) Main.bitmp(i).InitializeSample(File.DirAssets,Cur.GetString("Ax"&i)&".jpg",Activity.Height,Activity.Width) ImageView1.Bitmap = Main.bitmp(i) If Main.bitmp(i).Width > 100%x Then ImageView1.Width = 100%x ImageView1.Height = (ImageView1.Width / Main.bitmp(i).Width)*Main.bitmp(i).Height ImageView1.Gravity = Gravity.FILL Else ImageView1.Width = Main.bitmp(i).Width ImageView1.Height = Main.bitmp(i).Height ImageView1.Left = (100%x - ImageView1.Width)/2 ImageView1.Gravity = Gravity.FILL End If h = h + ImageView1.Height + 10 ScrollView1.Panel.Height = h End If Next لطفاً مث همیشه راهنمایی بفرمایید تشکر
  7. مشکل با تگ و sender

    سلام خدمت شما. این واسه تست بود واسه همین آیکن نداره. دیدم که این تگ و sender واسم مشکل شده دیگه بیخیال شدم. لطفاً درستش کنید. تو اون اکتیویتی متن نمی دونم چه کدی بنویسم که رو هر عنوانی که کلیک شد متن مربوطه رو نشون بده
  8. مشکل با تگ و sender

    سورس رو قرار می دم لطفاً برام درستش کنید. خودم هرکاری کردم نشد. تشکر MultiPanel
  9. مشکل با تگ و sender

    سلامی دوباره. دوستان کسی نبود کمک کنه؟ فکر کنم فقط یه اشتباه کوچیک دارم لطفاً راهنمایی کنید. چه کدی می خواد؟
  10. مشکل با تگ و sender

    سلام ممنون از پاسختون. کارای زیر رو کردم اما بازم نمیشه. خواهشاً کدهاش رو بنویسید خیلی گیر این موضوعم Sub Panel1_Click Dim p As Panel = Sender p.Tag = cur.Position p.Tag = matn.send StartActivity(matn) End Sub تو اکتیویتی متن هم یه متغیر تعریف کردم به اسم send کدهای زیر رو استفاده کردم Main.sql1.Initialize(File.DirInternal, "data.db" , False) Cur = Main.sql1.ExecQuery("SELECT * FROM book WHERE id ="&send) Cur.Position = 0 اما خطای زیر رو می ده: android.database.sqlite.SQLiteException: near "=": syntax error: , while compiling: SELECT * FROM book WHERE id = لطفاً راهنمایی بفرمایید
  11. مشکل با تگ و sender

    سلام وقت بخیر. بنده یه مولتی پنل ساختم و یه لیست رو از دیتابیس می گیرم. عناوین از دیتابیس به درستی لود میشه اما مشکلم از اینجا شروع میشه که نمی تونم رویداد کلیکش رو تنظیم کنم طوری که رو هر عنوانی که کلیک شد بره به اکتیویتی مطالب و مطلب همون رو نشون بده. لطفا راهنمایی کنید تشکر. کدهایی که استفاده کردم: Sub Activity_Create(FirstTime As Boolean) For i = 0 To cur.RowCount -1 cur.Position = i Dim P As Panel P.Initialize("") ScrollView.Panel.AddView(P,3%X,top,94%X,80dip) P.LoadLayout("List") Label.Text = cur.GetString ("Onvan") top = top + 80dip + 3%X Panel1.Tag = i Next ScrollView.Panel.Height = top End Sub Sub Panel1_Click Dim P As Panel = Sender P.Tag = ??????????????????????? StartActivity(matn) End Sub حالا نمی دونم اون P.Tag رو برابر با چی قرار بدم و هچنین تو اکتیویتی matn چه طوری متن رو از دیتابیس بگیرم
  12. سلام خدمت دوستان گرامی. بنده هر کاری کردم نتونستم سرویس پوشه رو برای ارسال پوش نوتیفیکیشن ایجاد کنم. با چندتا ورژن مختلف بیسیک هم امتحان کردم اما خطایی که در تصویر پیوست کردم رو میده. jdk رو هم آپدیت کردم لطفاً هرکی بلده کمک کنه. تشکر
  13. کانال تلگرام خرید و فروش پنل پوشه؟

    کسی خبر نداره قیمت ها چه جوریه. ضروریه لطفاً اگه می دونید کمک کنید
  14. سلام وقت بخیر. لطفاً کانال تلگرام یا سایتی برای خرید و فروش پنل پوشه اگه سراغ دارید معرفی کنید. تشکر قیمت فروش یه پنل پوشه بیست کا چقدر هست؟
  15. قفل دیتابیس با کتابخانه Ariazip

    دوستان کسی نیست کمک کنه؟