آموزش برنامه نویسی اندروید با B4A – قسمت پنجم(برنامه روزهای هفته)
سلام
داشتم فکر میکرد که آموزش بعدی در چه رابطه ای باشه، دیدم تو سایت چند تا سورس کد سی شارپ هست، تصمیم گرفتم یکی از اونا رو تو بیسیک باهم دیگه بنویسیم ، برنامه ای که میخوایم بنویسم:
- برنامه ای بنویسید که روز هفته را وارد کند و نام روز هفته را نشان دهد ؟ (سورس کد سی شارپ)
آموزش:
در این برنامه یک EditText داریم و دو تا دکمه که کاربر عدد رو در EditText وارد کنه و روی دکمه نمایش کلیک کنه و نام روز هفته نمایش داده بشه و یک دکمه هم داشته باشیم برای خروج از برنامه ، در Designer طراحیمون این هست:
در قسمت های قبلی مختصری درباره Designer توضیح دادم ، که با همون توضیحات میتونید صفحه رو طراحی کنید.
فقط یک نکته جدید هست که اونم متنی هست که در TextBox قرار داره که وقتی مقداری رو وارد می کنیم اون متن مخفی میشه، برای اینکار EditText رو در محیط Designer انتخاب و از قسمت Properties در خاصیت Hint متن دلخواهتون رو بنویسید.
پس از وارد کردن سه کنترل که دوتا Button و یک EditText هست ، رویداد های کلیک Button رو اضافه کنید و EditText رو برنامه اضافه کنید (وقتی روی EditeText در پنجره Abstract Designer راست کلیک میکنید ، گزینه Generate رو انتخاب و Dim EditText1 as Text رو بزنید).
به محیط کدنویسی بر میگردیم ، برای دکمه خروج کد زیر رو می نویسیم:
|
۱ ۲ ۳ |
Sub Button2_Click ExitApplication() End Sub |
و برای دکمه نمایش کدهای زیر رو می نویسیم:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ |
Sub Button1_Click Dim num As Int num = EditText1.Text Select num Case ۱ Msgbox("شنبه","") Case ۲ Msgbox("یک شنبه","") Case ۳ Msgbox("دو شنبه","") Case ۴ Msgbox("سه شنبه","") Case ۵ Msgbox("چهار شنبه","") Case ۶ Msgbox("پنج شنبه","") Case ۷ Msgbox("جمعه","") Case Else Msgbox("هفته ۷ روز داره :)","") End Select End Sub |
توضیحات :
- در خط ۲ یک متغیر Num از نوع عددی یا همون int تعریف کردیم.
- در خط ۳ متغیر Num رو با EditTxt1.Text قرار دادیم ، یعنی هر مقداری که تو EditText وارد میشه رو میریزم تو متغیر Num.
- از خط های ۴ تا ۱۸ با استفاده از دستور Case مقادیر رو بررسی می کنیم که اگر مقدارمون با فلان عدد برابر بود پیغام دلخواهمون رو به نمایش بده.
- در خط ۱۹ گفتیم اگر مقادیر وارد شده با هیچ کدوم از case ها برابر نبود ، پیغام دلخواهی نمایش بده.
و در آخر تمام کدها:
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ ۲۳ ۲۴ ۲۵ ۲۶ ۲۷ ۲۸ ۲۹ ۳۰ ۳۱ ۳۲ ۳۳ ۳۴ ۳۵ ۳۶ ۳۷ ۳۸ ۳۹ ۴۰ ۴۱ ۴۲ ۴۳ ۴۴ ۴۵ ۴۶ ۴۷ ۴۸ ۴۹ ۵۰ ۵۱ ۵۲ ۵۳ ۵۴ ۵۵ ۵۶ |
#Region Project Attributes #ApplicationLabel: Hafte #VersionCode: 1 #VersionName: 1.0.0 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: unspecified #CanInstallToExternalStorage: False #End Region #Region Activity Attributes #FullScreen: False #IncludeTitle: True #End Region 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 Private EditText1 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Lmain") End Sub Sub Button2_Click ExitApplication() End Sub Sub Button1_Click Dim num As Int num = EditText1.Text Select num Case ۱ Msgbox("شنبه","") Case ۲ Msgbox("یک شنبه","") Case ۳ Msgbox("دو شنبه","") Case ۴ Msgbox("سه شنبه","") Case ۵ Msgbox("چهار شنبه","") Case ۶ Msgbox("پنج شنبه","") Case ۷ Msgbox("جمعه","") Case Else Msgbox("هفته ۷ روز داره :)","") End Select End Sub |
سورس رو هم برای دانلود قرار میدم تا اگه جایی متوجه نشدید، مشکلی نداشته باشید.
هرگونه سوالی یا مشکلی در رابطه با مطلب فوق داشتید؛ در سایت بپرسید، پاسخگوی سوالات شما هستیم، برای پرسیدن سوال کلیک کنید.
موفق باشید.
ارسال نظر
شما باید وارد شوید یا عضو شوید تا بتوانید نظر ارسال کنید