تکه کدهای بیسیک 4 آندروید کاربردی

تکه کدهای بسار مفیدی رو برای شما آماده کرده که به کارتون میاد
وخیلی مفید وکاربردی هستند
شامل کد فراخانی دیتا بیس sql - طراحی دکمه خروج - ایجاد تایمر-  ایجاد انمیش-  کدهای دیگر  ...
 

 

این کدها در سایتها ی دیگه فروشیه اما در سایت ما کامل رایگان واجازه کپی برداری هست
بفرمایید اینم کدها :

کد ایجاد انمیشن:

Sub Globals
    Dim anim As Animation

    Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    anim.InitializeAlpha("anim",1,0)
    anim.Duration=1000
    anim.Start(Label1)
End Sub

 

 

*************************************
 

ایجاد تایمر:

Sub Globals
     Dim timer1 As Timer
    Dim i As Int
    i=0
End Sub

Sub Activity_Create(FirstTime As Boolean)
    timer1.Initialize("timer1",1000)
    timer1.Enabled=True
End Sub

Sub timer1_tick
    i=i+1
End Sub

*************************************

کد دکمه خروج :

توضیحات: این کد خودش یک رویداد هست ونمیتونه داخل یک رویداد دیگه بزاریدش پس آخر همه ی کد ها توبیسیک بزاریدش

 Sub Activity_keypress(keycode As Int) As Boolean
 Dim aa As Int
 Dim Txt As String
 If keycode=KeyCodes.keycode_back Then
 Txt = "آیا میخواهید خارج شوید؟"
 aa =Msgbox2(Txt,"پیغام","بله","","خیر",Null)
 If aa =DialogResponse.POSITIVE Then
 Return False
 Else
 Return True
 End If
 End If
 End Sub

********************************

کد انتقال ازیک اکتیوتی به یک اکتیوتی دیگر:

توضیحات : این کد در همه ی برنامه ها وجو دارد . اگر دو اکتیوتی دارید این کد میتونه کاربر برنامه رو به اکتیوتی دیگر میبره فقط کافیه در یک رویداد وداخل یک دکمه (button) قرارش بدید نام اکتیویتی مورد نظر را در مکان مورد نظر قرار بدید.

 

("اکتیویتی مورد نظر")StartActivity
Activity.Finish