الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

حروف تصنيف ديوي العشري المتقطعة (ي م ط ) هل لها حل ؟!

بدأه المهنا في 9 يوليو 2014 · 1 رد · 843 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

 إستطعت والحمد لله توليد رقم التصنيف و بقي حروف التصنيف قلت أستفسر منكم ممكن تفيدوني 


 


حروف تصنيف ديوي العشري له قاعدة محددة وهو أنه مكون من ثلاثة حروف مقطعة 


(أ ب و) أو (م ك ر) أو أي شئ 


 


القاعدة تقول أن هذه الحروف الثلاثة  = الحرف الأول من إسم عائلة المؤلف بدون (ال) + الحرف الأول من الإسم الأول للمؤلف بدون (ال ) +  الحرف الأول من إسم الكتاب بدون (ال)


 


مثلا إسم الكتاب : "الفريق العربي للبرمجة"    و المؤلف : محمد بن حسن القاسم 


إسم عائلة المؤلف     = القاسم الحرف الاول بدون (ال) = ق


الإسم الاول للمؤلف  = محمد الحرف الاول بدون (ال) = م


الإسم الاول للكتاب   = الفريق الحرف الاول بدون (ال) = ف


 


اذا المفروض حروف التصنيف متقطعة


( ق م ف )


 


uWnzkf.jpg


 


 


 


و شكرا للجميع 


 


 


tasiiif.rar

تم تعديل هذه المشاركة بواسطة المهنا في 9 يوليو 2014 في 21:01

#2

هذا الحل من منتدى مجاور فلصاحبه كل الشكر والعرفان 

 


ضع Button وإثنان TextBox وواحد Label بنفس التريب الذي موضوعك

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim t1, t2, t3 As Char

    Dim s() As String = Me.TextBox2.Text.Split
    t1 = If(s(s.Length - 1).StartsWith("ال"), s(s.Length - 1)(2), s(s.Length - 1)(0))
    t2 = If(Me.TextBox2.Text.StartsWith("ال"), Me.TextBox2.Text(2), Me.TextBox2.Text(0))
    t3 = If(Me.TextBox1.Text.StartsWith("ال"), Me.TextBox1.Text(2), Me.TextBox1.Text(0))

    Me.Label1.Text = t1 & " " & t2 & " " & t3
End Sub

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…