۰۴-اردیبهشت-۱۳۸۵, ۱۵:۱۲:۴۸
صفحه‌ها: 1 2
۰۴-اردیبهشت-۱۳۸۵, ۱۵:۱۷:۴۱
یه سوال دیگه (سه روز اینترنت نداشتما!)
چرا این کد عمل نمیکنه؟!
چرا این کد عمل نمیکنه؟!
کد:
[align=left]Private Sub Command1_Click()
Dim num As Integer
num = 6
If 2 < num < 4 Then MsgBox num
End Sub
[/align]۰۴-اردیبهشت-۱۳۸۵, ۱۵:۲۴:۰۷
سلام
Private Sub Command1_Click()
Dim num As Integer
num = 6
If 2 < num And num < 4 Then MsgBox num
End Sub
Private Sub Command1_Click()
Dim num As Integer
num = 6
If 2 < num And num < 4 Then MsgBox num
End Sub
۰۴-اردیبهشت-۱۳۸۵, ۱۷:۰۴:۱۹
spiderman نوشته است:ویژوال بیسیک توابعی برای بدست آوردن آرک سینوس و کسینوس و ... نداره؟
متاسفانه نه ! فقط واسه تانژانت داره که اونم تابع ()Atn هست .
۰۴-اردیبهشت-۱۳۸۵, ۱۷:۳۹:۵۶
نقل قول: سلامممنون
Private Sub Command1_Click()
Dim num As Integer
num = 6
If 2 < num And num < 4 Then MsgBox num
End Sub
نقل قول: متاسفانه نه ! فقط واسه تانژانت داره که اونم تابع ()Atn هست .خوب چرا فقط این atn رو گزاشتن!!
فکرکنم با یه سری محاسبه دیگه بشه. قبلا یه جا دیدم. شما بلد نیستین؟
۰۴-اردیبهشت-۱۳۸۵, ۱۷:۵۵:۵۶
دوست عزيز ويژوال بيسيك توابعي رياضي داره بعضي از اونهايي كه توي خاطر م هست اينها هستند .
text1.text = sin(text2.text)
text1.text = tan(text2.text)
text1.text = cos(text2.text)
text1.text = atn(text2.text)
text1.text = abs(text2.text)
bye
text1.text = sin(text2.text)
text1.text = tan(text2.text)
text1.text = cos(text2.text)
text1.text = atn(text2.text)
text1.text = abs(text2.text)
bye
۰۴-اردیبهشت-۱۳۸۵, ۲۰:۴۳:۲۵
esnaashari نوشته است:دوست عزيز ويژوال بيسيك توابعي رياضي داره بعضي از اونهايي كه توي خاطر م هست اينها هستند .
text1.text = sin(text2.text)
text1.text = tan(text2.text)
text1.text = cos(text2.text)
text1.text = atn(text2.text)
text1.text = abs(text2.text)
bye
سوالم واضح نبود ؟!
۰۵-اردیبهشت-۱۳۸۵, ۰۰:۰۹:۰۶
ببین دوست من مباحث ریاضی با کامپیوتر در خیلی جا ها درگیر میشه ! یکیش همین جا هستش . شما فکر می کنی توابع زبانهای برنامه نویسی مثلا مقدار (Sin(X یا لگاریتم رو چطوری محاسبه می کنن ؟؟
جوابش خیلی ساده هست و اونهم اینه که تعداد زیادی از توابع معروف ریاضی مثل همین مثلثاتی ها یا توابع آرک یا لگاریتمی در یک حالت سری وار بسط داده میشن ( امیدوارم مفهوم دنباله و سری رو بدونی )
کاری ندارم که این سری ها چطور بدست میان چون مربوط به ریاضیات دانشگاهی میشه اما تمام این توابع می تونن به شکل مجموعه ای از سری ها با نام سری های مکلورین ( Maclaurin series ) دربیان . این سری ها خیلی ساده هستن و خیلی راحت به الگوریتم تبدیل میشن و فقط کافیه جای X مقدار دلخواهت رو بزاری و تا مقدار دقتی که لازم داری توی سری جلو بری تا مقدار تقریبی تابع رو توی اون نقطه دلخواه بدست بیاری ! لینک پایین تمام این سری ها رو شامل میشه ( توابع آرک همون هایی هستن که توان 1- دارن ، در واقع این مدل جدید و استاندارد نمایش توابع آرک هست )
http://mathworld.wolfram.com/MaclaurinSeries.html
از شماره 26 به بعد حالت کلی سری های مختلف نوشته شده که خیلی راحت در زبانهای برنامه نویسی با کمک حلقه ها قابل تبدیل شدن به الگوریتم هستن !
جوابش خیلی ساده هست و اونهم اینه که تعداد زیادی از توابع معروف ریاضی مثل همین مثلثاتی ها یا توابع آرک یا لگاریتمی در یک حالت سری وار بسط داده میشن ( امیدوارم مفهوم دنباله و سری رو بدونی )
کاری ندارم که این سری ها چطور بدست میان چون مربوط به ریاضیات دانشگاهی میشه اما تمام این توابع می تونن به شکل مجموعه ای از سری ها با نام سری های مکلورین ( Maclaurin series ) دربیان . این سری ها خیلی ساده هستن و خیلی راحت به الگوریتم تبدیل میشن و فقط کافیه جای X مقدار دلخواهت رو بزاری و تا مقدار دقتی که لازم داری توی سری جلو بری تا مقدار تقریبی تابع رو توی اون نقطه دلخواه بدست بیاری ! لینک پایین تمام این سری ها رو شامل میشه ( توابع آرک همون هایی هستن که توان 1- دارن ، در واقع این مدل جدید و استاندارد نمایش توابع آرک هست )
http://mathworld.wolfram.com/MaclaurinSeries.html
از شماره 26 به بعد حالت کلی سری های مختلف نوشته شده که خیلی راحت در زبانهای برنامه نویسی با کمک حلقه ها قابل تبدیل شدن به الگوریتم هستن !
۰۵-اردیبهشت-۱۳۸۵, ۰۳:۲۷:۳۳
این کد رو من نوشتم و استفاده می کنم. حالشو ببر
Private Const Under_Zero_D As String = "Input Is Less Than Zero"
Private Const More_One_D As String = "Input Is More Than One"
Private Const PI As Double = 3.14159265358979
Function Asin(x) As Double
If Abs(x) > 1 Then VBA.Err.Raise CErr.More_One_N, "Asin", More_One_D
If x > 0 Then Asin = Atn(Sqr(Tan(Atn(x)) ^ 2 / (1 - Tan(Atn(x)) ^ 2)))
If x < 0 Then Asin = -Atn(Sqr(Tan(Atn(x)) ^ 2 / (1 - Tan(Atn(x)) ^ 2)))
If x = 0 Then Asin = 0
End Function
Function Acos(x) As Double
If Abs(x) > 1 Then VBA.Err.Raise CErr.More_One_N, "Acos", More_One_D
If x = 1 Then Acos = 0: Exit Function
If x = -1 Then Acos = PI: Exit Function
If x = 0 Then Acos = PI / 2: Exit Function
If x > 0 Then
Acos = Atn(Sqr((1 - Tan(Atn(x)) ^ 2) / Tan(Atn(x)) ^ 2))
Else
Acos = (PI) - Atn(Sqr((1 - Tan(Atn(x)) ^ 2) / Tan(Atn(x)) ^ 2))
End If
End Function
Private Const More_One_D As String = "Input Is More Than One"
Private Const PI As Double = 3.14159265358979
Function Asin(x) As Double
If Abs(x) > 1 Then VBA.Err.Raise CErr.More_One_N, "Asin", More_One_D
If x > 0 Then Asin = Atn(Sqr(Tan(Atn(x)) ^ 2 / (1 - Tan(Atn(x)) ^ 2)))
If x < 0 Then Asin = -Atn(Sqr(Tan(Atn(x)) ^ 2 / (1 - Tan(Atn(x)) ^ 2)))
If x = 0 Then Asin = 0
End Function
Function Acos(x) As Double
If Abs(x) > 1 Then VBA.Err.Raise CErr.More_One_N, "Acos", More_One_D
If x = 1 Then Acos = 0: Exit Function
If x = -1 Then Acos = PI: Exit Function
If x = 0 Then Acos = PI / 2: Exit Function
If x > 0 Then
Acos = Atn(Sqr((1 - Tan(Atn(x)) ^ 2) / Tan(Atn(x)) ^ 2))
Else
Acos = (PI) - Atn(Sqr((1 - Tan(Atn(x)) ^ 2) / Tan(Atn(x)) ^ 2))
End If
End Function
۰۵-اردیبهشت-۱۳۸۵, ۰۷:۴۸:۵۶
ممنون از همه دوستان توضيحات ممد2003خيلي كامل و واضح بود.
۰۵-اردیبهشت-۱۳۸۵, ۱۳:۵۷:۵۳
آقای ممد2003 که کارش حرف نداره!
اگه درست فهمیده باشم یه مثال برا این حرف دنباله فیبوناتچی که اعداد اول رو میده.
از اون لینک هم سر در نیاوردم. (اون علامت شبیه E چی بود!)
حالا یه تابع اگه سراغ دارین بگین. مثل اینی که آقای geoomatic گزاشت. البته این یا خطا می داد. یا اشتباه جواب میداد!
اگه درست فهمیده باشم یه مثال برا این حرف دنباله فیبوناتچی که اعداد اول رو میده.
از اون لینک هم سر در نیاوردم. (اون علامت شبیه E چی بود!)
حالا یه تابع اگه سراغ دارین بگین. مثل اینی که آقای geoomatic گزاشت. البته این یا خطا می داد. یا اشتباه جواب میداد!
صفحه‌ها: 1 2