خوش آمدید

مهمان گرامی به انجمن کویک لرن خوش آمدی ، برای استفاده از تمامی امکانات در انجمن عضو شوید.


پرچمداران

  1. seyyedamir

    seyyedamir

    عضو عادی


    • امتیاز: پسندیدن (Likes)

      7

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

      59


  2. moalla

    moalla

    مدیر سایت


    • امتیاز: پسندیدن (Likes)

      4

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

      2,922


  3. Farzin-PC

    Farzin-PC

    کاربر فعال


    • امتیاز: پسندیدن (Likes)

      3

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

      2,171


  4. iMohammadReza

    iMohammadReza

    کاربر ویژه


    • امتیاز: پسندیدن (Likes)

      1

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

      664



مطالب محبوب

در حال نمایش بیشترین مطالب پسند شده از زمان ۱۷/۰۵/۲۶ در همه بخش ها

  1. 19 پسند
    آموزش های جاوا - اندروید استودیو توسط خودم در سه سطح مقدماتی - متوسطه - پیشرفته پیش نیاز ها : آشنایی با مفاهیم برنامه نویسی ( زبان فرقی نمیکند ) مقدماتی : قسمت اول : آشنایی با زبان جاوا و نصب و پیکربندی Android Studio قسمت دوم : آشنایی با ویو Button و کار با OnClickListener قسمت سوم : آشنایی با ویو های EditText و TextView و کار با if و else قسمت چهارم : کار با ListView و BaseAdapter ( شخصی سازی شده ) قسمت پنجم : کار با AlertDialog و ImageView و ساخت CustomDialog (دیالوگ شخصی سازی شده ) قسمت ششم : کار با کتابخانه ها ( LovelyDialog ) و کار با Values قسمت هفتم ( آخر ) : کار با Intent ( برقراری ارتباط بین دو اکتویتی و باز کردن یک آدرس در مرورگر ) متوسطه : قسمت اول : کار با RecyclerView به صورت مفهومی قسمت دوم : کار با ViewPager و Fragments ( به صورت مفهومی ) (هزینه : 5000 تومان ) قسمت سوم : بزودی ...
  2. 6 پسند
    Vr.language= "fa" برای فارسی کردن نمیدونید چقدر خوشحال میشم وقتی لایک میکنید
  3. 3 پسند
    سلام این 40 هزار تومنی که سایت بازار جدیدا برای اشتراک سالیانه توسعه دهنده ها میگیره دیگه واقعا ظلمه! 30 درصد که از برنامه ها بر میداره، 40 تومنم داره اینجا از همه میگیره! ای کاش دوستان تحریم میکردن بازار رو ! قوانین سایت بازار هم اینقدر طولانی هستش که فکر کنم همه همین جوری تایید می کنن البته حق دارن ! اینقدر توضیح داده که هیچ کس حوصله نداره بخونه!
  4. 2 پسند
    سلام به دوستان عزیز امروز میخوام براتون آموزش آپدیت اجباری داخل برنامه رو بزارم البته این به سلیقه خودم به این صورته و خودتون میتونید با خلاقیتتون جور دیگه هم در بیارید البته شما واسه اینکار نیاز به یه هاست دارید که بتونید از دیتابیسش برای اینکار استفاده کنید. میرید داخل هاستتون و ستون های زیر رو میسازید id : این خوب معلومه چیه نیاز به توضیح نداره updatei : شما تو این قسمت جدیدترین ورژن برنامتون رو میزارید ad : اینجا باید لینک برنامه جدیدتون رو بزارید title و body : ما برای بروز رسانی میخوایم اعلان بزاریم و متنش رو از اینجا تنظیم میکنیم حالا میریم سراغ فایل های php برای ارسال این اطلاعات به برناممون اول توی هاستتون یه فایل config.php درست میکنید و کدهای زیر رو داخلش میزارید و اطلاعات دیتابیستون رو واردش میکنید <?php ini_set( 'error_reporting', E_ALL | E_STRICT ); ini_set( 'display_errors', 1 ); $db = new PDO ('mysql:host=localhost;dbname=test;charset=utf8','root','1234'); ?> جای dbname اسم دیتابیستون جای root نام کاربری دیتابیستون و جای 1234 رمز دیتابیستون حالا یه فایل درست میکنید به اسم up.php و کدهای زیر رو داخلش قرار میدید <?php require("config.php"); $st = $db->query("SELECT * FROM up"); $a = array(); while ($row = $st->fetch()) { array_push($a,array('id' => $row['id'], 'updatei' => $row['updatei'], 'ad' => $row['ad'], 'title' => $row['title'], 'body' => $row['body'])); } echo json_encode($a); $db = null; ?> این دو تا فایل باید کنار هم باشن تو این کد ما اومدیم توی دول دیتابیسمون که اسمش up هستش ستون هاش رو گرفتیم و اون هارو نمایش دادیم حالا باید اینهارو توی برناممون بگیریم توی بیسیک یه سرویس به اسم دلخواه ایجاد کنید. کتابخونه HttpUtils رو تیک میزنیم و متغیر های زیر رو توی پراسس گلوبال تعریف میکنیم Dim updatejob As HttpJob Dim MapArry As List Dim colroot As Map تو قسمت سرویس کریت کدهای زیر رو قرار بدید. updatejob.Initialize("updateu",Me) updatejob.Download("http://manoamniat.ir/my/up.php") MapArry.Initialize colroot.Initialize خط اول: ما جاب خودمون رو فعال سازی کردیم دوم: اینجا اومدیم فایل up.php و که توی هاستمون اپلود کرده بودیم دانلودش میکنیم. سوم و چهارم: اینجا لیست و مپمون رو فعالسازی میکنیم. حالا باید ساب زیر رو ایجاد کنیم که نتیجه دانلودمون رو ببینیم. Sub JobDone (Job As HttpJob) If Job.Success Then If Job.JobName = "updateu" Then Dim parser As JSONParser parser.Initialize(Job.GetString) Dim root As List = parser.NextArray For Each colroot As Map In root MapArry.Add(colroot) Next If Application.VersionCode < colroot.Get("updatei") Then ' Private i As Intent i.Initialize(i.ACTION_VIEW, colroot.Get("ad")) Dim n As Notification n.Initialize n.AutoCancel = True n.Icon = "icon" n.Light = True n.SetInfo(colroot.Get("title"),colroot.Get("body"),i) n.Sound = True n.Vibrate = False n.Notify(1) ExitApplication End If End If End If End Sub خوب بطور خلاصه اگه ببخوام بگم ما میایم میگیم اگه دانلود موفقیت آمیز بود بیاد از طریق جیسون اطلاعات رو دریافت کنه و اونخارو به صورت لیست بریزه توی مپ ارای ما اینجا تمام مقدارهای دیتابیسمون رو با کد زیر میگیریم (مثلا برای گرفتن ورژن برنامه از کد زیر استفاده میکنیم) colroot.Get("updatei") بعد از اینکه مقادیر رو گرفتیم میایم چک میکنیم میگیم اگه ورژن برنامه کوچک تر از مقداری که توی دیتابیس هستش بود بیاد دستور مارو اجرا کنه اگه کوچک تر بود یعنی اینکه ورژن جدید برنامه اومده مثلا برناممون ورژنش 1 هست و ما نسخه 2 رو دادیم بیرون میایم توی دیتابیس جدول updatei رو مقدارش رو 2 میکنیم بعد میایم یه متغیر از نوع اینتنت تعریف میکنیم که بتونیم لینک برنامه رو با کلیک روی اعلان باز کنیم میایم اعلان رو میسازیم و طبق کدهای بالا عنوان و متن و لینک برناممون رو بهش میدیم و در آخر میایم کد بسته شدن برنامه رو میدیم در نتیجه هروقت کاربر وارد بشه و نسخه جدید برنامه وجود داشته باشه برای کاربر اعلان فرستاده میشه وبرنامه هم بسته میشه تا مجبور به دانلود بشه موفق باشید
  5. 2 پسند
    سلام. چرا از سرویس های موجود پوش استفاده نمیکنید. مثل چشمک و پوشه و وان سیگنال هم میشه ازشون پوش فرستاد هم میشه اطلاعات به برنامه بفرستید. اطلاعات رو بصورت جیسون به برنامه میفرستید و تو برنامه میتونید اون اطلاعات رو استفاده کنید و یا مثلا ذخیره کنید برای دفعات بعدی... بهتره خودتون سیستم پوشی نسازید. جدا از برنامه نویسی سرور قوی ای میخواد و هزینه بالا میره
  6. 2 پسند
    Farzin-PC

    کسی زنده مونده؟!

    کسی زنده مونده؟!
  7. 2 پسند
    با کتابخونه زیر میتونید یک ویو رو بچرخونید. دوستان بیزحمت اگه استفاده کردین یه اموزش هم براش همینجا بنویسید. حالا یا متن و عکس یا سمپلتون رو اتچ کنید. StickerView2V1.0.2.zip
  8. 2 پسند
    @@teamsaujin sub setLineSpace (lbl as label,meghdar as float) Dim r As Reflector r.Target = lbl r.RunMethod3("setLineSpacing",1, "java.lang.float", meghdar, "java.lang.float") end sub تیک کتابخونه reflection بزن به این صورت از تابع بالا استفاده کن setLineSpace(lbl1,1.3) جای اون 1.3 میتونی از مقادیر دیگه استفاده کنی بنا به استفاده خودت
  9. 2 پسند
    سمت سرور همه با web service نوشته میشه و به این استاندارد میگن service based یا service driven خود سایت فیس بوک هم بر اساس سرویس نوشته شده همه محتوی ای که شما میبیند با ایجکس از سمت کلاینت درخواستش به یه سرویس روی وب سایت ارسال میشه و نتیجه در سمت کاربر نمایش داده میشه
  10. 2 پسند
    سلام اول یه متغیر درست کن از این نوع: Dim image As MediaPlayer بعد انیشیالایز کن: image.Initialize2("image") image.Load(File.DirRootExternal&"/ahang","n.mp3") بعد یه دکمه بزار توش این رو بزن: image.Play بعد یه دکمه ی دیگه مثلا پاز کنه: image.Pause
  11. 1 پسند
    از لحاظ دیتابیس نمیدونیدچطوری طراحی کنید؟ یا از لحاظ گرافیکی و چینش ویو ها؟
  12. 1 پسند
    دیجیتال مارکتینگ یا بازاریابی الکترونیک نوعی از بازاریابی است که از طریق ابزارهای الکترونیکی مانند رایانه ، تلفن هوشمند و … منتشر شده و از طریق آن به جذب مخاطب پرداخته می‌شود. این نوع تبلیغات در بسترهای الکترونیکی همانند وبسایت، برنامه های موبایل، پست الکترونیک و شبکه‌های اجتماعی نمایش داده می‌شوند. در این مقاله با استفاده از یک اینفوگرافیک به بررسی ابزارهای دیجیتال مارکتینگ می‌پردازیم : طراحی سایت: وب‌ سایت هویت برند شما در فضای آنلاین است؛ راه اندازی وبسایت با طراحی و کاربری مناسب برای کاربران، مرحله اول از موفقیت دیجیتال مارکتینگ است. طراحی سایت ریسپانسیو: ۶۷ درصد کاربران وب‌سایت ها، علاقۀ بیشتری به سفارش در سایت‌های دارند که سازگار با موبایل هستند. تعداد صفحات: وب‌سایت شرکت‌هایی که بیشتر از ۳۰ صفحه هستند، هفت برابر بازدید بیشتری نسبت به سایت‌هایی که ۱۰ صفحه هستند، دارند. آنالیز دیتا: شش درصد از میانگین بودجه مارکتینگ برای آنالیز دیتا مصرف می شود؛ تا شما مطمئن شوید هزینه‌ای که کرده‌اید به صورت درست مصرف شده است. تجارت الکترونیک: تجارت الکترونیک اشاره دارد به تکنیک‌هایی که بازدیدکنندگان خود را تشویق به خرید سرویس و محصولات می‌کنند. نرم‌افزار موبایل: اشخاصی که دارای اسمارت‌فون هستند و اپلیکیشن برند شما را دانلود کرده‌اند ۴۰% بیشتر از محصولات و سرویس‌های شما خریداری می‌کنند. پیام کوتاه: ۹۸ درصد از پیام‌های ارسالی باز می شود؛ ۹۰ درصد استفاده کننده‌های موبایل پیام کوتاه خود را در ۱۵ دقیقه اول بعد از ارسال باز می کنند. بازاریابی بیرونی تبلیغات موبایلی: پیش‌بینی می‌شود درآمد تبلیغات موبایل در سال ۲۰۱۷ به میزان ۴۲ میلیارد دلار برسد. ایمیل مارکتینگ: ۸۹ درصد از بازاریابان می‌گویند ایمیل اصلی‌ترین راه برای رهبری کمپین‌هاست. نمایش تبلیغات: ۲۴٫۷ درصد از کاربران آنلاین آمریکا تبلیغات را مشاهده می‌کنند. پرداخت کلیکی: ۶۴٫۶ درصد از پرداخت‌های کلیکی باعث به ثمر رسیدن تبلیغات هدفمند می‌شود. بازاریابی داخلی بهینه سازی موتورهای جستجو: ۷۰ درصد لینک‌هایی که از جستجو کلیک می خورند، به مسیر درست هدایت می شوند. لینک‌های معرفی شده: ۶۵ درصد از تجارت جدید شرکت‌ها از لینک‌های معرفی شده بدست می‌آید. بازاریابی توسط تولید محتوا: محتوا اصلی‌ترین بخش مارکتینگ است؛ محتوای خوب شامل ویدئو، عکس و مطلب مناسب در مورد برند شماست. تبلیغات وایرال ویدئو: بعد از تماشای ویدئو تبلیغاتی و بازاریابی یک برند، محصولات آن شرکت ۱۲ درصد بیشتر خریداری می‌شود. بلاگ: بلاگ ۴۳۴ درصد بیشتر از صفحه اصلی سایت و ۹۷ درصد بیشتر از لینک های تبلیغاتی بازدید دارد. اینفوگرافیک: تجارت‌هایی که از اینفوگرافیک استفاده می کنند ۱۲ درصد ترافیک بیشتری نسبت به کمپانی‌هایی که اینفوگرافیک استفاده نمی کنند، دارند. پخش زنده در سایت و وبینار: ۶۱ درصد از بازاریابانی که B2B کار می‌کنند، اعتقاد دارند وبینار از پرتأثیرترین تاکتیک‌های بازاریابی است. بازاریابی شبکه‌های اجتماعی: شبکه‌های اجتماعی پرقدرت‌ترین پلتفرم برای رونق بخشیدن به تجارت شما هستند. ۸۲ درصد از مشتریان می گویند فیسبوک جای مناسبی برای ایجاد جذابیت یک برند. ۴۴ درصد بازاریابان مشتری‌های خود را از توئیتر بدست می‌آورند. ۵۰ درصد ترافیک موبایل از ویدیوهای یوتیوب است. ۲۱ درصد از پست‌های پربازدید پینترست سبب خرید آن محصول می‌شود. ۶۴ درصد از اشخاصی که از لینکدین بازدید می‌کنند به سایت شرکت شما مراجعه خواهند کرد.
  13. 1 پسند
    باسلام مدتی بودکه دنبال روشی برای اجرای فایلهای سه بعدی متحرک در بیسیک فور بودم که این سورسها رو از سایت منبع پیدا کردم وخدمت دوستان ارائه می شود . خب شاید با این فایلها وصدا زدن مدلهای سه بعدی متحرک وثابت به بیسیک فور درصد بسیاری از مشکل ساخت بازی های سه بعدی رو دربیسیک بتوان حل کرد وبشود بازی های ساده یا درحدمتوسطی برای عموم ساخت البته قطعا درحال حاضر چون نمونه های کمی در این مورد هست به پای یونیتی وامثال آن نمی رسد. امیدوارم اینها به درد دوستانی که درصدد ساخت بازی سه بعدی هستند بخورد ودوستان سورسهایی که ساخته اند و تجربه هایشان در این مورد را در این تایپیک برای عموم قرار بدهند تا شاهد تقویت معلومات برنامه نویسان در این بُعد از بیسیک فور هم باشیم ! البته دوستانی که وقت وحوصله شو دارند ویا مطلع باشن اگه بتونند این کتابخانه Jpct و OpenGl ومثالهای زیر رو بیشتر توضیح بدهند یا نرم افزارهای مناسبی جهت ساخت شخصیت های متحرک .md2 معرفی نمایند استفاده کرده و ممنون می شویم . سورس های اجرای آبجکت های سه بعدی متحرک برای بازی های سه بعدی در b4a (اجرای فایل های سه بعدی متحرک .md2 وآبجکتهای سه بعدی همچون .3ds . .obj ..mtl.model )وتبدیل تصاویر .jpg به تصاویر سه بعدی باکتابخانه Jpct و OpenGL کتابخانه های موردنیاز : JPCT_AE_Lib_Wrapper_.zip کتابخانه OPENGL مثالها : jPCT_AE_Examples.zip OpenGLMoveExample.zip OpenGLRotateExample.zip LoadMD2_Animation_Copy.zip مثالی برای eclipse jPCT_AE_Wrapper_Eclipse_Project_.zip ویدئو مثالها: نمایش فیلم مثالها آدرس سایتی جهت دانلود فایلها ومدلهای .MD2 سه بعدی متحرک http://www.md2.sitters-electronics.nl/ آدرس سایت توضیحات کتابخانه JPACT JPCT واسه نمایش وویرایش فایلهای MD2 در ویندوز هم ازنرم افزارهای زیر می تونید استفاده کنید md2viewer14 fragMOTION Quake Model Editor v3.1 P2 lite Quake 2 Modeller v0.83 Studio MDx v0.8b Meddle v2.0a3 Jaw MD2 v1.29 Quake Scene Builder prerelease واسه سایر مدلها هم نرم افزار کم حجم blender یا ICLONE یا DAZ 3D یا شخصیت ساز Mixamo Fuse خوبه (البته سایت Mixamo Fuse که بعداز ساخت کاراکتر صدها حرکت مختلف به شخصیتتان به طورخودکارمیده متاسفانه غیرقابل دسترسی شده )
  14. 1 پسند
    من شخصا اکثر مواقع با دیزاینر کار میکنم. خیلی سریعتر میشه جلو رفت. بخصوص اگه یکم اجزای کار زیاد باشه با کد ادم اذیت میشه. خیلی از دوستان میگفتن با دیزاینر خوب درنمیاد که وقتی بیشتر صحبت میکردم متوجه میشدم خوب بلد نیستن کار کنن با دیزاینر در مواقع کمی مثل ساخت چندتا ایتم برای اسکرول ویو از کد استفاده میکنم. اونم وقتی زیاد میشه اجزا میرم سراغ دیزاینر توی دیزاینر گوشی رو وصل میکنم و دقیقا میبینم دارم چیکار میکنم اما تو کد باید برنامه کامپایل بشه و بعد ببینید چیکار کردین مزیت خاصی تو استفاده از کد نمیبینم. البته میدونید که تو دیزاینر هم کار کنید باز باید جایگیری دقیق اجزا رو تو قسمت کدنویسی دیزاینر انجام بدین. خیلی از تکنیکهای استفاده از دیزاینر رو تو دوره سطح یک سایت اموزش دادم. موفق باشین
  15. 1 پسند
    سلام سورسی که نوشتم و پیوست کردم میاد به صورت تصادفی یک آیتم لیست ویو رو حذف میکنه و شمارش رو میریزه توی لیبل با کلیک روی دکمه موفق باشید http://s8.picofile.com/file/8296444642/RandomRemoveList.zip.html
  16. 1 پسند
    سلام من باز اومدم خوب دیگه از موضوع معلومه چی میخوام یاد بدم اول بیسیک رو باز کنید خوبببب یه سرویس بسازید با اسم دلخواه کتابخانه HttpUtils رو تیک بزنید و متغیر زیر رو تعریف کنید توی پراسس Dim job As HttpJob یه فایل php بسازید به اسم maxnoti.php توی هاستتون و کدهای زیر رو داخلش قرار بدید: <?php $user = "root"; $password = ""; $host = "localhost"; $dbname = "test"; $data = new mysqli($host,$user,$password,$dbname); if(!$data) die("Error In Connection".$data->mysql_error()); $sql="SELECT MAX(id) AS LargId FROM db"; $res = $data->query($sql); if($res->num_rows > 0){ $row = $res->fetch_assoc(); echo $row['LargId']; } ?> خوب این میاد اول به دیتابیستون وصل میشه بعد میره توی همون دیتابیس ستون آی دی رو سلکت میکنه و بزرگترین ستون بر اساس آی دی رو میگیره خوب حالا برید توی بیسیک و تو همون سرویس استارت کد زیر رو بزارید: job.Initialize("job",Me) job.Download("http://yourdomain/maxnoti.php") جای اون ادرسی که من گذاشتم شما آدرس خودتون رو بزارید. حالا نوبت اینه که ما مقداری که از دیتابیس میگیریم رو یک بار یه جا ذخیره اش کنیم تا دفعه بعد بتونیم با مقدار جدید مقایسه اش کنیم پس شما بیاید با نویکت یه دیتابیس آفلاین درست کنید با دو تا ستون id , ch آی دی رو برابر 0 بزارید و ch رو خالی کنید البته یادتون باشه مقدار هر دورو از نوع اینتیجر قرار بدید. دو تا متغیر زیر رو توی پراسس تعریف کنید(قبلش کتابخونه SQL رو تیک بزنید) Dim sql As SQL Dim cur As Cursor فایل دیتابیستون رو داخل بیسیک اد کنید و توی سرویس استارت قبل از همه کدها کد زیر رو بزارید و مقدار های مورد نظر رو با مقدار های خودتون جای گزین کنید If File.Exists(File.DirInternal,"notich.db")=False Then File.Copy(File.DirAssets,"notich.db",File.DirInternal,"notich.db") End If If sql.IsInitialized=False Then sql.Initialize(File.DirInternal,"notich.db",False) End If cur.IsInitialized cur=sql.ExecQuery("SELECT * FROM db") cur.Position = 0 اسم فایلتون و اسم جدول دیتابیستون رو جایگذار کنید. حالا باید ساب زیر رو توی سرویسمون بزاریم Sub JobDone(job1 As HttpJob) If job1.Success Then If job1.JobName = "job" Then cur.IsInitialized cur=sql.ExecQuery("SELECT * FROM db") cur.Position = 0 If job1.GetString > cur.GetInt("ch") Then Dim n As Notification n.Initialize n.AutoCancel = True n.Icon = "icon" n.Light = True n.SetInfo("مقدار جدید","خداییش یه مقدار جدید اضافه شده ها","") n.Sound = True n.Vibrate = False n.Notify(1) sql.ExecNonQuery("UPDATE db SET ch="&job1.GetString) Else sql.ExecNonQuery("UPDATE db SET ch="&job1.GetString) End If End If End If End Sub خوب ما تو کد بالا گفتیم اگه فایل php ما با موفقیت دانلود شد بیاد کرسر مارو مجدد اینیشیالایز کنه و جدول دیتابیسمون رو سلکت کنه بعد بیاد مقدار آی دی که از دیتابیس آنلاین گرفته رو با مقدار توی دیتابیس آفلاین مقایسه کنه اگه مقدار آنلاین بزرگتر از آفلاین بود بیاد نوتیفیکیشن بفرسته که مقدار جدید اضافه شده خوب اولین بار قطعا نوتیفیکیشن نمیفرسته ون مقداری نتوی آفلاین نداریم پس میاد شرط دوم رو اجرا میکنه یعنی میاد مقداری که از آنلاین گرفته رو میریزه توی آفلاین و هر سری مقدار آنلاین رو با آفلاین مقایسه میکنه و هروقت ه مقدار اضافه شد شرط اول اجرا میشه اگه جایی نا مفهوم بود بگید. به عنوان آخرین کد باید کد زیر رو توی سرویس استارت بزارید و زمان موردنظر خودتون رو به میلی ثانیه بدید و یادتون نره موقع اجرای برنامه حتما یک بار سرویس رو استارت کنید. StartServiceAt("",DateTime.Now *5000,True) بالای سرویستون هم استارت ات بوت رو تورو کنید و کد زیر رو هم زیرش بزارید #StartCommandReturnValue: android.app.Service.START_STICKY موفق باشید (پسندیدم فراموش نشه)
  17. 1 پسند
    ُسلام بله میشه شما ببینید کوچک ترین آی دی توی دیتابیس آنلاینتون چیه یکی از اون کمتر رو توی دیتابیس آفلاین بزارید حتی اگه دیتابیس آنلایم 0 بود شما میتونید آفلاین رو1- بزارید
  18. 1 پسند
    سلام به شما عزیزان امروز برای شما یه سورس درست کردم که توست مسیج هستش و هر بلایی که میخواید میتونید سرش بیارید و کاملا شخصیش کنید. هرجا خواستید نمایش بدید کافیه کد زیر رو اونجا فراخوانی کنید: text = "کوئیک لرن" StartMassege مقدار text رو برابر متن خودتون قرار بدید. یه کم کدهاش زیاده اما کاملا شخصی شدست. نقطه ضعفش اینه که شما باید سعی کنید از متن های کوتاه استفاده کنید یا اینکه اندازه پنل و لیبلی که به کار رفته داخلش رو بزرگتر کنید یا اینکه اگه خواستید متن بلند بزارید سایز متن لیبل رو کم کنید به هرال دست خودتونه نقطه قوتش هم اینه که از تخم مرغ بلدرچین تا شیر مار رو میتونید داخلش بزارید و نمایش بدید هرسوالی بود در خدمتم (پسندیدم فراموش نشود) toast.zip
  19. 1 پسند
    سلام این باید کار کنه Sub EditText_TextChanged (old As String,New As String) Dim result As Int result = EditText.Text * 1 Label1.text = result End Sub
  20. 1 پسند
    با سلام این کدهای منو ببینید متوجه میشید Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Main") noti.Initialize noti.Light = False noti.vibrate = False noti.OnGoingEvent = True noti.Sound = False noti.Icon = "icon" noti.SetInfo2("صدای آسمانی"," رایگان برای شما کاربران محترم کانال ","mytag",Me) End Sub Sub Activity_Resume Dim selectednoti As String Dim inte As Intent inte = Activity.GetStartingIntent If inte.HasExtra("Notification_Tag") Then selectednoti = inte.GetExtra("Notification_Tag") End If If selectednoti = "mytag" Then Msgbox("نوتیف کلیک و بسته شد","Learn") noti.Cancel(1) End If
  21. 1 پسند
    با سلام پس از سختی ها مشقت های فراوان یه جواب نصف و نیمه بگیرم مشکلی که هست اینه که با افزایش سایز افت کیفیت داریم و اینکه کتابخونه فقط بیت مپ قبول میکنه یه تابع هم نوشتم که هر ویو رو به بیتمپ تغییر میده یه لی اوت هم باید بسازید که توش یه ادیت تکست ، یه دکمه برای افزودن متن button1 ، یه دکمه واسه افزودن عکس button2 ، و یه sticker view داشته باشه اینم نمونه کد هاش : #Region Project Attributes #ApplicationLabel: t44 #VersionCode: 2 #VersionName: 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region #AdditionalRes: ..\Resource Sub Process_Globals End Sub Sub Globals Private Sticker1 As StickerView Sticker1.Initialize("Sticker") Dim Label1 As Label Dim c As Canvas Private Button1 As Button Private EditText1 As EditText Dim stru As StringUtils Private Button2 As Button Dim onoff As Boolean Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") Activity.AddMenuItem("Add Sticker","AddSticker") End Sub Sub AddSticker_Click() Dim Sticker1 As StickerView Dim cat As Bitmap cat.Initialize(File.DirAssets,"ic_cat.png") Sticker1.Initialize("Sticker") Sticker1.Bitmap = cat Activity.AddView(Sticker1,0,0,100%x,100%y) End Sub Sub ViewToBmp(ThisView As View) As Bitmap Label1.Invalidate DoEvents Dim Obj1, Obj2 As Reflector Dim bmp As Bitmap Obj1.Target=Label1 bmp.InitializeMutable(Label1.Width, Label1.Height) c.Initialize2(bmp) Dim args(1) As Object Dim types(1) As String Obj2.Target = c Obj2.Target = Obj2.GetField("canvas") args(0) = Obj2.Target types(0) = "android.graphics.Canvas" Obj1.RunMethod4("draw", args, types) Return c.Bitmap End Sub Sub Activity_Resume If onoff = True Then onoff=False Dim Sticker1 As StickerView Sticker1.Initialize("Sticker") Sticker1.Bitmap = LoadBitmap(File.DirRootExternal, "1.jpg") Activity.AddView(Sticker1,0,0,100%x,100%y) End If End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Sticker_onTop() End Sub Sub Sticker_onEdit() Sticker1.InEdit = False End Sub Sub Sticker_onDeleteClick() Sticker1.RemoveView End Sub Sub Button1_Click Label1.Initialize("lbl1") Label1.Text =EditText1.Text Label1.Color = Colors.Transparent Activity.AddView(Label1,20dip,20dip,25%x,50%y) Label1.Height = stru.MeasureMultilineTextHeight(EditText1, EditText1.text) ' Label1.Width = stru.MeasureMultilineTextHeight(EditText1, EditText1.text) ViewToBmp(Label1) Sticker1.Initialize("Sticker") Sticker1.Bitmap = c.Bitmap Activity.AddView(Sticker1,0,0,100%x,100%y) Activity.AddMenuItem("Add Sticker","AddSticker") End Sub Sub Button2_Click Gallery(File.DirRootExternal, "1.jpg") End Sub Sub ParseUri(FileName As String) As Object Dim r As Reflector Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String")) End Sub Sub Gallery(Directory As String, PictureName As String) Dim i As Intent onoff = True i.Initialize(i.ACTION_PICK, "") i.SetType("image/*") i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName))) 'output folder you set OpenCam(File.DirRootExternal, "1.jpg") i.PutExtra("crop", "true") 'crop ON i.PutExtra("aspectX", 0) 'crop aspects i.PutExtra("aspectY", 0) 'crop aspects i.PutExtra("outputX", 200) 'crop size i.PutExtra("outputY", 150) 'crop size StartActivity(i) End Sub
  22. 1 پسند
    مثال TabStripViewPager تا بیشتر با این ویو آشنا بشید و کاربرد آن فیلم دانلود
  23. 1 پسند
    @@m007moh بفرمایید دوست عزیز http://s6.picofile.com/file/8223841234/SslErrorWebView.rar.html