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

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

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

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

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

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

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

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






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





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

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

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




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

PHP كود :

Me.Text3.Text = Val(Replace(Text1.Text, ",", "")) * Val(Replace(Text2.Text, ",", "")) 


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

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




جرب

PHP كود :

Private Sub Text1_GotFocus()
    Text1.Text = Replace(Text1.Text, ",", "")
End Sub

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


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

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

المبرمج البسيط كتب :اخي لكن عند ضرب (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]