لوحة الاعلانات | |
الجمعة أبريل 10, 2015 6:16 pm | المشاركة رقم: | |||||||||||
| موضوع: تطبيقات عددية - تطبيق لحساب n!: الجمعة أبريل 10, 2015 6:16 pm تطبيقات عددية - تطبيق لحساب n!: تطبيق لحساب n!: 1- ابدأ بمشروع جديد. 2- ضع خانتي نص، وأداتي عنوان وزر أوامر. 3- صمم واجهة البرنامج كما يلي: 4- اكتب الشفرة التالية في الحدث Command1_Click: [ltr]Dim n As Integer[/ltr] [ltr]Dim i As Integer[/ltr] [ltr]Dim s As Long[/ltr] [ltr]s = 1[/ltr] [ltr]n = Val(Text1.Text)[/ltr] [ltr]For i = 1 To n[/ltr] [ltr] s = s * i[/ltr] [ltr]Next i[/ltr] [ltr]Text2.Text = s[/ltr] 5- نفذ التطبيق، واختبره من أجل مجموعة من الأعداد. ملاحظة: لقد استخدمنا الحلقة For في الشفرة السابقة لحساب العاملي لعدد ما. عيوب البرنامج: 1- يقبل هذا البرنامج إدخال الأحرف، في حين يجب أن لايقبل إلا الأرقام. 2- يرمي هذا البرنامج خطأً عند إدخال عدد أكبر من 12. الحلول: 1- لحل مشكلة قبول إدخال الأحرف قم بإضافة الشفرة التالية في الحدث Text1_KeyPress: [ltr]If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then[/ltr] [ltr] KeyAscii = 0[/ltr] [ltr]End If[/ltr] الرقم 8 في جدول الآسكي يقابل مفتاح الحذف BackSpace. 2- أما بالنسبة لمشكلة الخطأ الذي سيحدث في البرنامج عند محاولة حساب العاملي لعدد أكبر من 12 فيمكن حلها بإضافة بعض الأسطر إلى شفرة حساب العاملي بحيث تصبح على الشكل: [ltr]Dim n As Integer[/ltr] [ltr]Dim i As Integer[/ltr] [ltr]Dim s As Long[/ltr] [ltr]s = 1[/ltr] [ltr]n = Val(Text1.Text)[/ltr] [ltr]IF n > 12 Then[/ltr] [ltr] MsgBox "العدد كبير، لايمكن حساب العاملي"[/ltr] [ltr]Else[/ltr] [ltr]For i = 1 To n[/ltr] [ltr] s = s * i[/ltr] [ltr]Next i[/ltr] [ltr]Text2.Text = s[/ltr] [ltr]End If [/ltr] الإضافة تظهر بالأسود العريض.
| |||||||||||
الإشارات المرجعية |
الذين يشاهدون الموضوع الان :37 ( الأعضاء 6 والزوار 31) | |
|