محبوبترینها
با چاپ روی وسایل یک کسب و کار پرسود بسازید
قیمت دیگ بخار و تولیدکننده اصلی دیگ بخار
معروف‌ترین هدیه و سوغاتی یزد مشخص شد!
آشنایی با انواع دوربین مداربسته ضد آب
پرداخت اینترنتی قبوض ساختمان (پرداخت قبض گاز، برق و آب)
بهترین دوره آموزش سئو محتوا در سال 1403 با نام طوفان ۱۴۰۳ در فروردین ماه شروع می شود
یک صرافی ارز دیجیتال چه امکاناتی باید داشته باشد؟
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
جراحی و درمان ریشه دندان عفونی با خانم دکتر صفوراامامی
چه مواردی بر قیمت کابین دوش حمام تاثیر دارند؟
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1798373229
راهنمایی در مورد حلقه While Wend -
واضح آرشیو وب فارسی:سایت ریسک: راهنمایی در مورد حلقه While Wend khag 29 فروردين 1389, 07:20یه سوال : البته با راهنمایی ممنون میشم با حلقه While Wend به چه صورت میشه یه عدد را برعکس نوشت مثلا عدد 789 را به 987 تغییر پیدا کند؟ البته با توضیح ممنون میشم !!!! the_king 29 فروردين 1389, 14:30یه سوال : البته با راهنمایی ممنون میشم با حلقه While Wend به چه صورت میشه یه عدد را برعکس نوشت مثلا عدد 789 را به 987 تغییر پیدا کند؟ البته با توضیح ممنون میشم !!!! اعداد رو با روش های متفاوتی میشه معکوس کرد، روش زیر با دریافت متوالی باقیمانده تقسیم عدد بر 10 است : Private Sub Form_Load() Dim n As Long, m As Long n = 789 m = 0 While n > 0 m = m * 10 + (n Mod 10) n = n 10 Wend MsgBox m End End Sub یک متغیر n برای عدد اصلی و یک متغیر m برای محاسبه کردن معکوس آن تعریف می کنیم : Dim n As Long, m As Long مقدار مورد نظر n را بصورت دستی مشخص کردم : n = 789 مقدار m را صفر قرار می دهیم چون اگر عدد n برابر 0 باشد، هیچ عملیات دیگری برای تعیین کردن مقدار m انجام نخواهد شد : m = 0 تا زمانی که عدد n بزرگتر از 0 باشد، حلقه اجرا خواهد شد. اگر n از صفر بزرگتر باشد، مفهوم آن این است که رقم یا رقم هایی در n وجود دارد که بایستی معکوس شود : While n > 0 اولین رقم سمت راست n (رقم یکان) را با محاسبه کردن باقیمانده تقسیم n بر 10 محاسبه می کنیم (n Mod 10) و سپس عدد موجود در m را 10 برابر می کنیم تا رقم یکان اش برای قرار دادن رقم یکان n خالی (صفر) شود و سپس آندو را با هم جمع می کنیم : m = m * 10 + (n Mod 10) یک رقم از سمت راست n را حذف می کنیم، این عمل با تقسیم صحیح () مقدارش بر 10 حاصل می شود، چون در تقسیم صحیح، قسمت های اعشاری تقسیم حذف می گردد : n = n 10 اجرای حلقه را آنقدر ادامه می دهیم که مقدار n به صفر برسد و دیگر رقمی برای معکوس کردن در آن نمانده باشد. Wend عدد حاصل معکوس شده در m را نمایش می دهیم : MsgBox m در انتها با فرمان End اجرای برنامه را خاتمه می دهیم : End khag 29 فروردين 1389, 15:52اعداد رو با روش های متفاوتی میشه معکوس کرد، روش زیر با دریافت متوالی باقیمانده تقسیم عدد بر 10 است : private sub form_load() dim n as long, m as long n = 789 m = 0 while n > 0 m = m * 10 + (n mod 10) n = n 10 wend msgbox m end end sub یک متغیر n برای عدد اصلی و یک متغیر m برای محاسبه کردن معکوس آن تعریف می کنیم : dim n as long, m as long مقدار مورد نظر n را بصورت دستی مشخص کردم : n = 789 مقدار m را صفر قرار می دهیم چون اگر عدد n برابر 0 باشد، هیچ عملیات دیگری برای تعیین کردن مقدار m انجام نخواهد شد : m = 0 تا زمانی که عدد n بزرگتر از 0 باشد، حلقه اجرا خواهد شد. اگر n از صفر بزرگتر باشد، مفهوم آن این است که رقم یا رقم هایی در n وجود دارد که بایستی معکوس شود : while n > 0 اولین رقم سمت راست n (رقم یکان) را با محاسبه کردن باقیمانده تقسیم n بر 10 محاسبه می کنیم (n mod 10) و سپس عدد موجود در m را 10 برابر می کنیم تا رقم یکان اش برای قرار دادن رقم یکان n خالی (صفر) شود و سپس آندو را با هم جمع می کنیم : m = m * 10 + (n mod 10) یک رقم از سمت راست n را حذف می کنیم، این عمل با تقسیم صحیح () مقدارش بر 10 حاصل می شود، چون در تقسیم صحیح، قسمت های اعشاری تقسیم حذف می گردد : n = n 10 اجرای حلقه را آنقدر ادامه می دهیم که مقدار n به صفر برسد و دیگر رقمی برای معکوس کردن در آن نمانده باشد. wend عدد حاصل معکوس شده در m را نمایش می دهیم : msgbox m در انتها با فرمان end اجرای برنامه را خاتمه می دهیم : end مهندس اگه به جای عددی که داریم به فرض مثال عدد از کاربر بگیره و بعد معکوس کنه به چه صورت میشه ؟ و سوال دوم اینکه از کجا باید بفهم باید Mod اون رو باید محاسبه کنیم ؟ و خواهشی که دارم یه نمونه سوال بده نگاه کنم می تونم حلش کنم .... ₧ 29 فروردين 1389, 20:01من برنامه نویسی بلد نیستم ولی فکر کنم اگه طول استرینگ رو بگیری و بعد یکی یکی از آخر برداری توی یه متغیر سیو کنی و دست آخر متغیر ها رو به هم بچسبونی ورودیت هرچی باشه برعکس میشه و نیاز به فرمول ریاضی نداری البته با استفاده از حلقه for the_king 30 فروردين 1389, 00:22مهندس اگه به جای عددی که داریم به فرض مثال عدد از کاربر بگیره و بعد معکوس کنه به چه صورت میشه ؟ خیلی ساده، کد سطر n = 789 رو با کد زیر تعویض کنید : n = Val(InputBox("Please enter n :", "")) و سوال دوم اینکه از کجا باید بفهم باید Mod اون رو باید محاسبه کنیم ؟ شما باید آن روشی که خودتان برای حل یک مساله بکار می برید را بصورت خیلی دقیق و مو به مو به کامپیوتر و به زبان ریاضی منتقل کنید. خودتان برای بدست آوردن اولین رقم سمت راست یک عدد در ریاضی از چه فرمولی استفاده می کنید؟ فرض کنیم عدد مورد نظر 123 است و باید رقم 3 را جدا کرد : مرحله اول : ابتدا عدد را بر 10 تقسیم می کنیم که می شود 12.3 مرحله دوم : سپس اعشار را از حاصل تقسیم حذف می کنیم که می شود 12 مرحله سوم : سپس عدد حاصل را در 10 ضرب می کنیم که می شود 120 مرحله چهارم : حالا عدد حاصل را از عدد اولیه کسر می کنیم که می شود 3 که عدد مورد نظر ما است. تمامی چهار مرحله بالا در ریاضی تحت عنوان عملگر باقیمانده صحیح شناخته می شود که در ویژوال بیسیک توسط Mod اجرا می گردد. و خواهشی که دارم یه نمونه سوال بده نگاه کنم می تونم حلش کنم .... این دیگه درخواستی نیست که بخواهید توی یک فروم مطرح کنید. این فروم و سایر فروم های فارسی و بسیاری از وبلاگ ها مملو از سوالات برنامه نویسی مطرح شده اند و می توانید با حل کردن آنها مهارت تان را محک بزنید. من برنامه نویسی بلد نیستم ولی فکر کنم اگه طول استرینگ رو بگیری و بعد یکی یکی از آخر برداری توی یه متغیر سیو کنی و دست آخر متغیر ها رو به هم بچسبونی ورودیت هرچی باشه برعکس میشه و نیاز به فرمول ریاضی نداری البته با استفاده از حلقه for صد البته، حق با شما است. همانطور که در ابتدا هم اشاره کردم روش های بسیاری برای معکوس کردن یک عدد وجود دارد : Private Sub Form_Load() Dim n As Long, m As Long n = 789 m = Val(StrReverse(CStr(n))) MsgBox m End Sub
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1873]
-
گوناگون
پربازدیدترینها