آموزش آندروید با بسیک 4 آندروید

[alim2007]

به نام خدا
من بنا را بر این می گذارم که شما ویژوال بیسیک بلد هستید
وبا هم شروع به ساخت یک پروژه ساده می کنیم
ابتدا یک فولدر در یک درایو از ویندوز خود بسازید
دوم پروژه را درون آن فولدر ذخیره کنید
حالا از منوی بالا
designer
را کلیک کرده و سپس
ازپنجره جدید در منوی بالا گزینه
add view
را انتخاب کنید تا لیست آبجکتها مانند
button
دکمه
یا
edit text
محیطی برای نوشتن متن
و...
ظاهر شود
حالا از لیست یک
button
و
edit text
انتخاب کنید
شیءهایی در صفحه سیاه رنگ سمت راست ظاهر می شود
از منوی
file
پنجره جدیدی که از آن آبجکتها را انتخاب کردید
گزینه
save
را انتخاب کرده و در پنجره ظاهر شده اسمی به دلخواه بنویسید تا بعدا محیط گرافیکی برنامه را با آن اسم فراخوانی کنید
که من این اسم را
Layout1
در نظر می گیرم
و حالا به محیط کد نویسی برگردید ودرون
sub activity_create
این کد را تایپ کنید
Activity.LoadLayout("Layout1")
تا اینجا اگر خروجی بگیرید
یک
buuton
و یک
edit text
در صفحه موبایل به شما نشان می دهد
حالا دوباره به صفحه
designer
برگردید و از منوی
tools
گزینه
generate members
را انتخاب و همه آبجکتها را بحز اولی مربع کنارشان تیک بزنید بعد علامت به اضافه کنار آبحکت دکمه را کلیک کنید و رویداد کلیک آن را را هم نیک بزنید ود روی دکمه
generate members
کلیک کرده ودکمه
close
را بزنید
حالا به محیط برنامه نویسی برگرید و خواهید دید که در
sub globals
آبجکتها تعریف و در انتها
Sub Button1_Click
اضافه شده که درون آن کاری که بعد از کلیک دکمه باید انجام شود را کدنویسی می کنیم
برای مثال
می خواهیم بازدن دکمه نوشته
hello
در
edit text
ظاهر شود
برای این کار به ویژگی
text
آبجکت
edit text
مقدار متنی
hello
را به شکل زیر درون رویداد کلیک آبجکت دکمه می دهیم
EditText1.Text="hello"
که کل کدهای برنامه به صورت زیر می شود

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Dim Button1 As Button
Dim EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
EditText1.Text="hello"
End Sub