+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعده في كود loop number (/showthread.php?tid=34532)
مساعده في كود loop number - dubai.eig - 30-04-20
السلام عليكم ورحمه الله
محتاج مساعده في كود loop
اريد اذا عندي كمثال رقم 100 في textbox
عند الضغط على ال Button يزيد الرقم ليصبح 200
والضغط مره اخرى يزيد الرقم الى 300
PHP كود :
For i As Integer = 100 To 200
MsgBox(i)
Next
هذا الكود بس موب ضابط
محتاج من كل ضغطه يزيد الرقم 100 ومن ثم 200 ومن تم 300 وهكذا
بارك الله فيكم
وشكرا
RE: مساعده في كود loop number - ابراهيم ايبو - 30-04-20
السلام عليكم اخي الكريم 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 SubRE: مساعده في كود loop number - dubai.eig - 30-04-20
(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()