تشخیص اینکه یک عدد منفی هست یا مثبت

[nader.golab]

سلام به دوستان.
من می خوام برنامه چک کنه که یک عدد منفیه یا مثبت.
ممنون از دوستان.

[roxe77]

If Val(Textbox1.Text)>0 Then
Msgbox("Mosbat")
End If
If Val(Textbox1.Text)<0 Then
Msgbox("Manfi")
End If

[مرتضی تقدمی]

سلام
واقعا مشکل شما همین بود؟!

[nader.golab]

عزر می خوام منظورم تابعی هست برا تشخیص؟؟
این رو می دونستم.

[roxe77]

Function CheckNeg(ByVal x As Integer) As String
If x < 0 Then
Return "Manfi"
End If
If x > 0 Then
Return "Mosbat"
End If
If x = 0 Then
Return "Zero"
End If
End Function

[roxe77]

ساده ترین تابعی که میشه نوشت !!

[Mani_rf]

تابع Math.Sign این کار را انجام می دهد.

[مرتضی تقدمی]

تابع Math.Sign این کار را انجام می دهد.


فکر کنم منظور دوستمون این تابع بود.
موفق باشید