تکه کدهای بسار مفیدی رو برای شما آماده کرده که به کارتون میاد
وخیلی مفید وکاربردی هستند
شامل کد فراخانی دیتا بیس 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
