رفتن به مطلب

تخته امتیازات

  1. امین شاهدی

    امین شاهدی

    مدیر بازنشسته


    • امتیاز

      1

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

      1,592


  2. امین مهدی نژاد

    امین مهدی نژاد

    معاون انجمن


    • امتیاز

      1

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

      666


  3. Mr.Kafiri

    Mr.Kafiri

    کاربر رو به رشد


    • امتیاز

      1

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

      213



مطالب محبوب

در حال نمایش مطالب دارای بیشترین امتیاز در یکشنبه, 4 آبان 1399 در همه بخش ها

  1. 1 امتیاز
    سلام. عزیز برای اینکه یک کلمه خاصی رو توی لیبل بتونید رنگی کنید باید اون کلمه رو با تگی چیزی درون دیتابیس مشخص کنید تا برنامه بتونه پیدا کنه کلمه رو و کارایی که میخواید رو روی متن انجام بدید متن دیتابیس: {B}عنوان{B} این متن تست برای بولد کردن متن است. الان ما برای اینکه بتونیم فقط اون کلمه رو رنگی کنیم میایم از تگ استفاده میکنیم و کلمه رو مشخص میکنیم الان از {B} .... {B} استفاده کردیم.. (به جای کلمه B هر کلمه دیگه ایی میتونید بزارید) کد: Dim rs As RichString rs.Initialize(Label1.Text) rs.Color2(Colors.White,"{B}") 'اینجا میگیم که اگر شما کلمه پیدا کردی که با این تگ مشخصی شده بود شما بیا و رنگش رو سفید کن بقیه متد ها هم همینجوری کار میکنن شما باید شماره 2 اون متد رو صدا بزنید کتابخونه ورژن 1.5
  2. 1 امتیاز
    به نام خدا کتابخونه درون پرداخت بازار داخل فروشگاه قرار گرفت همه شما با کاربرد این کتابخانه آشنایی دارید و فکر نکنم توضیحات زیادی رو لازم باشه بدم از طریق این کتابخانه میتونید در برنامه هایی که در بازار انتشار میدید قابلیت درون پرداخت رو قرار بدید مثال : یک کتابچه مینویسید که داخل اون 100 مطلب مفید هست میتونید 20 تا از مطالب رو به صورت رایگان قرار بدید و بعد از اینکه کاربر مبلغی رو پرداخت کرد به اون 80 مطلب دیگه هم دسترسی داشته باشه توضیحات مکمل : کلا سه نوع دانلود رو توی بازار داریم 1- رایگان 2- کاملا پولی 3- درون پرداخت دو گزینه اول که معلومه ولی برای گزینه سوم نیاز به لایبری درون پرداخت هست که آموزشش رو هم براتون تهیه کردم که میتونید دانلود کنید دانلود فیلم آموزشی + سورس کار با کتابخانه و برای تهیه خود کتابخانه هم از طریق فروشگاه میتوانید اقدام نمایید که با قیمتی خیلی پایین تر از نمونه های مشابه برای شما عزیزان قرار داده شده کاملا اختصاصی از انجمن تخصصی برنامه نویسی AnswerCenter.IR
  3. 1 امتیاز
    ساخت سرویس چت در بیسیک فور اندروید این سرویس برای دریافت و مدیریت رویدادهای لازم برای چت روم می باشد. ابتدا متغیر سوکت رو به صورت عمومی می سازیم Sub Process_Globals Dim ir As irSocketIO End Sub اکنون سوکت را با آدرس و پورت سرور وصل می کنیم ir.getSocket("http://192.168.1.101:3000") حالا باید رویدادهایی برای وقایع مناسب تهیه کنیم. مثلا رویدادهای اتصال به سرور لاگین شدن به سرور اتصال کاربر جدید خروج کاربر دریافت پیام کاربر در حال نوشتن لغو در حال نوشتن کد زیر نمونه ای از این وقایع می باشد ir.On(ir.EVENT_CONNECT) ir.On("login") ir.On("new_message") ir.On("user_joined") ir.On("user_left") ir.On("typing") ir.On("stop_typing") هر یک از رویدادهای بالا در زمان وقوع سابی که هم نام خودشان باشد را اجرا می کنند یعنی این ساب ها را باید بسازیم Sub connect(obj As Object) Log("connect") End Sub Sub login(obj As Object) Log("login") End Sub Sub stop_typing(data As Object) Log("stop_typing") End Sub Sub new_message(data As Object) Log("new_message") End Sub Sub user_joined(data As Object) Log("user_joined") End Sub Sub user_left(data As Object) Log("user_left") End Sub Sub typing(data As Object) Log("typing") End Sub و اکنون ارتباط سرور را شروع می کنیم ir.connect می توانید در رویداد اتصال بلافاصله لاگین را انجام بدهیم ir.emit("add_user", "amin") و یا پیام های دریافتی را به یک اکتیویتی ارسال کنیم تا نمایش داده شوند Sub new_message(data As Object) CallSubDelayed2(Chat,"new_message",data) End Sub در اکتیویتی chat و به ساب new_message مقادیر ارسال می شوند. در هنگام نیاز می توانید رویداد های غیر لازم را غیر فعال نمایید. ir.Off("typing") خب در نهایت ممکن است چنین کدی داشته باشیم Sub Process_Globals Dim ir As irSocketIO End Sub Sub Service_Create End Sub Sub Service_Start (StartingIntent As Intent) ir.getSocket("http://192.168.1.101:3000") ir.On(ir.EVENT_CONNECT) ir.On("login") ir.On("new_message") ir.On("user_joined") ir.On("user_left") ir.On("typing") ir.On("stop_typing") ir.connect End Sub Sub Service_Destroy End Sub Sub connect(obj As Object) Log("connect") ir.emit("add_user", "amin"&DateTime.Now) End Sub Sub login(obj As Object) Log("login") End Sub Sub stop_typing(data As Object) Log("stop_typing") End Sub Sub new_message(data As Object) CallSubDelayed2(Chat,"new_message",data) End Sub Sub user_joined(data As Object) Log("user_joined") End Sub Sub user_left(data As Object) Log("user_left") End Sub Sub typing(data As Object) Log("typing") End Sub «موفق باشید.»
×
×
  • جدید...