تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارجو المساعدة في مشروعي - مكتبة بالصور
#1
السلام عليكم ورحمة الله وبركاته

اولا انا ما زلت اتعلم ذاتيا الفيجوال فلا تعتبوا علي العمل Big Grin

ثانيا المشروع عبارة عن برنامج للبحث داخل مكتبة الكترونيا .....

في برنامجي وضعت النوع الرئيسي للكتب في checkbox والنوع الفرعي في listbox ووضعتها في visible=false وذلك عن اختيار النوع الرئيسي من ال checkbox تظهر النوع الفرعي من ال listbox ووضعت اسم الكتاب في listbox ثاني بحيث عند اختيار النوع الفرعي يظهر قائمة باسماء الكتب وعند اختيار اسم الكتاب من القائمة تظهر صورة غلاف الكتاب في picturebox وكذلك معلومات عنه في textbox هذا ما قمت بعمله لكن ما اريده منكم احبتي هو:-

1- اذا كان لدي 1000 صورة و1000 معلومة حول الكتاب وبالتالي 1000 اسم كتاب هل سيصبح حجم البرنامج ثقيل جدا وما رايكم في طريقة ادخال هذا الكم الهائل من اسماء الكتب هل الافضل عن طريق الكود ام عن طريق قاعدة البيانات لاحظوا شكل الكود بالاسفل لكل كتاب
وتخيلوا كيف سيكون ل 1000كتاب
Public Class Form1

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.SelectedItem = "كرة القدم" Then
ListBox2.Visible = True
End If
End Sub

Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
If CheckBox5.Checked Then
ListBox1.Visible = True
End If
End Sub

Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
If ListBox2.SelectedItem = "تطبيق عملي لكرة القدم" Then
PictureBox1.ImageLocation = "C:\Users\مدريدي صامت\Pictures\labpics/magnetic needle 313-6.jpg"

TextBox3.Text = "كتاب من تأليف محمد عدلي عام 1999 به التطبيق العملي بالصور "
TextBox1.Text = "101001"
End If
End Sub
End Class

هل يوجد كود اسهل من هذا واسرع لعمل نفس البحث !!!

2- كيف لي ان ابحث بطرق مختلفة مثلا الطريقة الاولى نفس الطريقة في الاعلى الاختيار والطريقه الثانية بكتابة رقم الكتاب والطريقة الثالثة بكتابة رقم التعريف

3- هل يجب وضع الصور في ملف البرنامج


اترككم مع صور البرنامج



الرد
تم الشكر بواسطة:
#2
الخقيقة الأمر غير واضح قليلا ب النسبة لي هل هي مجرد معلومات عن الكتاب ام انك ستدع المستخدم يقوم بإستعراض محتويات الكتاب كاملا

عموما نصيحتي لك و خاصة أنك تتعامل مع كم ليس ب القليل من الصور تحديدا
ان تستخدم collection و تبني كلاس تضع فيه متغيرات تعبر عن الصفات المشتركة لكل نوع و بالتالي مهما كان اسلوب ادخال البيانات او قرائتها فأنت بذلك تضمن ان كل نوع لديك ستكون بياناته مرتبطة مع بعضها البعض

الافكار كثيرة لقراءة البيانات ممكن تضيفها الي resources مثلا و بذلك تضمن أنها لن تضيع و ممكن تنسخها الي الهارد ديسك مرة واحدة او تتعامل معها كما هي موجودة في Resources او تحتفظ بها في Xaml ثم تقرأها و غالبا ممكن تضع مسارات الملفات في ملفات تكست او xaml و في كل الحالات الأفضل لك أن تضيفها الي Collection قبل أن تضيفها الي ListBox و بالتالي سييصبح سهلا التعامل معها مرة واحدة و عرضها مع بعضها البعض مرة واحدة

شئ أخير انت لست في حاجة الي اكثر من ListBox يمكن أن تستخدم واحدا فقط تضيف له البيانات حسب احتياجك ثم تقوم يإزالة البيانات بعد ان يقوم المستخدم ب الإختيار ثم تقوم بتعبئة البيانات الجديدة لأي اختيار جديد و هكذا
الرد
تم الشكر بواسطة: مدريدي صامت
#3
هذا ما أقصده بإستخدام كلاس للمعلومات و استخدامه مع Collection
و ممكن تضيف له الكثير من المدخلات مثل اللون الذي تريد به ان يتم ظهور البيانات مثلا و نوع الفونت و الكثير من تلك الاشياء

الشكل العام للكلاس سيكون هكذا

كود :
Public Class DataStore
        Public Sub New()
            Me.New(Nothing, Nothing, Nothing, Nothing, CType(Nothing, Image))
        End Sub

        Public Sub New(group As String, author As String, description As String, Additional As String, cover As Image)
            Me.Group = group
            Me.Author = author
            Me.Description = description
            Me.AdditionalData = Additional
            Me.Cover = cover
        End Sub

        Public Group As String
        Public Property Author As String
        Public Property Description As String
        Public Property AdditionalData As String
        Public Property Cover As Image

    End Class

و الكود التالي يوضح كيفية بناء Collection من هذا الكلاس مع كيفية ادخال البيانات الي Collection

كود :
' هنا أنا أضفت بيان واحد فقط الي الكولكشن و بدون صورة
    Private StoreDataList As List(Of DataStore) = New List(Of DataStore) From {New DataStore("Math", "Mohamed Ahmed", "this book talk about", "Additional information comes here", Nothing)}
الرد
تم الشكر بواسطة: مدريدي صامت
#4
مشكور اخي silverlight لا لن يكون هناك استعراض للكتاب ومحتواه فقط صورة غلاف الكتاب

عموما طريقة الكلاس لن تجدي نفعا لن المعلومات ليست متشابهة فمثلا

نوع الكتاب فرع الكتاب اسم الكتاب التعريف الرقم ملحوظه عن الكتاب صورة الغلاف

الرياضة كرة القدم تاريخ كرة القدم 1254 2545 هذا الكتاب من تأليف محمد عدلي book1.png

الرياضة كرة اليد تاريخ كرة اليد 1542 2423 هذا الكتاب من تاليف زيدون الموسوي book2.png



اخي يمكن وضع كلاس فقط للفرع والنوع في حالات بسيطة لكن باقي المعطيات لا يمكن وضعها في كلاس لعدم تشابها


اريد طريقة سهله وكود سهل لجلب المعطيات اللي في الاعلى اذا كان عندي اكثر من 1000 نوع
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ارجو المساعده فى هذا الملف bdwwsyd 9 213 09-06-19, 12:24 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ارجو المساعدة في crystal report 0theghost0 9 589 29-05-19, 03:06 PM
آخر رد: sami4
  أريد تحميل مكتبة أكواد للفجيول ستوديو 2010 PeterGhattas082460 5 179 10-04-19, 11:58 AM
آخر رد: elgokr
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 143 09-04-19, 06:16 PM
آخر رد: حاتمي
  ارجو المساعده فى ظهور هذا الخطأ فى اضافه اصناف للفاتوره خالد كامل1 3 180 09-04-19, 03:22 AM
آخر رد: elgokr
  ارجو التعديل على كودالاستعلام Group By new_programer 3 158 03-04-19, 12:23 AM
آخر رد: elgokr
Thumbs Up سؤال بسيط حول مشغل لايعمل ارجو رد حاتمي 0 129 22-03-19, 12:04 AM
آخر رد: حاتمي
  [VB.NET] كيفية إضافة مكتبة الإكسل في فجوال بيسيك 2015 larbihamri 8 198 19-03-19, 10:35 PM
آخر رد: larbihamri
  المساعدة بعمل ريستور abdulla2 1 119 05-03-19, 01:18 AM
آخر رد: حريف برمجة
  رجاء المساعدة حول الكريستل ربورت محمد خيري 2 183 03-03-19, 10:29 PM
آخر رد: محمد خيري

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


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