دستورات مرتبط با محاسبات ریاضی در VB

Math

---

دستور Val برای بدست آوردن یک مقدار عددی از یک جمله استفاده می شود، جملات معمولا دارای مقداری صفر (0)هستند، اما برخی جملا با اعداد شروع می شوند این گونه جملات دارای مقدار عددی هستند، مثلا "128ب12 ایران33" در این تابع سه رقم اولش به عنوان عدد شناخته خواهد شد، یعنی 128.

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Val function
Returns the numbers contained in a string as a numeric value of appropriate type.
Syntax
Val(string)
The required string argument is any valid string expression.
The Val function stops reading the string at the first character it can't recognize as part of a number. Symbols
and characters that are often considered parts of numeric values, such as dollar signs and commas, are not
recognized. However, the function recognizes the radix prefixes &O (for octal) and &H (for hexadecimal).
Blanks, tabs, and linefeed characters are stripped from the argument.

---

دستور Round یک عدد اعشاری را رُند می کند، شما تعیین می کنید که چند رقم اعشار یک عدد اعشاری حذف شود، ممکن است بخواهید همه ارقام اعشاری حذف شوند و یا مثلا تا یک یا دو رقم اعشار رُند شود.

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Round
Description
Returns a number rounded to a specified number of decimal places.
Syntax
Round(expression [,numdecimalplaces])
The Round function syntax has these parts:
Part Description
expression Required. Numeric expression being rounded.
numdecimalplaces Optional. Number indicating how many places to the right of the decimal are
included in the rounding. If omitted, integers are returned by the Round
function.
Example:
Text1.Text = Number
Round(Number,5)
‘Rounds the number in text1 to 5 decimal places

---

دستور Int و Fix به ارقام اعشار نگاه نمی کنند، این دو تابع فقط عدد صحیح بدون اعشار عددی را برای شما بر می گردانند.مثلا ممکن است شما بخواهید وسط یک چیزی مثل عرض مانیتور را پیدا کنید، وسط عرض مانیتور نمی تواند اعشاری باشد یعنی شما نمی توانید در مکان 625.5 پیکسلی چیزی بنویسید، در واقع شما در مکان 625 یا 626 پیکسلی می توانید چیزی بنویسید یا فرمی را قرار دهید. این تابع هم همین کار را می کند، مثلا اگر عرض مانیتور و یا عرض فرمی را نصف کنید و به عددی اعشاری برسید این تابع بخش اعشاری این عدد را حذف می کند.

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Int and Fix functions
Returns the integer portion of a number.
Syntax
Int(number)
Fix(number)
The required number argument is a Double or any valid numeric expression. If number contains Null, Null is
returned.
Both Int and Fix remove the fractional part of number and return the resulting integer value.
The difference between Int and Fix is that if number is negative, Int returns the first negative integer less than
or equal to number, whereas Fix returns the first negative integer greater than or equal to number. For example,
Int converts -8.4 to -9, and Fix converts -8.4 to -8.

---

دستور RND در تولید اعداد تصادفی به برنامه نویس کمک می کند. از آنجا که عددی که توسط این دستور ایجاد می شود عددی اعشاری بین 0 تا 1 است، باید نتیجه برگشت داده شده از این عدد را در عددی بزرگتر ضرب کنید و سپس با استفاده از دستور Int یا Fix چنانچه می خواهید عدد صحصح باشد، بخش اعشاری عدد را حذف کنید. مقلا اگر می خواهید عددی بین 0 تا 1000 تولید کنید باید نتیجه برگشت داده شده از دستور Rnd را در 1000 ضرب کنید، سپس نتیجه را با دستورInt بدون اعشار کنید. اگر می خواهید عدد تصادفی بدست آمده هیچگاه 0 نباشد باید حتما عدد نتیجه خود را با 1 جمع کنید تا همیشه از 1 شروع شود.

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Rnd and Randomize functions
A function which generates a random number.
Randomize uses number to initialize the Rnd function's random-number generator, giving it a new seed value.
If you omit number, the value returned by the system timer is used as the new seed value.
Syntax
Randomize [number]
Rnd[(number)]
Example:
Randomize
Label1 = Int((6 * Rnd) + 1) 'Generate random value between 1 and 6.
Aaron Wirth
13

---

دستور sgn به برنامه نویس می گوید که علامت عددی که به آن داده چیست(منفی/مثبت/صفر)

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Sgn function
Returns a Variant (Integer) indicating the sign of a number.
Syntax
Sgn(number)
The required number argument can be any valid numeric expression.
Return Values
If number is Sgn returns
Greater than zero 1
Equal to zero 0
Less than zero -1
Example:
Dim MyVar1, MyVar2, MyVar3, MySign
MyVar1 = 12: MyVar2 = -2.4: MyVar3 = 0
MySign = Sgn(MyVar1) ' Returns 1.
MySign = Sgn(MyVar2) ' Returns -1.
MySign = Sgn(MyVar3) ' Returns 0.

---

دستورات هندسی، سینوس، کسینوس، تانژانت و کتانژانت در برنامه نویسی کاربدهایی دارند، و به برنامه نویس چنانچه برایش نتایج این مقادیر اهمیت داشته باشد کمک می کند، عمدتا این نتایج برای برنامه نویسانی که در محیط های گرافیکی کار می کنند کاربرد دارد، هرچند برای سایر برنامه نویسان نیز کاربردهایی می تواند داشته باشد.

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Sin, Cos, Tan, Log, Atn & Exp Functions
If you're into geometry, you're all set there too. From the list of VB functions below, you can make any
geometric calculation that exists. (Assuming you're Albert Einstein).
Syntax
Sin(number)
Cos(number)
Tan(number)
Log(number)
Atn(number)
Exp(number)

---

دستور Abs، مقدار مثبت یک عدد را برمی گرداند، چه عدد مثبت باشد چه منفی، گاهی اعدادی از فایل ها یا کاربران دریافت می شود و در فرمولهایی قرار داده می شود، یعنی معلوم نیست اعداد اولیه چه اعدادی هستند، هر اتفاقی ممکن است بیافتد، پس از قرار دادن اعداد در فرمولها ممکن است نتیجه منفی بدست آید در چنین شرایطی باید برنامه نویس بررسی کند که آیا عدد کوچکتر از صفر است و اگر بود آنرا در 1- ضرب کند تا عددی مثبت بدست آورد، بجای تمامی این مراحل برنامه نویس می تواند عدد بدست آمده را توسط این دستور به نتیجه ای مثبت تبدیل کند.

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Abs function
Returns a value of the same type that is passed to it specifying the absolute value of a number.
Syntax
Abs(number)
The required number argument can be any valid numeric expression. If number contains Null, Null is returned;
if it is an uninitialized variable, zero is returned.
Example:
Dim MyNumber
MyNumber = Abs(50.3) ' Returns 50.3.
MyNumber = Abs(-50.3) ' Returns 50.3.

---

برخی دیگر از دستورات کم کاربرتر محاسباتی Visual Basic:

دستور نوشتاری فرمان(Syntax) به نحو زیر است:

Other Math Functions
The following is a list of nonintrinsic math functions that can be derived from the intrinsic math functions:
Function Derived equivalents
Secant Sec(X) = 1 / Cos(X)
Cosecant Cosec(X) = 1 / Sin(X)
Cotangent Cotan(X) = 1 / Tan(X)
Inverse Sine Arcsin(X) = Atn(X / Sqr(-X * X + 1))
Inverse Cosine Arccos(X) = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
Inverse Secant Arcsec(X) = Atn(X / Sqr(X * X – 1)) + Sgn((X) – 1) * (2 * Atn(1))
Inverse Cosecant Arccosec(X) = Atn(X / Sqr(X * X - 1)) + (Sgn(X) – 1) * (2 * Atn(1))
Inverse Cotangent Arccotan(X) = Atn(X) + 2 * Atn(1)
Hyperbolic Sine HSin(X) = (Exp(X) – Exp(-X)) / 2
Hyperbolic Cosine HCos(X) = (Exp(X) + Exp(-X)) / 2
Hyperbolic Tangent HTan(X) = (Exp(X) – Exp(-X)) / (Exp(X) + Exp(-X))
Hyperbolic Secant HSec(X) = 2 / (Exp(X) + Exp(-X))
Hyperbolic Cosecant HCosec(X) = 2 / (Exp(X) – Exp(-X))
Hyperbolic Cotangent HCotan(X) = (Exp(X) + Exp(-X)) / (Exp(X) – Exp(-X))
Inverse Hyperbolic Sine HArcsin(X) = Log(X + Sqr(X * X + 1))
Inverse Hyperbolic Cosine HArccos(X) = Log(X + Sqr(X * X – 1))
Inverse Hyperbolic Tangent HArctan(X) = Log((1 + X) / (1 – X)) / 2
Inverse Hyperbolic Secant HArcsec(X) = Log((Sqr(-X * X + 1) + 1) / X)
Inverse Hyperbolic Cosecant HArccosec(X) = Log((Sgn(X) * Sqr(X * X + 1) + 1) / X)
Inverse Hyperbolic Cotangent HArccotan(X) = Log((X + 1) / (X – 1)) / 2
Logarithm to base N LogN(X) = Log(X) / Log(N)
Aar