السلام عليكم ورحمه الله
محتاج مساعده في كود loop
اريد اذا عندي كمثال رقم 100 في textbox
عند الضغط على ال Button يزيد الرقم ليصبح 200
والضغط مره اخرى يزيد الرقم الى 300
PHP كود :
For i As Integer = 100 To 200
MsgBox(i)
Next
هذا الكود بس موب ضابط
محتاج من كل ضغطه يزيد الرقم 100 ومن ثم 200 ومن تم 300 وهكذا
بارك الله فيكم
وشكرا
السلام عليكم اخي الكريم 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
(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()