تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في عمل Loop في CheckedListBox ثم حفظها في جدول SQL صالح عبدالله 3 445 16-10-23, 01:05 AM
آخر رد: صالح عبدالله
  مساعده في تشغيل اكثرمن فورم في وقت واحد maherhaddaf 5 527 19-07-23, 03:28 PM
آخر رد: Taha Okla
  مساعده في كود ترحيل البيانات الى اكسل من داتا قرايد فيو maherhaddaf 1 618 27-06-23, 08:03 PM
آخر رد: Shade0001
Question [VB.NET] مساعده في طريقه الاتصال بالسيرفر ايهما افضل Àhmedsaif500 0 297 10-04-23, 09:45 AM
آخر رد: Àhmedsaif500
  مساعده لوسمحتوا mahmoudabdelshafy1 3 528 16-03-23, 02:45 AM
آخر رد: mahmoudabdelshafy1
  [VB.NET] بالله عليكم مساعده عايز اقفل البرنامج بخصوص عمل اذن صرف اكسس وفيجوال 2013 hanyeltnen 7 1,888 04-02-23, 10:36 AM
آخر رد: hanyeltnen
  ممكن مساعده malekmohamed155 0 365 29-01-23, 10:48 PM
آخر رد: malekmohamed155
  [VB.NET] مساعده بسيطه في Dtatable Àhmedsaif500 0 335 06-01-23, 12:18 AM
آخر رد: Àhmedsaif500
  محتاج مساعده بسيطه مع اداه Treevieewer Àhmedsaif500 2 611 04-12-22, 02:39 PM
آخر رد: Àhmedsaif500
  [VB.NET] مساعده في اداة treeviwer Àhmedsaif500 0 330 24-11-22, 09:36 AM
آخر رد: Àhmedsaif500

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


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