تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن الاجابه عن الاسئله باسرع وقت ممكن
#1
Thumbs Up 
السؤال الاول : اكتب برنامج بلغة فيجوال بيسك  لإيجاد جميع الاعداد الواقعة بين 1 الى 500 والتي تسمى اعداد ارمسترونج حيث ان عدد  ارمسترونج هو ذلك العدد الذي  مجموع تكعيب منازله يساوي ذلك العدد.
مثال العدد 153   هو ارمسترونج حيث 3*3*3+5*5*5+1*1*1 = 153
 
                                         
السؤال الثاني: اكتب برنامج بلغة فيجوال بيسك لتعريف مصفوفة ثنائية ذات الابعاد 3*3  وإيجاد حاصل مجموع كل صف من صفوفها باستخدام الاقترانات وطباعتها في datagrid.
 
                   
السؤال الثالث: اكتب برنامج بلغة فيجوال بيسك  لقراءة علامات مجموعة من الطلاب وتخزينها في مصفوفة أحادية وإيجاد مجموع العلامات.                                                                                                                                                                                                                                 
 
                                     
السؤال الرابع : : اكتب برنامج بلغة فيجوال بيسك   (مستخدما جمل التكرار وجمل الشرط) لطباعة الشكل التالي                         
*                       *
*                       *
*                      *
*                       *
*     *    *    *   *                           
 
السؤال الخامس : باستخدام اقتران الاستدعاء الذاتي  وجمل التكرار ، قم بقرائة رقم   N  وطباعة ناتج العملية التاليه:                    
[img=302x73]file:///C:/Users/lenovo/AppData/Local/Temp/msohtmlclip1/01/clip_image002.jpg[/img]
 
الرد }}
تم الشكر بواسطة: خالد20 , salim0ham , egy_program
#2
في المرفقات برنامج ايجاد اعداد ارمسترونغ من 1 الى 500 (وذلك حسب الشكل الذي قمت انت بتحديده لاعداد ارمسترونج)


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 75.34 ك ب / التحميلات : 3)
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
#3
كود :
    TextBox1.Text.Clone()
       Dim sum As Double = 0
       Dim H As Integer = DGV.Rows.Count - 1
       Dim A(H) As Integer
       For I As Integer = 0 To H
           A(H) = Val(DGV.Rows(I).Cells("Col1").Value)
           sum = Val(sum) + Val(A(H))
           ListBox1.Items.Add(A(H))
       Next
       TextBox1.Text = sum

جواب السؤال الثالث حيث لدينا داتا جريد فيو سنأخذ منها معلومات الطلاب ونخزنها في مصفوفة احادية ونوجد مجموع المصفوفة ونظهر علامة الطلاب من المصفوفة الى ليست بوكس

بخصوص السؤال الثاني
كود :
     Dim a(2, 2) As Integer
       a(0, 0) = 1
       a(0, 1) = 2
       a(0, 2) = 3

       a(1, 0) = 4
       a(1, 1) = 5
       a(1, 2) = 6

       a(2, 0) = 7
       a(2, 1) = 8
       a(2, 2) = 9
       Dim x As Integer = 0
       Dim y As Integer = 0
       Dim z As Integer = 0

       For i As Integer = 0 To 2
           x = x + a(i, 0)
       Next
       For i As Integer = 0 To 2
           y = y + a(i, 1)
       Next
       For i As Integer = 0 To 2
           z = z + a(i, 2)
       Next
       dgvv.Columns.Add("", "مجموع صفوف 0")
       dgvv.Columns.Add("", "مجموع صفوف 1")
       dgvv.Columns.Add("", "مجموع صفوف 2")
       dgvv.Rows.Add()
       dgvv.Rows(0).Cells(0).Value = x
       dgvv.Rows(0).Cells(1).Value = y
       dgvv.Rows(0).Cells(2).Value = z
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: ابو روضة , ابو روضة , salim0ham , egy_program
#4
بخصوص السؤال الثاني طبعا لا بد من اضافة داتا جريد فيو  وزر نضع فيه الكود وطبعا كما هو معروف Dim a(2, 2) تعتبر مصفوفة 3*3 لان العد يبدأ من 0
اما بخصوص السؤال الخامس لا يوجد صورة وبخصوص السؤال المتبقي احتاج الى توضيح
كود :
       Dim a(2, 2) As Integer
       a(0, 0) = 1
       a(0, 1) = 2
       a(0, 2) = 3

       a(1, 0) = 4
       a(1, 1) = 5
       a(1, 2) = 6

       a(2, 0) = 7
       a(2, 1) = 8
       a(2, 2) = 9
       Dim x As Integer = 0
       Dim y As Integer = 0
       Dim z As Integer = 0

       For i As Integer = 0 To 2
           x = x + a(i, 0)
       Next
       For i As Integer = 0 To 2
           y = y + a(i, 1)
       Next
       For i As Integer = 0 To 2
           z = z + a(i, 2)
       Next
       dgvv.Columns.Add("", "مجموع صفوف 0")
       dgvv.Columns.Add("", "مجموع صفوف 1")
       dgvv.Columns.Add("", "مجموع صفوف 2")
       dgvv.Rows.Add()
       dgvv.Rows(0).Cells(0).Value = x
       dgvv.Rows(0).Cells(1).Value = y
       dgvv.Rows(0).Cells(2).Value = z
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: ابو روضة , salim0ham , egy_program


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل مشكله عدم الحفظ فراس محي 3 483 18-06-22, 09:39 AM
آخر رد: mohamedassim
  ممكن طريقة لتحويل هذا الكود ابو روضة 9 382 10-06-22, 02:21 AM
آخر رد: ابو روضة
  [سؤال] السلام عليكم ممكن رابط تحميل كريستال ريبورت للفيجوال بيسك 2013 حسن الجلب 1 213 27-05-22, 04:58 PM
آخر رد: essawq
  [VB.NET] ممكن حل المسائل الفالصورة دي لاني مش فاهمها مطلوب مني فمقرر الجامعه AhmedRamadan 0 272 24-04-22, 11:12 PM
آخر رد: AhmedRamadan
  ممكن مساعدة في عمل مشغل crazykinko 6 1,740 10-04-22, 02:08 PM
آخر رد: omar dz
Lightbulb [VB.NET] ممكن حد يعمل المشروع النعمان 1 425 24-03-22, 04:17 PM
آخر رد: ابو انس
  ممكن طريقة اضافة باسورد عند انشاء برنامج للقنوات لكي عندما احد يريد ان يدخل الى البرن omar dz 6 1,071 20-03-22, 07:37 PM
آخر رد: omar dz
  السلام عليكم ممكن تصحيح كود جدول مع جدول تم بنجاح ولاكن اريد عمل انتر بين الجدولين ahmedhhh2 5 785 02-02-22, 12:15 AM
آخر رد: ahmedhhh2
  [سؤال] ممكن شرح او رابط افضل طرق عرض البيانات في الداتاجريد و التعامل معها غدير الصليحي 2 1,016 19-01-22, 01:46 AM
آخر رد: رضوان الجماعي
  ممكن برنامج sap المتألق9 4 608 02-01-22, 12:19 AM
آخر رد: aljzazy

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم