گرد نمره و به حروف در ویژال بیسیک

[saeedharati]

سلام به همه اساتید من نیاز فوری به این کد دارم میخوام یک نمره را به طور مثال 12.70 رو اول به 12.75 گرد صحیح کند بعد به حروف دوازده ممیز هفتاد و پنج اعلام کنه اگه این کد را صحیح و کامل ارائه کنید ممنون میشم و حاظرم بابتش پول هم پرداخت کنم.

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

به ظور مثال در یک تکس باکس نمره "12.25" تایپ شد و روی دکمه کلیک کرد در تکس دوم به حروف "دوازده ممیز بیست و پنج صدم" نشون داده بشه

البته این کد رو تو ویژال بیسیک نیاز دارم

[mohammadriano]

سلام به همه اساتید من نیاز فوری به این کد دارم میخوام یک نمره را به طور مثال 12.70 رو اول به 12.75 گرد صحیح کند بعد به حروف دوازده ممیز هفتاد و پنج اعلام کنه اگه این کد را صحیح و کامل ارائه کنید ممنون میشم و حاظرم بابتش پول هم پرداخت کنم.

سلام
فلسفه حضور افراد در برنامه نویس تبادل اطلاعات بین افراد هست.
اینجا هیچ شخصی چشم داشت مالی ندارد.

Private Sub Command_Click()
Dim j As Single
If Text.Text - Fix(Text.Text) > 0 Then
j = Text.Text - Fix(Text.Text)
If (j > 0 And j <= 0.25) Then Text2.Text = Fix(Text.Text) + 0.25
If (j > 0.25 And j <= 0.5) Then Text2.Text = Fix(Text.Text) + 0.5
If (j > 0.5 And j <= 0.75) Then Text2.Text = Fix(Text.Text) + 0.75
If (j > 0.75 And j <= 1) Then Text2.Text = Fix(Text.Text) + 1
Else
Text2.Text = Text.Text
End If
End Sub

موفق باشی

[saeedharati]

ممنون ازت mohammadriano (http://barnamenevis.org/member.php?225833-mohammadriano) دمت گرم مردي ، شرمنده واسه به حروفش كدي نداري

[MohammadGh2011]

سلام عليکم

واسه به حروفش كدي نداري
بفرماييد:


موفق باشيد

[saeedharati]

دمت گرم واقعا مرسي

[saeedharati]

يك سوال ديگه من تو يك تكس باكس يك عدد دارم معلوم نيست چند رقم باشد ميخوام آخرين عدد را جدا كنه تو يك تكس باكس ديگه بريزه لطفا كمك كنيد

[mohammadriano]

يك سوال ديگه من تو يك تكس باكس يك عدد دارم معلوم نيست چند رقم باشد ميخوام آخرين عدد را جدا كنه تو يك تكس باكس ديگه بريزه لطفا كمك كنيد

Private Sub Command_Click()
Text2.Text = Right$(Text1.Text, 1)
End Sub

[saeedharati]

شرمنده آيا ميشه گفت تو يك تكس باكس چند كاراكتر وجود دارد

[saeedharati]

شرمنده آقاي mohammadriano (http://barnamenevis.org/member.php?225833-mohammadriano) يك كد گذاشتي براي گرد كردن نمرات آيا اين امكانش هست يك جاشو تغيربديم هركار كردم نشد مي خوام نمرات نيم رو 50 بزنه به طور مثال 19.5 رو 19.50 بنويسه ترو خدا كمكم كنيد بايد امروز تمومش كنم

[mohammadriano]

شرمنده آيا ميشه گفت تو يك تكس باكس چند كاراكتر وجود دارد

dim a as integer
a = len(text1.text)

[mohammadriano]

شرمنده آقاي mohammadriano (http://barnamenevis.org/member.php?225833-mohammadriano) يك كد گذاشتي براي گرد كردن نمرات آيا اين امكانش هست يك جاشو تغيربديم هركار كردم نشد مي خوام نمرات نيم رو 50 بزنه به طور مثال 19.5 رو 19.50 بنويسه ترو خدا كمكم كنيد بايد امروز تمومش كنم

Private Sub Command_Click()
Dim j As Currency
Dim s As String
If Text.Text - Fix(Text.Text) > 0 Then
j = Text.Text - Fix(Text.Text)
If (j > 0 And j <= 0.25) Then Text2.Text = Fix(Text.Text) + 0.25
If (j > 0.25 And j <= 0.5) Then
Text2.Text = Fix(Text.Text) + 0.5
Text2.Text = Text2.Text & "0"
End If
If (j > 0.5 And j <= 0.75) Then Text2.Text = Fix(Text.Text) + 0.75
If (j > 0.75 And j <= 1) Then Text2.Text = Fix(Text.Text) + 1
Else
Text2.Text = Text.Text
End If
End Sub

[saeedharati]

Private Sub Command_Click()
Dim j As Currency
Dim s As String
If Text.Text - Fix(Text.Text) > 0 Then
j = Text.Text - Fix(Text.Text)
If (j > 0 And j <= 0.25) Then Text2.Text = Fix(Text.Text) + 0.25
If (j > 0.25 And j <= 0.5) Then
Text2.Text = Fix(Text.Text) + 0.5
Text2.Text = Text2.Text & "0"
End If
If (j > 0.5 And j <= 0.75) Then Text2.Text = Fix(Text.Text) + 0.75
If (j > 0.75 And j <= 1) Then Text2.Text = Fix(Text.Text) + 1
Else
Text2.Text = Text.Text
End If
End Sub


مرسی واقعا کارت درسته دمت گرم فدات