إعـــــــلان

**أبو يوسف أبو يوسف** · 30-08-2015, 01:33 PM

الله يعطيك العافية وأكيد يكون التعب لذيذ لأنه أنجز مشروع ممكن تطويره ،

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

عبد الهادي بهاب · 30-08-2015, 04:39 PM

المشاركة الأصلية بواسطة أبو يوسف مشاهدة المشاركة

الله يعطيك العافية وأكيد يكون التعب لذيذ لأنه أنجز مشروع ممكن تطويره ،

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

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 06:04 PM

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

-------------
للأسف متصفح Chrome لا يظهر عندي ايقونة الاعجاب - راك تسالني اعجاب --- إن شاء الله

كود:

c=''
my_table = {"204","210","199","223","32","199","225","225","229","32","206","237","209","199"};
for i , n in pairs(my_table) do
c = c.. String.Char(n)
end 
Dialog.Message("Notice", c);

عبد الهادي بهاب · 30-08-2015, 08:09 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

-------------
للأسف متصفح Chrome لا يظهر عندي ايقونة الاعجاب - راك تسالني اعجاب --- إن شاء الله

كود:

c=''
my_table = {"204","210","199","223","32","199","225","225","229","32","206","237","209","199"};
for i , n in pairs(my_table) do
c = c.. String.Char(n)
end 
Dialog.Message("Notice", c);

و جزاك الله خيراو اجرا عظيما .........روعة هذا الكود ........

------------------سؤال مدامك موجود-------------------
شوف في المشروع ........عجزت عن ان اجعل البرنامج يجد الاجابة في ملفtxt مثلا للحروف القمرية مما اضطرت الى كتابة كل حرف منها في label ثم جعلت الزر يبحث عن الاجابة ان كانت تساوي النص ......... حاولت ان استعمل البحث في paragraph او richtext حينما استدعي النص من خلال الامر TextFile.ReadToString
السؤال باختصار : كيف اجعل الزر يبحث عن الاجابة ضمن txt

هاهو الملف : http://www.gulfup.com/?PEd3Lr

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 08:30 PM

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

السؤال باختصار : كيف اجعل الزر يبحث عن الاجابة ضمن txt

سأحاول إجابتك إجابة عامة و على ثقة بتوظيفها حسب طبيعة مشروعك

كود:

x = Input.GetText("Input1"); -----  هنا مصدر البحث
result = TextFile.ReadToTable("AutoPlay\\Docs\\qs.txt");---- نضع الملف و هو من محاولتك في مجلد المار الموضح
----------------
for b,n in pairs(result) do--- القيمة الاولى هي السطر ---- القيمة الثانية محتواه
if n == x then---- اذا تحقق تساوي مصدر البحث مع محتوى السطر
Dialog.Message("Notice", "موجود   " .."   في السطر   "..b); -----   هنا ضع اجراء نتيحة البحث
end
end
--------  وظف الكود حسب مشروعك و كيفية بنائه

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 08:32 PM

لم أطلع على الملف المرسل

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 08:38 PM

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

جيد
في أي أنبوت في الحدث on shar
أكتب

كود:

my_table = {"ت","ث","د","ذ","ر","ز","س","ش","س","ص","ض","ط","ظ","ل","ن","ي"};
-----------------------------------------------------------------------------
x= Input.GetText(this);
-----------------------------------------------------------------------------
for b,n in pairs (my_table) do
if String.Mid(x, 3, 1)==n then
v = String.Replace(x, String.Mid(x, 3, 1), String.Mid(x, 3, 1).."ّ", false);
Input.SetText(this, v);
Input.SetSelection(this, String.Length(x)+2,0 );break
elseif  String.Mid(x, 3, 1)~=n then
end
end
--------------------------------------------------------------------------

جرب الان كتابة كلمات معرفة

عبد الهادي بهاب · 30-08-2015, 08:55 PM

مباشرة الى العمل

ربي ينورك و يجعلك نوراة وق رؤسنا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 09:00 PM

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

مثلا : في الزر المسمى l1 يصبح الكود

كود:

  my_table = {"ا","ب","غ","ح","ج","ك","و","خ","ف","ع","ق","ي","م","هـ"};
for b,n in pairs (my_table) do
   if Button.GetText(this)== n then
Label.SetText("sc", Label.GetText("sc")+1);  
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\oui.mp3", true, false);
end---------button
end---------for
 Page.ClickObject("b1")

يبقى نفس الكود في جميع الازرار ما عد السطر الأخير

كود:

Page.ClickObject("b1")

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

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 09:14 PM

المشاركة 8 تحتاج لضبط " تصحيح"

عبد الهادي بهاب · 30-08-2015, 09:32 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

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

مثلا : في الزر المسمى l1 يصبح الكود

كود:

  my_table = {"ا","ب","غ","ح","ج","ك","و","خ","ف","ع","ق","ي","م","هـ"};
for b,n in pairs (my_table) do
   if Button.GetText(this)== n then
Label.SetText("sc", Label.GetText("sc")+1);  
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\oui.mp3", true, false);
end---------button
end---------for
 Page.ClickObject("b1")

يبقى نفس الكود في جميع الازرار ما عد السطر الأخير

كود:

Page.ClickObject("b1")

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

الله جميل و عظيم ..........

.............

الطماع يبقى طماع

لماذا عندما اضيف في عدم تحقق الشرط يحدث هناك مشكل
مثلا اذا كان الحرف قمريا و انا طلبت منه الحروف الشمسية
يظهر له dialog يقول له "خطا هذا الحرف قمري "

المشكل ان هذا الديالوج لا يختفي حتى ينزل الزر الى الاسفل تماما

كود PHP:


              my_table = {"ا","ب","غ","ح","ج","ك","و","خ","ف","ع","ق","ي","م","هـ"}; for b,n in pairs (my_table) do    if Button.GetText(this)== n then Label.SetText("sc", Label.GetText("sc")+1);   Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\oui.mp3", true, false);
else
Dialog.Message("خطأ","هذا الحرف شمسي")
 end---------button end---------for  Page.ClickObject("b1")

**نجوم ليبيا نجوم ليبيا** · 30-08-2015, 10:57 PM

السلام عليكم ورحمة الله وبركاته شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
تحية شكر لكم
ولكن استاذ المحترف ممكن تشرحلي لو سنحت كيف نقدر نغير الحروف الى ارقام مثلا

**نجوم ليبيا نجوم ليبيا** · 30-08-2015, 11:02 PM

المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة

الله جميل و عظيم ..........

.............

الطماع يبقى طماع

لماذا عندما اضيف في عدم تحقق الشرط يحدث هناك مشكل
مثلا اذا كان الحرف قمريا و انا طلبت منه الحروف الشمسية
يظهر له dialog يقول له "خطا هذا الحرف قمري "

المشكل ان هذا الديالوج لا يختفي حتى ينزل الزر الى الاسفل تماما

كود PHP:


              my_table = {"ا","ب","غ","ح","ج","ك","و","خ","ف","ع","ق","ي","م","هـ"}; for b,n in pairs (my_table) do    if button.gettext(this)== n then label.settext("sc", label.gettext("sc")+1);   audio.load(channel_narration, "autoplay\\audio\\oui.mp3", true, false);

else

dialog.message("خطأ","هذا الحرف شمسي")

 end---------button end---------for  page.clickobject("b1")

هل هذا الكود نقدر نغير به الحروف؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 30-08-2015, 11:24 PM

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

كود:

my_table = {"ا","ب","غ","ح","ج","ك","و","خ","ف","ع","ق","ي","م","هـ"}; 
for b,n in pairs (my_table) do   
if Button.GetText(this)==n  then 
Label.SetText("sc", Label.GetText("sc")+1);  
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\oui.mp3", true, false)
x=1
end
end
-------------------------
for b,n in pairs (my_table) do   
if x~=1 then
Dialog.Message("خطأ","هذا الحرف شمسي");
break
end
end
x=0
 Page.ClickObject("b1")

موفق

إعـــــــلان

مشروع مفتوح ...الحروف الشمسية و القمرية .الاصدار الاول

مشروع مفتوح ...الحروف الشمسية و القمرية .الاصدار الاول

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك