تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[مشروع] تصميم برنامج تحفيظ قصار السور القرآنية للاطفال
#1
السلام عليكم
 
عودة الى القرآن الكريم
 
مع البرامج التربوية الموجهة للاطفال
 
برنامج تحفيظ  لقصار السور القرآنية
 
الفكرة بسيطة جدا هي عرض قائمة من 10 سور قرانية
لما تختار ... سيظهر نصها بالخط العثماني برواية حفص
ثم تختار من العداد كم مرة تريد سماع الايات
تحتار بداية الاية و نهاية
اي تحدد ما تريد حفظه
 
عندها سيبدا التسميع مع ظهور الاية التي يتم تلاوتها بلون مغاير
 
 
 
 
هناك برنامج سابق للاستاذ سعود
 من هنا
لكن الفكرة تعتمد على التقطيع
و فكرتنا على ان الايات مسبقا هي مقطعة


---  سنعود للشرح لاحقا لمن يريد ----

الملف السورس

اولا حمل ملفات التكست و الاصوات و الخط
و ضعه في ملف bin

.rar   elhadi.rar (الحجم : 1.52 م ب / التحميلات : 102)

حمل ملف البرنامج

.rar   mohafid.rar (الحجم : 159.9 ك ب / التحميلات : 94)




و لكم الحرية في التعديل

فقط الدعاء
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
#2
(20-08-20, 03:36 AM)عبد الهادي بهاب كتب :
السلام عليكم
 
عودة الى القرآن الكريم
 
مع البرامج التربوية الموجهة للاطفال
 
برنامج تحفيظ  لقصار السور القرآنية
 
الفكرة بسيطة جدا هي عرض قائمة من 10 سور قرانية
لما تختار ... سيظهر نصها بالخط العثماني برواية حفص
ثم تختار من العداد كم مرة تريد سماع الايات
تحتار بداية الاية و نهاية
اي تحدد ما تريد حفظه
 
عندها سيبدا التسميع مع ظهور الاية التي يتم تلاوتها بلون مغاير
 
 
 
 
هناك برنامج سابق للاستاذ سعود
 من هنا
لكن الفكرة تعتمد على التقطيع
و فكرتنا على ان الايات مسبقا هي مقطعة


---  سنعود للشرح لاحقا لمن يريد ----

الملف السورس

اولا حمل ملفات التكست و الاصوات و الخط
و ضعه في ملف bin


حمل ملف البرنامج





و لكم الحرية في التعديل

فقط الدعاء
ممكن ربط فيه المشروع كامل
يعني ميكونش كل حاجه لوحدها وشكران
Heart قل لن يصيبنا الا ماكتب الله لنا Heart
الرد }}}
تم الشكر بواسطة: بلدي , ابراهيم ايبو , asemshahen5
#3
(20-08-20, 04:12 AM)محمد ايمن كتب : يعني ميكونش كل حاجه لوحدها وشكران

حاضر سيدي الكريم
[/url]
[url=https://top4top.io/downloadf-16927y7m81-rar.html]تفضل من هنا
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
#4
السلام عليكم

لمن يريد الشرح الوافي و المفصل للاكواد المستعملة

قد تم ذلك من خلال الاستاذ بلدي مشكورا محفوفا بدعواتنا له في ظهر الفيب

PHP كود :
Imports System.IO
Imports WMPLib

Public Class Form1


    
'قائمه ملفات صوت الايات
    Dim lst_mp3aya As New List(Of String)

    '
قائمه ايات السوره
    Dim lst_txtaya 
As New List(Of String)

 
   'رقم ملف صوت الايه
    Dim Murl As Integer

    '
عداد التكرار
    Dim Repet 
As Integer 1

    
'عدد الايات
    Dim Naya As Integer

    '
من الاية
    Dim aya_start 
As Integer

    
'الى الاية
    Dim aya_fin As Integer



    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        '
خط كتايه السوره
        Dim privateFonts 
As New Drawing.Text.PrivateFontCollection
        privateFonts
.AddFontFile(Application.StartupPath "\elhadi\UthmanicHafs1_Ver12.otf")

 
       'تحديد خط الريتشبكس
        RichTextBox1.Font = New Font(privateFonts.Families(0), 16, FontStyle.Regular) ' 
KFGQPC HAFS Uthmanic Script15,75pt
        
'توسيط النص
        RichTextBox1.SelectionAlignment = HorizontalAlignment.Center
        '
للقراءه فقط
        RichTextBox1
.ReadOnly True


        ComboBox1
.FlatStyle FlatStyle.Flat
        ComboBox1
.DropDownStyle ComboBoxStyle.DropDownList

        Comstart
.FlatStyle FlatStyle.Flat
        Comstart
.DropDownStyle ComboBoxStyle.DropDownList

        ComFin
.FlatStyle FlatStyle.Flat
        ComFin
.DropDownStyle ComboBoxStyle.DropDownList


        
'تجهيز عدد التكرار
        '
اقل رقم تكرار
        NumericUpDown1
.Minimum 1
        
'اعلى رقم تكرار
        NumericUpDown1.Maximum = 10

        '
تعطيل زر تحفيظ
        Button1
.Enabled False
        
'تعطيل زر توقيف
        Button2.Enabled = False
    End Sub


    '
كمبو اختر سورة من القائمة
    Private Sub ComboBox1_SelectedIndexChanged
(ByVal sender As ObjectByVal e As EventArgsHandles ComboBox1.SelectedIndexChanged

        
'ايقاف مؤقت من الايه
        Timerstart.Stop()

        '
ايقاف مؤقت الى الايه
        Timerfin
.Stop()

 
       'ايقاف مشغل الصوت
        AxWindowsMediaPlayer1.Ctlcontrols.stop()


        '
افراغ قائمه ملفات صوت الايات
        lst_mp3aya
.Clear()

 
       'افراغ 'قائمه ايات السوره
        lst_txtaya
.Clear()

 
       Repet 'اعاده ضبط عداد التكرار

        '
aya "" 'مسح الايات من الريتشبكس


        '
رقم السوره
        Dim Nsoara 
ComboBox1.SelectedIndex 1

        
'تعبئه قائمه ايات السوره بالايات
        For Each h In My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\elhadi\" & Nsoara & ".txt").Split(vbNewLine)
            lst_txtaya.Add(h.Trim)
        Next

        '
عدد ايات السوره عدد عناصر قائمه الايات
        Naya 
lst_txtaya.Count

        
'اظهار السوره في الريتشبكس
        RichTextBox1.Text = String.Join(" ", lst_txtaya.ToArray)

        '
مسح تحديد خلفيه الايه
        
'تحديد الكل في الريتشبكس
        RichTextBox1.SelectAll()
        '
تغيير لون خلفيه النص المحدد
        RichTextBox1
.SelectionBackColor Me.BackColor


        
'افراغ كمبو - من الايه
        Comstart.Items.Clear()

        '
افراغ كمبو الى الايه
        ComFin
.Items.Clear()


 
       'تعبئه الكمبو - من الايه / الى الايه
        For f As Integer = 1 To lst_txtaya.Count
            Comstart.Items.Add(f) '
من الايه
            ComFin
.Items.Add(f  'الى الاية 
        Next

        '
تعبئه قائمه ملفات صوت ايات السوره
        For Each file In IO
.Directory.GetFiles(Application.StartupPath "\elhadi\" & Nsoara)
            lst_mp3aya.Add(file)
        Next

        'تحديد رقم اول ايه
        Comstart.SelectedIndex = 0
        'تحديد رقم اخر ايه
        ComFin.SelectedIndex = ComFin.Items.Count - 1

        'تفعيل زر تحفيظ
        Button1.Enabled = True
        'تفعيل زر توقيف
        Button2.Enabled = True

    End Sub

    'كمبو - من الاية
    Private Sub Comstart_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Comstart.SelectedIndexChanged

        'افراغ كمبو - الى الايه
        ComFin.Items.Clear()

        'تعبئه كمبو - الى الايه
        For i = Comstart.SelectedIndex + 1 To Naya
            ComFin.Items.Add(i)
        Next

        'اختيار اول عنصر
        ComFin.SelectedIndex = 0

    End Sub


    'تحفيظ
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        'من الايه
        aya_start = Comstart.Text - 1
        'رقم ملف صوت الايه = رقم من الايه
        Murl = aya_start
        'الى الايه
        aya_fin = ComFin.Text - 1

        lecture() 'قراءه الايه
    End Sub



    'توقيف
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        'ايقاف مشغل الصوت
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
        'ايقاف مؤقت - من الايه
        Timerstart.Stop()
        'ايقاف مؤقت - الى الايه
        Timerfin.Stop()
    End Sub


    'قراءه الايه
    Sub lecture()

        'تشغيل ملف صوت الايه
        AxWindowsMediaPlayer1.URL = lst_mp3aya(Murl)

        'مسح تحديد خلفيه الايه
        RichTextBox1.SelectAll()
        RichTextBox1.SelectionBackColor = Me.BackColor

        'تحديد خلفيه الايه
        Dim index = RichTextBox1.Text.LastIndexOf(lst_txtaya(Murl))
        RichTextBox1.Find(lst_txtaya(Murl), index, RichTextBox1.TextLength, RichTextBoxFinds.None)
        RichTextBox1.SelectionBackColor = Color.Yellow

        'بدء مؤقت - الى الايه
        Timerfin.Start()
    End Sub



    'حساب وقت صوت الايه
    Sub cal()
        'مده صوت الايه
        Dim dur = AxWindowsMediaPlayer1.currentMedia.duration
        'وضع مده مؤقت - من الايه
        Timerstart.Interval = dur * 1000
        'بدء مؤقت - من الايه
        Timerstart.Start()
    End Sub



    'مؤقت بدايه التكرار
    Private Sub Timerstart_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timerstart.Tick

        'ايقاف مؤقت - الى الايه
        Timerfin.Stop()


        'اذا كانت رقم بدايه الايه = رقم نهايه الايه
        If aya_start = aya_fin Then
            'اذا كان عداد التكرار اقل من عداد التكرار
            If Repet < NumericUpDown1.Value Then

                Repet += 1 'زياده عداد التكرار

                lecture() 'قراءه الايه

            End If

            ''''''''''''''''''''''''
            'اذا كانت رقم بدايه الايه اقل من رقم نهايه الايه
        ElseIf aya_start < aya_fin Then
            '''''''''''''''''''''''
            If Murl = aya_fin Then
                If Repet < NumericUpDown1.Value Then

                    Repet += 1 'زياده عداد التكرار

                    'رقم ملف صوت الايه = رقم بدايه الايه
                    Murl = aya_start

                    lecture() 'قراءه الايه

                End If


            Else

                'زياده رقم ملف صوت الايه
                Murl += 1


                lecture() 'قراءه الايه

            End If

            ''''''''''''''''''''''''''

        End If
    End Sub



    'مؤقت نهايه التكرار
    Private Sub Timerfin_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timerfin.Tick

        cal() 'حساب وقت صوت الايه

        'ايقاف مؤقت - الى الايه
        Timerfin.Stop()
    End Sub



End Class 


و قد تم ذلك باحسن من الاصل

ربي يحفظه و تحية للجميع

كما تصلح الفكرة للصغار و الكبار
 لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
الرد }}}
تم الشكر بواسطة: بلدي , بلدي , Anas Mahmoud , Anas Mahmoud , asemshahen5
#5
ما شاء الله بارك الله فيك
الرد }}}
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج البحث عن لقطة داخل صورة أخرى Taha Okla 4 1,237 27-03-24, 04:23 PM
آخر رد: عبدالكريم برشدان
Big Grin [مشروع] تصميم محرر اكواد بسيط من خلال الفيجوال بيسك مع السورس كود ahmadpal 1 2,119 23-01-24, 05:38 PM
آخر رد: alkndy
  برنامج صانع الاكواد الاصدار المجاني الجديد aljzazy 27 20,098 14-01-24, 12:39 PM
آخر رد: mahmoued2022
Shocked برنامج مواقيت الصلاة ( الاذان ) alsaher1 5 2,533 25-11-23, 02:57 PM
آخر رد: alsaher1
Star [مشروع] برنامج مبيعات مفتوح المصدر 2018 mohammedvego 174 143,582 18-11-23, 03:01 AM
آخر رد: Darweesh
Thumbs Up [VB.NET] برنامج محاسبي مجاني ( مبيعات - مشتريات - مخزون - حسابات ) مفتوح المصدر توب سوفت 3 7,505 06-11-23, 01:36 AM
آخر رد: Ramzigh
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 42 34,751 07-10-23, 07:25 PM
آخر رد: حورس2000
  برنامج لادارة الدروس الخصوصية VB.NET2013& Access moaath.khalaf 16 15,791 19-08-23, 12:22 AM
آخر رد: Ramadan alking
  برنامج بنك الأكواد esawy1 4 1,368 28-07-23, 11:53 AM
آخر رد: karmina2012
Music [VB.NET] سورس كود برنامج إذاعي متطور musalem 0 625 25-06-23, 02:06 AM
آخر رد: musalem

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


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