Learning B4A



بعد از مدتها برگشتیم و به دلیل درخواست بالای شما کاربران عزیز درمورد ارتباط بیسیک با سرور تصمیم داریم آموزشش رو براتون قرار بدیم . امیدواریم که مثمر ثمر واقع بشه .  البته به دلیل برخی مسائل ممکنه این آموزش طول بکشه اما از شما میخوایم که صبور باشید . آموزش به زودی

قرار گیری آموزش را به شما اطلاع خواهیم داد.


دوستان امروز در این آموزش میخایم مکان ToastMessage رو در صفحه تغییر بدیم تا بتونید هرجا که میخاید از اون استفاده و پیامتون رو نمایش بدید.

برای دیدن آموزش به ادامه مطلب مراجعه کنید .

برای اینکا شما اول باید کتابخانه JavaObject   رو در قسمت libraries عال بزنید که اموزشش تو سایت هست اگرم کتاب خانه رو ندارید میتونید از سایت دانلود کنید . 

مرحله بعد اینه که شما بیاید این ساب رو در اخر اکتیویتی قرار بدید

Sub ShowToastAt(x As Int, y As Int,Text As String, longDuration As Boolean)
  Dim duration As Int
  If longDuration = True Then
  duration = ۱
  Else
  duration = ۰
  End If
   Dim ctxt As JavaObject
   ctxt.InitializeContext
  Dim toastJO As JavaObject
  toastJO = toastJO.InitializeStatic("android.widget.Toast").RunMethod("makeText", Array(ctxt, text, duration))
  toastJO.RunMethod("setGravity", Array(Bit.Or(Gravity.TOP, Gravity.LEFT), x, y))
  toastJO.RunMethod("show", Null)
End Sub

خب حالا دیگه تموم شد

حالا میتونید به شکل زیر میتونید از این ساب استفاده ببرید


ShowTooltip( x , y , " text " , longDuration )

بجای x و y مختصاتی که میخواید اونجا نمایش داده بشه رو بذارید، بجای text متن راهنمای موردنظرتون رو بذارید و longDuration هم که دو مقدار True و False رو میگییره و به ترتیب مدت زمان بیشتر  و کمتر پیام رو نمایش میده

** نکته: در هر ساب بخیاد که این کار رو بکنید باید کد بالا رو (اولیه) در ساب بزار سپس از کد پاینی استفاده کنید .

امیدوارم از آموزش راضی باشید


برنامه ای دیگر از GroupSeyed

بازی منتخب شده در بین بازی های مایکت

(صفحه مورد نظر)

همین الان ادابازی رو رایگان دانلود کن! 

(صفحه برنامه)

با دوستا و خانوادتون بازی کنید و حسابی لذت ببرید !!!

ادابازی رو دانلود کنید و با اطرافیانتون پانتومیم بازی کنید و قدرت پانتومیمتون رو به رخ بقیه بکشید ;)

یک بازی جالب و مهیج برای گذراندن اوقات همراه دوستان و خانواده با اجرای پانتومیم . از اوقاتتون استفاده کنید وخاطره های بیاد ماندی بسازید.

بیش از 10000 کلمه در عناوین مختلف ( اطلاعات عمومی ، تاریخ ، خوراکی و نوشیدنی ، ورزشی ، اشیاء ، حیوانات ، مشاغل ، جغرافیا ، فیلم و سینما ، علمی و تکنولوژی ) برای شما

این بازی شامل سه بخش است :

 بخش بازی مرحله ای به شما اجازه میدهد در دو گروه چند نفره  و در سه مرحله (اجرای کلمه ، اجرای ضرب المثل ، اجرای سرعتی) به بازی و اجرای پانتومیم بپردازید و امتیاز کسب کنید .

بخش بازی دو نفره که در آن میتوانید با یکی از دوستانتان و در تعداد دور دلخواه (تا 5 دور) و با مدت زمان دلخواه در هر دور بازی کنید .

بخش بازی لیگ که میتوانید با اعضای خانواده و دوستانتان یک لیگ پانتومیم تشکیل داده و به مسابقه بپردازید ( این بخش در آپدیت بعدی فعال خواهد شد)

این بازی از جلوه های گرافیکی جالبی برخوردار است که به بازی جذابیت های فراوانی افزوده است . همچنین موسیقی ها در بخش های مختلف بازی هیجان بازی را بیشتر و بازیکن را به وجد می اورد!!!

همچنین در بازی قابلیت های ویژه ای تدارک دیده شده ( 2 برابر کردن امتیاز ، 30 ثانیه زمان اظافه ، امتیاز +2 ، تغییر کلمه 6 و 9 بار ) که جذابیت زیادی به بازی اظافه میکند 

 بخش اظافه کن  هم در نسخه ابتدایی غیر فعال میباشد و به زودی در نسخه های بعد فعال و قابل استفاده توسط شما میباشد.


برنامه ای دیگر از GroupSeyed


همین الان ادابازی رو رایگان دانلود کن! 

(صفحه برنامه)

با دوستا و خانوادتون بازی کنید و حسابی لذت ببرید !!!

ادابازی رو دانلود کنید و با اطرافیانتون پانتومیم بازی کنید و قدرت پانتومیمتون رو به رخ بقیه بکشید ;)

یک بازی جالب و مهیج برای گذراندن اوقات همراه دوستان و خانواده با اجرای پانتومیم . از اوقاتتون استفاده کنید وخاطره های بیاد ماندی بسازید.

بیش از 10000 کلمه در عناوین مختلف ( اطلاعات عمومی ، تاریخ ، خوراکی و نوشیدنی ، ورزشی ، اشیاء ، حیوانات ، مشاغل ، جغرافیا ، فیلم و سینما ، علمی و تکنولوژی ) برای شما

این بازی شامل سه بخش است :

 بخش بازی مرحله ای به شما اجازه میدهد در دو گروه چند نفره  و در سه مرحله (اجرای کلمه ، اجرای ضرب المثل ، اجرای سرعتی) به بازی و اجرای پانتومیم بپردازید و امتیاز کسب کنید .

بخش بازی دو نفره که در آن میتوانید با یکی از دوستانتان و در تعداد دور دلخواه (تا 5 دور) و با مدت زمان دلخواه در هر دور بازی کنید .

بخش بازی لیگ که میتوانید با اعضای خانواده و دوستانتان یک لیگ پانتومیم تشکیل داده و به مسابقه بپردازید ( این بخش در آپدیت بعدی فعال خواهد شد)

این بازی از جلوه های گرافیکی جالبی برخوردار است که به بازی جذابیت های فراوانی افزوده است . همچنین موسیقی ها در بخش های مختلف بازی هیجان بازی را بیشتر و بازیکن را به وجد می اورد!!!

همچنین در بازی قابلیت های ویژه ای تدارک دیده شده ( 2 برابر کردن امتیاز ، 30 ثانیه زمان اظافه ، امتیاز +2 ، تغییر کلمه 6 و 9 بار ) که جذابیت زیادی به بازی اظافه میکند 

 بخش اظافه کن  هم در نسخه ابتدایی غیر فعال میباشد و به زودی در نسخه های بعد فعال و قابل استفاده توسط شما میباشد.


با سلام خدمت کاربران عزیز LearningB4A . امروز به درخواست یکی از کاربران آموزش ذخیره مقادیر در یک List رو براتون آموزش میدم . متغیر List یک متغیر پیشفرض بیسیک هست که اجازه میده اطلاعات رو به صورت لیست وار در اون ذخیره و بازیابی کنید . (باListView اشتباه نگیرید). برای آموزش به ادامه مطلب مراجعه کنید.

خب اول از همه باید متغیری که میخوایم ذخیره بشه رو تعریف کنیم

Dim Date As int

بعد این متغیره من هر داده که توش باشه رو میشه با استفاده از روش زیر ذخیره و بارگزاری کرد

حالا بیایم متغیر رو تعریف و Initialize کنیم .



        Dim l As List
        l.Initialize
        

بعد از این کار باید بیایم متغیری یا داده ای که میخوام ذخیره کنیم (String,Boolean,Int) رو با دستور Add به اون بدیم من در اینجا یک متغیر از نوع اینت  رو بهش میدم که از قبل تعریفش کردم 

l.Add(Date)

بعد باید لیست رو در یکی از دایرکتوری های موجود ذخیره کنیم که من از دیر اینترنال استفاده میکنم .

        
           File.WriteList(File.DirInternal,"Date.list",l)

date.list اسم فایلی هست که ذخیره میشه و هرچی میتونید بزاریدش حتی بدون فرمت .list و اون l  که در اخر قرار داده شده اسم لیست تعریفیمون هست .

الان داده ذخیره شده برای بارگزاری داده کافیه به روش زیر عمل کنیم :

   


 
        IF File.Exists(File.DirInternal,"Date.list")=True Then
            Dim l As List
            l.Initialize
            l=File.ReadList(File.DirInternal,"Date.list")
            Date=l.Get(0)
           End IF

خب در خط اول گفتیم که اگر فایل لیست ما ذخیره شده بود بیاد یه لیست به اسم l تعریف بکنه و در خط 4 بیاد لیستی که از قبل ذخیره شده بوده رو برامون بریزه تو متغیر لیست جدیدمون . 

بعد با دستور Get اومدیم مقدار متغیره Int خودمون رو که اسمش Date بود رو برابر با اولین داده ذخیره شده در لیستمون قرار بده .

نکته : اگر چندتا متغیر ذخیره میکنید ترتیبشون مهمه برای مثال اگر دو تا متغیر n1 و n2  رو به ترتیب شماره هاشون با add به لیست اظافه میشه باید با شماره های 0 و 1 با دستور Get دریافت بشه . میتونید به صورت کامل کد های باالا رو با ذخیره سه متغیر ببینید.    

ذخیره داده ها

Dim Date1,Date2,Date3 As int    

Dim l As List

l.Initialize

l.Add(Date1)

l.Add(Date2)

l.Add(Date3)

File.WriteList(File.DirInternal,"Date.list",l)

بار گزاری داده ها

IF File.Exists(File.DirInternal,"Date.list")=True Then
Dim l As List
l.Initialize
l=File.ReadList(File.DirInternal,"Date.list")
Date1=l.Get(0)

Date2=l.Get(1)

Date3=l.Get(2)
End IF



این اموزش هم به پایان رسید امیدوارم براتون مفید بوده باشه .

با نظراتتون مارو خوشحال کنید . :)


آخرین ارسال ها

آخرین جستجو ها