PDA

نسخه کامل مشاهده نسخه کامل : کسی می تونی این مسله رو حل کنه .


sanatoramir
20-10-2009, 12:05
برنامه ای بنوسید که دو عدد گرفته و در صورتی که عدد دوم مقسوم علیه اول باشد پیغام مناسبی روی لیبل چاپ کند
VBYOFSKI
20-10-2009, 13:35
سلام.
همون جور که میدونی یه عدد وقتی مقسوم علیه یه عدد دیگست که وقتی اونو تقسیم بر اون یکی عدد بکنیم باقیمانده نداشته باشه.
توی VB یه عملگر هست به اسم MOD که به صورت زیر نوشته میشه و باقیمانده رو نشون میده.


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
الان عدد اول تقسین بر عدد دوم میشه و باقیماندش توی متغیر ریخته میشه.
sanatoramir
20-10-2009, 15:08
می تونی من رو بیشتر راهنمای کنید یا برام کدشو بنویس ممنون می شم
sinaaeeni
20-10-2009, 15:43
می تونی من رو بیشتر راهنمای کنید یا برام کدشو بنویس ممنون می شم

دوست گرامی
این سورسو من برات تهیه کردم نگاه بکنی 2 خط بیشتر نیست لطفا تلاش کنید تا دوستان هم کمکتون کنند
موفق باشید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
sanatoramir
20-10-2009, 16:44
خیلی مردی

به غیر از خودت کمکم کنی بقیه انگار مردن
sanatoramir
20-10-2009, 16:50
برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند

برنامه بنوسید که دو عدد را گرفته و عدد زوج بین انها را چاپ کند

برنامه ای بنوسید که اعداد نوسط کادر t1 را دریافت کرده و اعداد روج قبل ان را چاپ کند


اگر این سه تا رو بگی خیلی در حق من برادری کردی چون فردا باید پروژه رو تحویل بدم فقد این سه تا مونده بقی رو خودم حل کردم

کمکم کن
sinaaeeni
20-10-2009, 19:19
برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند

برنامه بنوسید که دو عدد را گرفته و عدد زوج بین انها را چاپ کند

برنامه ای بنوسید که اعداد نوسط کادر t1 را دریافت کرده و اعداد روج قبل ان را چاپ کند


اگر این سه تا رو بگی خیلی در حق من برادری کردی چون فردا باید پروژه رو تحویل بدم فقد این سه تا مونده بقی رو خودم حل کردم

کمکم کن
سلام پسر خوب
به خودم و دوستانم توصیه میکنم همیشه ادب و احترام را سر لوحه خود قرار دهیم


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
sanatoramir
20-10-2009, 19:54
ممنون از شما اون دوتا رو رفته بودم تا وسط ها به کمک تو کامل شد

این اخری هست

برنامه بنوسید که اعداد اول کوچیکتر از 100 چاپ کند
sanatoramir
20-10-2009, 20:31
همش رو نوشتم ممنون از همه واقعا از ته دل می گم

این برنامه چه مشکلی داره


n = Val(Text1.Text)
m = Val(Text2.Text)
If m < n Then min = m
Else: min = n
End If
bmm = 1
For i = 1 To min
if (n mod i=0)and(m mod i=0)and(i > bmm)
sanatoramir
20-10-2009, 20:42
این هم هست

n = Val(Text1.Text)
m = Val(Text2.Text)
If m < n Then min
Else: min = n
For i = 1 To min
If (n Mod i = 0) And (m Mod i = 0) Then
Me.Print i
End If
Next i
sherwood
30-10-2009, 11:49
سلام
برنامه عدد اول
توی اون تکست باکسس یک عدد مینویسی بعد کامند1 رو میزنی تمامی اعداد اول زیر اون عددی که وارد کردی در لیست باکس ادد میشه

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید