منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] المتغيرات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] المتغيرات (/showthread.php?tid=32080)

المتغيرات - bakriano30@yahoo.com - 12-11-19

احتاج الي كود متغير يأخذ قيمته من تكست بوكس بمعني  الشرح علي هذا الكود اريد عند وضع رقم 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


RE: المتغيرات - AbdoDabak - 12-11-19

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

RE: المتغيرات - 3booody - 12-11-19

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

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

كود :
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


RE: المتغيرات - AbdoDabak - 12-11-19

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 
اخي تفضل الكود عحسب ما فهمت منك من الرد الاول

RE: المتغيرات - bakriano30@yahoo.com - 12-11-19

(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 
اخي تفضل الكود عحسب ما فهمت منك من الرد الاول
طريقه صدقنا عبودي و طريقه صديقنا عبده تظهر هذا الخطاء

RE: المتغيرات - 3booody - 12-11-19

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



كود :
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


RE: المتغيرات - AbdoDabak - 12-11-19

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 
اخي جرب هالكود اكتب في التكست بوكس الاول

RE: المتغيرات - bakriano30@yahoo.com - 12-11-19

(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 
اخي جرب هالكود اكتب في التكست بوكس الاول
شكرا لكم جميعا تم الامربن بنجاح