تقييم الموضوع :
  • 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 نوع
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو التعديل على الدالة المرفقة - الدالة تعيد الرقم -1 new_programer 4 90 20-03-24, 01:18 PM
آخر رد: تركي الحلواني
  ارجو الافادة للضرورة mohamed sabry 1 110 13-01-24, 03:37 AM
آخر رد: Taha Okla
  ارجو المساعدة فى شاشة طباعة الباركود new_programer 10 577 09-01-24, 08:41 PM
آخر رد: new_programer
  المساعدة - في تفعيل نسخة VB 2015 emamtron2014 2 5,102 24-12-23, 05:08 AM
آخر رد: laban
  [نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik dr.programming 6 381 21-12-23, 12:29 AM
آخر رد: dr.programming
  [سؤال] اخوان الاعزاء ارجو مساعدتى في حل عرض بيانات في تقرير كريستال ريبورت nazarakrawi 8 3,907 21-08-23, 11:11 PM
آخر رد: mohamed Matrix
  [VB.NET] مكتبة snmplesnmp alhuraibi 0 254 28-07-23, 04:47 PM
آخر رد: alhuraibi
  [SQL] يوجد لدى خطأبرمجى ارجو المساعدة عاصم النجار 6 503 26-07-23, 05:22 PM
آخر رد: عبد الخالق
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 437 15-07-23, 02:52 PM
آخر رد: أبووسم
  [مشروع] عرض كلمة في مشروعي موجوده في برنامج اخر ؟ mac9 3 1,655 30-03-23, 08:45 PM
آخر رد: sanyor77

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


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