tajmh.all-forum.net
أهلا وسهلا بزائرتنا الكريمة , وبزائرنا الكريم في منتدى التجمع من اجل الديمقراطية والوحدة في سوريا

نرجو التسجيل في المنتدى لغير المسجلين والدخول والمشاركة المفيدة البناءة ..وشكرا

إدارة المنتدى
المواضيع الأخيرة
» هم اذكياء بالفطرة
29/7/2017, 11:29 am من طرف جبران جمول

» متى ستصحو وزارتي التربية والتعليم العالي
8/7/2017, 5:33 pm من طرف جبران جمول

»  قليلا من الصدق يا محللين
2/7/2017, 7:29 pm من طرف جبران جمول

» امريكا وطبيعة المفاهيم والعقائد السائدة
28/6/2017, 7:59 am من طرف جبران جمول

» فلم خيالي من الواقع
7/6/2017, 4:02 pm من طرف جبران جمول

» مناهجنا
5/6/2017, 8:30 pm من طرف جبران جمول

» اللعب عالمكشوف ... لمن يملك الطرنيب
7/10/2016, 11:43 am من طرف الأمين العام

» خبير أمريكي: "الرواية الرسمية لعمليات سبتمبر الإرهابية مزيفة
13/9/2016, 9:33 am من طرف جبران جمول

» ماذا عن الاله بعل بعض المعلومات
6/8/2016, 12:20 pm من طرف جبران جمول

» سلمية تحارب بالكهرباء بالمياه
12/7/2016, 7:27 pm من طرف جبران جمول

» أسئلة برسم الفقهاء والعلماء فهل من مجيب
12/7/2016, 7:13 pm من طرف جبران جمول

» متى نبتعد عن السلفية في افكارنا .؟
8/7/2016, 11:12 am من طرف جبران جمول

» مبروك لقطر مبروك للخليج
5/8/2015, 6:58 pm من طرف الأمين العام

» ممثل الرئيس في سلمية لحل الأزمة
16/7/2015, 11:07 pm من طرف الأمين العام

» عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
12/7/2015, 8:24 pm من طرف الأمين العام

اللعب عالمكشوف ... لمن يملك الطرنيب

7/10/2016, 11:43 am من طرف الأمين العام

اللعب عالمكشوف ... لمن يملك الطرنيب


بعد ست سنوات من الحرب الطاحنة و التخفي لكل دولة وراء الدعم المقدم لقوى تدعي الحرية اتخذت من الدين سبيلا و أبعدت كل ذي حق كان عن حقه و ذهبت به إلى حيث الإهمال و …

تعاليق: 0

مبروك لقطر مبروك للخليج

5/8/2015, 6:58 pm من طرف الأمين العام

مبروك لقطر مبروك للخليج ....

من كأس النخوة التفخيخية و الهيجان العاهر اشربوا ....
من كأس الحقد و السقاطة و التآمر العربانـي انهلـوا ....

الجيش الحر القطري يعلن عن عزمه لاسقاط الحكم الدكتاتوري …

تعاليق: 0

ممثل الرئيس في سلمية لحل الأزمة

16/7/2015, 11:07 pm من طرف الأمين العام



تعاليق: 0

عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .

12/7/2015, 8:24 pm من طرف الأمين العام

عاجل جدا .... رؤيا نتمنى أن تلقى آذان صاغية .
سلمية الأمان سلمية المحبة هناك من يحاول إثارة فتيل الفتنة و الخراب لهذه المدينة نرجو الحذر الشديد ..
عدة نقاط الرجاء الانتباه إليها بدقة واهتمام شديد و …

تعاليق: 0

ماذا بعد يا صاحب القرار

9/7/2015, 9:41 pm من طرف الأمين العام

ماذا بعد يا صاحب القرار .....
هاهو التلفزيون السوري الرسمي  يفصحُ بما عجزَ عنه الناس  .. ويفضحُ بما لا يقبل الشك عمليات الخطف و القتل والإرهاب الممهنج التي تقوم به أطرافٌ محسوبةٌ على الدولة  همّها …

تعاليق: 0

الشعب يتساءل ......

7/7/2015, 9:54 pm من طرف الأمين العام

بيان :
الشعب يتساءل ......
إننا لا نتكلم في السياسة لان السياسة بأساسها هي علاقة أوجدها الإنسان ليستطيع من خلالها التحكم في سلوك الحيوان و يطوعه لمصلحته لذلك من هنا سايس الإنسان القديم الحمار لكي …

تعاليق: 0


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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  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



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

Admin
Admin

عدد الرسائل : 34
تاريخ التسجيل : 26/03/2007

http://tajmh.all-forum.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى