تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعده في كود loop number
#1
السلام عليكم ورحمه الله

محتاج مساعده في كود loop 

اريد اذا عندي كمثال رقم 100 في textbox

عند الضغط على ال Button يزيد الرقم ليصبح 200

والضغط مره اخرى يزيد الرقم الى 300

PHP كود :
   For i As Integer 100 To 200

            MsgBox
(i)
 
       Next 


هذا الكود بس موب ضابط

محتاج من كل ضغطه يزيد الرقم 100  ومن ثم 200  ومن تم 300  وهكذا

بارك الله فيكم

وشكرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم اخي الكريم Dubai.eig
انت لست بحاجة الى اي من  جمل اللوب بما انك تضغط على بوتون وعند كل ضغطة تريد الزيادة بـ 100 فيكفي هذا الكود
مايوجد في مربع النص زد عليه 100


كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox1.Text += 100
 
   End Sub
ولكن اخي مهلا .. هذا الكود من ناحية برمجية ليس صجيجا لان مربع النص نص والزيادة رقم 
ولكن الفيجوال متساهل جدا في هذ المسائل والكود الصحيح يمر بعمليات تجويل من نص الى رقم  ثم اضافة رقم بعدها الاضافة في مربع النص محولا الى نص
والكود يجب ان يكون هكذا 
كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim KK As Integer = Val(TextBox1.Text)
       KK += 100
       TextBox1.Text = KK.ToString()
   End Sub
يبدو اني لم افهم سؤالك من المرة الاولى وعندما اعدت قراءته فهمت طلبك الكود يكون هكذا
نعرف متغير رقمي في التصريحات العامة اي في مستوى خارج البوتون
كود :
  Dim KK As Integer = 100
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox1.Text += KK
       KK += 100
   End Sub
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asemshahen5 , dubai.eig
#3
(30-04-20, 09:17 PM)ابراهيم ايبو كتب : السلام عليكم اخي الكريم Dubai.eig
انت لست بحاجة الى اي من  جمل اللوب بما انك تضغط على بوتون وعند كل ضغطة تريد الزيادة بـ 100 فيكفي هذا الكود
مايوجد في مربع النص زد عليه 100


كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox1.Text += 100
 
   End Sub
ولكن اخي مهلا .. هذا الكود من ناحية برمجية ليس صجيجا لان مربع النص نص والزيادة رقم 
ولكن الفيجوال متساهل جدا في هذ المسائل والكود الصحيح يمر بعمليات تجويل من نص الى رقم  ثم اضافة رقم بعدها الاضافة في مربع النص محولا الى نص
والكود يجب ان يكون هكذا 
كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Dim KK As Integer = Val(TextBox1.Text)
       KK += 100
       TextBox1.Text = KK.ToString()
   End Sub
يبدو اني لم افهم سؤالك من المرة الاولى وعندما اعدت قراءته فهمت طلبك الكود يكون هكذا
نعرف متغير رقمي في التصريحات العامة اي في مستوى خارج البوتون
كود :
  Dim KK As Integer = 100
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       TextBox1.Text += KK
       KK += 100
   End Sub

شكرا لك استاذي 

الكوود ادى الواجب بارك الله فيك

PHP كود :
 Dim KK As Integer Val(TextBox1.Text)
 
      KK += 100
       TextBox1
.Text KK.ToString() 
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعده في الكيبورد في برنامجي alshandodi 5 75 21-05-20, 05:04 AM
آخر رد: DR.YASER
  مساعده في إخفاء Rows alshandodi 9 167 10-05-20, 11:08 PM
آخر رد: سعود
  [VB.NET] محتاج مساعده في ال Chart اليوم السابع 4 101 03-05-20, 01:20 AM
آخر رد: اليوم السابع
Sad [سؤال] بعد اذنكوا مساعده ضروريه بخصوص keybd_event ياريت الرد Moka2621998 0 89 28-04-20, 10:14 AM
آخر رد: Moka2621998
  [سؤال] عايز اعمل LOop على ListBox عاصم النجار 9 232 05-04-20, 08:36 PM
آخر رد: aljzazy
  السلام عليكم لو سمح ممكن مساعده في حل هذي المشكله المشروع حقي على وشك الانتهاء محمد علي 123 1 129 03-04-20, 02:29 PM
آخر رد: هاني المومني
  لو سمح ممكن مساعده في حل هذي المشكله محمد علي 123 2 157 02-04-20, 10:20 PM
آخر رد: محمد علي 123
  السلام عليكم ممكن مساعده معلش ياشباب ؟ modywassemmody 1 95 28-03-20, 06:37 PM
آخر رد: ابراهيم ايبو
  لوسمح مساعده moh123456 1 90 26-03-20, 09:32 PM
آخر رد: aljzazy
  مساعده في حكم اليوم المسعى بعض الاضافات alshandodi 2 112 21-03-20, 08:48 PM
آخر رد: alshandodi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم