درخواست کد نمایش سینوس و کسینوس و تانژانت در ویژوال بیسیک

bahar2bahar

New Member
سلام دوستان گرمی

یه درخواست واجب ازتون داشتن..خداوکیلی اگه بلدید بگین

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


دوستان لطفا زحمتشو بکشید...تشکر
 

the_king

مدیرکل انجمن
سلام دوستان گرمی

یه درخواست واجب ازتون داشتن..خداوکیلی اگه بلدید بگین

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


دوستان لطفا زحمتشو بکشید...تشکر

لطفا موقع ایجاد کردن تاپیک عنوان مبحث رو با توجه به قانون B2 مجیدآنلاین انتخاب کنید.
در ضمن انجمن برنامه نویسی یک انجمن آموزشی است، در این انجمن در مورد هزینه نباید حرفی بزنید.

عنوان تاپیک ویرایش گردید.

یک نمونه کد برنامه ضمیمه این پست شده است : SinCosTan.rar SinCosTan.zip

یک نگاهی هم به این تاپیک بندازید :

اشكال در ويژوال بيسيك
 

پیوست ها

  • SinCosTan.rar
    4.9 کیلوبایت · بازدیدها: 58
  • SinCosTan.zip
    5.5 کیلوبایت · بازدیدها: 54

bahar2bahar

New Member
خیلی ممنون مدیر عزیز...
آخه خیلی واجب بود...

شرمنده...
یه سوال از خدمتتون داشتم؟

تو این پروژه ها که دادید ردیف دوم Angle(Radians) به چه معناس؟
به چه درد میخوره؟
 

the_king

مدیرکل انجمن
خیلی ممنون مدیر عزیز...
آخه خیلی واجب بود...

شرمنده...
یه سوال از خدمتتون داشتم؟

تو این پروژه ها که دادید ردیف دوم Angle(Radians) به چه معناس؟
به چه درد میخوره؟

زاویه بر حسب واحد های متفاوتی سنجیده میشه، سه تا از این واحد ها که مرسوم اند و توی ماشین حساب ها
هم پشتیبانی می شوند Radian و Degree و Grad هستند که معمولا به صورت اختصاری RAD و DEG و GRA
نوشته می شوند.

Degree همون واحدی است که یک دور کامل رو با عدد 360 و نصف دور رو با عدد 180 نشون میده،
مثلا وقتی می گوییم (Sin(90 برابر 1 است، زاویه 90 رو با واحد Degree محاسبه کرده ایم.

Radian همون واحدی است که با عدد پی سر و کار داره و یک دور کامل را با عدد و نصف دور رو با عدد π نشون میده،
مثلا وقتی می گوییم 0 = (Sin(3.1415926 است از واحد Radian استفاده کرده ایم.

Grad معمولا کمتر استفاده میشه، هر دور کامل با عدد 400 و نصف دور با 200 نشون داده میشه،
مثلا Sin(100) = 1 با واحد Grad محاسبه شده.

توجه داشته باشید که توابع مثلثاتی در ویژوال بیسیک و اغلب زبان های دیگر بر حسب Radian محاسبه می شوند.
 

bahar2bahar

New Member
دستت درد نکنه مدیر عزیز..تشکر فراوان
خدا خیرت بده خیلی کمکم کردی...
شرمنده اگه قوانینو رعایت نکردم
 

bahar2bahar

New Member
مدیر جان یه سوال از خدمتت داشتم:

تانژانت 90 مگه تعریف نشده نیست؟
پس چرا تو این برنامه که واسم گذاشتید -272241.8084 نشون میده؟

آیا برنامه مشکل داره؟
 

the_king

مدیرکل انجمن
مدیر جان یه سوال از خدمتت داشتم:

تانژانت 90 مگه تعریف نشده نیست؟
پس چرا تو این برنامه که واسم گذاشتید -272241.8084 نشون میده؟

آیا برنامه مشکل داره؟
(Tan(90 برابر بینهایت است که یک مقدار انتزاعی است، اعداد هم در کامپیوتر مثل هر چیز دیگه ای
در دنیای واقعی محدودیت دارند. ویژوال بیسیک (Tan(π / 2 رو 16331778728383800 حساب می کنه،
یعنی مثلا یک عدد خیلی بزرگ مثل بی نهایت، اما اونی که الان شما دارید می بینید (1.5708)Tan است،
1.5708 با π / 2 خیلی فرق داره.

نه برنامه مشکلی نداره، مشکل اینه که بی نهایت رو نمیشه با عدد نمایش داد، در ضمن دقت اعشاری برنامه
چهار رقم بعد از اعشاره. اگه دقت کنید می بینید که 90 درجه برابر 1.5708 رادیان نوشته شده، اما چهار رقم بعد از
اعشار برای محاسبه کردن Tan نزدیک به بی نهایت خیلی کمه. هر چقدر که دقت اعشاری بیشتر باشه، خروجی
به بی نهایت نزدیکتر میشه. اما به هر حال بی نهایت یعنی یک عدد خیلی بزرگ.

90 درجه تقریبا برابر با 1.5707963267948966192313216916398 است، اگه این مقدار رو مستقیما در زاویه
بر حسب رادیان (TextBox دوم) وارد کنید، Tan دقیقتر میشه. دلیلش هم اینه که محاسبات با واحد رادیانه و چون
رادیان اعشاری است، هر چی اعشار دقیقتر باشه نتیجه بهتره.

شما اگه مقدار 90 رو وارد کنین اول به رادیان تبدیل میشه، اونم فقط با چهار رقم بعد از اعشار.
Tan در مقادیر نزدیک به 90 درجه خیلی حساسه، کوچکترین تغییری در زاویه نتیجه رو خیلی تغییر میده.
اگر بخواهید (Tan(90 رو ببینید باید مقدار 1.5707963267948966192313216916398 رو برحسب رادیان وارد کنید.
 

bahar2bahar

New Member
(tan(90 برابر بینهایت است که یک مقدار انتزاعی است، اعداد هم در کامپیوتر مثل هر چیز دیگه ای
در دنیای واقعی محدودیت دارند. ویژوال بیسیک (tan(π / 2 رو 16331778728383800 حساب می کنه،
یعنی مثلا یک عدد خیلی بزرگ مثل بی نهایت، اما اونی که الان شما دارید می بینید (1.5708)tan است،
1.5708 با π / 2 خیلی فرق داره.

نه برنامه مشکلی نداره، مشکل اینه که بی نهایت رو نمیشه با عدد نمایش داد، در ضمن دقت اعشاری برنامه
چهار رقم بعد از اعشاره. اگه دقت کنید می بینید که 90 درجه برابر 1.5708 رادیان نوشته شده، اما چهار رقم بعد از
اعشار برای محاسبه کردن tan نزدیک به بی نهایت خیلی کمه. هر چقدر که دقت اعشاری بیشتر باشه، خروجی
به بی نهایت نزدیکتر میشه. اما به هر حال بی نهایت یعنی یک عدد خیلی بزرگ.

90 درجه تقریبا برابر با 1.5707963267948966192313216916398 است، اگه این مقدار رو مستقیما در زاویه
بر حسب رادیان (textbox دوم) وارد کنید، tan دقیقتر میشه. دلیلش هم اینه که محاسبات با واحد رادیانه و چون
رادیان اعشاری است، هر چی اعشار دقیقتر باشه نتیجه بهتره.

شما اگه مقدار 90 رو وارد کنین اول به رادیان تبدیل میشه، اونم فقط با چهار رقم بعد از اعشار.
Tan در مقادیر نزدیک به 90 درجه خیلی حساسه، کوچکترین تغییری در زاویه نتیجه رو خیلی تغییر میده.
اگر بخواهید (tan(90 رو ببینید باید مقدار 1.5707963267948966192313216916398 رو برحسب رادیان وارد کنید.





با تشکر از توضیحاتتون...


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

the_king

مدیرکل انجمن
با تشکر از توضیحاتتون...


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

ریکس نکنید :green: توی کد برنامه هر جایی که "###0.0" نوشته شده به "###########0.0" تغییر دهید
تا از 4 رقم بعد از اعشار به 12 رقم تغییر کنه. در ضمن TextBox ها رو بکشید و طولشون رو افزایش بدهید تا
داخلشون جا برای نمایش اعداد طولانی باشه.
 

bahar2bahar

New Member
ریکس نکنید :green: توی کد برنامه هر جایی که "###0.0" نوشته شده به "###########0.0" تغییر دهید
تا از 4 رقم بعد از اعشار به 12 رقم تغییر کنه. در ضمن textbox ها رو بکشید و طولشون رو افزایش بدهید تا
داخلشون جا برای نمایش اعداد طولانی باشه.


این کارها رو که بکنم دیگه نمیتونه ایراد بگیره؟
 

جدیدترین ارسال ها

بالا