السلام عليكم ورحمة الله:
اريد كود يمنع الفيجوال بيسك من تقريب الاعداد الطويله
مثال
Private Sub Command1_Click() Dim A As Double A = (8526 / 1024) / 1024 Print A End Sub
سوف يطبع العدد التالي:
اقتباس8.1310272216796E-03
انا اريده ان يطبع العدد بدون تقريب:
اقتباس0.0081310272216796
((رحلة العودة الى العالم الافتراضي قد بدأت))
وعليكم السلام ورحمة الله
اولا يجب تغيير من نوع لونج الى دبل ومن ثم استخدام الفرمات لذلك
Private Sub Command1_Click() Dim A As Double, vStr As String A = (8526 / 1024) / 1024 vStr = "#0." & String(15, "0") Print Format(A, vStr) End Sub
شارك معنا في (عمل مشاريع برمجيه بمشاركة جميع الأعضاء هنا, مشاريع برمجية كاملة)
من سجن عكا وطلعــت جنـازة...
محمد جمجوم و فؤاد حجـازيجازي عليهم يا شعبــي جازي...المندوب السامي وربعه عموما
محمد جمجوم ومع عطا الزير...فؤاد حجـــــــــازي عز الذخيـره
يمكنك تعديل الكود كالتالي:
Print Format(A, "0.00000000000000000")
الله في عون العبد ما كان العبد في عون أخيه
هذا الموضوع مغلق.