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

 مشخص کردن زیرمجموعه های یک عدد

سلام ! اینبار میخوام آموزش نوشتن برنامه ای رو بدم که میتونه زیر مجموعه های یه عدد رو مشخص کنه !

در ضمن شما باید با حلقه for آشنا باشید تا کاکرد برنامه رو بهتر متوجه بشید !

اول یه تکست باکس ایجاد کنید ! که عدد رو توی اون مینویسیم ! حالا یه دگمه و یه لیست باکس هم ایجاد کنید !

با دوبار کلیک کردن بر روی دگمه وارد قسمت کد نویسی شید . . .

یک متغیر از نوع integer با نام n  تعریف کنید !

Dim n As Integer

حالا n رو برابر text1.text قرار بدید !

n = Text1.Text

حالا به مهمترین بخش می رسیم ! باید یه حلقه از نوع for --- next ایجاد کنید به این صورت :

For i = 1 To n
If n Mod i = 0 Then
List1.AddItem i
end if
next i

خوب ما به برنامه گفتیم عدد n  که همون مقدار text1.text هست رو بر i که از 1 تا n  تقسیم کنه !

و اگر باقی مانده تقسیم برابر با 0 شد او عدد (i) رو به لیست باکس اضافه کنه !

این کار تا خود عدد یعنی تقسیم n بر n هم پیش میره که همین طور که میدونید خود n هم جز زیر مجموعه n هست .

امیدوارم مفید بوده باشه !

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

Dim n As Integer
n = Text1.Text
For i = 1 To n
If n Mod i = 0 Then
List1.AddItem i
End If
Next i

 

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

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

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

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

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

از آموزش 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

موفق باشد . . .

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