كيفية إنشاء مؤشرات الترابط في 2005 Visual Basic أو Visual Basic.NET

ملخص

توضح هذه المقالة كيفية إنشاء مؤشرات الترابط في أحد تطبيقات Microsoft Visual Basic 2005 Windows أو Microsoft Visual Basic.NET. توفر مساحة الاسم System.Threading الفئات التي يجب عليك أن تعمل مع مؤشرات الترابط.

متطلبات

توضح القائمة التالية الأجهزة الموصى بها برامج البنية الأساسية للشبكة وحزم الخدمات التي تحتاجها:

  • نظام التشغيل Microsoft Windows 2000 أو Microsoft Windows XP
  • Microsoft Visual Basic.NET أو Microsoft Visual Basic 2005
تفترض هذه المقالة أنك معتاد على المواضيع التالية:

  • برمجة.NET في Visual Basic أو Visual Basic 2005 برمجة
  • بيئة التطوير المتكاملة (IDE) في Visual Studio 2005 أو visual Studio.NET
  • الإلمام العام بالمفوضين ومؤشر الترابط
  • إتقان عام 2005 Visual Basic أو Visual Basic.NET

إنشاء تطبيق Visual Basic.NET أو Visual Basic 2005 مع مؤشرات الترابط

  1. بدء تشغيل Microsoft Visual Studio.NET أو Microsoft Visual Studio 2005.
  2. إنشاء مشروع تطبيق Windows Visual Basic جديد باسم ثريدويناب.
  3. إضافة عنصر تحكم زر إلى النموذج. الزر يسمى Button1 افتراضياً.
  4. إضافة مكون ProgressBar إلى النموذج. يسمى شريط التقدم ProgressBar1 بشكل افتراضي.
  5. انقر نقراً مزدوجاً فوق النموذج ومن ثم انقر فوق عرض التعليمات البرمجية.
  6. إضافة العبارة التالية إلى بداية الملف:
    Imports System.Threading
  7. إضافة معالج أحداث انقر فوق التالي ل Button1:
    Private Sub Button1_Click( _    ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click

    MessageBox.Show("This is the main thread")
    End Sub

  8. إضافة المتغير التالي إلى فئة Form1 :
    Private trd As Thread
  9. أضف الأسلوب التالي إلى الفئة Form1 :
    Private Sub ThreadTask()    Dim stp As Integer
    Dim newval As Integer
    Dim rnd As New Random()

    Do
    stp = ProgressBar1.Step * rnd.Next(-1, 2)
    newval = ProgressBar1.Value + stp
    If newval > ProgressBar1.Maximum Then
    newval = ProgressBar1.Maximum
    ElseIf newval < ProgressBar1.Minimum Then
    newval = ProgressBar1.Minimum
    End If

    ProgressBar1.Value = newval

    Thread.Sleep(100)
    Loop
    End Sub

    ملاحظة: هذا هو الرمز الذي يشكل أساسا لمؤشر الترابط. هذا الرمز الﻻنهائي تكرار ذلك عشوائياً زيادة أو إنقاص القيمة في ProgressBar1 ومن ثم ينتظر 100 مللي ثانية قبل أن يستمر.
  10. إضافة معالج الحدث Load التالية ل Form1. هذه التعليمة البرمجية إنشاء مؤشر ترابط جديد يجعل مؤشر الترابط مؤشر ترابط خلفية وثم بدء تشغيل مؤشر الترابط.
    Private Sub Form1_Load( _    ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles MyBase.Load

    trd = New Thread(AddressOf ThreadTask)
    trd.IsBackground = True
    trd.Start()
    End Sub

تحقق من أنه يعمل

  1. بناء وتشغيل التطبيق. لاحظ أن تغيير القيمة في شريط التقدم عشوائياً. وهذا مؤشر ترابط جديد في العملية.
  2. أن ندلل على أن مؤشر الترابط الرئيسي مستقلة عن مؤشر ترابط يقوم بتغيير قيمة ProgressBar ، انقر فوق الزر في النموذج. مربع رسالة يعرض الرسالة التالية:
    This is the main thread

    انتظار الإدخال. لاحظ أن القيمة الموجودة في شريط التقدم يتغير باستمرار.

استكشاف الأخطاء وإصلاحها

في تطبيقات أكثر تعقيداً، تأكد من مزامنة مؤشرات الترابط المتعددة عند الوصول إلى متغيرات مشتركة. لمزيد من المعلومات، راجع بيان SyncLock والمواضيع ذات الصلة في وثائق Visual Basic التعليمات عبر إنترنت.
خصائص

رقم الموضوع: 315577 - آخر مراجعة: 19‏/01‏/2017 - المراجعة: 1

تعليقات