[bakriano30@yahoo.com]

احتاج الي كود متغير يأخذ قيمته من تكست بوكس بمعني  الشرح علي هذا الكود اريد عند وضع رقم 1 في التكست بوكس 2تتغير قيمه البروجروسر بار 
وعند وضع رقم 1 في التكست بوكس 2 تتغير القيمه التي تحمل متغير ss علي سبيل المثال

كود :

  Dim ss As Integer = TextBox1.Text
Dim aa As Integer = TextBox2.Text
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(aa)
       If ProgressBar1.Value = ss Then
           MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class

[AbdoDabak]

ممكن شرح اكتر ما فهمت المطلوب

[3booody]

السلام عليكم ورحمة الله وبركاته

هي التصريح متغير اكيد لكن حسب ما تضع الحدث المناسب لتغيير القيمة (حسب عملك) و كمثال بسييط لديك حدث تغيير النص التابع للتكست بوكس

كود :

Dim ss As Integer
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       ss = TextBox1.Text
   End Sub

[AbdoDabak]

PHP كود :

Dim ss As Integer = TextBox1.Text
Dim aa As Integer = TextBox2.Text
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(textbox2.text)
       If ProgressBar1.Value = textbox1.text Then
           MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class 


اخي تفضل الكود عحسب ما فهمت منك من الرد الاول

[bakriano30@yahoo.com]

(12-11-19, 06:39 PM)AbdoDabak كتب :

PHP كود :

Dim ss As Integer = TextBox1.Text
Dim aa As Integer = TextBox2.Text
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(textbox2.text)
       If ProgressBar1.Value = textbox1.text Then
           MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class 


اخي تفضل الكود عحسب ما فهمت منك من الرد الاول

طريقه صدقنا عبودي و طريقه صديقنا عبده تظهر هذا الخطاء

[3booody]

أخي سبب هذا الخطأ هو ماممكن تضع قيمة للمتغير وهوا داخل اطار الفئة مباشرة والسبب يتم حفظ القيمة في الذاكرة قبل لحظة انشاء تكست بوكس وقيمته
لكن ممكن  تعطيها قيمة مثل

كود :

Dim aa As Integer = 2

وتغير القيمة حسب الحدث الذي لديك

الكود الذي اعطيتك هو يؤدي غرضك  لاحظ الكود التالي

كود :

Dim ss As Integer = 0
   Dim aa As Integer = 0
   ' Dim ss As Integer = TextBox1.Text'غير ممكن
   Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
       ' ss = TextBox1.Text 'ممكن
       ' aa = TextBox2.Text 'ممكن
       ProgressBar1.Increment(aa)
       If ProgressBar1.Value = ss Then
           MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       ss = TextBox1.Text 'ممكن
   End Sub

   Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       aa = TextBox2.Text 'ممكن
   End Sub

[AbdoDabak]

PHP كود :

  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = textbox1.text Then
timer1.stop 
          MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class 


اخي جرب هالكود اكتب في التكست بوكس الاول

[bakriano30@yahoo.com]

(12-11-19, 07:05 PM)AbdoDabak كتب :

PHP كود :

  Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       ProgressBar1.Increment(1)
       If ProgressBar1.Value = textbox1.text Then
timer1.stop 
          MsgBox("ok")
       End If
       Label1.Text = ProgressBar1.Value

   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Start()

   End Sub
End Class 


اخي جرب هالكود اكتب في التكست بوكس الاول

شكرا لكم جميعا تم الامربن بنجاح