المجموعة السادسة فيجوال بيزيك

Admin 18/4/2007, 6:19 pm

أولاً التوابع المعرفة(Function):

الهدف منها: تجب تكرار الأقسام التي تشابه بعضها بعضاً في البرنامج الرئيسي.
• أهم ما يميز التابع المعرف هو عدم إدخال المعطيات فيه وعدم إخراج النتائج ولا حتى حجز للأشعة المستخدمة حيث أنه يعتبر نموذجاً للقياس وليس للعمل الفعلي.د
• المتحولات التي تدخل فيه هي متحولات إدخال، أما متحولات الإخراج فهي اسم التابع فقط.
• الناتج عن التابع المعرف وحيد.
• نستدعي التابع المعرف بذكر اسمه فقط مع أسماء متحولات الدخل.
• يمكن استخدام التابع المعرف بأي علاقة رياضية صغيرة كانت أو كبيرة.
• من خلال استدعاء تابع معرف يمكن استدعاء تابع معرف آخر.
• أسماء المتحولات الواردة في التابع المعرف مستقلة تماماً عن تلك الواردة في البرنامج الرئيسي.
• يتم ترتيب المتحولات أثناء استدعاء التابع المعرف تماماً كما تم ترتيبها أثناء كتابة التابع المعرف.
• يتم كتابة التابع المعرف ضمن الكود العام (general) للبرنامج.
• الشكل النظري:
Function funName(.,.,.,.,.,.,.)
Statement
funName=value
End Function

مثال لكتابة تابع لحساب أكبر العددين نكتب العبارات التالية:
Function max(a, b)
If a > b Then
max = a
Else
max = b
End If
End Function

مثال11:
1- عرف تابع باسم NMaxلإيجاد رقم أكبر عدد في الشعاع Z(n).
2- تعطى إحداثيات N نقطة يطلب تحديد رقم النقطة التي مجموع مسافات بقية النقاط عنها أكبر ما يمكن.

Dim n
Function nmax(z(), n)
nmax = 1
Max = z(1)
For i = 2 To n
If z(i) > Max Then Max = z(i): nmax = i
Next i
End Function

Private Sub Command1_Click()
ReDim x(n), y(n), d(n)
For i = 1 To n
x(i) = Val(g1.TextMatrix(i, 1))
y(i) = Val(g1.TextMatrix(i, 2))
Next i
For i = 1 To n
s = 0
For j = 1 To n
s = s + Sqr((x(i) - x(j)) ^ 2 + (y(i) - y(j)) ^ 2)
Next j
d(i) = s
Next i
nomber = nmax(d(), n)
Text2.Text = nomber
End Sub

Private Sub Command2_Click()
c = MsgBox("هل تريد الخروج فعلاً", 4, "خروج")
If c = 6 Then End
End Sub

Private Sub Form_Load()
g1.TextMatrix(0, 0) = "الرقم"
g1.TextMatrix(0, 1) = "X(i)"
g1.TextMatrix(0, 2) = "Y(i)"
For i = 0 To 2
g1.ColAlignment(i) = 3
Next i
End Sub

Private Sub g1_Click()
g1.Text = ""
End Sub

Private Sub g1_KeyPress(KeyAscii As Integer)
g1.Text = g1.Text + Chr(KeyAscii)
End Sub

Private Sub Text1_Change()
n = Val(Text1.Text)
g1.Rows = n + 1
For i = 1 To n
g1.TextMatrix(i, 0) = i
Next i
End Sub

ثانياً البرامج الجزئية:(Sub)

التابع المعرف يعطي ناتج وحيد في حين أن البرنامج الجزئي يعطي أكثر من ناتج.
يتم استدعاء التابع بذكر اسمه فقط من متحولات الدخل، في حين يتم استدعاء البرنامج الجزئي بواسطة التعليمة Call.
يمكن إدراج اسم التابع المعرف ضمن العلاقات الرياضية في حين لا يمكن إدراج البرنامج الجزئي ضمنها.
يمكن إدراج المتحولات في التابع المعرف هي متحولات إدخال بينما المتحولات في البرنامج الجزئي هي متحولات إدخال وإخراج(والتي يجب ذكرها بين قوسين في صيغة البرنامج وفي عملية الاستدعاء).
في البرنامج الجزئي كما في التابع المعرف يجب عدم قراءة المعطيات وعدم طباعة النتائج وعدم حجز الأشعة.
مثال12:
اكتب برنامج جزئي باسم limit لإيجاد أكبر وأصغر قيمة في الشعاع W(p).
تعطى إحداثيات N نقطة ويطلب إيجاد مساحة أصغر مستطيل أضلاعه توازي المحاور الإحداثية ويحتوي جميع النقاط.
ملاحظة سوف نعرض الكود للبرنامج الجزئي ولزر حساب فقط.

Sub limit(w(), p, wmax, wmin)
wmax = w(1)
wmin = w(1)
For i = 2 To n
If w(i) > wmax Then wmax = w(i)
If w(i) < wmin Then wmin = w(i)
Next i
End Sub

Private Sub Command1_Click()
ReDim x(n), y(n), d(n)
For i = 1 To n
x(i) = Val(g1.TextMatrix(i, 1))
y(i) = Val(g1.TextMatrix(i, 2))
Next i
Call limit(x(), n, xmax, xmin)
Call limit(y(), n, ymax, ymin)
s = (xmax - xmin) * (ymax - ymin)
Text2.Text = s
End Sub

تمرين: حاول كتابة برنامج جزئي لترتيب عناصر شعاع تصاعدياً أو تنازلياً، وكمساعدة يحتاج هذا البرنامج لحلقتين.