السلام عليكم
انا عندي مشروع فيه مربع نص
فيه هذي الارقام 12345 طيب
مجموع 1 + 2 + 3 + 4 + 5 = 15
طيب كيف اجعل الزر اذا ضغطت عليه يجمع الارقام الي في التكست بوكس و يعطيني الناتج في تكست ثاني
ملاحظة : text1.text= "12345"
يعني كل الارقام في مربع واحد و ليست كل رقم في مربع
ارجوا ان القا حل انا سالت واحد من اصحابي المبرمجين قال لي لا يمكن
و شكرا
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
السلام عليكم ورحمة الله وبركاته
لقد قمت بصنع لك مثال لما تريده وهو يقوم بمعرفة اولا اذا كان ما تم ادخاله في الـ TextBox ارقام , فإذا كان ارقام يتم اجراء العمليه الحسابيه عليه وهي >>>يقوم بمعرفة عدد او طول الـمدخل في TextBox وذلك من خلال الداله Len ومن ثم قمت بإنشا دواره من نوع For يتم من خلالها جمع رقم يتلو الاخر واسترجاع ناتج الجمع في المتغير المسمى بـ sum واليك الكود وايضا المثال في المرفق:
If Not IsNumeric(txtNumbers.Text) Then Exit Sub Dim I, sum As Integer For I = 0 To Len(txtNumbers.Text) sum = sum + Val(Mid(txtNumbers.Text, I + 1, 1)) Next I MsgBox sum
بالتوفيق ........
A7med_prof
اقتباسآسف الدخول متقطع هذه القتره
اقتباس[يمين]
.[/يمين]
اخر مواضيعي 2007
االمثال مطبق على موقع بورصه سعودي
.
كيف تستخدم الـ OLE Drag Drop ؟ || سورس كود الفاتوره الذكية || سورس كوود مساعدك في حفظ وتسميع كلمات اللغة الانجليزية.
مواضيع مهمه ومطلوبه بكثره VB6
.
بــرامج ومشــاريع عربيه كامــله {HnHn} والمزيد في قسم برامج الاعضاء || ربط قواعد بيانات اكسس مع الفيجوال بيسك, مادة دراسية كاملة {بنت اليمن}|| المرجع الشامل لجمل SQL ا {GENIUS-IT} || كيفية التعامل مع مكتبة الـ DAO, في الوصول إلى قاعدة بيانات {رمضان} || مثال ريط Visaul Basic 6.0 مع SQL SERVER ا || العمليات التي تجرى على قاعدة البيانات, مثال كامل {بنت اليمن} || تصدير البيانات من الاكسل الي الاكسس بالفيجوال بيسك {HnHn} || البحث في قاعدة البيانات {MANSUR} || قواعد البيانات العلائقية وتقنيات الوصول إليها {عبد الله فتحي} || كيفية أظهار بيانات جدولين بواسطة التاريخ ,,,,,,,.
أخي ربما سؤالك اجابته في أحدى هذه المواضيع فإن لم تجد قم بالبحث وان لم تجد اطرح سؤالك مع وضع عنوان مناسب بحيث ان يكون هذا العنوان دال على محتوى الموضوع فغير ذلك من أكبر الكبائر في المنتدى وسيؤدي الى غلق او حذف موضوعك .
.
</
شكرا جزيلا لك يا اخي
في يوم من الايام قال Matrixyb
" فكر في طريقة حماية لبرامجك و فكر اذا انت واجهتها كيف ممكن تكسرها اذا لقيت طريقة لكسرها دور طريقة حماية اخرى "
هذا الموضوع مغلق.