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

جستجو در تالارهای گفتگو

در حال نمایش نتایج برای برچسب های 'پنل'.



تنظیمات بیشتر جستجو

  • جستجو بر اساس برچسب

    برچسب ها را با , از یکدیگر جدا نمایید.
  • جستجو بر اساس نویسنده

نوع محتوا


تالارهای گفتگو

  • اطلاعات - لرن نت
    • اطلاعیه
    • سیاست‌نامه حریم شخصی
    • انتقادات و پیشنهادات
    • پشتیبانی محصولات
    • روش کار وبسایت
  • اندروید استودیو
    • آموزش های گام به گام برای مبتدی ها
    • ابزار
    • کتابخانه و پلاگین
    • سورس کد
    • آموزش تصویری
    • آموزش متنی
    • سوالات پشتیبانی
    • برنامه های ساخته شده توسط شما
  • بیسیک
    • بیسیک فور اندروید
    • بیسیک فور جاوا
  • متریال
    • اندروید
    • وب
  • گرافیک
    • آموزش
    • ابزار
    • طرح های لایه باز
    • سوالات پشتیبانی
  • تحت وب
    • مباحث برنامه نویسی
    • وردپرس
    • فریم ورک
    • وب سرور
    • سورس کد
    • ابزار
    • سوالات پشتیبانی
  • تحت ویندوز
    • ویژوال بیسیک
    • سی شارپ
    • سوالات پشتیبانی
    • آموزش های متفرقه
  • هک و امنیت
    • آموزش
    • ابزار
    • فعالساز و کرک
    • خط فرمان و ترمینال
  • متفرقه
    • بحث آزاد
    • درخواست
    • نرم افزار
  • آرشیو
    • بایگانی
  • Fanoos Shop ربات های تلگرام
  • فروشگاه نرم افزار های رویا انستاگرام
  • کنزالمال سورس کده های اندروید استودیو
  • رضا ازاده سورس
  • فروشگاه نرم افزار های رویا کنترل از راه دور
  • فروشگاه قالب - سینا نیک قالب وردپرس
  • علی فراهی فایل های برنامه نویسی

دسته ها

  • فایل ها
  • Fanoos Shop فروش سورس های ربات تلگرام
  • رضا ازاده فایل های برنامه نویسی
  • Incognito Coder Store فایل
  • شهریار شریعتی فایل
  • فروشگاه شایان آباد محصولات
  • امیرحسین طرق پیما فایل ها
  • دوره هک و امنیت نرم افزار اندروید دوره هک و امنیت اندروید
  • علی فراهی پی اچ پی
  • فروشگاه نرم افزار های رویا کنترل از راه دور
  • کنزالمال فروشگاه سورس اندروید استودیو
  • دوره ساخت ربات تلگرام به زبان (پی‌اچ‌پی) دوره ساخت ربات تلگرام
  • فروشگاه غیر رسمی مکسیر سورس کد آماده
  • فروشگاه غیر رسمی مکسیر وردپرس
  • اختاپوس تم قالب وردپرس
  • محمد جنگجو کتابخانه بیسیک 4 اندروید
  • کینگ بات | KinNGboT Basic4Android
  • فروشگاه سعید مسعودپور فروشگاه فایل ها
  • اختاپوس تم اسکریپت
  • هکران آنانیموس بخش هکری

38 نتیجه پیدا شد

  1. با سلام ، در سی پنل و برای IPS ؛ لطفا مسیر و مکان : " فایل کانفیگ دیتابیس " را مشخص بفرمائید. بسیار متشکرم
  2. سلام من یه پنل دارم که میخوام قابلیت زوم کردن ب محتویاتش اضافه کنم برنامه یک بازی کارتی هستش که کارت ها ب صورت یه list داخل پنل قرار داده شدن حالا من میخوام قابلیت زوم کردن رو هم ب این پنل اضافه کنم چون تعداد کارتا زیاده و اندازه شون کوچیکه میخوام با زوم کردن این مشکل رو حل کنم از کتابخونه ی pinch zoom and move تو activity create استفاده کردم ولی جواب نداد اینم کدایی که نوشته بودم: pinch.Initialize(pnlMain,"","",1,2.5,3,False,Me) pinch.CanZoom=True pinch.CanMove=False pinch.LimitArea=True
  3. سلام دوستان اینکار شدنی هست؟ اسم فونت هارو توی دیتابیس ذخیره کنیم و با گذاشتن یک باتن در مولتی پنل با گرفتن اسم فونت اون آیکون رو توی باتن(ها) نمایش بدیم؟ اگه میشه لطفا راهنمایی کنید خیلی سرچ کردم و خیلی روش کار کردم اما به نتیجه نرسیدم
  4. به نام خدا با عرض سلام و خسته نباشید خدمت تمامی کاربران گرامی انجمن برنامه نویس ایرانی. یکی از مشکلات شایع وب مسترانی که از هاست اشتراکی با منابع محدود استفاده می‌کنند وجود محدودیت پهنای باند می‌باشد در این مقاله نحوه حل مشکل bandwidth limit reached for this site را خدمت شما آموزش می‌دهیم، با ما همراه باشید. دلیل بروز خطا : ارور bandwidth limit reached for this site زمانی بروز می‌کند که شما از یک هاست با پهنای باند محدود استفاده می‌کنید و سایت شما به دلیل داشتن کاربران زیاد و یا فایل‌های سنگین هنگام لود وب‌سایت و شاید هم قرار دادن فایل‌هایی برای دانلود در سایت خودتان باعث اتمام این محدود شده و به صورت اتوماتیک سایت شما بسته خواهد شد. روش حل مشکل bandwidth limit reached for this site : برای حل مشکل bandwidth limit reached for this site شما دو راه حل دارید، ابتدا با در نظر گرفتن این مورد که شما مدیر سرور وب‌سایت خودتان هستید و دسترسی کامل به پنل میزبانی خودتان دارید باید با بالاترین دسترسی به پنل خودتان لاگین کنید دسترسی یوزر root در سی پنل و یوزر Admin در دایرکت ادمین بالاترین دسترسی‌های موجود هستند. افزایش پهنای باند در whm : بعد از لاگین به بخش مدیریت پنل باید از بخش Accounts Functions مقدار Limit Bandwith Usage را افزایش دهید و تغییرات را با زدن دکمه Change ذخیره کنید رفع مشکل bandwidth limit reached for this site برای هر وب‌سایتی به صورت دستی و با روش فوق قابل انجام هستش، شاید در مواردی هم نیاز باشد تا شما پلن میزبانی وب‌سایت خودتان را کلاً ارتقا بدید. افزایش پهنای باند در دایرکت ادمین : بعد از نصب دایرکت ادمین برای تغییر محدودیت پهنای باند وب‌سایت باید ابتدا از بخش Admin وارد قسمت Reseller Level شوید و سپس با انتخاب گزینه Manage User Packages اقدام به حل مشکل bandwidth limit reached for this site کنید. مورد دوم : در این روش فرض بر این است که شما یک کاربر معمولی هستید که فقط یک هاست برای سایت خودتان تهیه کردید و هیچ‌گونه دسترسی به پنل ادمین کنترل پنل وب‌سایت خودتان ندارید، خوب در این مورد شما هیچ کار خاصی جهت حل مشکل bandwidth limit reached for this site نمی‌توانید بکنید و فقط باید این مورد را از طریق سرویس‌دهنده خود رفع کنید. در این موارد راهکاری که توسط شرکت‌های ارائه دهنده خدمات میزبانی ارائه می‌شود ارتقا هاست شما به پلن بالاتر هستش، برای این مورد هم ابتدا از طریق سرویس‌دهنده خودتان میزان پهنای باند موردنیاز خودتان را بررسی و ارزیابی کنید و پلنی را انتخاب کنید که جوابگوی نیاز شما باشد، به دلیل اینکه در مواقعی که سایت شما بر اثر این مشکل مسدود میشود ربات‌های گوگل نمی‌توانند سایت شما را بررسی کنند و قطعاً این مورد به وب‌سایت شما صدمه خواهد زد. موفق باشید
  5. مشکل با مولتی پنل

    سلام من میخوام یه ادیت تکست که توی مولتی پنل چندبار تکرار میشه رو مقدارش رو بگیرم اما با مشکل مواجه شدم Sub load For i=0 To cursor1.RowCount-1 cursor1.Position=i Dim pa As Panel pa.Initialize("") sv.Panel.AddView(pa,3%x, top,94%x,90dip) pa.LoadLayout("control") Label1.Text=cursor1.GetString("onvan") EditText1.Text=cursor1.GetString("text") top = top + 80dip + 3%X Button1.Tag = cursor1.GetString("etc") EditText1.Tag=cursor1.GetString("text") Next sv.Panel.Height = top End Sub این کد رو گذاشتم ، باتن کار میکنه اما ادیت تکست نه ، مشکلش چی هست؟ چطور اصلاحش کنم؟
  6. با عرض سلام، در صورت امکان خواهش می کنم توضیحات و آموزش کاملی درباره تنظیمات آیتم های زیر از کنترل پنل ادمین IPS برای سایت ها ارائه بفرمائید: 1- کنترل پنل ادمین > سیستم > تنظیمات > مطالب و تبدیل کننده 2- کنترل پنل ادمین > کاربران > تنظیمات کاربری > محافظت از هرزنامه ها و نمایه ها و درجه ها و ایمیل انبوه . 3- کنترل پنل ادمین > فروشگاه > پشتیبانی و هاستینگ 4- کنترل پنل ادمین > صفحه ها > مدیریت صفحه ها و محتوا 5- کنترل پنل ادمین > آمار 6- کنترل پنل ادمین > شخصی سازی بسیار متشکرم
  7. سلام، چطور می توانم در کنترل پنل ادمین IPS ، کش سیستم را پاک کنم؟ خیلی متشکرم
  8. سلام. من دوتا مشکل دارم که هر کاری کردم نشد. ممنون میشم راهنمایی کنین. فک کنم سوال خیلی ها باشه. اول اینکه میخوام رو هر لیبل تو مولتی پنل کلیک شد بیاد متن اون لیبل رو بفرسته به لیبل دیگه . در واقع میخوام کاربر متن داخل لیبل رو با فونت بزرگتری ببینه بعد بتونه اونو ارسال کنه به دیگران. برای این کار یه پنل و لیبل دیگه اضافه کردم بعد ویزیبل رو خاموش کردم. حالا رو هر پنل که کلیک میشه متن لیبل اون پنل بیاد رو لیبل دوم . ولی فقط آخرین متن لیبل میاد. یعنی هر پنلی رو لمس کنم ، فقط متن لیبل آخری میاد. در ضمن متن رو از تکست میگیرم و چون تکست انلاینه و هر بار آپدیت میشه id ندارم. Activity.LoadLayout("agahi") l = File.ReadList(File.DirInternal,"list.txt") For i = 0 To l.Size - 1 Dim p As Panel Dim label As Label p.Initialize("p") label.Initialize("label") label.TextColor = Colors.Gray label.Color = Colors.White label.Text = l.get(i) ScrollView1.Panel.AddView(p,0,top,100%x,100dip) p.AddView(label,0,0,p.Width,p.Height) top = top + 110dip Next ToastMessageShow("پایان لیست",True) الان تو رویداد کلیک پنل چی بنویسم؟ که متن هر لیبل بیاد رو لیبل دوم. سوال دوم اینکه تعداد پنل نامشخصه و من از اسکرول ویو استفاده کردم ولی نمیشه از inner خود اسکرول ویو استفاده کرد چون سایزش مشکل داره و تعداد پنل هم نامشخصه. چیکار کنم اسکرول بشه تا پنل تموم میشه؟؟ تشکر از همه
  9. سلام به همه دوستان اگر دیده باشید در برنامه هایی مثل تلگرام یا واتس اپ یا وایبر وقتی درخواست کد تایید توسط مسیج میرسه دیگه منتظر نمیشه کاربر کد رو از مسیج بخونه و دستی وارد کنه و برنامه رو فعال کنه بلکه خود برنامه محتوای مسیج رسیده رو مورد بررسی قرار میده و اگر درست بود برنامه رو فعال میکنه فرض کنید من پیام رو ارسال کردم وبه گوشی میرسه از این مرحله به بعد چطور باید محتوای مشیج رسیده رو بررسی کنم ؟ با تشکر
  10. مشکل با تگ و سندر در مولتی پنل با سلام من یه مولتی پنل دارم که روی هر پنل سه تا لیبا و یک ایمیج ویو و یک باتن هست اطلاعات لیبل ها و عکس رو از دیتا بیس آنلاین می گیرم می خوام روی هر پنل کلیک شد یک اکتیویتی باز بشه اطلاعات روی اون پنل رو در داخل این اکتیویتی نشون بده خوب به طبع 3 تا لیبل و یک ایمیج ویو هم در این اکتیویتی هست من اطلاعات رو می تونم از دیتا بیس بگیرم در این قسمت مشکلی نیست مشکل من فقط رویداد کلیک روی پنل هست هر باتن یه کد جداگانه دارد که وقتی روش کلیک بشه یه فایل php رو اجرا می کنه و مقدارش رو به اون ارسال میکنه ممنون میشم کمکم کنید مشکل من در واقع با تگ و سندر است این رو توس ساب جاب دان تعریف کردم Dim p As Panel p.Initialize("p") ScrollView1.Panel.AddView(p,0,top,100%x,100%y) top = top + 27%y p.LoadLayout("mozayede2") Panel2.Visible = False Panel1.Tag = MapData.Get("id") Lblname.Text = MapData.Get("name") Lblprice.Text = MapData.Get("price") Lbldate.Text = MapData.Get("date") glide.Load(MapData.Get("image")).AsBitmap.IntoImageView(Imgkala) img = Imgkala.Bitmap خوب تا اینجا خوب مولتی پنل رو تو خروجس نشون میده تو رویداد کلیک پنل چی باید بنویسم که اطلاعات این سه تا لیبل و عکس رو تو اکتیویتی بعدی نشون بده
  11. بروز رسانی مولتی پنل

    سلام دوستان من یک دیتابیس دارم که در یک لایوت اطلاعات واردش می کنم و در یک لایوت دیگر در مولتی پنل نمایش میدم دو تا مشکل دارم 1- وقتی یک رکورد ثبت می کنم چطوری وقتی به لایوت مولتی پنل برمی گردم بروز بشه 2- با کلیک روی هر رکورد در مولتی پنل چطور اون ردیف رو حذف کنم و بلافاصله دیتابیس من هم حذف بشه و مولتی پنل بروز بشه ممنون میشم راهنمایی بکنید و در صورت امکان سورس کدی اگه هست قرار بدین با سپاس
  12. سلام من از کتابخانه tabstripviewpager برای ایجاد تب هاست تو اپ استفاده کردم 5تا تب دارم که به ترتیب 1 تا 5 از چپ به راست به صورت پیش فرض قرار داره می خوام از راست به چپ بشه یعنی از تب 5 به 1 و اینکه چطور میشه تنظیم کرد در شروع برنامه مثلا به صورت پیش فرض تب 3 رو نشون بده ( اینو برای یه اپ دیگم میخوام ) از دوستانی که راهنمایی می کنن پیشاپیش ممنونم
  13. ببخشید بنده تازه برنامه نویسی یاد گرفتم.مولتی پنل ده تایی ساختم ک ابتدا visibleفلس هست و وقتی روی مولتی پنل کلیک میشه visibleترو میشه .روی مولتی پنل باتن تعریف کردم.با استفاده از تگ سندر و کتابخانه پیکاسو از هاست به برنامه عکس دادم.میخام کاربر که روی باتن هر عکس کلیک کرد عکس مورد نظر از اینترنت دانلود بشه و در حافظه ذخیره بشه Sub btn_click ht.Initialize("myjob1",Me) ProgressDialogShow2("در حال دانلود فایل",False) ht.Download("https://*****.com/newfolder/1.png") End Sub Sub jobdone (job As HttpJob) ProgressDialogHide If job.Success = True Then Dim i1 As InputStream Dim o1 As OutputStream i1 = job.GetInputStream o1 = File.OpenOutput(File.DirRootExternal,"1.png",True) File.Copy2(i1,o1) i1.Close o1.Close ToastMessageShow("با موفقیت دانلود شد",False) Else ToastMessageShow("error",False) End If End Sub با استفاده از این کد روی باتن هر عکس که کلیک میکنم فقط یک عکس دانلود میشه مشکل کار چیه؟؟؟
  14. درود. اگر با B4A کار کرده باشید میدانید که برای ساخت پنل های اختصاصی زیاد باید از مولتی پنل استفاده کرد . حالا در بیسیک 4 جاوا چطور ؟! همانطور که احتمالا میدانید ، ویو ScrollPane در بیسیک4جاوا هیچ پنلی برای اظافه کردن ویو های دیگه نداره و فقط میشه از داخل دیزاینر ویو بهش اظافه کرد ! در این آموزش یاد میگیرید که چطور این مشکل رو حل کنید و بیشتر از 100 هزار پنل اختصاصی ساخت. همچنین در کنار مولتی پنل چند چیز کاربردی مثل استایل دادن به ویو ها با Java-fx یا همون css هم یاد میگیرید. مدرس : سجاد مروی مدت زمان فیلم آموزشی : 22 دقیقه محتوا : فیلم آموزشی + سورس پروژه هزینه این آموزش : 3400 تومان پرداخت و دریافت فایل : درگاه پرداخت اینترنتی زرین‌پال بعد از پرداخت و دانلود فایل در تلگرام به آی دی @kingbot_ir یا @sajjad_marvi پیام بدید تا رمز فایل رو تقدیمتون کنم.
  15. سلام دوستان ببخشید میخواستم بدونم میشه داخل b4j یک چیزی ساخت مثل مولتی پنل b4a که بیاد لود کنه .. اگه امکان پذیر هست لطفا بگید که چجوری این کار رو بکنم .
  16. به نام خدا خب اینم یه پنل ادمین دیگه که امیدوارم مورد استفادتون قرار بگیره موضوع رو هم ویژه کردم تا تو بخش خودش پایین نره بقیه اعضا هم بتونن ببین موفق باشید startbootstrap-simple-sidebar-1.0.5.zip
  17. پنل ادمین admin_panel

    به نام خدا خب دوستان یه ادمین پنل واستون میزارم که میتونید برای سایت هاو...(کلا هرچیزی که نیاز دارید ازش استفاده کنید) اول اینکه چرا من موضوع رو تو این بخش زدم؟خب پنل ادمین با 3 تا زبان نوشته شده(اچ تی ام ال-سی اس اس-جاوا اسکریپت) که خب مهمترینش همین جاوا اسکریپت بود. دوم اینکه اگه پسندید پنلل رو فقط کافیه سمت سرور رو برنامه نویسی کنید موضوع رو هم ویژه کردم تا تو بخش خودش پایین نره بقیه اعضا هم بتونن ببین موفق باشید admin_panel.zip پیشنمایش :
  18. سلام من هر وقت با این مولتی پنل کار کردم یکی کمتر لود میکنه... نمیدونم مشکل از کجاست ... خواهشا راهنمایی کنید پ ن :چندین سورس رو تست کردم ولی باز همین مشکل بود. پ ن : سرچ هم کردم چیزی گیرم نیومد این کد مربوط به ادد کردن پنل در اندروید Dim parser As JSONParser parser.Initialize(Job.GetString) Dim Listdata As List Listdata.Initialize Listdata = parser.NextArray Dim top As Int = 2%y For i=0 To Listdata.Size-1 Dim m As Map m.Initialize m = Listdata.Get(i) pnl.Initialize("pnl") pContent.Panel.AddView(pnl,0%X,top,100%x,100%y) pnl.LoadLayout("lshaft") pContent.Panel.Height=top top = top + 25%y Next <?php $con = mysql_connect($host,$user,$pw) or die(mysql_error()); mysql_select_db($db) or die(mysql_error()); mysql_query("SET CHARACTER SET utf8"); mysql_query("SET NAMES 'utf8'"); $id = mysql_real_escape_string($_GET["id"]); $j= mysql_real_escape_string($_GET["j"]); $sql = "SELECT * FROM t_db WHERE st_id='$id' AND st_j='$j'"; $res = mysql_query($sql); if (mysql_errno()) { header("HTTP/1.1 500 Internal Server Error"); echo mysql_error(); } else { $rows = array(); while($r = mysql_fetch_assoc($res)) { $rows[] = $r; } print json_encode($rows); } ?>
  19. طراحی پنل ادمین ربات

    سلام موضوع رو چیز بهتری نتونستم بنویسم یه ربات فروشگاهی یا همکاری در فروش دارم میسازم. وقتی درخواست میکنه کاربر اطلاعاتی مانند: چت آیدی - مبلغ - تاریخ در جدولی ذخیره میشه.و همچنین به ادمین پیام داده میشه که کاربر فلان درخواست واریز کرده. بعد یه دکمه در پنل ادمین تعریف کردم تا درخواست های واریز نشده رو نمایش بده و مدیریت کنه مشکلم اینه: مثلا 3 کاربر درخواست دادن حالا چجوری اینا رو مدیریت کنم.توی کد نویسی مشکل ندارم توی طراحی و تحلیل الگوریتم این قسمت مشکل پیدا کردم و گیر کردم دوستان نظر بدید چکار کنم بهتره؟
  20. با سلام و خسته نباشید خدمت همگان میخواستم ببینم که DSSnackbar قابلیت لود پنل رو داره یا نه توی اینیشیال کردن که میگه پنل یا اکتیویتی میتونی بدی اما من هر کاری کردم نمیشه که نمیشه دوستان حرفه ای ممنون میشم راهنمایی کنید با تشکر
  21. سلام خسته نباشید این کد های منه وقتی جستجو مینک 10 تا از ایتم های جست و جو بیشتر نمیاد و بخاطرsv_ScrollChanged خیلی وقته درگیر ساخت این دیکشنریم ولی توی جستجوش مشکل دارم چون ایتم ها زیاده برای همین حتما باید لیمیت بدم ولی هر کار میکنم درست نمیشه #Region Activity Attributes #FullScreen: false #IncludeTitle: false #End Region Sub Process_Globals Dim sql1 As SQL Dim cur1 As Cursor Dim tts1 As TTS End Sub Sub Globals Dim TenRecordPlus As String =10 Private sv As ScrollView Private Label1 As Label Dim size As Int =0 Private Panel1 As Panel Private Label2 As Label Private Button3 As Button Private Button2 As Button Private Button1 As Button Private RadioButton1 As RadioButton Private RadioButton2 As RadioButton Private EditText1 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("menu") Dim JO As JavaObject = EditText1 JO.RunMethod("setImeOptions",Array As Object(3)) If FirstTime Then If File.Exists(File.DirInternal,"dicdb.db") = False Then File.Copy(File.DirAssets,"dicdb.db",File.DirInternal,"dicdb.db") End If sql1.Initialize(File.DirInternal,"dicdb.db",False) cur1=sql1.ExecQuery2("SELECT * FROM footbal ORDER BY id LIMIT ?",Array As String(10)) For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y p1.LoadLayout("formonvan") Label1.Text=cur1.GetString("en") Label2.Text=cur1.GetString("fa") Button1.Tag=Label1.Text Button2.Tag=Label1.Text & " = " & Label2.Text ' Label2.TextSize = 17 ' Label2.Tag = i ' Label2.Text = cur1.GetString("onvan") ' Label2.TextColor = Colors.Black ' Label2.TextSize = 17 tts1.Initialize("tts1") Next cur1.Close sv.Panel.Height = size End If ' sv.Panel.Color = Colors.red End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click Dim iz As Button iz.Initialize("iz") iz=Sender tts1.SetLanguage("en-US","USA") ToastMessageShow("گوش کنید ...",False) tts1.Speak(iz.Tag,False) tts1.SpeechRate=-2 End Sub Sub Button2_Click Dim ali As Button ali.Initialize("ali") ali=Sender Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT",ali.Tag) share.WrapAsIntentChooser("واژه را به اشتراک بگذارید ....") StartActivity(share) End Sub Sub Button3_Click End Sub Sub sv_ScrollChanged(Position As Int) cur1 = sql1.ExecQuery2("SELECT * FROM footbal OFFSET LIMIT ?,?",Array As String(TenRecordPlus,10)) If sv.ScrollPosition + sv.Height = sv.Panel.Height Then For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,1%x,size,98%x,80%y) size = size + 21%y p1.Visible = False Dim a As Animation a.InitializeScaleCenter("a",0,0,1,1,p1) a.Duration=500 a.Start(p1) p1.Visible = True p1.LoadLayout("formonvan") Label1.Text=cur1.GetString("en") Label2.Text=cur1.GetString("fa") Button1.Tag=Label1.Text Button2.Tag=Label1.Text & " = " & Label2.Text ' Label2.Tag = i ' Label2.Text = cur1.GetString("onvan") ' Label2.TextColor = Colors.White ' Label2.TextSize = 17 Next cur1.Close sv.Panel.Height = size DoEvents If IsNumber(TenRecordPlus) = True Then TenRecordPlus = TenRecordPlus + 10 End If End If End Sub Sub Button4_Click End Sub Sub EditText1_TextChanged (Old As String, New As String) If RadioButton1.Checked Then sv.Panel.RemoveAllViews size=sv.Height - sv.Height sv.ScrollPosition = size Dim cur As Cursor cur = sql1.ExecQuery("SELECT * FROM footbal WHERE en like '%" & EditText1.Text & "%' LIMIT 0,10") For i = 0 To cur.RowCount - 1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y p1.LoadLayout("formonvan") ' p1.Tag = cur.GetInt("id") Label1.Text=cur.GetString("en") Label2.Text=cur.GetString("fa") Button1.Tag=Label1.Text Button2.Tag=Label1.Text & " = " & Label2.Text Next sv.Panel.Height = size Else sv.Panel.RemoveAllViews size=sv.Height - sv.Height sv.ScrollPosition = size Dim cur As Cursor cur = sql1.ExecQuery("SELECT * FROM footbal WHERE fa like '%" & EditText1.Text & "%' LIMIT 0,10") For i = 0 To cur.RowCount - 1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y p1.LoadLayout("formonvan") ' p1.Tag = cur.GetInt("id") Label1.Text=cur.GetString("en") Label2.Text=cur.GetString("fa") Button1.Tag=Label1.Text Button2.Tag=Label1.Text & " = " & Label2.Text Next sv.Panel.Height = size + 10 End If End Sub Sub setTextIsSelectable(edt As EditText,selectable As Boolean) Dim jo = edt As JavaObject jo.RunMethod("settextisselectable",Array As Object (selectable)) End Sub مشکل کجاست اگه میتونم راحت تر لیمیت بدم بهم بگین ممنون میشم یه مشکل کوچیک هم دارم ببخشید اینجا میگم اون هم در هیمن عنوانه من وقتی برای بار اول این اکتیویتی رو استارت میکنم درسته ولی وقتی بار دوم استارت میکنم 10 ایتم اول که باید لود بشه لود نمیشه (خارج از جستجو خود ایتم های اصلی رو میگم ) بازم ببخشید
  22. سلام دوستان من با مولتی پنل ی دیکشنری ساختم چطور میتونم یه جست و جو درست کنم که لیمیت هم داشته باشه
  23. سلام این کد های منه یه مولتی پنل و لیمیت و انیمیشن Sub Process_Globals Dim sql1 As SQL Dim meghdar As String Dim tts1 As TTS End Sub Sub Globals Dim TenRecordPlus As String = "10" Dim cur1 As Cursor Private sv As ScrollView Private Label1 As Label Dim size As Int =0 Private Panel1 As Panel Private Label2 As Label Private Button3 As Button Private Button2 As Button Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("menu") tts1.Initialize("tts1") If FirstTime Then If File.Exists(File.DirInternal,"dicdb.db") = False Then File.Copy(File.DirAssets,"dicdb.db",File.DirInternal,"dicdb.db") End If sql1.Initialize(File.DirInternal,"dicdb.db",False) cur1 = sql1.ExecQuery2("SELECT * FROM eghtesad ORDER BY ID LIMIT ?",Array As String(10)) For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y p1.Visible = False Dim a As Animation a.InitializeScaleCenter("a",0,0,1,1,p1) a.Duration=500 a.Start(p1) p1.Visible = True p1.LoadLayout("formonvan") Label1.Tag = i Label1.Text=cur1.GetString("en") Label2.Text=cur1.GetString("fa") ' Label2.TextSize = 17 ' Label2.Tag = i ' Label2.Text = cur1.GetString("onvan") ' Label2.TextColor = Colors.Black ' Label2.TextSize = 17 Next cur1.Close sv.Panel.Height = size End If ' sv.Panel.Color = Colors.red End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub sv_ScrollChanged(Position As Int) cur1 = sql1.ExecQuery2("SELECT * FROM eghtesad OFFSET LIMIT ?,?",Array As String(TenRecordPlus,10)) If sv.ScrollPosition + sv.Height = sv.Panel.Height Then For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y ' p1.Visible = False Dim a As Animation a.InitializeScaleCenter("a",0,0,1,1,p1) a.Duration=500 a.Start(p1) ' p1.Visible = True p1.LoadLayout("formonvan") Label1.Tag = i Label1.Text=cur1.GetString("en") Label2.Text=cur1.GetString("fa") ' Label2.Tag = i ' Label2.Text = cur1.GetString("onvan") ' Label2.TextColor = Colors.White ' Label2.TextSize = 17 Next cur1.Close sv.Panel.Height = size DoEvents If IsNumber(TenRecordPlus) = True Then TenRecordPlus = TenRecordPlus + 10 End If End If End Sub **(دوستان این کد ها برای ساخت یک دیکشنری هستش که میتونید باهاش یه دیکشنری کامل (بدون هنگ )بسازید )** حالا من مثلا میخوام با کتابخانه tts کار کنم و یا متن رو ارسال کنم .به این شکل کد دادم Sub Button1_Click tts1.SetLanguage("en-US","USA") ToastMessageShow("گوش کنید ...",False) tts1.Speak(Label1.Text,False) tts1.SpeechRate=-2 End Sub Sub Button3_Click Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", Label1.Text & " = " & Label2.Text) share.WrapAsIntentChooser("واژه را به اشتراک بگذارید ....") StartActivity(share) End Sub حالا برنامه میاد دهمین کلمه تلفظ میکنه( اشتراک کذاری ) و ده تای قبلش هم همون رو تلفظ میکنه (اشتراک گذاری میکنه ) و وقتی لیمیت داده میشه باز هم همین اتفاق برای 10 ایتم بعد میوفته و تا اولین ایتم مولتی پنل رو به صورت همون کلمه ای که اخرین بار تلفظ کرده (اشتراک کذاری کرده) تلفظ میکنه (اشتراک گذاری میکنه) یعنی توی هر رویدادی به جز لود ایتم ها این اتفاق برام میوفته مشکل کجاست ؟؟؟؟؟؟؟؟ ممنون
  24. سلام این کد های منه یه مولتی پنل و لیمیت و انیمیشن Sub Process_Globals Dim sql1 As SQL Dim meghdar As String Dim tts1 As TTS End Sub Sub Globals Dim TenRecordPlus As String = "10" Dim cur1 As Cursor Private sv As ScrollView Private Label1 As Label Dim size As Int =0 Private Panel1 As Panel Private Label2 As Label Private Button3 As Button Private Button2 As Button Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("menu") tts1.Initialize("tts1") If FirstTime Then If File.Exists(File.DirInternal,"dicdb.db") = False Then File.Copy(File.DirAssets,"dicdb.db",File.DirInternal,"dicdb.db") End If sql1.Initialize(File.DirInternal,"dicdb.db",False) cur1 = sql1.ExecQuery2("SELECT * FROM eghtesad ORDER BY ID LIMIT ?",Array As String(10)) For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y p1.Visible = False Dim a As Animation a.InitializeScaleCenter("a",0,0,1,1,p1) a.Duration=500 a.Start(p1) p1.Visible = True p1.LoadLayout("formonvan") Label1.Tag = i Label1.Text=cur1.GetString("en") Label2.Text=cur1.GetString("fa") ' Label2.TextSize = 17 ' Label2.Tag = i ' Label2.Text = cur1.GetString("onvan") ' Label2.TextColor = Colors.Black ' Label2.TextSize = 17 Next cur1.Close sv.Panel.Height = size End If ' sv.Panel.Color = Colors.red End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub sv_ScrollChanged(Position As Int) cur1 = sql1.ExecQuery2("SELECT * FROM eghtesad OFFSET LIMIT ?,?",Array As String(TenRecordPlus,10)) If sv.ScrollPosition + sv.Height = sv.Panel.Height Then For i = 0 To cur1.RowCount -1 cur1.Position = i Dim p1 As Panel p1.Initialize("") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y ' p1.Visible = False Dim a As Animation a.InitializeScaleCenter("a",0,0,1,1,p1) a.Duration=500 a.Start(p1) ' p1.Visible = True p1.LoadLayout("formonvan") Label1.Tag = i Label1.Text=cur1.GetString("en") Label2.Text=cur1.GetString("fa") ' Label2.Tag = i ' Label2.Text = cur1.GetString("onvan") ' Label2.TextColor = Colors.White ' Label2.TextSize = 17 Next cur1.Close sv.Panel.Height = size DoEvents If IsNumber(TenRecordPlus) = True Then TenRecordPlus = TenRecordPlus + 10 End If End If End Sub **(دوستان این کد ها برای ساخت یک دیکشنری هستش که میتونید باهاش یه دیکشنری کامل (بدون هنگ )بسازید )** حالا من مثلا میخوام با کتابخانه tts کار کنم و یا متن رو ارسال کنم .به این شکل کد دادم Sub Button1_Click tts1.SetLanguage("en-US","USA") ToastMessageShow("گوش کنید ...",False) tts1.Speak(Label1.Text,False) tts1.SpeechRate=-2 End Sub Sub Button3_Click Dim share As Intent share.Initialize(share.ACTION_SEND,"") share.SetType("text/plain") share.PutExtra("android.intent.extra.TEXT", Label1.Text & " = " & Label2.Text) share.WrapAsIntentChooser("واژه را به اشتراک بگذارید ....") StartActivity(share) End Sub حالا برنامه میاد دهمین کلمه تلفظ میکنه( اشتراک کذاری ) و ده تای قبلش هم همون رو تلفظ میکنه (اشتراک گذاری میکنه ) و وقتی لیمیت داده میشه باز هم همین اتفاق برای 10 ایتم بعد میوفته و تا اولین ایتم مولتی پنل رو به صورت همون کلمه ای که اخرین بار تلفظ کرده (اشتراک کذاری کرده) تلفظ میکنه (اشتراک گذاری میکنه) یعنی توی هر رویدادی به جز لود ایتم ها این اتفاق برام میوفته مشکل کجاست ؟؟؟؟؟؟؟؟ ممنون
  25. سلام دوستان من ی مولتی پنل رو بجای اینکه سطری نشون میده رو می خوام ستونی نشون بدم(دو ستونه). دوستان کمک کنید؟
×