نجوم المشاركات

اعرض الملف ✨نصوص متحركة ✨ .. 4 أربعة أشكال متنوعة مما لذ وطاب 😊👌 السلام عليكم ورحمة الله وبركاته 🙂 هذي من بعض التجارب على عمل أشكال جديدة على النصوص المتحركة .. وقد خلصت التجارب إلى التالي 🙂 للاستفادة من المثال : لدينا أربعة نماذج ، كل واحد منها يحتوي على أحد الأشكال الموضحة بالترتيب .. قم بفتح النموذج المراد تطبيقه ثم أنقل الأكواد مثل ما هي إلى برنامجك + الليبل الموجود في النموذج ( ويمكنك أستخدام الليبل الخاص بك ) قم فقط بتعديل النص المراد تحريكة + اسم الليبل الذي سيتحرك النص بداخله . صاحب الملف Moosak تمت الاضافه 03 أكت, 2024 الاقسام قسم الأكسيس  

السلام عليكم ورحمة الله وبركاته.. كنت اعمل على مشروع للقرآن الكريم، يكون ضمن تطبيق قوت القلوب، صورته في التوقيع 🥰 البرنامج من تصميمي وبرمجتي 100% فاحتجت للقرآن الكريم مرتل ومقسم لايات قمت بالعثور على ختمات كاملة وللعديد من القرآء في موقع Archive.org فقمت بتحويل الروابط الى قاعدة بيانات SQLite تتضمن ترتيل القرآن الكريم على شكل ايات كل آية على حدا وبرابط مباشر، أي ستقوم بتشغيل الصوت من الرابط مباشرة بدون تنزيلة طبعا يمكنكم تشغيل الصوت مباشرة من الويب باستخدام الكثير من المكتبات المجانية مثل NAudio.dll وغيرها... قبل كل شيء، هذا الكود لإنشاء الجدول sounds الذي ستكون فيه روابط الصوت لايات القرآن الكريم في قاعدة البيانات.. 1. تسلسل السورة 2. رقم الآية 3. رابط الملف الصوتي للآية 4. معرف القارئ CREATE TABLE "sounds" ( "surah_number" INTEGER, "ayah_number" INTEGER, "audio_url" TEXT, "reader_id" INTEGER ); 0. احمد نعينع 1. الطبلاوي 2. عبد الباسط 3. المنشاوي 4. الحصري السورس كود للفائدة، الذي يقوم بتوليد الايات حسب السور بلغة NET. Sub GenerateQuranAudioLinks(ByVal baseUrl As String, ByVal reader_id As String) ' عدد الآيات لكل سورة من القرآن الكريم Dim surahAyatCounts As Integer() = { 7, 286, 200, 176, 120, 165, 206, 75, 129, 109, 123, 111, 43, 52, 99, 128, 111, 110, 98, 135, 112, 78, 118, 64, 77, 227, 93, 88, 69, 60, 34, 30, 73, 54, 45, 83, 182, 88, 75, 85, 54, 53, 89, 59, 37, 35, 38, 29, 18, 45, 60, 49, 62, 55, 78, 96, 29, 22, 24, 13, 14, 11, 11, 18, 12, 12, 30, 52, 52, 44, 28, 28, 20, 56, 40, 31, 50, 40, 46, 42, 29, 19, 36, 25, 22, 17, 19, 26, 30, 20, 15, 21, 11, 8, 8, 19, 5, 8, 8, 11, 11, 8, 3, 9, 5, 4, 7, 3, 6, 3, 5, 4, 5, 6 } ' حلقة لتوليد جمل SQL لكل سورة وآياتها For surah As Integer = 1 To 114 Dim surahNumber As String = surah.ToString("D3") ' تحويل رقم السورة إلى 3 أرقام Dim ayatCount As Integer = surahAyatCounts(surah - 1) ' توليد جمل SQL بناءً على عدد الآيات لكل سورة For ayah As Integer = 0 To ayatCount Dim ayahNumber As String = ayah.ToString("D3") ' تحويل رقم الآية إلى 3 أرقام Dim fileUrl As String = baseUrl & surahNumber & ".zip" & "/" & surahNumber & ayahNumber & ".mp3" Dim sqlInsert As String = "INSERT INTO sounds (surah_number, ayah_number, audio_url, reader_id) VALUES (" & surah & "," & ayah & "," & "'" & fileUrl & "'" & "," & reader_id & ");" My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\sql_" & reader_id & ".txt", sqlInsert & vbNewLine, True) Next Next '' تشغيل كل عملية في ثريد منفصل باستخدام Task 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/128kb---a7mad--n3ena3---morattal------quran----6236---ayaat-----__verse--by---_189/", "1")) 'احمد نعينع 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/64kb__---mp3------------quran----6236---ayaat-----__verse--by---verse----_-by-/", "2")) 'الطبلاوي 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/192kb----morattal----quran----6236---ayaat-----__verse--by---verse----_-by--ab_525/", "3")) 'عبد الباسط 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/128kb____--mp3-------full-----quran----6236---ayaat-----__verse--by---verse---/", "4")) 'المنشاوي 'Task.Run(Sub() GenerateQuranAudioLinks("https://archive.org/download/64kb___--mp3-----quran----6236---ayaat-----__verse--by---verse----_-by---alhos/", "5")) 'الحصري End Sub ارفقت لكم البيانات على شكل ملفات TXT لكي تعدلو عليها كيفما شئتم. لا تنسوني ووالدي من صالح دعائكم SQLite.zip

السلام عليكم من فضلكم محتاج كود على زر ينفذ ضغط واصلاح قاعده البيانات الاماميه

تفضل شرح الكود اما اذا تم اظافة اعمدة فربما شرح الكود بقيدك بطريقة التعديل او يمكنك حينها فنح موضوع جديد بالمنتدى وتقديم سؤالك بالتوفيق Private Sub Worksheet_Change(ByVal Target As Range) ' تعريف المتغيرات Dim wsRes As Worksheet ' ورقة العمل "res" Dim wsMokata As Worksheet ' ورقة العمل "mokata" Dim districtNumber As String ' الرقم المدخل في العمود F Dim lastRowMokata As Long ' آخر صف يحتوي على بيانات في عمود A في ورقة "mokata" Dim dataRange As Range ' النطاق الذي سيتم البحث فيه عن الرقم المدخل Dim foundCount As Integer ' عداد لعدد المرات التي يظهر فيها الرقم المدخل Dim cell As Range ' متغير ليمثل كل خلية في نطاق البحث ' ربط المتغيرات بأوراق العمل Set wsRes = ThisWorkbook.Sheets("res") Set wsMokata = ThisWorkbook.Sheets("mokata") ' يتم تجاهل الأخطاء لمنع تعطل الكود في حال حدوث خطأ On Error Resume Next ' التحقق مما إذا كانت الخلية التي تم تغييرها هي في العمود F من ورقة "res" If Not Intersect(Target, wsRes.Range("F:F")) Is Nothing Then districtNumber = Trim(CStr(Target.Value)) ' الحصول على الرقم المدخل مع إزالة المسافات الفارغة 'f اً إذا تم مسح الخلية في العمود، يتم مسح المحتويات في الأعمدة المجاورة (G, H, I) If districtNumber = "" Then Target.Offset(0, 1).Resize(1, 3).ClearContents Else ' تحديد آخر صف يحتوي على بيانات في عمود A في ورقة "mokata" lastRowMokata = wsMokata.Cells(wsMokata.Rows.Count, "A").End(xlUp).Row ' تحديد نطاق البحث عن الرقم المدخل Set dataRange = wsMokata.Range("A5:A" & lastRowMokata) foundCount = 0 ' تهيئة عداد المرات التي يظهر فيها الرقم المدخل ' البحث في النطاق عن الرقم المدخل وعدّ المرات التي يظهر فيها For Each cell In dataRange If Trim(CStr(cell.Value)) = districtNumber Then foundCount = foundCount + 1 End If Next cell ' إذا تم العثور على الرقم مرة واحدة فقط If foundCount = 1 Then For Each cell In dataRange ' العثور على الصف الذي يحتوي على الرقم المدخل If Trim(CStr(cell.Value)) = districtNumber Then ' نقل البيانات من الأعمدة 2, 3, 4 في ورقة "mokata" إلى الأعمدة G, H, I في ورقة "res" Target.Offset(0, 1).Value = wsMokata.Cells(cell.Row, 2).Value ' العمود G Target.Offset(0, 2).Value = wsMokata.Cells(cell.Row, 3).Value ' العمود H Target.Offset(0, 3).Value = wsMokata.Cells(cell.Row, 4).Value ' العمود I Exit For ' الخروج من الحلقة بعد العثور على القيمة End If Next cell ' إذا تم العثور على الرقم أكثر من مرة ElseIf foundCount > 1 Then Dim districtList As String ' سلسلة لتخزين القيم المرتبطة بالرقم المدخل districtList = "" ' جمع القيم المرتبطة بالرقم المدخل For Each cell In dataRange If Trim(CStr(cell.Value)) = districtNumber Then districtList = districtList & wsMokata.Cells(cell.Row, 4).Value & "," ' إضافة القيمة إلى السلسلة End If Next cell ' إذا تم العثور على قيم، يتم إعداد واجهة المستخدم (UserForm) لعرض هذه القيم If Len(districtList) > 0 Then districtList = Left(districtList, Len(districtList) - 1) ' إزالة الفاصلة الزائدة في نهاية السلسلة UserForm1.ListBox1.Clear ' مسح القائمة السابقة في ListBox UserForm1.ListBox1.List = Split(districtList, ",") ' تقسيم السلسلة ووضع القيم في ListBox ' ربط الخلية التي تم تغييرها مع النموذج Set UserForm1.TargetCell = Target UserForm1.Show ' عرض النموذج للمستخدم لاختيار قيمة End If Else ' إذا لم يتم العثور على الرقم، يتم عرض رسالة تحذير MsgBox "لا توجد بيانات مرتبطة بهذا الرقم.", vbExclamation End If End If End If End Sub

شكرا جزيلا أخي الكريم وجعله الله في ميزان حسناتك كيف احمل الملف ؟

اعلم هذا الكود للاسف بيفعل خاصيه ال compact On close

ما شاء الله تبارك الله رائعه من روائع استاذى موسي

بسم الله ، ما شاء الله على الجمال والحركات الرهيبة .. إناء العسل لا يعطي طعم غير العسل ، وهذه نقطة من ابداعاتك مهندسنا الأستاذ @Moosak

جميل جدا ذكرتني الشاطىء وامواجه لا تلمني اقرب بحر لنا يبعد اكثر من 500 كم

انت صح باسلوبك ونهجك .. تبحث وتتعلم وتطبق ولكن هذه الطريقة في التصميم قديمة وانتهت والسبب ان فيها الزام ما لا يلزم السلبية فيها من ناحيتين : 1- تعدد الجداول 2- العلاقات من ناحية تعدد الجداول : فالتوجه الحديث هو نحو برمجة الجدول الواحد ما امكن ومن ناحية العلاقات : فالعلاقات وضعت من اجل منع ادخال بيانات مغايرة في النوع والتخصيص ، وتقييد المستخدم ، وهذا المنع والتحكم له طرق اخرى بعيدا عن العلاقات عن نفسي لا استخدم العلاقات بين الجداول بتاتا .. الا في حالات خاصة .. العلاقات مكانها الاستعلام عندما نجمع بين جدولين او اكثر يا لطيف !! هذه كثيرة جدا حسب تصوري برنامج مشتريات ومبيعات وديون .. الاستعلامات الرئيسية التي تدور عليها معظم العمليات قد لا تتجاوز اصابع اليد الواحدة اما بقية الاستعلامات فتكون داخلية .. كل تقرير وداخله استعلامه الخاص

وعليكم السلام ورحمة الله وبركاته أخي سامر 🙂 من أين تأخذ قيمة الحقل ؟ هل من الجدول مباشرة أم من النموذج ؟ إن كانت من الجدول فاستخدم دالة >> Dlookup أما إن كان من النموذج فاكتب في الاستعلام : >> forms![FormName]![location]

طيب سوف اعمل لك الفكرة حسب طلبك في الموضوع ويمكنك نقلها الى برنامجك والتعديل عليها كما ترغب .

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

وانا كذلك شاهدت مثلها .. ضعف التصميم عند الإنشاء يضطر المبرمج الى معالجة الأمر على هذه الطريقة مرغما .. ناهيك عن توظيف كثير من الاستعلامات ( الحاق /وحذف/ وتوحيد .. الخ) على كل حال .. الخبرة بمزاولة اي مشروع وتطويره لاحقا .. هذه الخبرة ستظهر لنا الاشياء السابقة التي من المفترض ان نتجنبها .

نصائح الخبراء هنا كثيرة بخصوص اول خطوة في البرمجة وهي الجداول يرددون دوما يجب الاهتمام بتصميم الجداول وخاصة التسميات ولكن الكثير من المبتدئين لا حياة لمن تنادي .. وكأن توجيهات الخبراء لا تعنيهم اخي الكريم .. من الاخطاء التي وقعت فيها : 1- تسمية الكائنات بكلمات محجوزة في اكسس مثل Name ولم تكتف بتسمية الجدول بهذا بل سميت الحقل به 2- جميع الحقول المرتبطة في الجداول الثلاث متشابهة في التسمية ، وهذا لا يصلح لأنك ستواجه عقبات مستقبلا في الربط فلا تستغرب اذا تأخر رد الاخوة الاعضاء .. ------------------------------ تفضل هذا مطلوبك بعد تعديل الاخطاء .. استعلام واحد اجعله مصدرا لتقريرك 222.rar

فيديو الشرح احببت مشاركتكم لهذا الفيديو المشار اعلاه والتي تقوم فكرته على وللذين لديهم معرفة ولو بسيطة عن البايثون فلو اردت مشاركة بياناتك الحالية مثل كشف حساب او ادخالاتك مع احد الاشخاص على الانترنت استخدام streamlit او flask او flet لانشاء نماذج المستخدم استخدلم sqlalchemy لاستخام عبارات ال sql استخدام ngrok لنشر الداتا على الانترنت مع مراعاة استخدام بايثون 64 او 32 بت حسب الاوفيس ان كان32 او 64 وايضا engine office العملية سهلة التطبيق وكذلك الاكواد مرفقة بالفيديو

حسب فهمى للطلب =IF(G3="";"";INT(DATEDIF(G3;TODAY();"m")/4)*10) TESTT.xlsx

المهم كون الفكرة صحيحة سوف اعطيك خطوات او سيناريوا الفكرة .. حاول تطبيقها الأدوات : 1- جدول كنترول تحكم يسجل فيه قيمة كل رسم ... ( 7 حقول في سجل واحد ) .. قد تتغير من سنة لأخرى لذا وضعنا هذه القيم في جدول تحكم 2- جدول مشابه لجدول التحكم تماما ( جدول الرسوم ) ويرتبط كجدول فرعي بجدول اسماء الطلاب 3- جدول الدفعات فرعي مرتبط بجدول الطلاب .. عبارة عن حقل واحد للمبلغ وحقل للتاريخ .. من اجل رصد الدفعة وتاريخها واخراج وصل بها يهمنا الآن مجموع الدفعات ( وهو الرقم المستهدف ) ومنطقيا سيتجدد بالزيادة -------------------------------------------------------- يمكنك الآن عمل جملتك البرمجية لتوزيع المبلغ بالترتيب ________________________________________ اذا لم تتمكن واردت المساعدة ارفع مرفقا بالادوات المذكورة اعلاه مراعيا الطريقة العلمية الصحيحة في التصميم

وعليكم السلام ورحمة الله تعالى وبركاته يمكنك استخدام احدى الصيغ التالية للحصول على عدد الذكور مع مراعاة الفلترة لان countif بمفردها لن تأخذ الفلاتر في الاعتبار =SUMPRODUCT(SUBTOTAL(103, OFFSET(K52:K750, ROW(K52:K750) - ROW(K52), 0, 1)), --(K52:K750="ذكر")) او =SUMPRODUCT((K52:K750="ذكر")*(SUBTOTAL(103,OFFSET(K52:K750,ROW(K52:K750)-ROW(K52),0,1)))) =SUMPRODUCT(SUBTOTAL(103, OFFSET(K52:K750, ROW(K52:K750) - ROW(K52), 0, 1)), --(K52:K750="أنثى")) او =SUMPRODUCT((K52:K750="أنثى")*(SUBTOTAL(103,OFFSET(K52:K750,ROW(K52:K750)-ROW(K52),0,1)))) القاعدة 2025 - Copy.xlsx