اريد طريقة عمل ديلوج خاص باسم المستخدم والباص ورد والكود الخاص بذلك مثل هذه الصورة

[سمسم يو]

السلام عليكم
اريد طريقة عمل ديلوج خاص باسم المستخدم والباص ورد
والكود الخاص بذلك مثل هذه الصورة

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته

هطا ملف مفتوح ........... ممكن تستفيد منه

https://up.top4top.net/downloadf-1398nkfef1-rar.html

اسم المستخدم : admin
الرقم السري : abc4web

بالتوفيق

[عبد الهادي بهاب]

السلام عليكم
اريد طريقة عمل ديلوج خاص باسم المستخدم والباص ورد
والكود الخاص بذلك مثل هذه الصورة

اسف لقد تم تعديل الملف

https://up.top4top.net/downloadf-1398nkfef1-rar.html

[سمسم يو]

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

وهذا هو الكود


Pass_Correcto = "mmm"

Pass_eacrito = Input.GetText("Input1")

if pass_escrito == pass_correcto then

userid_Correcto = "smsm"

userid_escrito = Input.GetText("Input2")

if userid_escrito == userid_correcto then

Page.Jump ("page2")

else

Dialog.Message("Importante","Wrong username&password")

end

end


وهذه الخطوات التى قمت بها

كيفية عمل مربع باص ورد
فتح صفحتين
صفحة رقم 1
صفحة رقم 2

ثم نختار


New Input Objiet
ونقوم بعمل 2 Input

ثم نقوم بالضغط على Input الاول
ونكتب فى الـ Text فوق user Name
ثم نختار standard

ثم نقوم بالضغط على Input الثانى
ونكتب فى الـ Text فوق pass word
ثم نختار standard

ونقوم بعمل Button ثم نضع الكود التالى فى Script فى الـ On Click

[سمسم يو]

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

[عبد الهادي بهاب]

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

وهذا هو الكود


pass_correcto = "mmm"

pass_eacrito = input.gettext("input1")

if pass_escrito == pass_correcto then

userid_correcto = "smsm"

userid_escrito = input.gettext("input2")

if userid_escrito == userid_correcto then

page.jump ("page2")

else

dialog.message("importante","wrong username&password")

end

end


وهذه الخطوات التى قمت بها

كيفية عمل مربع باص ورد
فتح صفحتين
صفحة رقم 1
صفحة رقم 2

ثم نختار


new input objiet
ونقوم بعمل 2 input

ثم نقوم بالضغط على input الاول
ونكتب فى الـ text فوق user name
ثم نختار standard

ثم نقوم بالضغط على input الثانى
ونكتب فى الـ text فوق pass word
ثم نختار standard

ونقوم بعمل button ثم نضع الكود التالى فى script فى الـ on click

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

[عبد الهادي بهاب]

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

ف ي هذه الحالة يجب تخزين البيانات في قاعدة اما داخل الاسطوانة و طبعا ليست قرص بل في ملف المستندات او الهارد c

ممكن ببساطة استخدام ملفات من نوع ini و مكن طرق اخرى كثيرة

ساعطيك مثال على ذلك في ملف مفتوح و فيه الاكواد

[عبد الهادي بهاب]

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

ملف مفتوح باستعمال ملف ini

https://up.top4top.net/downloadf-14016idz71-rar.html

يجب ان يكون البرنامج مسؤولا require adminstrator

https://s8.postimg.cc/f2fe3zkmt/Cattura.png

[سمسم يو]

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

[عبد الهادي بهاب]

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

تصحيح الكود و جعله مختصرا

في زر الدخول نمحي و نكتب التالي

if Input.GetText("Input1") == "mmm" and Input.GetText("Input2") == "mmm" then

Page.Jump ("page2")

else

Dialog.Message("Importante","Wrong username&password")

end

[عبد الهادي بهاب]

اما الملف المفتوحالذي وضعته فيمكن ان يطون فيه اكثر من 1000000000000 مستخدم

[سمسم يو]

لكن فى حاله عمل اسم مستخدم وكلمه مرور لعدد مثلا 3 مستخدمين
كيف يكون التعديل على الكود

[عبد الهادي بهاب]

لكن فى حاله عمل اسم مستخدم وكلمه مرور لعدد مثلا 3 مستخدمين
كيف يكون التعديل على الكود

هذا مثال لثمانية افراد

if Input.GetText("Input1") == "ali" and Input.GetText("Input2") == "1111"
or Input.GetText("Input1") == "anes" and Input.GetText("Input2") == "222"
or Input.GetText("Input1") == "assia" and Input.GetText("Input2") == "333"
or Input.GetText("Input1") == "ahmed" and Input.GetText("Input2") == "444"
or Input.GetText("Input1") == "dalila" and Input.GetText("Input2") == "555"
or Input.GetText("Input1") == "malak" and Input.GetText("Input2") == "666"
or Input.GetText("Input1") == "salima" and Input.GetText("Input2") == "777" then

Page.Jump ("page2")

else

Dialog.Message("Importante","Wrong username&password")

end

ممكن نغير الاسم في معادلة الانبوت1 و رقمه السري في معادلة الانبويت 2

[سمسم يو]

بارك الله لك فى مجهودك
هناك مشكلة تظهر عند تنفيذ الكود من السطر الثانى
مرفق ملف بالكود بعد التعديل وظهور هذه المشكلة

[عبد الهادي بهاب]

بارك الله لك فى مجهودك
هناك مشكلة تظهر عند تنفيذ الكود من السطر الثانى
مرفق ملف بالكود بعد التعديل وظهور هذه المشكلة


if Input.GetText("Input1") == "smsm" and Input.GetText("Input2") == "2030"
or Input.GetText("Input1") == "ali" and Input.GetText("Input2") == "1111"
or Input.GetText("Input1") == "ahmed" and Input.GetText("Input2") == "2222" then
Dialog.Message("???EC","???C E? ?? ?IC?E C???C?I C?EO??E");
Page.Jump ("page2")

elseif Input.GetText("Input1") ~= "smsm"
or Input.GetText("Input1") ~= "ali"
or Input.GetText("Input1") ~= "ahmed" then

Dialog.Message("???EC", "C?? C???EII? U?? ???? ?C?? ??E CI??");
elseif Input.GetText("Input2") ~= "2030"
or Input.GetText("Input2") ~= "1111"
or Input.GetText("Input2") ~= "222" then

Dialog.Message("???EC", "C???? C???? U?? ???? ?C?? ??E CI?? ");


end

[سمسم يو]

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

[عبد الهادي بهاب]

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

[سمسم يو]

جزيل شكرى وتقديرى لشخصك الكريم
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[بيانكى]

مجهودكم لا يثمن بمال
افادكم الله

[الدموكي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .