08-11-17, 06:27 PM
(آخر تعديل لهذه المشاركة : 08-11-17, 06:37 PM {2} بواسطة silverlight.)
البروجرس بار يحتاج الي عداد
ثم و بناء علي هذا العداد يتم تشغيل البروجرس بار
في حالتك هنا لا يوجد هذا العداد
والحل يكمن في استخدام Stopwatch Class بحيث تستخدمه كعداد للبروجرس بار
و من خلال ذلك يتم تنفيذ أمر معين
أما لو كان لديك أكثر من أمر تريد تنفيذه هنا الأمر يصبخ مختلف قليلا
حيث هنا تبني مصفوفة تنفذ من خلالها الأوامر
ثم تستخدم عدد الأوامر في المصفوفة كعداد للبروجرس بار
الكود التالي سيوضح لك كيف تقرأ مصفوفة باستخدام البروجرس بار
ولتنفيذ الكود
افتح مشروع تجريبي
ضع علي الفورم تكست بوكس و باتون و بروجرس بار
واكتب الكود بالشكل التالي
الكود مثال توضيحي فقط
عموما في حالتك هنا غالبا تنفيذ الكود قد لا يأحذ ثانية او ثواني أو أجزاء من الثانية
وبالتالي انت لا تحتاج بروجورس بار
بلاش تعقد برامجك بما لا تحتاجه هذه البرامج
ثم و بناء علي هذا العداد يتم تشغيل البروجرس بار
في حالتك هنا لا يوجد هذا العداد
والحل يكمن في استخدام Stopwatch Class بحيث تستخدمه كعداد للبروجرس بار
و من خلال ذلك يتم تنفيذ أمر معين
أما لو كان لديك أكثر من أمر تريد تنفيذه هنا الأمر يصبخ مختلف قليلا
حيث هنا تبني مصفوفة تنفذ من خلالها الأوامر
ثم تستخدم عدد الأوامر في المصفوفة كعداد للبروجرس بار
الكود التالي سيوضح لك كيف تقرأ مصفوفة باستخدام البروجرس بار
ولتنفيذ الكود
افتح مشروع تجريبي
ضع علي الفورم تكست بوكس و باتون و بروجرس بار
واكتب الكود بالشكل التالي
الكود مثال توضيحي فقط
PHP كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.TextBox1.Clear()
Dim bytes As Byte() = New Byte() {100, 200, 220, 230, 240, 250, 110, 11, 15, 200, 220, 230, 10, 200, 220, 210, 230, 110, 111, 112, 113, 114, 13, 15}
Dim Values As Byte() = New Byte(bytes.Length - 1) {}
Dim value As Byte = Nothing
Dim s As String = ""
Dim i As Integer = 0
Me.ProgressBar1.Maximum = bytes.Length
Me.ProgressBar1.Minimum = 1
Me.ProgressBar1.Value = 1
While i < bytes.Length
' Synchronization read data
value = bytes(i)
Values(i) = value
' Synchronization write data
If Values IsNot Nothing Then
s += Values(i).ToString
s += Environment.NewLine
End If
Me.ProgressBar1.PerformStep()
ListBox1.Items.Add(value)
i += 1
End While
End Sub
وبالتالي انت لا تحتاج بروجورس بار
بلاش تعقد برامجك بما لا تحتاجه هذه البرامج
Retired

