27-04-13, 06:46 AM
(آخر تعديل لهذه المشاركة : 27-04-13, 07:27 AM {2} بواسطة ميثم صالح مهدي.)
الف شكر لك اخي الفاضل
سؤال: كيف يمكن التقريب لأقرب 5 ارقام
|
27-04-13, 06:46 AM
(آخر تعديل لهذه المشاركة : 27-04-13, 07:27 AM {2} بواسطة ميثم صالح مهدي.)
الف شكر لك اخي الفاضل
27-04-13, 06:54 AM
(آخر تعديل لهذه المشاركة : 27-04-13, 07:29 AM {2} بواسطة ميثم صالح مهدي.)
كود : If Text6.Text / 2 < 4 Then وهو عباره عن الحديد وعدد الحديد
27-04-13, 07:18 AM
السلام عليكم
- على حسب فمهي مما قرأته من الردود جرب هذا الكود وضعه داخل كود الزر الذي يقوم بالتنفيذ :- كود : Dim A As Integer - تحياتي .
27-04-13, 07:35 AM
اخي الفاضل vb coder
سأشرح لك الامر كالتالي عندي تكست6 وتكست 8 تكست 8=تكست6 على 2 بشرط الا يقل عن 4 اسياخ فقمت بكتابة هذه الدالة كود : If Text6.Text / 2 < 4 Then لذلك لابد من تقريب اي عدد فردي او اي عدد به كسر الى عدد زوجي 2 ومضاعفاتها اي ان الاسياخ تكون اما 4 او 6 او 8 او 10 او 12 او 14 او 16 الخ فأرجوا اعادة سياغة الكود مرة اخرى وشكرا
27-04-13, 07:56 AM
طيب تعديل على كودك :
كود : Dim A As Integer
27-04-13, 08:00 AM
لسه بيعطي كسور
ولم يعطي مضاعفات الرقم 2
27-04-13, 08:13 AM
كود : Dim A As Double
27-04-13, 08:21 AM
لم يحدث شئ
ولم يقرب لاي رقم عشري او لرقم زوجي
27-04-13, 08:47 AM
قمت ببرمجتها والحمد لله وهذا هو الكود للاستفادة وشكرا لأخواننا
كود : If Val(Text6.Text / 2) < 4 Then
27-04-13, 08:56 AM
أنا كنت . أكتب الردرد من الموبايل والآن من الكمبيوتر . جرب هذا الكود :
كود : Dim A As String |
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
طلب كود توليد ارقام انا احددها | nablion | 3 | 2,381 |
14-09-23, 01:03 AM آخر رد: الحزين اليماني |
|
هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة | gonm64 | 7 | 1,211 |
11-09-22, 02:04 PM آخر رد: مصمم هاوي |
|
سؤال عن نوع قاعدة بيانات | AmR EiSa | 0 | 913 |
04-01-22, 11:10 PM آخر رد: AmR EiSa |
|
[vb6.0] كيف اجعل المستخدم التعديل على الأرقام في text1 فقط ولا يمكن مسحها ؟ | Microformt | 2 | 1,394 |
18-12-21, 01:41 PM آخر رد: اسلام الكبابى |
|
[سؤال] سؤال | Abdo ali | 0 | 996 |
31-05-21, 09:39 PM آخر رد: Abdo ali |
|
ممكن كود منع كتابة ارقام في text | imatawen | 8 | 7,754 |
08-02-21, 08:42 PM آخر رد: abuahmad |
|
[تم الحل] سؤال في الرصيد بعد كل عملية والرصيد الافتتاحي - حركة السيارات | awidan76 | 8 | 3,162 |
16-06-19, 06:14 PM آخر رد: awidan76 |
|
سؤال محيرني | حامد محمد | 4 | 2,575 |
12-02-19, 03:00 AM آخر رد: حامد محمد |
|
سؤال : زر الطباعة في التقرير لا يعمل | mh66 | 5 | 3,679 |
20-11-18, 12:23 PM آخر رد: awidan76 |
|
سؤال عن كود شبكي في فيجوال | thementalist | 1 | 2,082 |
04-09-18, 02:08 AM آخر رد: elgokr |