sandanet

1 دقيقه مضت, ابو ياسين المشولي said:

تقريبا الف ريال سعودي يساوي 264

لانه الصرف اتوقع

3.79

شكرا لك استاذي الفاضل ابو ياسين واعتذر عن اي تقصير من جانبي 

تحياتي

7 دقائق مضت, ابو ياسين المشولي said:

شوف الصورة في تقرير الوصول نعم وتقرير الوصول لا

اللي هي نعم يخصم رسالتين ولا رساله فقط مافي منه اي فائده

تمام وضحت الرؤيا بارك الله فيك .. سؤال اخير وهو كم يساوي بالدولار مبلغ 1000 ريال في حال اردت الاشتراك في تلك الخدمة؟

1 دقيقه مضت, ابو ياسين المشولي said:

نعم شوف هذه الصورة

اشكرك جزيل الشكر استاذ ابو ياسين على هذا التوضيح المهم .. انا في الواقع لم اقم بالعمل على ارسال الرسائل من خلال الموقع لذلك لم ألاحظ هذه الفقرة 

سؤالي هو ماهو التقرير الذي يتم ارساله؟ فعند تجربتي للبرنامج لم الاحظ الفرق

ثانياً ماهو الخيار الموجود اسفل منها "تغيير معدل الارسال" ؟ 

6 دقائق مضت, ابو ياسين المشولي said:

ي انه لا يستلم تقرير الارسال بالتقرير يخصمو رساله

وهل هذا الأمر تم توضيحه للعميل عند الاشتراك؟

منذ ساعه, Mohameddd200300 said:

استاذي الغالي اشكرك جدا لجهودك في التصميم السابق وقد قمت بتجربة وهوا يعمل بشكل ممتاز ولا كن يبدو انهو يخصم رسلتين لي الرسالة الواحدة  والمفروض يخصم رسالة لك رقم اذا كان 70 حرف واذا اكثر من 70 مثل 90 او71 حتا  يخصم لكل رقم رسلتين  هذي هي المشلة  الوحيدة فقط

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

2 ساعات مضت, ابو فتحى said:

ممكن نسخة 2003

لابد من ان يأذن بذلك صاحب البرنامج

2 ساعات مضت, ابو فتحى said:

هل هذا البرنامج يعمل بشركات المصرية للرسائل

البرنامج المصمم هو خاص بشركة https://yamamah.com/  وهو يرسل رسائل لجميع دول العالم  

ملاحظة: تم تحديث الملف المرفق في المشاركة السابقة 

في 5‏/2‏/2021 at 18:19, Mohameddd200300 said:

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

اخي الكريم .. اعتذر عن التأخير في الرد بسبب الظروف .. حالياً الملف يرسل رسائل بنجاح وبالعربي ايضا

تفضل الملف في المرفقات .. تمت ازالة بيانات الحساب الخاصة بك من البرنامج

ارجو من جنابك الكريم تجربته وابداء الملاحظات إن وجدت 

تحياتي

في 4‏/2‏/2021 at 22:29, Mohameddd200300 said:

سلام عليكم  الى الان ما لقيت الي يساعدني وشكرا لكم 

جرب المرفق .. حاولت فيه قدر الامكان ..حقيقة لا اعلم اذا كان قادر على الارسال ام لا لكون الرصيد صفر في حسابك .. بامكانك التجربة واخباري بالنتيجة

16 دقائق مضت, Mohameddd200300 said:

بعدين يا اخي الكريم هذا ليس برنامج بل نموذج   وبي امكانك تغير الشركة الذي ترغب بها

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

على العموم سأحاول فهم ملف ال pdf والتعديل بما يلزم 

تحياتي 

3 دقائق مضت, Mohameddd200300 said:

مثل ماذا؟

Langauge ELanguage.ar

fOK = SetClipboardData_clt(strTemp)

Langauge ELanguage.en

بالاضافة الى جدول المعلومات الاساسية 

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

تحياتي

اخي الكريم برنامجك فيه بيانات ناقصة مثل جدول المعلومات الاساسية كما ان هنالك دوال غير معرفة ..  يبدو ان الدول تلك قد تمت ازالتها لكن ليس بالكامل 

تحياتي

1 ساعه مضت, amir_adam83 said:

ولكن هل الكود هذا يتم وضعه في وحده نمطيه ام وين

نعم تضعه في وحدة نمطية وتستدعي الدالة في نموذج تسجيل الدخول

ولاتحتاج الى انشاء جدول جديد بل تستخدم نفس الجدول الذي فيه بيانات اسم المستخدم Amr والرقم السري *** عليك ان تضيف حقل اسمه uuid فقط

اخي الكريم بامكانك عمل مصادقة عن طريق اسم المستخدم والرقم السري المشار اليه أعلاه Amr - ****  بالاضافة الى عنوان الـ uuid الخاص بجهاز المستخدم الذي يحاول الدخول .. بمعنى اخر عندما يقوم احد المستخدمين بتسجيل الدخول باسم Amr والرقم السري **** يقوم نموذج تسجيل الدخول بقراءة رقم الـ uuid لجهاز المستخدم هذا ومن ثم يخزن هذا الرقم في الجدول الذي فيه بيانات الدخول username   password  uuid 

وعندما يقوم مستخدم اخر بادخال نفس الاسم والرقم من جهاز اخر يقوم نموذج الدخول بالتحقق من وجود رقم ال uuid اذا ما كان موجود بالجدول ام لا .. فلو وجد ان الرقم مسجل في الجدول عندها يخبر المستخدم بان هذا الاسم مفتوح على جهاز اخر واذا لم يجد رقم مخزن في حقل ال uuid يقوم النموذج بتخزين رقم ال uuid للمستخدم الجديد 

طبعا لابد من وضع كود يحذف رقم ال uuid من الجدول عندما يقوم المستخدم الاول بتسجيل خروجه لكي يسمح لمستخدم اخر بالدخول 

ملاحظة: رقم الـ uuid هو رقم فريد لكل جهاز كومبيوتر لايتكرر ولا يتغير حتى لو تمت فرمته الجهاز وهنالك كود يعمل على قراءة هذا الرقم 

Public Function GetUUID()
On Error Resume Next
Dim strComputer As String
Dim objWMIService, colItems, objItem

    strComputer = "." 'default to localhost
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)
    
    For Each objItem In colItems
        GetUUID = Nz(Trim(objItem.UUID), 0)
    Next


End Function

اتمنى ان تكون الفكرة واضحة

تحياتي

في ٢٦‏/١‏/٢٠٢١ at 21:39, bouchaib zakaria said:

فهمت ان هنالك طريقة ثانية  ومن باب الفضول اريد معرفتها ان امكن

ضع الملف المرفق في مسار البرنامج وشغله مرة واحدة

run_me.zip

بارك الله فيك وزادك من علمه .. فعلاً معلومة مفيدة .. لكن ماذا عن حجم النموذج نفسه ان لم يكن في وضع مليء الشاشة..هل هنالك طريقة تجعله يناسب حجم الشاشة بدون أكواد برمجية؟

اخي الكريم .. تقوم برامج الاخفاء المجلدات عادةً بتشفير اسم المجلد واخفاءه من جذوره وبالتالي لايمكن الوصول لما في داخل المجلد الا عن طريق اظهار المجلد من البرنامج نفسه  

2 ساعات مضت, aaabade said:

قميت بنقل ملف قاعدة البيانات الى جهاز كمبيوتر اخر. فلما فتحت النموذج ظهر لي بدون اي حقل او ازرار

مع العلم باني اذا عملت عرض التصميم تظهر الكائنات هناك

 

ما هو الحل ؟؟

اخي الكريم ارجو منك ارفاق نسخة من برنامجك للتجربة ومعرفة مكان الخطأ واصلاحه 

او اتجه لموضوع الاستاذ جعفر واستخدم البرنامج المشار اليه في موضوعه

شكراً جزيلا لك أستاذنا القدير جعفر دائماً متميز بمواضيعك .. وفقك الله  

16 ساعات مضت, أبو عبدالله الحلوانى said:

أعتقد أنك فكرت في قياس طول الجملة هل هذا صحيح؟! اذا نحتاج الي تقطيع الجملة الي أجزاء وقياس طول كل جزء - سأحاول معك في هذا ان شاء الله عندما أجد الوقت الكافي

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

وفي الاخير فضلت استخدام طريقة اجبار المستخدم على مليء اربع خانات ومن ثم تجميع الاسم

تحياتي

3 ساعات مضت, أبو عبدالله الحلوانى said:

لكن كيف سيعرف البرنامج أن هذه لاحقة أم لا هذا هو السؤال؟

كنت قد استخدمت الدالة التالية التي تعمل على استخراج الفرق بين جملتين

Function WORDDIF(rngA As String, rngB As String) As String
On Error GoTo Err

' to test the function, press ctrl+G then paste this line of code-->   ?WORDDIF("عبد الرحيم بن سلمان عبد الله بو سالم", "عبد الرحيم بن سلمان عبد الله سالم")
    Dim WordsA As Variant, WordsB As Variant
    Dim ndxA As Long, ndxB As Long, strTemp As String
        
    WordsA = Split(rngA, " ")
    WordsB = Split(rngB, " ")
 
    For ndxB = LBound(WordsB) To UBound(WordsB)
        For ndxA = LBound(WordsA) To UBound(WordsA)
            If StrComp(WordsA(ndxA), WordsB(ndxB), vbTextCompare) = 0 Then
                WordsA(ndxA) = vbNullString
                Exit For
            End If
        Next ndxA
    Next ndxB
    
    For ndxA = LBound(WordsA) To UBound(WordsA)
        If WordsA(ndxA) <> vbNullString Then strTemp = strTemp & WordsA(ndxA) & " "
        'strTemp = strTemp & IIf(WordsA(ndxA) <> vbNullString, WordsA(ndxA), "-") & " "
    Next ndxA
    
    WORDDIF = Trim(strTemp)
Exit Function
Err:
If Err.Number <> 0 Then
MsgBox Err.Number & " - " & Err.Description
End If

End Function

قمت باستدعاؤها كالتالي

If Me.txtFullName.Text <> fullName() Then
txt = WORDDIF([Text0], fullName())

وكانت النتيجة ممتازة لكن للأسف عندما تكون اللاحقة فقط في الاسم الرابع

2 ساعات مضت, أبو عبدالله الحلوانى said:

قبل كل شئ أنت تعلم أني أحب المزاح فلا يكن في صدرك حرج من ردي السابق (دائما أمزح وأورط نفسي ثم أضطر للاعتذار ولكن يعلم الله أني لا أقصد سوي رسم البسمة علي الوجوه هكذا 

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

2 ساعات مضت, أبو عبدالله الحلوانى said:

ثم ان اللواحق في الاسماء في الغالب الأعم لن تتجاوز ما هو مشهور كـ ( عبد ) ويلحقها كل مضاف اليها فلن نضطر لاضافة الملحق بها وانما كلمة عبد فقط وينطبق الكلام كذلك علي (أبو - أم - بو ) طبعا مع مراعاة كتابة هذه الكلمات بأشكالها المتوقعة من اضافة الهمزات واهمالها

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

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

تحياتي

3 ساعات مضت, أبو عبدالله الحلوانى said:

اذا ضع (بو) داخل الجدول وانتهي الأمر

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

2 ساعات مضت, أبو عبدالله الحلوانى said:

بدون اضافة بو الي الجدول

رائع جداً .. لكن ماذا لو اتى الاسم "بو سالم" في المنتصف اي الاسم الثاني او الثالث؟

3 دقائق مضت, أبو عبدالله الحلوانى said:

غرضي كان التحقق من ادخال الاسم رباعيا وفقط (يعني الكود سيختبر طول الاسم فقط فان كان أقل من أربعة سيوجه المستخدم لادخال الاسم الرابع) والا سيقبل الاسم بطوله ويضيفه بمكانه المناسب

نعم استاذي العزيز افهم قصدك من ذلك لكن لايمكن اعتبار الاسم "عبد الرحيم بن سلمان عبد الله بو" اسم رباعي ولا يمكن السماح بادراج الاسم بهذا الشكل في حال لم تكن اللاحقة "بو" مضافة للجدول مسبقاً لذلك قمت بتعديل بسيط على طريقتكم باستخدام كود الاستاذ القدير @ابوخليل والنتيجة كانت ممتازة .. انظر المرفق

جرب ادخل الاسم التالي "عبد الرحيم بن سلمان عبد الله بو سالم" بدون ادخال اللاحقة "بو" الى جدول tblSpecialParts

تحياتي

Test Four Name.mdb