صفحه نخست | جستجو | آرشيو | لينکدوني |فروشگاه

 آموزش ویژوال بیسیک + برنامه ای که تاریخ را از کاربر دریافت و تاریخ روز بعد را نشان میدهد !

سلام ! به همه دوستان خوب . . .

این دفعه با دست پر اومدم (!) میخوام ویژوال بیسیک رو آموزش بدم ! نه به طور منظم ولی هر بار یه چیزی مینویسم !

سعی میکنم مطالبی رو بنویسم که برا همه قابل فهم باشه و از برنامه های کاملا ساده شروع میکنم !

از آموزش vb از ابتدا ( معرفی و . . . ) جدا پرهیز میکنیم ! چون کافیه یه سرچ کنید تا ویژوال بیسیک رو به صورت ابتدایی یاد بگیرید ! در نتیجه مطالبی که مینویسم به در کسایی که میخوره که با ویژوال بیسیک آشنایی دارن !

خوب شروع میکنیم !

این برنامه ای که میخویم بنویسیم یه سری شرایط داره :

1 - تا ماه ششم سال ماه ها را 31 روزه در نظر بگیره !

2 - از ماه هفتم تا ماه 11 ماه ها را 30 روزه در نظر بگیره!

و با فرض اینکه سال کبیسه است یا نه ماه 12 را 30 یا 29 روزه در نظر بگیره !

خوب شروع میکنیم !

اول یه 3 تا تکست باکس به نام های day , mo , ye ایجاد کنید !

و بعد یه دگمه ایجاد کنید حالا با 2بار کلیک کردن بر روی دگمه به قسمت کد نویسی آن وارد شوید . . .

خوب حالا 3 تا متغیر از نوع integer تعیریف کنید !

Dim d As Integer
Dim m As Integer
Dim y As Integer

مقدار هر یک رو اینجوری معین کنید :

m = mo.Text
y = ye.Text
d = day.Text

حالا باید مقدار تکست باکس day به ازا هر کلیک 1 روز اضافه شود پس :

day.Text = d + 1

و اینم کد شرایطی که بالا گفتم ! اگر و اگر و اگر !

If m < 7 And d = 31 Then
day.Text = Int(1)
mo.Text = m + 1
Else
If m < 12 And m > 6 And d = 30 Then
day.Text = Int(1)
mo.Text = m + 1
Else
If m = 12 And d = 29 Then
day.Text = Int(1)
mo.Text = Int(1)
ye.Text = y + 1
End If
End If
End If

کد کامل برنامه :

Private Sub Command1_Click()
Dim d As Integer
Dim m As Integer
Dim y As Integer
m = mo.Text
y = ye.Text
d = day.Text
day.Text = d + 1
If m < 7 And d = 31 Then
day.Text = Int(1)
mo.Text = m + 1
Else
If m < 12 And m > 6 And d = 30 Then
day.Text = Int(1)
mo.Text = m + 1
Else
If m = 12 And d = 29 Then
day.Text = Int(1)
mo.Text = Int(1)
ye.Text = y + 1
End If
End If
End If
End Sub

موفق باشد . . .

|| نوشته شده توسط آرشام هکر در دسته : آموزش برنامه نویسی  |