السلام عليكم ورحمة الله وبركاته
ازيكم جميعا اخوانى فى المنتدى
لدى سوال حول التكسك بوكس وان شاء الله يكون بسيط
بكل بساطة اريد ان اقوم بتلك المعادلة وهى text1 =5
وقمت بكتابة الكود الاتى فى Command1
text2=val(text1)/60
فتظهر النتيجة هى 8.83
على الرغم من ان النتيجة الفعلية هى 0.083
وكيف اقوم بحفظ تلك النتيجة الصحيحة فى قاعدة البيانات بحيث تظهر صحيحة وليست مضروبة فى 100 كما هو الحال الان
شكرا لكم جميعا
السلام عليكم ورحمة الله وبركاته
فى الاول كنت اعتقد انه سوال بسيط جدااا والان من عدم وجود اى رد ادركت انه سوال صعب جدااااااا
شكرا لمن اطلع على الموضوع
اذا كانت اجابتك هي القسمة فاذا
انظر الاجابة هي :: 8.33333333333333E-02
و اذا اردت التاكد اجعل في text1 60
لتتاكد ان الاجابة هي 1
مع تحيات حسن (مبرمج مبتدا)
تم تعديل هذه المشاركة بواسطة مبرمج مبتدا في 11 مايو 2007 في 13:10
السلام عليكم ورحمة الله
val معناها انه عندما يتم طرح قيمة تكس من قيمة تكست اخرى يحتويان على ارقام لابد من كتابة val قبل التكست للتميز انها قيمة عددية وليست نص
سؤال ليس صعب
الكلمة Val هى دالة تقوم بتحويل النص الى رقم بمعنى ان "5" تفرق عن 5 وذلك لاجراء العمليات الحسابية
اما المشكلة فى النتيجة الخطا
ذلك لان البيسيك يقوم ببعض التحويلا على المتغيرات
والحل قم بتعريف متغير من نوع Currency واجعله وسيط فى العملية
Private Sub Command1_Click() Dim T As Currency T = Val(5 / 60) Text1 = T End Sub
مبارك لشعب تونس 
MsgBox CCur(Val(5 / 60))
نفس السبب الذي قاله حريف ولكن بطريقه اخرى وهي تحويل الناتج الى النوع Currency عن طريق الداله CCur
وذلك للأفاده ,,,,
A7med_prof
تم تعديل هذه المشاركة بواسطة A7med_prof في 11 مايو 2007 في 22:18
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
الأخ الفاضل ...
يمكنك استخدام الصيغة التالية
Private Sub Command1_Click() Text2.Text = Round(Val(Trim(Text1.Text)) / 60, 3) End Sub
شكراً
Nothing is impossible, the word impossible itself says that: I M - Possible
السلام عليكم ورحمة الله
شكرا لكم جميعا واكيد انا فرحان لانى بحس انى مش لوحدى وقت ما بحتاج اى حاجة
والحمد لله فهمت اين كانت المشكلة
هذا الموضوع مغلق.