صالح حمادي

العفو أخي هو متغير ثابت

أولا يجب إضافة تعديل بسيط لدالتك لتصبح بهذا الشكل: Function sedqtr(mott As String) Dim se As String se = "" For i = 1 To Len(mott) se = se & Format(Asc(Mid(mott, i, 1)), "000") + Int(100 / 15) Next sedqtr = se End Function الدالة المعاكسة لها تكون كالتالي: Function sedqtr(mott As String) Dim se As String se = "" For i = 1 To Len(mott) Step 3 se = se & Chr(Val(Mid(mott, i, 3)) - Int(100 / 15)) Next sedqtr = se End Function

لا يا أخي الشفرة لا تسجل في الرجستري فالمتغيرات المعرفة فوق الدالة نحتاج منها سطر واحد فقط و البقية تستطيع حذفها لأنها خاصة ببرنامج آخر Public Const encodekey As String = "mas"

السلام عليكم هذه دالة ممتازة للتشفير و فك التشفير وضعها الأستاذ @أ / محمد صالح جزاه الله كل خير Public Const trialdays As Integer = 30 Public Const encodekey As String = "mas" Public Const regpath As String = "HKEY_CURRENT_USER\software" Public Const regfolder As String = "masrfirst" Public Const mainform As String = "main" Function en_de(sMessage As String, Optional strKey As String = encodekey) Dim kLen, x, y, i, j, temp Dim s(256), k(256) 'Init keystream kLen = Len(strKey) For i = 0 To 255 s(i) = i k(i) = Asc(Mid(strKey, (i Mod kLen) + 1, 1)) Next j = 0 For i = 0 To 255 j = (j + k(i) + s(i)) Mod 255 temp = s(i) s(i) = s(j) s(j) = temp Next 'Drop n bytes from keystream x = 0 y = 0 For i = 1 To 3072 x = (x + 1) Mod 255 y = (y + s(x)) Mod 255 temp = s(x) s(x) = s(y) s(y) = temp Next 'Encode/Decode For i = 1 To Len(sMessage) x = (x + 1) Mod 255 y = (y + s(x)) Mod 255 temp = s(x) s(x) = s(y) s(y) = temp en_de = en_de & Chr(s((s(x) + s(y)) Mod 255) Xor Asc(Mid(sMessage, i, 1))) Next End Function قم بوضعها في وحدة نمطية منفصلة و يتم استدعائها بهذا الشكل Me.t = en_de(Me.v) v و t هما أسماء مربعات نص و هي تقوم بالتشفير و فك التشفير في نفس الوقت

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

برنامج أكثر من رائع لقد جربته و يعمل بشكل ممتاز بارك الله فيك و في عملة

السلام عليكم ربما يجب عليك ترقية متصفحك إلى internet explore 11

آمين يا رب و شكر جزيلا أخي أهلين حبيبنا فين كل هذا الغياب أحتاجك في موضوع مهم راح نحكي عليه بعدين

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

السلام عليكم لو جربتموها و قمتم بالعمل عليها لوجدتم خلاف ذلك المصفوفات تسهل علينا الكثير من المسائل و تختصر الكثير من الأكواد

شكرا جزيلا أخي

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

السلام عليكم تابع هذا الموضوع:

نعم هي ليست مجانية. لذلك أشرت إلى مصدر الملف

ألف ألف مبروك أخي @أحمد الفلاحجى تستاهل كل خير الآن ننتظر من الكثير و الكثير بعد أن أصبحت في قائمة الخبراء

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

شكرا صديقي الحمد لله أخي أحمد و فيك بارك الله أستاذنا الغالي

جزانا الله و إياكم أخي أحمد إن شاء الله هل جربت البرنامج و ما هي النتائج؟

العفو أخي

السلام عليكم سوف نشرح في هذا الموضوع طريقة سهلة جدا لإضافة QR CODE للتقرير داخل مربع نص و يدعم اللغة العربية كذلك أولا: هناك ملف تنفيذي يقوم بتسجيل الأدوات و نوع الخط نقوم بتثبيته داخل الكمبيوتر ثانيا: لإضافة QR CODE نقوم باستدعاء الوحدة النمطية الموجودة في المرفق في مصدر عنصر التحكم لمربع النص و نغير نوع الخط إلى BCW_2D =QrCode([T];1;1;صواب;4;1) [T]: هو مربع نص نأخذ منه البيانات و هذا رابط المصدر : https://barcodewiz.com/user-manual/qr-code-fonts/create_qr_code_barcodes_in_ms_access.aspx و أخيرا تمتع بـQR CODE رائع أرجوا من الإخوة تجربته و موافاتنا بالنتائج. توليد QR CODE.rar

تفضل لقد قمت بتصميم صفحة html و أرفقتها مع المثال ضعهما في نفس المجلد و جرب مع العلم أنني ما زلت لم أضع درس الأحداث بعد Desktop.rar

الحلقة السادسة: تابع لدرس التعامل مع الجداول في صفحة ويب في الدرس الماضي قمنا بالتعامل مع جدول له خاصية id و في هذا الجدول سوف نتعلم كيفية التعامل مع الجداول التي ليس لها خاصية id أو name سوف نعتمد في هذا الدرس على خاصية Tagname التطبيق سوف يكون على صفحة ويكيبيديا: https://mawdoo3.com/جميع_دول_العالم_وعواصمها 1- كود حساب عدد الجدول في الصفحة: MsgBox WebBrowser3.Document.getElementsByTagName("table").Length 2- كود حساب عدد الخلايا في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).cells.Length 3- كود حساب عدد الصفوف في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows.Length 4- كود استخراج بيانات خلية في الجدول: MsgBox WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(1).cells(1).innerText 5- كود ارسال بيانات إلى خلية في الجدول: WebBrowser3.Document.getElementsByTagName("table").Item(0).rows(5).cells(0).innerText = "salah" ملاحظة: المقصود بـ item(0) i هو الجدول الأول الأزرار داخل الإطار الأحمر هي الخاصة بأكواد هذا الدرس قبل البدئ إضغط على زر فتح صفحة التجربة لفتح الصفحة أمامك webbroser.rar

وفيك بارك الله . أرجوا إخبارنا بالنتائج بعد التجربة

الحلقة الخامسة: التعامل مع الجداول في صفحة ويب سوف نتطرق في هذه الحلقة إلى الأكواد التي تمكننا من التحكم في الجداول داخل صفحة ويب و سوف نستخدم مرفق أخي ابو البشر في هذا الدرس و هي عبارة عن صفحة ويب محفوظة خاصية id للجدول اسمها: ctl00_PlaceHolderMain_gvCourseSectionExamsGrades عند فتح المرفق يجب تحديد صفحة الويب المرفقة كمصدر للأداة و ذلك بإتباع الخطوات التالية: 1- كود استخراج عدد الخلايا في الجدول: MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").cells.Length 2- كود استخراج عدد الصفوف في الجدول: MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length 3- كود استخراج بيانات العمود الأول في الجدول: في هذا الكود نقوم بعرض الأرقام الموجودة في العمود الأول For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(0).innerText Next i 4- كود استخراج بيانات العمود الثاني في الجدول: في هذا الكود نقوم بعرض الأسماء الموجودة في العمود الثاني For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length MsgBox Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(1).innerText Next i 5- كود ارسال بيانات إلى الجدول: في هذا الكود سوف نرسل بيانات للعمود الرابع الخاص بمادة البحوث و المشروعات For i = 2 To Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows.Length Me.WebBrowser3.Document.getElementById("ctl00_PlaceHolderMain_gvCourseSectionExamsGrades").rows(i - 1).cells(3).innerText = i - 1 Next i و هذا هو المرفق به جميع الدوال. webbroser.rar

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