منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
عدد الارقام العشريه ف الLabel - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : عدد الارقام العشريه ف الLabel (/showthread.php?tid=21829)

الصفحات: 1 2 3


عدد الارقام العشريه ف الLabel - Shafaga - 21-09-17

اهلا بيكم شباب انا جديد ف المنتدي واتمني تساعدوني في المشكله دي
انا مبتدئ ف البرنامج Smile
عندي ف ال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
شكرا مقدما


RE: عدد الارقام العشريه ف الLabel - أبو نوره - 22-09-17

مرحبا اخى

PHP كود :
dim v As Double=val(TextBox3.Text)
if 
v>0 then
    Label6
.Text FormatNumber79500 )
End if 



RE: عدد الارقام العشريه ف الLabel - Shafaga - 22-09-17

اعذرني اخي انا مبتدئ احط الكود ده اسفل Button2_Click ؟


RE: عدد الارقام العشريه ف الLabel - أبو نوره - 22-09-17

مرحبا اخى

PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
    dim v 
As Double=val(TextBox3.Text)
    if 
v>0 then
        Label6
.Text FormatNumber79500 )
    
End if
End Sub 



RE: عدد الارقام العشريه ف الLabel - Shafaga - 22-09-17

مشكور سؤال اخير بس لو عايز اخليها من غير ارقام عشريه خالص اعمل ايه ؟


RE: عدد الارقام العشريه ف الLabel - Shafaga - 22-09-17

ممكن توضيح اخي ؟


RE: عدد الارقام العشريه ف الLabel - أبو نوره - 22-09-17

PHP كود :
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
    dim v 
As Double=val(TextBox3.Text)
 
   if v>0 then
        Label6
.Text = ( 79500 )
 
   End if
End Sub 



RE: عدد الارقام العشريه ف الLabel - Shafaga - 22-09-17

ممكن اتواصل معك لان عندي اسأله محتاج اجابات ليها افادك الله


RE: عدد الارقام العشريه ف الLabel - أبو نوره - 22-09-17

ممكن التواصل هنا ليستفيد الجميع
ضع اسالتك والكل حيساعد


RE: عدد الارقام العشريه ف الLabel - Shafaga - 22-09-17

طيب لو حابب اخلي الtextbox يقبل ارقام فقط و كمان مايقبل دخول الرقم 0 كأول رقم