منِ مجازی

سواد فضای مجازی

منِ مجازی

سواد فضای مجازی

منِ مجازی

به حول و قوه الهی و به مدد امام زمان(عج) مباحث سواد رسانه و فضای مجازی به تناسب وقت ارائه خواهد شد.

۳ مطلب با موضوع «برنامه نویسی اندروید با b4a» ثبت شده است

استفاده از تایمر در splash

دز ساخت splash عموما از تایمر استفاده می گردد و شما می توانید با طراحی لایه ای با عنوان splash آن را در شروع برنامه نشان دهید و یا اتفاقات دیگری را در هنگام ورود به برنامه رقم بزنید.

Dim tim1 As Timer

Activity.LoadLayout("splash")
tim1.Initialize("tim1",3000)
tim1.Enabled = True

خط1: معرفی متغیر tim1 به عنوان timer

خط2: لود کردن لایه splash در هنگام شروع اکتویتی

خط3:مقدار دهی متغیر tim1 ، که نامش tim1 است و مدت زمان 3 ثانیه کار کند

Sub tim1_tick
StartActivity(menu)
Activity.Finish
End Sub

خط1: این کدها برای این است؛ هنگامی که مدت زمان تایمر تمام شد، چه اتفاقی بیفتد.

خط2: بعد از تمام شدن تایمر اکتیوتی منو آغاز شود.

خط3: اکتیوتی کنونی تمام شود.

۰ نظر موافقین ۱ مخالفین ۰ ۳۰ ارديبهشت ۹۷ ، ۱۰:۱۳
محمدجواد محمدصادق

معرفی کردن دیتابیس در اکتیوتی با متغیر sql

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

Dim sql1 As SQL

If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "data.db" , True)
End If

خط 1: تعریف متغیر sql1 به عنوان SQL

خط2: اگر sql1 معرفی نشده بود

خط3: sql1 را معرفی کن که آدرس دیتابیس در  File.DirInternal و نامش data.db و مقداردهی اولیه اش True  است.

۰ نظر موافقین ۱ مخالفین ۰ ۳۰ ارديبهشت ۹۷ ، ۰۹:۴۷
محمدجواد محمدصادق

کپی کردن دیتابیس در پوشه داخلی 

اگر برنامه شما دارای دیتابیس است، بهتر است در اولین اکتیویتی که در برنامه اجرا می شود آن را در پوشه داخلی به نام DirInternal کپی نمایید.

If File.Exists(File.DirInternal , "data.db") = False Then

File.Copy(File.DirAssets , "data.db" , File.DirInternal , "data.db")

End If

1. اسم دیتابیس data.db

2. خط اول: اگر فایل دیتابیس با نام data.db در DirInternal نبود.

3.خط دوم: فایل دیتابیس را از پوشه DirAssets  در پوشه DirInternal کپی کن.

*در ابتدای خط دوم علامت ")  به علت راستچین بودن ادیتور به ابتدا اومده وگرنه جاش آخر کد هست، اگر کل همین را کپی کنید درست می بردشون!!!

۰ نظر موافقین ۱ مخالفین ۰ ۳۰ ارديبهشت ۹۷ ، ۰۴:۵۷
محمدجواد محمدصادق