منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيفية الإبقاء علي الصيغة 00.00 بالنص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+---- قسم : قسم اسئلة التقارير والطباعة للغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=73)
+---- الموضوع : كيفية الإبقاء علي الصيغة 00.00 بالنص (/showthread.php?tid=8818)

كيفية الإبقاء علي الصيغة 00.00 بالنص - MohamedMNafie - 08-05-13

بعمل برنامج ومحتاج أن أدخل في Text Box القيمة علي هيئة 00.00 وأن يتم إدخالها علي هيئة هذه الصيغة مثلا 01.00 مع العلم بأن في قاعدة البيانات ستدخل علي إنها نص فكيف الوصول لهذا ......ياريت الافادة ..وشكرا .

كيفية الإبقاء علي الصيغة 00.00 بالنص - المبرمج البسيط - 08-05-13

انا ايضا بحاجة الى هكذا طريقة

كيفية الإبقاء علي الصيغة 00.00 بالنص - mr_mgm - 08-05-13

[COLOR="#000080"]السلام عليكم اخي
استخدم الكود التالي
كود :
Text1.Text = Format(Text1, "00.00")

بالتوفيق[/COLOR]

كيفية الإبقاء علي الصيغة 00.00 بالنص - المبرمج البسيط - 08-05-13

اخي العزيز ممكن كود فاصلة الاف

يعني عند كتابه هذا الرقم "1000000"
يضهر هكذا "1,000,000"

كيفية الإبقاء علي الصيغة 00.00 بالنص - @@أبورائد@@ - 09-05-13


السلام عليكم ورحمة الله وبركاته




جرب


PHP كود :
Private Sub Text1_GotFocus()
    Text1.Text = Replace(Text1.Text, ",", "")
End Sub

Private Sub Text1_LostFocus()
    Text1.Text = FormatNumber(Text1.Text, 2)
End Sub 





السلام عليكم ورحمة الله وبركاته

كيفية الإبقاء علي الصيغة 00.00 بالنص - المبرمج البسيط - 09-05-13

اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز

كيفية الإبقاء علي الصيغة 00.00 بالنص - @@أبورائد@@ - 09-05-13

المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز


السلام عليكم ورحمة الله وبركاته






التنسيق لا يستخدم في العمليات الحسابية، هو فقط لتسهيل القراءة على المشاهد





السلام عليكم ورحمة الله وبركاته

كيفية الإبقاء علي الصيغة 00.00 بالنص - @@أبورائد@@ - 09-05-13

المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز


السلام عليكم ورحمة الله وبركاته




ممكن تستخدم هذه الطريقة للتخلص من التنسيق قبل اجراء العملية الحسابية


PHP كود :
Me.Text3.Text = Val(Replace(Text1.Text, ",", "")) * Val(Replace(Text2.Text, ",", "")) 





السلام عليكم ورحمة الله وبركاته

كيفية الإبقاء علي الصيغة 00.00 بالنص - softmail8 - 13-05-13

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




جرب


PHP كود :
Private Sub Text1_GotFocus()
    Text1.Text = Replace(Text1.Text, ",", "")
End Sub

Private Sub Text1_LostFocus()
    Text1.Text = FormatNumber(Text1.Text, 2)
End Sub 





السلام عليكم ورحمة الله وبركاته

--------------------------------------------------------------------
استاذي العزيز : أبورائد حفظة الله
السلام عليكم ورحمة وبركاته
كود جميل بس اريد إضافة كلمة ريال بجانب العدد من اليسار

كيفية الإبقاء علي الصيغة 00.00 بالنص - hsab - 20-06-13

المبرمج البسيط كتب :اخي لكن عند ضرب (1,000,000 * 10) يضهر الناتج ( 10)
أي لا يقوم بأعتماد الاصفار بعد الفوارز

أخى جرب التالى وقم بوضع الأدوات كما بالكود فى الفورم .. هذه مجرد فكرة للإستخدام يمكن تطويعها كما تريد أرجو أن يكون هو المطلوب

[HTML]Private Sub Form_Load()
Text1(0).Text = Format$(Text1(0), "#,##0.00")
Text1(1).Text = Format$(Text1(1), "#,##0.00")
Text3.Locked = True
Text3.BackColor = &H80000000

End Sub
Private Sub Opt1_Click(Index As Integer)
Select Case Index
Case 0
Text3.Text = Format$(CSng(Text1(0) * Text1(1)), "#,##0.00")
Case 1
Text3.Text = Format$(CSng(Text1(0) / Text1(1)), "#,##0.00")
Case 2
Text3.Text = Format$(CSng(Text1(0)) + CSng(Text1(1)), "#,##0.00")
Case 3
Text3.Text = Format$(CSng(Text1(0)) - CSng(Text1(1)), "#,##0.00")
Case Else
Text3.Text = "0.00"
End Select
End Sub
Private Sub Text1_Change(Index As Integer)
Call Form_Load
If Text1(Index).Text = "" Then Exit Sub
Call Opt1_Click(Index)
End Sub
[/HTML]