منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

الصفحات : 1 2 3

PHP كود :

Label5.Text = FormatNumber(v * 79500, 0) 

الصفر الاخير اللي الكود يشير لعدد ارقام الكسر العشري، وبما انه 0 فيعني عدم ظهور ارقام عشريه

PHP كود :

) Expected 

(22-09-17, 12:55 AM)Shafaga كتب : [ -> ]
PHP كود :

) Expected

وضح اخى.............

Label5.Text = (v * 79500 , 0)
عند اشاره الماوس علي الفاصله (,) يظهر
( ) Expected)
ووضع تحت الفاصله خط يشابه المد
͠

تاكد من الكود اللي في مشاركتي

انت في الاول تريد الفاصلة العشريه
ثم طلبت الغائها
ثم في الاخير طلب تنسيق الارقام

اعذرني اخي انا مبتدئ ومابعرف شي وانا ماطلبت الفاصله العشريه انا طلبت تقليل الارقام بعدها وبعدين قررت الغيها خالص واتمني تفيدني بتنسيق الارقام

السلام عليكم و رحمة الله و بركاته
جرب التنسيق بهذا الشكل

PHP كود :

           Label5.Text = String.Format("{0:#,##0.000}", v) 

(21-09-17, 11:54 PM)Shafaga كتب : [ -> ]اهلا بيكم شباب انا جديد ف المنتدي واتمني تساعدوني في المشكله دي
انا مبتدئ ف البرنامج
عندي ف الform فيها Textbox و Button و Label
بحط قيمه رقميه ف ال Textbox وال Button وظيفتها قسمه القيمه الل ف ال Textbox واظهار النتيجه ف الLabel ف عاوز اخلي النتيجه تظهر بعدد ارقام عشريه معينه
عشان لما احط قيمه وادوس ع الbutton بيظهرلي الرقم وفيه ارقام عشريه كتير اوي

كود :

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Label6.Text = TextBox3.Text / 79500 End Sub
شكرا مقدما

(22-09-17, 12:06 AM)Shafaga كتب : [ -> ]مشكور سؤال اخير بس لو عايز اخليها من غير ارقام عشريه خالص اعمل ايه ؟

(22-09-17, 12:44 AM)Shafaga كتب : [ -> ]مشكور اخي .. هل في طريقة اخلي الناتج ف الlabel يتقسم 1.000.000.000.000 بحيث يسهل قراءته ؟

وضعت لك الحل في هذه المشاركة، لكن انت ما ركزت على اللي ان كتبه لك

(22-09-17, 12:48 AM)أبو نوره كتب : [ -> ]
PHP كود :

Label5.Text = FormatNumber(v * 79500, 0)

الصفر الاخير اللي الكود يشير لعدد ارقام الكسر العشري، وبما انه 0 فيعني عدم ظهور ارقام عشريه

اكتب الشفرة التالية:

كود :

   Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

        If TextBox1.Text = "0" Then

            TextBox1.Clear()

        Else

            Select Case e.KeyChar

                Case "0" To "9", ControlChars.Back, Chr(Keys.Space)

                    e.Handled = False

                Case Else

                    e.Handled = True

            End Select

        End If

    End Sub

End Class

اذا اردت عدم ظهور الكسور في النتيجة اكتب الشفرة التالية:
)Label6.Text =CInt( TextBox3.Text / 79500

السلام عليكم
اريد كود لالغاء الارقام بعد الفاصلة العشرية وذلك عند التحويل لنسب مئوية وخاصة اثناء تحليل البيانات باستخدام pivote table

الصفحات : 1 2 3

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أبو نوره

Shafaga

أبو نوره

Shafaga

أبو نوره

Shafaga

ابو ليلى

أبو نوره

alsouf

muhammad_nasr