إسترا^^بلاي

[ثامر أبو بلقيس]

السلام عليكم
كثيرة هي الكلمات أو الجمل التي يمكن قراءتها
بالمقلوب
مثلا :
كل ما رام لك
عقرب تحت برقع
كمالك تحت كلامك
ولد و دلو
خوخ
توت
.....
أكتب أكواد تقوم بهذه الوظيفة أي نكتب في الانبوت 1 الجملة أو الكلمة
فيتم عكسها في الانبوت 2

سلام :abc_023:

[azizsoft]

بسم الله الرحمن الرحيم

ههههههههههههه

كل عام وأنتم بخير يا أستاذ

جميل هذا الاستفسار

المصفوفة فقط في ذهني
ننتظر الافادة :abc_022:

[ثامر أبو بلقيس]

عيد سعيد و كل عام و أنتم بخير :abc_152:

[النصل القاطع]

origenal="sharp blade"
reversed=string.reverse (origenal)
Dialog.Message("Notice", reversed, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

جرب هذا فى زر

تحتاج للإصدار الثامن
لا تعمل على الإصدار السابع لتدنى إصدار اللوا المرتكز عليه السابع



أما لو كنت تعمل على الإصدار السابع
و بمناسبة المصفوفة و عكسها برمجيا

origenal="sharp blade"
reversed = "";
for i = 1, string.len(origenal) do
reversed = string.sub(origenal,i,i)..reversed;
end
Dialog.Message("Notice", reversed, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);


فهذه تعمل على كل الإصدارات

[ثامر أبو بلقيس]

شكرا جزيلا على الكود :abc_152::abc_152::abc_152::abc_152::abc_152::abc_ 152:
k="sharp blade"
reversed=string.reverse (k)
Dialog.Message("Notice", reversed, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

[ثامر أبو بلقيس]

أبادلك هذا الكود يعمل على كل الاصدارات
if not string.reverse then
function string.reverse(s)
local reversed = "";
string.gsub(s,".",function(c)
reversed = c..reversed;
end);
return reversed;
end
end
Input.SetText("Input1", string.reverse(Input.GetText("Input1")));

شكرا أستاذ :abc_022:

[ثامر أبو بلقيس]

:abc_152::abc_152: قرأت في الانترنت هذا البيت :abc_152::abc_152:
عدلوا فما ظلمت لهم دول ..... ثبتوا فما زلت لهم قدم

لكنه عندما يعكس سيعطي معنى معاكسا بهذا الشكل

قدم لهم زلت فما ثبتوا ..... دول لهم ظلمت فما عدلوا

أي عكست المفردات و كذلك الشطر أصبح عجزا و العكس

هل يمكن تحقيق ما نتج برمجيا :abc_152:

[النصل القاطع]

يبدوا أنك تعرف الجواب :abc_088:

ما الغرض من السؤال ؟؟

[ثامر أبو بلقيس]

يبدوا أنك تعرف الجواب :abc_088:

ما الغرض من السؤال ؟؟

و هل لكل سؤال جواب واحد:abc_138:

[النصل القاطع]

حسنا
لتنويع الإجابات سأضع إجابتى هذه المرة فى الأخير

[أبو يوسف]

سر فلا كبا بك الفرس

بارك الله بجهد الجميع

.

[ثامر أبو بلقيس]

حسنا
لتنويع الإجابات سأضع إجابتى هذه المرة فى الأخير

السلام عليكم
هذا ملف انطوى على أحد الحلول
http://www.gulfup.com/?JThZ2q

ممكن طرح أسئلة ذات طابع بحثي ممكن الوصول لها مشكووور:abc_152:

[ثامر أبو بلقيس]

سر فلا كبا بك الفرس

بارك الله بجهد الجميع

.


شكرا جزيلا على الرد و المشاركة المفيدة

[أبو فارس]

موفق بإذن الله ... لك مني أجمل تحية .

[ثامر أبو بلقيس]

السلام عليكم

هذا صاحب عمل يعطي للعامل في اليوم الأول 1 دينار
وفي كل يوم موالي يعطيه ضعف اليوم السابق على مدار الشهر كاملا " 30 يوم "

مع ملاحظة : 1 دينار = 100 سنتيم

كيف أحصل على أجرة العامل الشهرية ؟
:abc_138:

[ثامر أبو بلقيس]

___:abc_005:

[ثامر أبو بلقيس]

على كل هذا الملف فيه الحل بثلاث طرق
استغلال منطق المتوالية
التكرار
و استغلال أكواد مباشرة من الاوتوبلاي
http://www.gulfup.com/?unhfZi

[الهمام]

كل الشكر للأخ النصل القاطع

[ثامر أبو بلقيس]

كل الشكر للأخ النصل القاطع

شكرا على المرور الطيب :abc_138:

[أبو محسن]

ماشاء الله تبارك الله
أفكارك خُنفشارية :abc_156:

والله أفخر بأن أكون في موقع ينتمي إليه أمثالك أخي ثامر :abc_051:

[ثامر أبو بلقيس]

الأخ أبو محسن الطرح الأخير وضعته مزامنة مع استفساراتك حول التكرار أليس كذلك ؟
قصدت ذلك لاحظ أخي الملف الأخير محمي ؟؟ بكلمة مرور طبعا هي مبلغ الأجرة الشهرية
للعامل و هو تطبيق لما نتعلمه مع بعض بفرض أني أريد كلمة المرور عليّ حل السؤال باستعمال
التكرار و التعبير عن المبلغ بالسنتيم يسعدني أن أدعوك للمحاولة :abc_138:

[أبو محسن]

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

[ثامر أبو بلقيس]

و أنا في الانتظار موفق:abc_138:

[ثامر أبو بلقيس]

السلام عليكم
الحل للمشكل المطروح :
هذا صاحب عمل يعطي للعامل في اليوم الأول 1 دينار
وفي اليوم الموالي يعطيه ضعف ا أعطاه في اليوم السابق على مدار الشهر كاملا أي : 30 يوما
مع ملاحظة : 1 دينار = 100 سنتيم
ماهي أجرة العامل الشهرية؟

الحل الأول باستعمال التكرار الدالة for
x=1
for i = x,29 do
x= 1+x*2
end
result = Dialog.Message("Notice", x/100);

الحل الثاني باستغلال الدالة Math.Pow
result = Math.Pow(2, 30);
result = Dialog.Message("Notice", (result-1)/100);

الحل الثالث باستعمال منطق حسابي
p=1*(2^30-1)/(2-1)
result = Dialog.Message("Notice", p/100);

أخيرا السلام عليكم و نتمنى وضع أسئلة للبحث و التعلم :abc_138:

[ثامر أبو بلقيس]

السلام عليكم
تحب أن تريح نفسك من صداع البرمجة
إليك السؤال التالي

عندك 30 رقما ولتكن : خمسة عشرة 2 و خمسة عشرة 1
سأقوم بتشكيله من هذه الأرقام لعدد:
111111111111111222222222222222
وهذه تشكيلة ثانية
222222222222222111111111111111

السؤال : هات برنامجا يحسب عدد كل التشكيلات الممكن تكوينها من هذين الرقمين لتكوين عدد يتكون من الرقمين 1 و 2

سلام :abc_052:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
محاولة لعل وعسى تكون صحيحة
x=1
for i = x,15 do
x= 1+x*2
end
result = Dialog.Message("Notice", x/30);

[ثامر أبو بلقيس]

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

[ثامر أبو بلقيس]

السلام عليكم
أخي صالحي لقد قمت بالأمس بتعديل في مشاركتك
و قمت بالقسمة على 30 بدل 100
وكذلك في هذه الحالة النتيجة : 2184.5
خطأ
للمعلومة لا تفيدك دالة التكرار علما أن السؤال
لا يخلو من الصعوبة ؟؟ و لابد من خوارزمية حسابية واضحة :abc_138:

أشكرك على تواجدك للمحاولة لتجسيد مفهوما بسيطا للبرمجة بعيدا عن وهم التجميع :abc_138:

[فرح صالحي]

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

[ثامر أبو بلقيس]

______________________

[ثامر أبو بلقيس]

:abc_156: :abc_005:

[ثامر أبو بلقيس]

قبل وضع الحل للاستراحة البرمجية السابقة

أدعوك للاستمتاع بالبحث عن نقل تناضري لمحتويات الخلايا
في عنصر Grid لايحتوي على خلايا fixed
بحيث تنتقل المحتويات متناضرة الأولى في الاخيرة و الثانية في ما قبل الأخير
وهكذا والانتباه لعمود الوسط
ساكتب تلميح
لنقل المحتويات الأولى إلى الأخيرة و ابني عليها برنامجك
x=0
p=Grid.GetRowCount("Grid1");
s=Grid.GetColumnCount("Grid1");
for i=x,p do
c= Grid.GetCellText("Grid1", i, 0);
Grid.SetCellText("Grid1", i,s-1 , c, true);
end

بالتوفيق :abc_152:

تحتاجها في الطباعة مثلا

[ثامر أبو بلقيس]

السؤال كان هكذا :

عندك 30 رقما ولتكن : خمسة عشرة 2 و خمسة عشرة 1
سأقوم بتشكيله من هذه الأرقام لعدد:
111111111111111222222222222222
وهذه تشكيلة ثانية
222222222222222111111111111111

السؤال : هات برنامجا يحسب عدد كل التشكيلات الممكن تكوينها من هذين الرقمين لتكوين عدد يتكون من الرقمين 1 و 2

الجواب : عدد التشكيلات 155117520

الحل كالتالي :
local function fact(n)
if (n == 0) then
return 1;
else
return n*fact(n-1);
end
end
x = Input.GetText("Input1");
result = Dialog.Message("Notice",fact(x)/(fact(x/2)*(fact(x-x/2))));


نتمنى لك استراحة طيبة عزيزي الزائر :abc_138:

[ثامر أبو بلقيس]

عزيزي الزائر بعد طرح معالجة مشكل
نقل تناضري داخل العنصر grid كاستراحة
هاهو حل لكن باهمال العمود الأول
p=Grid.GetRowCount("Grid1");
s=Grid.GetColumnCount("Grid1");
for i=0,Math.Floor(s/2) do
for j = 0 , p do
k1= Grid.GetCellText("Grid1", j,i );
k2= Grid.GetCellText("Grid1", j,s-i );
Grid.SetCellText("Grid1", j,s-i , k1, true);
Grid.SetCellText("Grid1", j,i, k2, true);
end
end

هل يمكن معالجة اهمال العمود الأولــ
أي يكون تناظر حقيقي هناااك خلل بسيط أين ؟:abc_138:

[ثامر أبو بلقيس]

حتى نمر معك عزيزي إلى طرح آخر
هذا هو الحل وقد تبدوا حلولا أجمل
p=Grid.GetRowCount("Grid1");
s=Grid.GetColumnCount("Grid1");
for i=0,Math.Floor(s/2) do
for j = 0 , p do
k1= Grid.GetCellText("Grid1", j,i );
k2= Grid.GetCellText("Grid1", j,s-(i+1) );
Grid.SetCellText("Grid1", j,s-(i+1), k1, true);
Grid.SetCellText("Grid1", j,i, k2, true);
end
end

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

لا تستغرب أخي أني أسال و أحاول الاجابة فراحتي في هذه الصفحة

السلام عليكم

[ثامر أبو بلقيس]

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

تشعر بالرتابة و الملل :abc_088: افتح عزيزي الزائر مشروعا جديد:abc_022:

ولتكن لديك المجموعة التالية س = {1,2,3}

حاول استخراج كل احتمالات بكود عام التي من الممكن أن تشكل مجموعات جزئية للمجموعة
كالتالي :
{} المجموعة الخالية
{1}
{2}
{3}
{1,2}
{1,3}
{2,3}
{1,2,3}

نلتقي بود :abc_138:

[ثامر أبو بلقيس]

http://im77.gulfup.com/Ms8cG4.jpg (http://www.gulfup.com/?7MhN6L)

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
عزيزي الزائر للاجابة على الاستراحة السابقة و للحصول
على المجموعات الجزئية للمثال السابق
a = {1,2,3}
n = Table.Count(a);
table_values = Table.Concat(a, ",", 1, TABLE_ALL);
p =""
r = ""
for f = 1,n do
r=r.."{"..a[f].."}".."\r\n"
end
for i = 1,n do
for j = 1 , i do
if i ~= j then
p=p.."{"..a[i]..","..a[j].."}".."\r\n"
end
end
end
Dialog.Message("Notice","{}".."\r\n"..r.. p.."{"..table_values.."}");


لكن يبقى هذا كود صالح الا على مجموعة عناصرها أقل أو تساوي 3
أين الكود العام الذي سيسمح لنا بمعالجة كل التوقعات :abc_152:
لناااا لقاء إن شاء الله
سلام عزيزي الزائــر :abc_114:

[ثامر أبو بلقيس]

http://im77.gulfup.com/Ms8cG4.jpg (http://www.gulfup.com/?7MhN6L)

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
عزيزي الزائر لمحت في الموقع تلك الوجوه الضاحكة و المستعملة
في كثير الردود وربما بنفس النحو
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

جميل وبافتراض أن كل وجه يمثل رأس مثلث
ماهو عدد المثلثات التي يمكن تكوينها ؟
حاول كتابة برنامج يحسب الاحتمالات متفاديا استقامية ثلاث نقاط
لأنها لن تشكل مثلثا بالورقة و القلم أو رياضيا باستعمال الاحتمالات
قد تجد مثلا 23 مثلثا لكن المطلوب كتابة برمجية
موفق

[النصل القاطع]

غالبا ما أضع الوجوه الباسمة فى تشكيل مشابه
لذلك سأجيب
5 مثلثات
:abc_152:
:abc_085::abc_085:
:abc_152::abc_085::abc_152:

كل الوجوه معا تشكل المثلث الكبير
كل وجه باسم و معه وجهان غاضبان يشكلان مثلث (3 مثلثات)
الثلاثة وجوه الغاضبة تشكل مثلث
1+3+1 = 5

سأقدم حل يعتمد على عدد المستويات و ليس عدد النقاط
لأن عدد النقاط هو فى حد ذاته معضلة

فى مثالك ثلاثة صفوف من النقاط
:abc_152:
:abc_152::abc_152:
:abc_152::abc_152::abc_152:
تمثل مستويين من المثلثات
مشروع جديد
ضع 2 إنبوت
ضع زر
ضع هذا الكود فى الزر
x = Input.GetText("Input1");
x = String.ToNumber(x);

n = x * ((x + 2) * (2*x + 1)) / 8
n = Math.Floor(n);

Input.SetText("Input2", n);
ضع فى إنبوت 1 الرقم 2 لتجد الناتج 5 فى إنبوت2


هنا
:abc_152:
:abc_152::abc_152:
:abc_152::abc_152::abc_152:
:abc_152::abc_152::abc_152::abc_152:
أربعة صفوف من النقاط و هى تشكل ثلاثة مستويات من المثلثات
نفذ الكود السابق
عدد المثلثات 13

هذا الكود يتجنب إحتساب نفس المثلث أكثر من مرة
و يعتبر أن المثلث أ ب ج هو نفسه ب ج أ هو نفسه ج أ ب

و لو كانت عدد المستويات = 1000
سنحصل على ما يزيد عن 250 مليون مثلث غير متكرر

[ثامر أبو بلقيس]

بارك الله فيك أستاذي خالد
لنختلف قليلا وسأأخذ المثال الاول
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

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

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
في المشاركة الاخيرة لك اخي ثامر اليست عدد المثلثات 9
:abc_113:

[ثامر أبو بلقيس]

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

[النصل القاطع]

لن يكون الحل سهل
بالتوفيق

[ثامر أبو بلقيس]

أستاذي الكريم
كل المحاولات تأخذني دائما إلى ماذكرت لك
فمثلا :
مثالك
:abc_152::abc_152::abc_152::abc_152:
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

سيعطينا عدد المثلثات 108 مثلثا لهذا رأيت استغلال التوفيقات
يخدمنا
كتبت محاولة بسيطة جدا و اختزلت كثير المراحل في الكود التالي
x =4 ----
m = x*(x +1)/ 2
a = (m* (m -1)* (m -2))/6
b = (x* (x -1)* (x -2))/6
n = a -3*b
Dialog.Message("Notice", n);


على أساس أن قيمة x في بداية المحاولة عدد النقاط أو الأزهار
في أكبر سطر هذا ما سيكتب فقط
===== اذن الكود بالشكل المكتوب سيعالج حالة عدد أكبر سطر 3 أو 4 ====
أين توقفت ولم أجد حلا ؟؟
في السطر ماقبل الاخير
n = a -3*b
العدد 3 يكتب في حالتين اذا كانت قيمة x تساوي 3 أو 4
يتغير العدد إلى 4 في حالة x تساوي 5 أو 6
يتغير هذا المعامل إلى 5 في حالة x تساوي 7 أو 8

وهكذا تستمر العملية لأن في كل تغير وضع من رقمين يكبر معنا
استثناء أسطر الاستقامية ذات 3 نقاط و 4 نقاط و 5 نقاط .....

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

شكرا لكم و إن شاء الله نوفق لحلول أجمل :abc_138:

[النصل القاطع]

هل 108 وفقا للكود أم وفقا للعدد الحقيقى ؟؟

[ثامر أبو بلقيس]

كلاهما استعمل في المثال
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

ثم تم التعميم بناء على قناعة رياضية يمكن شرحها أكثر
قد تنتقد و قد تقيم لكن ليس لي استعداد مع نقص النظر
أن أبدأ في عملية احصاء :abc_113:

[ثامر أبو بلقيس]

أ :abc_152: ب :abc_152: ج :abc_152: د:abc_152:
هـ :abc_152: و :abc_152: ز:abc_152:
ن :abc_152: ك :abc_152:
ل:abc_152:


أ ب ز
أ ب ك
أ ب ل
أ ب ن
أ ب هـ
أ ب و
أ ج ز
أ ج ك
أ ج ل
أ ج ن
أ ج هـ
أ ج و
أ د ز
أ د ك
أ د ل
أ د ن
أ د هـ
أ د و
أ ز ك
أ ز ل
أ ز ن
أ ز هـ
أ ز و
أ ك ل
أ ك ن
أ ك هـ
أ ك و
أ ل و
أ ن و
أ هـ و
ب ج ز
ب ج ك
ب ج ل
ب ج ن
ب ج هـ
ب ج و
ب د ز
ب د ك
ب د ل
ب د ن
ب د هـ
ب د و
ب ز ك
ب ز ل
ب ز ن
ب ز هـ
ب ز و
ب ك ل
ب ك ن
ب ك هـ
ب ل ن
ب ل هـ
ب ل و
ب ن هـ
ب ن و
ب هـ و
ج د ز
ج د ك
ج د ل
ج د ن
ج د هـ
ج د و
ج ز ك
ج ز ل
ج ز ن
ج ز هـ
ج ز و
ج ك ل
ج ك ن
ج ك هـ
ج ك و
ج ل ن
ج ل هـ
ج ل و
ج ن هـ
ج هـ و
د ز ن
د ز هـ
د ز و
د ك ن
د ك هـ
د ك و
د ل ن
د ل هـ
د ل و
د ن هـ
د ن و
د هـ و
ز ك ن
ز ك هـ
ز ك و
ز ل ن
ز ل هـ
ز ل و
ز ن هـ
ز ن و
ك ل ن
ك ل هـ
ك ل و
ك ن هـ
ك ن و
ك هـ و
ل ن و
ل هـ و
ن هـ و


105 بقي 3 ماوجدتهم تخلطت الأمور عني

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
موهبة والله . متعك الله بالصحة والعافية
جازاك الله خيرا وبارك فيك ونفع بك
لك مني اجمل تحية
:abc_026:

[ثامر أبو بلقيس]

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

[ثامر أبو بلقيس]

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

ولتكن المجموعة مثلا
a = {5,3,1,0}
وليس شرطا أن تكون قيم عددية
لايجاد كل المجموعات الجزئية الممكن تكوينها
نقوم بتحويل كل عدد من 1 إلى غاية عدد اجزاء المجموعة إلى النظام " بينير" أي الثنائي
وفي كل طباعة تقوم بطباعة القيمة أو الخانة أو العنصر الموافق لرقم المرحلة التي يتحقق فيها باقي
القسمة =1 أثناء عملية التحويل إلى النظام الثنائي
مثال : الباقي 0 .0.1.0
تطبع الخانة
a[3]

مثلا : البوقي 1 . 0 . 1 . 1
تطبع بالترتيب :
a[1]
a[3]
a[4]
المرحلة الثانية لم تطبع لانها لم تحقق الشرط

موفق :abc_152:
أنجز البرنامج الان بناء على الفكرة المطروحة ولاتبحث كثيرا خارج الموقع ستتعب فقط .
لا تركز على ايجاد تعليق على الجملة السابقة و جرب " نعم استفزاز برمجي :abc_138:"

[فرح صالحي]

http://im68.gulfup.com/6mizCm.gifhttp://im68.gulfup.com/6mizCm.gifhttp://im68.gulfup.com/6mizCm.gif

[ثامر أبو بلقيس]

http://im68.gulfup.com/6mizcm.gifhttp://im68.gulfup.com/6mizcm.gifhttp://im68.gulfup.com/6mizcm.gif

मुझे समझ में नहीं आया

[فرح صالحي]

मुझे समझ में नहीं आया
========================================
ههههههههه
السلام عليكم ورحمة الله وبركاته

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

[ثامر أبو بلقيس]

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

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

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

[ثامر أبو بلقيس]

عزيزي الزائر لعلك تحاول في بناء خوارزمية وفق ما تم توضيحه
إليك ببعض النتائج للمقارنة و معرفة كيفية التجزئة التي ستتم مرتبة حسب الفكرة المطروحة

اذ كانت المجموعة :
a = {1,2,3}
النتائج :
http://im69.gulfup.com/SvDzbJ.bmp (http://www.gulfup.com/?gmctaJ)

اذ كانت المجموعة :
a = {1,2,3,4}
النتيجة
http://im69.gulfup.com/bD48Xn.bmp (http://www.gulfup.com/?8QMeKL)

اذ كانت المجموعة :
a = {1,2,3,4,5,6}

النتيجة :
http://im69.gulfup.com/gtDpSh.bmp (http://www.gulfup.com/?1JSFtj)

اذ كانت المجموعة :
a = {1,2,3,4,5,6,7,8,9}

النتيجة
http://im69.gulfup.com/5YolKd.bmp (http://www.gulfup.com/?2NcPjS)

نلتقي بود ------------------------------------------------------------------------------------

[ثامر أبو بلقيس]

و سيبقي هذا الطرح البرمجي مفتوحا للمحاولة أقصى مدة ممكنة
خذ كامل وقتك عزيزي :abc_138:
أبوبلقيس 05 ماي 2014
لنا عودة إن شاء الله

[بريزة]

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

[ثامر أبو بلقيس]

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

مرور عطر بارك الله فيك
تقديري و احترامي :abc_152:

[ثامر أبو بلقيس]

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

قبل الرجوع لآخر إنشغال .... أحببت أن أقرأ لأخ كريم أكواد أعجبتني شعرت أنه لم يطلع عليها متعلقة بمنصة الوينداوز
و الوصول إلى بعض التفاصيل الدقيقــة في الجهاز قبل ذلك تفعيل الاضافة LuaCom ضروري
لعمل الأكواد
ملاحظة : بعض القيم المتغيرة اذ أريد توظيفها من الاحسن تستدعى من خلال الحدث on timer
قرأت لك اليوم قد تحتاجها :
الأكواد المتعلقة بــ : DataFile

function WMIDateStringToDate(dtmDate)
if dtmDate then
dtmDate = tostring(dtmDate);
return (String.Mid (dtmDate, 7, 2) .. "/" ..
String.Mid (dtmDate, 5, 2) .. "/" ..
String.Left(dtmDate, 4) .. " " ..
String.Mid (dtmDate, 9, 2) .. ":" ..
String.Mid (dtmDate, 11, 2) .. ":" ..
String.Mid (dtmDate, 13, 2)
);
else
return "";
end
end

function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM CIM_DataFile", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "AccessMask: " .. Escape(oItem:AccessMask()) .. "\r\n";
sOutput = sOutput .. "Archive: " .. Escape(oItem:Archive()) .. "\r\n";
sOutput = sOutput .. "Caption: " .. Escape(oItem:Caption()) .. "\r\n";
sOutput = sOutput .. "Compressed: " .. Escape(oItem:Compressed()) .. "\r\n";
sOutput = sOutput .. "CompressionMethod: " .. Escape(oItem:CompressionMethod()) .. "\r\n";
sOutput = sOutput .. "CreationClassName: " .. Escape(oItem:CreationClassName()) .. "\r\n";
sOutput = sOutput .. "CreationDate: " .. WMIDateStringToDate(oItem:CreationDate()) .. "\r\n";
sOutput = sOutput .. "CSCreationClassName: " .. Escape(oItem:CSCreationClassName()) .. "\r\n";
sOutput = sOutput .. "CSName: " .. Escape(oItem:CSName()) .. "\r\n";
sOutput = sOutput .. "Description: " .. Escape(oItem:Description()) .. "\r\n";
sOutput = sOutput .. "Drive: " .. Escape(oItem:Drive()) .. "\r\n";
sOutput = sOutput .. "EightDotThreeFileName: " .. Escape(oItem:EightDotThreeFileName()) .. "\r\n";
sOutput = sOutput .. "Encrypted: " .. Escape(oItem:Encrypted()) .. "\r\n";
sOutput = sOutput .. "EncryptionMethod: " .. Escape(oItem:EncryptionMethod()) .. "\r\n";
sOutput = sOutput .. "Extension: " .. Escape(oItem:Extension()) .. "\r\n";
sOutput = sOutput .. "FileName: " .. Escape(oItem:FileName()) .. "\r\n";
sOutput = sOutput .. "FileSize: " .. Escape(oItem:FileSize()) .. "\r\n";
sOutput = sOutput .. "FileType: " .. Escape(oItem:FileType()) .. "\r\n";
sOutput = sOutput .. "FSCreationClassName: " .. Escape(oItem:FSCreationClassName()) .. "\r\n";
sOutput = sOutput .. "FSName: " .. Escape(oItem:FSName()) .. "\r\n";
sOutput = sOutput .. "Hidden: " .. Escape(oItem:Hidden()) .. "\r\n";
sOutput = sOutput .. "InstallDate: " .. WMIDateStringToDate(oItem:InstallDate()) .. "\r\n";
sOutput = sOutput .. "InUseCount: " .. Escape(oItem:InUseCount()) .. "\r\n";
sOutput = sOutput .. "LastAccessed: " .. WMIDateStringToDate(oItem:LastAccessed()) .. "\r\n";
sOutput = sOutput .. "LastModified: " .. WMIDateStringToDate(oItem:LastModified()) .. "\r\n";
sOutput = sOutput .. "Manufacturer: " .. Escape(oItem:Manufacturer()) .. "\r\n";
sOutput = sOutput .. "Name: " .. Escape(oItem:Name()) .. "\r\n";
sOutput = sOutput .. "Path: " .. Escape(oItem:Path()) .. "\r\n";
sOutput = sOutput .. "Readable: " .. Escape(oItem:Readable()) .. "\r\n";
sOutput = sOutput .. "Status: " .. Escape(oItem:Status()) .. "\r\n";
sOutput = sOutput .. "System: " .. Escape(oItem:System()) .. "\r\n";
sOutput = sOutput .. "Version: " .. Escape(oItem:Version()) .. "\r\n";
sOutput = sOutput .. "Writeable: " .. Escape(oItem:Writeable()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: CIM_DataFile");
end

- الأكواد المتعلقة بــ DirectoryContainsFile


function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM CIM_DirectoryContainsFile", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "GroupComponent: " .. Escape(oItem:GroupComponent()) .. "\r\n";
sOutput = sOutput .. "PartComponent: " .. Escape(oItem:PartComponent()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: CIM_DirectoryContainsFile");
end

الأكواد المتعلقة بــ ProcessExecutable
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM CIM_ProcessExecutable", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Antecedent: " .. Escape(oItem:Antecedent()) .. "\r\n";
sOutput = sOutput .. "BaseAddress: " .. Escape(oItem:BaseAddress()) .. "\r\n";
sOutput = sOutput .. "Dependent: " .. Escape(oItem:Dependent()) .. "\r\n";
sOutput = sOutput .. "GlobalProcessCount: " .. Escape(oItem:GlobalProcessCount()) .. "\r\n";
sOutput = sOutput .. "ModuleInstance: " .. Escape(oItem:ModuleInstance()) .. "\r\n";
sOutput = sOutput .. "ProcessCount: " .. Escape(oItem:ProcessCount()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: CIM_ProcessExecutable");
end

الأكواد المتعلقة بــ VideoControllerResolution
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM CIM_VideoControllerResolution", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Caption: " .. Escape(oItem:Caption()) .. "\r\n";
sOutput = sOutput .. "Description: " .. Escape(oItem:Description()) .. "\r\n";
sOutput = sOutput .. "HorizontalResolution: " .. Escape(oItem:HorizontalResolution()) .. "\r\n";
sOutput = sOutput .. "MaxRefreshRate: " .. Escape(oItem:MaxRefreshRate()) .. "\r\n";
sOutput = sOutput .. "MinRefreshRate: " .. Escape(oItem:MinRefreshRate()) .. "\r\n";
sOutput = sOutput .. "NumberOfColors: " .. Escape(oItem:NumberOfColors()) .. "\r\n";
sOutput = sOutput .. "RefreshRate: " .. Escape(oItem:RefreshRate()) .. "\r\n";
sOutput = sOutput .. "ScanMode: " .. Escape(oItem:ScanMode()) .. "\r\n";
sOutput = sOutput .. "SettingID: " .. Escape(oItem:SettingID()) .. "\r\n";
sOutput = sOutput .. "VerticalResolution: " .. Escape(oItem:VerticalResolution()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: CIM_VideoControllerResolution");
end

الأكواد المتعلقة بــ Providers

function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Msft_Providers", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "HostingGroup: " .. Escape(oItem:HostingGroup()) .. "\r\n";
sOutput = sOutput .. "HostingSpecification: " .. Escape(oItem:HostingSpecification()) .. "\r\n";
sOutput = sOutput .. "HostProcessIdentifier: " .. Escape(oItem:HostProcessIdentifier()) .. "\r\n";
sOutput = sOutput .. "Locale: " .. Escape(oItem:Locale()) .. "\r\n";
sOutput = sOutput .. "Namespace: " .. Escape(oItem:Namespace()) .. "\r\n";
sOutput = sOutput .. "provider: " .. Escape(oItem:provider()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_AccessCheck: " .. Escape(oItem:ProviderOperation_AccessCheck()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CancelQuery: " .. Escape(oItem:ProviderOperation_CancelQuery()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateClassEnumAsync: " .. Escape(oItem:ProviderOperation_CreateClassEnumAsyn c()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateInstanceEnumAsync: " .. Escape(oItem:ProviderOperation_CreateInstanceEnumA sync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateRefreshableEnum: " .. Escape(oItem:ProviderOperation_CreateRefreshableEn um()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateRefreshableObject: " .. Escape(oItem:ProviderOperation_CreateRefreshableOb ject()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateRefresher: " .. Escape(oItem:ProviderOperation_CreateRefresher()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_DeleteClassAsync: " .. Escape(oItem:ProviderOperation_DeleteClassAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_DeleteInstanceAsync: " .. Escape(oItem:ProviderOperation_DeleteInstanceAsync ()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ExecMethodAsync: " .. Escape(oItem:ProviderOperation_ExecMethodAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ExecQueryAsync: " .. Escape(oItem:ProviderOperation_ExecQueryAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_FindConsumer: " .. Escape(oItem:ProviderOperation_FindConsumer()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_GetObjectAsync: " .. Escape(oItem:ProviderOperation_GetObjectAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_GetObjects: " .. Escape(oItem:ProviderOperation_GetObjects()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_GetProperty: " .. Escape(oItem:ProviderOperation_GetProperty()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_NewQuery: " .. Escape(oItem:ProviderOperation_NewQuery()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ProvideEvents: " .. Escape(oItem:ProviderOperation_ProvideEvents()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_PutClassAsync: " .. Escape(oItem:ProviderOperation_PutClassAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_PutInstanceAsync: " .. Escape(oItem:ProviderOperation_PutInstanceAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_PutProperty: " .. Escape(oItem:ProviderOperation_PutProperty()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_QueryInstances: " .. Escape(oItem:ProviderOperation_QueryInstances()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_SetRegistrationObject: " .. Escape(oItem:ProviderOperation_SetRegistrationObje ct()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_StopRefreshing: " .. Escape(oItem:ProviderOperation_StopRefreshing()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ValidateSubscription: " .. Escape(oItem:ProviderOperation_ValidateSubscriptio n()) .. "\r\n";
sOutput = sOutput .. "TransactionIdentifier: " .. Escape(oItem:TransactionIdentifier()) .. "\r\n";
sOutput = sOutput .. "User: " .. Escape(oItem:User()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Msft_Providers");
end

الأكواد المتعلقة بــ Provider Counters
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Msft_WmiProvider_Counters", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "ProviderOperation_AccessCheck: " .. Escape(oItem:ProviderOperation_AccessCheck()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CancelQuery: " .. Escape(oItem:ProviderOperation_CancelQuery()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateClassEnumAsync: " .. Escape(oItem:ProviderOperation_CreateClassEnumAsyn c()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateInstanceEnumAsync: " .. Escape(oItem:ProviderOperation_CreateInstanceEnumA sync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateRefreshableEnum: " .. Escape(oItem:ProviderOperation_CreateRefreshableEn um()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateRefreshableObject: " .. Escape(oItem:ProviderOperation_CreateRefreshableOb ject()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_CreateRefresher: " .. Escape(oItem:ProviderOperation_CreateRefresher()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_DeleteClassAsync: " .. Escape(oItem:ProviderOperation_DeleteClassAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_DeleteInstanceAsync: " .. Escape(oItem:ProviderOperation_DeleteInstanceAsync ()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ExecMethodAsync: " .. Escape(oItem:ProviderOperation_ExecMethodAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ExecQueryAsync: " .. Escape(oItem:ProviderOperation_ExecQueryAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_FindConsumer: " .. Escape(oItem:ProviderOperation_FindConsumer()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_GetObjectAsync: " .. Escape(oItem:ProviderOperation_GetObjectAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_GetObjects: " .. Escape(oItem:ProviderOperation_GetObjects()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_GetProperty: " .. Escape(oItem:ProviderOperation_GetProperty()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_NewQuery: " .. Escape(oItem:ProviderOperation_NewQuery()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ProvideEvents: " .. Escape(oItem:ProviderOperation_ProvideEvents()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_PutClassAsync: " .. Escape(oItem:ProviderOperation_PutClassAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_PutInstanceAsync: " .. Escape(oItem:ProviderOperation_PutInstanceAsync()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_PutProperty: " .. Escape(oItem:ProviderOperation_PutProperty()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_QueryInstances: " .. Escape(oItem:ProviderOperation_QueryInstances()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_SetRegistrationObject: " .. Escape(oItem:ProviderOperation_SetRegistrationObje ct()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_StopRefreshing: " .. Escape(oItem:ProviderOperation_StopRefreshing()) .. "\r\n";
sOutput = sOutput .. "ProviderOperation_ValidateSubscription: " .. Escape(oItem:ProviderOperation_ValidateSubscriptio n()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Msft_WmiProvider_Counters");
end

الأكواد المتعلقة بــ NetDiagnostics

function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM NetDiagnostics", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "bIEProxy: " .. Escape(oItem:bIEProxy()) .. "\r\n";
sOutput = sOutput .. "id: " .. Escape(oItem:id()) .. "\r\n";
sOutput = sOutput .. "IEProxy: " .. Escape(oItem:IEProxy()) .. "\r\n";
sOutput = sOutput .. "IEProxyPort: " .. Escape(oItem:IEProxyPort()) .. "\r\n";
sOutput = sOutput .. "NewsNNTPPort: " .. Escape(oItem:NewsNNTPPort()) .. "\r\n";
sOutput = sOutput .. "NewsServer: " .. Escape(oItem:NewsServer()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: NetDiagnostics");
end

الأكواد المتعلقة بــ AccountSID
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_AccountSID", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Element: " .. Escape(oItem:Element()) .. "\r\n";
sOutput = sOutput .. "Setting: " .. Escape(oItem:Setting()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_AccountSID");
end

الأكواد المتعلقة بــ ActionCheck
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_ActionCheck", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Action: " .. Escape(oItem:Action()) .. "\r\n";
sOutput = sOutput .. "Check: " .. Escape(oItem:Check()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_ActionCheck");
end

الأكواد المتعلقة بــ AllocatedResource
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_AllocatedResource", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Antecedent: " .. Escape(oItem:Antecedent()) .. "\r\n";
sOutput = sOutput .. "Dependent: " .. Escape(oItem:Dependent()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_AllocatedResource");
end

الأكواد المتعلقة بـــ Win32_ApplicationCommandLine
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_ApplicationCommandLine", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Antecedent: " .. Escape(oItem:Antecedent()) .. "\r\n";
sOutput = sOutput .. "Dependent: " .. Escape(oItem:Dependent()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_ApplicationCommandLine");
end

الأكواد المتعلقة بــ ApplicationService
function WMIDateStringToDate(dtmDate)
if dtmDate then
dtmDate = tostring(dtmDate);
return (String.Mid (dtmDate, 7, 2) .. "/" ..
String.Mid (dtmDate, 5, 2) .. "/" ..
String.Left(dtmDate, 4) .. " " ..
String.Mid (dtmDate, 9, 2) .. ":" ..
String.Mid (dtmDate, 11, 2) .. ":" ..
String.Mid (dtmDate, 13, 2)
);
else
return "";
end
end

function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_ApplicationService", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Caption: " .. Escape(oItem:Caption()) .. "\r\n";
sOutput = sOutput .. "CreationClassName: " .. Escape(oItem:CreationClassName()) .. "\r\n";
sOutput = sOutput .. "Description: " .. Escape(oItem:Description()) .. "\r\n";
sOutput = sOutput .. "InstallDate: " .. WMIDateStringToDate(oItem:InstallDate()) .. "\r\n";
sOutput = sOutput .. "Name: " .. Escape(oItem:Name()) .. "\r\n";
sOutput = sOutput .. "Started: " .. Escape(oItem:Started()) .. "\r\n";
sOutput = sOutput .. "StartMode: " .. Escape(oItem:StartMode()) .. "\r\n";
sOutput = sOutput .. "Status: " .. Escape(oItem:Status()) .. "\r\n";
sOutput = sOutput .. "SystemCreationClassName: " .. Escape(oItem:SystemCreationClassName()) .. "\r\n";
sOutput = sOutput .. "SystemName: " .. Escape(oItem:SystemName()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_ApplicationService");
end

الأكواد المتعلقة بــ AssociatedProcessorMemory
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_AssociatedProcessorMemory", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Antecedent: " .. Escape(oItem:Antecedent()) .. "\r\n";
sOutput = sOutput .. "BusSpeed: " .. Escape(oItem:BusSpeed()) .. "\r\n";
sOutput = sOutput .. "Dependent: " .. Escape(oItem:Dependent()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_AssociatedProcessorMemory");
end

الأكواد المتعلقة بــ AutochkSetting
function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_AutochkSetting", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Caption: " .. Escape(oItem:Caption()) .. "\r\n";
sOutput = sOutput .. "Description: " .. Escape(oItem:Description()) .. "\r\n";
sOutput = sOutput .. "SettingID: " .. Escape(oItem:SettingID()) .. "\r\n";
sOutput = sOutput .. "UserInputDelay: " .. Escape(oItem:UserInputDelay()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_AutochkSetting");
end

الأكواد المتعلقة بــ BaseBoard
function WMIDateStringToDate(dtmDate)
if dtmDate then
dtmDate = tostring(dtmDate);
return (String.Mid (dtmDate, 7, 2) .. "/" ..
String.Mid (dtmDate, 5, 2) .. "/" ..
String.Left(dtmDate, 4) .. " " ..
String.Mid (dtmDate, 9, 2) .. ":" ..
String.Mid (dtmDate, 11, 2) .. ":" ..
String.Mid (dtmDate, 13, 2)
);
else
return "";
end
end

function Escape(v)
if (v == nil) then return ""; end
if (type(v) == "table") then return Table.Concat(v, ", "); end
if (type(v) == "boolean") then
if (v == true) then return "Yes"; else return "No"; end
end
return v;
end

local sOutput = "";
local sOutputTitle = "Computer: localhost\r\n===================================== =====\r\n\r\n";
local oWMIService = luacom.GetObject("winmgmts:\\\\localhost\\root\\CIMV2");
local oColItems = oWMIService:ExecQuery("SELECT * FROM Win32_BaseBoard", "WQL", 48);
if oColItems then
local oEnum = luacom.GetEnumerator(oColItems);
local oItem = oEnum:Next();
while oItem do
sOutput = sOutput .. "Caption: " .. Escape(oItem:Caption()) .. "\r\n";
sOutput = sOutput .. "ConfigOptions: " .. Escape(oItem:ConfigOptions()) .. "\r\n";
sOutput = sOutput .. "CreationClassName: " .. Escape(oItem:CreationClassName()) .. "\r\n";
sOutput = sOutput .. "Depth: " .. Escape(oItem:Depth()) .. "\r\n";
sOutput = sOutput .. "Description: " .. Escape(oItem:Description()) .. "\r\n";
sOutput = sOutput .. "Height: " .. Escape(oItem:Height()) .. "\r\n";
sOutput = sOutput .. "HostingBoard: " .. Escape(oItem:HostingBoard()) .. "\r\n";
sOutput = sOutput .. "HotSwappable: " .. Escape(oItem:HotSwappable()) .. "\r\n";
sOutput = sOutput .. "InstallDate: " .. WMIDateStringToDate(oItem:InstallDate()) .. "\r\n";
sOutput = sOutput .. "Manufacturer: " .. Escape(oItem:Manufacturer()) .. "\r\n";
sOutput = sOutput .. "Model: " .. Escape(oItem:Model()) .. "\r\n";
sOutput = sOutput .. "Name: " .. Escape(oItem:Name()) .. "\r\n";
sOutput = sOutput .. "OtherIdentifyingInfo: " .. Escape(oItem:OtherIdentifyingInfo()) .. "\r\n";
sOutput = sOutput .. "PartNumber: " .. Escape(oItem:PartNumber()) .. "\r\n";
sOutput = sOutput .. "PoweredOn: " .. Escape(oItem:PoweredOn()) .. "\r\n";
sOutput = sOutput .. "Product: " .. Escape(oItem:Product()) .. "\r\n";
sOutput = sOutput .. "Removable: " .. Escape(oItem:Removable()) .. "\r\n";
sOutput = sOutput .. "Replaceable: " .. Escape(oItem:Replaceable()) .. "\r\n";
sOutput = sOutput .. "RequirementsDescription: " .. Escape(oItem:RequirementsDescription()) .. "\r\n";
sOutput = sOutput .. "RequiresDaughterBoard: " .. Escape(oItem:RequiresDaughterBoard()) .. "\r\n";
sOutput = sOutput .. "SerialNumber: " .. Escape(oItem:SerialNumber()) .. "\r\n";
sOutput = sOutput .. "SKU: " .. Escape(oItem:SKU()) .. "\r\n";
sOutput = sOutput .. "SlotLayout: " .. Escape(oItem:SlotLayout()) .. "\r\n";
sOutput = sOutput .. "SpecialRequirements: " .. Escape(oItem:SpecialRequirements()) .. "\r\n";
sOutput = sOutput .. "Status: " .. Escape(oItem:Status()) .. "\r\n";
sOutput = sOutput .. "Tag: " .. Escape(oItem:Tag()) .. "\r\n";
sOutput = sOutput .. "Version: " .. Escape(oItem:Version()) .. "\r\n";
sOutput = sOutput .. "Weight: " .. Escape(oItem:Weight()) .. "\r\n";
sOutput = sOutput .. "Width: " .. Escape(oItem:Width()) .. "\r\n";
if (Dialog.Message("WMI Output", sOutputTitle .. sOutput, 1) == 2) then break; end
sOutput = "";
oItem = oEnum:Next();
end
else
Dialog.Message("WMI Output", "No WMI Objects Found for class: Win32_BaseBoard");
end

يتبع :abc_138:

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
موفق بإذن الله ... لك مني أجمل تحية . موفق بإذن الله ... لك مني أجمل تحية .
:abc_152:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
كان الله في عونك وأسكنك الفردوس الاعلى
موفق بإذن الله ... لك مني أجمل تحية .
http://im53.gulfup.com/ZkUhRt.gifhttp://im53.gulfup.com/ZkUhRt.gif

[ثامر أبو بلقيس]

قبل مواصلة مجموعة أخرى ضخمة المتعلقة بمنصة الوينداوز

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

1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory
2 - نزرع في globbal functions
function EnableWindow(nHWND, bEnable)
local nEnable=0
if bEnable then nEnable = 1 end
DLL.CallFunction("user32.dll", "EnableWindow", nHWND..","..nEnable, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
function MouseClipping()
_RECT = Memory.CreateStructure("long, long, long, long");
Memory.SetStructureData(_RECT, 1, 0, nLeft, "");--left
Memory.SetStructureData(_RECT, 2, 0, nTop, "");--top
Memory.SetStructureData(_RECT, 3, 0, nRight, "");--right
Memory.SetStructureData(_RECT, 4, 0, nBottom, "");--bottom
DLL.CallFunction(_SystemFolder.."\\User32.dll", "ClipCursor", _RECT, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Memory.FreeStructure(_RECT);
end
function Screen_coordinates()
nLeft = 0;
nTop = 0;
nRight = System.GetDisplayInfo().Width;
nBottom = System.GetDisplayInfo().Height;
end
function Do_clipping()
Input.SetText ("Input_left", nLeft);
Input.SetText ("Input_top", nTop);
Input.SetText ("Input_right", nRight);
Input.SetText ("Input_bottom", nBottom);
Page.StartTimer(250);
Label.SetText ("Label4", "Press Alt+F4 to disable clipping.");
Ex_it = 1;
end

3 - في on show
nHWND = Application.GetWndHandle();
nLeft = Window.GetPos (nHWND).X;
nTop = Window.GetPos (nHWND).Y;
nRight = Window.GetSize (nHWND).Width+nLeft;
nBottom = Window.GetSize (nHWND).Height+nTop;
Do_clipping();


4 - في on timer
nActiveHWND = String.ToNumber(DLL.CallFunction(_SystemFolder.."\\User32.dll", "GetActiveWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if nActiveHWND == nHWND then
else
EnableWindow(nHWND, true);
end
MouseClipping();


--عاين مشروعك حينها تكتشف أنه كان من الأحسن وضع زر للمغادرة :abc_025:
السلام عليكم ورحمة الله تعالى و بركاته

[فرح صالحي]

وعليكم السلام ورحمة الله وبركاته
عندما اطلعت على اكواد منع الخروج من التجميعة قلت لماذا لا اجعلها مرنة مع حجم الشاشة ثم في نفس الوقت امنعه من الخروج منها
فكانت النتيجة الملف المفتوح التالي
http://www.gulfup.com/?C9YrdA
بالتوفيق
:abc_152:

[ثامر أبو بلقيس]

لجمع كلا الكودين في ملف واحد علينا بطريقة أخرى وهي تحديد دقة الشاشة و تخزينها
عند دخول التجميعة و تتغير الاكواد بطرح قيمة قليلة من على الزوايا الأربعة
--------------------------------------------------
أما غير هذا الاختيار فالماوس يبقى ممنوعا من تجاوز حد حيز التجميعة
أليس كذلك
موفق :abc_138:

[ثامر أبو بلقيس]

وعليكم السلام ورحمة الله وبركاته
عندما اطلعت على اكواد منع الخروج من التجميعة قلت لماذا لا اجعلها مرنة مع حجم الشاشة ثم في نفس الوقت امنعه من الخروج منها
فكانت النتيجة الملف المفتوح التالي
http://www.gulfup.com/?C9YrdA
بالتوفيق
:abc_152:

:abc_023:Memory

[فرح صالحي]

:abc_023:Memory

السلام عليكم ورحمة الله وبركاته
ما فهمت شيء !!!
:abc_113:

[ثامر أبو بلقيس]

1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory

هل فعلت الاضافة المشار اليها عند وضعك للملف المفتوح :abc_113:

[ثامر أبو بلقيس]

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

لمحتك أخي تبحث عن اخفاء و اظهار شريط المهام و توظيف ذلك
في أحداث معينة حسب المشروع

استغل نفس الاضافة المذكورة في آخر مشاركة
Memory و بعد تفعيلها
- في global functions نكتب :
function Hide_Taskbar(arg)
mem = Memory.Allocate(256)
Memory.PutString(mem, "Shell_traywnd", -1)
h = DLL.CallFunction("user32.dll", "FindWindowA", mem..", 0", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
if (arg == false) then
DLL.CallFunction("user32.dll", "SetWindowPos", h..", 0, 0, 0, 0, 0, 64", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
else
DLL.CallFunction("user32.dll", "SetWindowPos", h..", 0, 0, 0, 0, 0, 128", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end
Memory.Free(mem)
DLL.CallFunction("user32.dll", "SetFocus", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

- لتنفيذ الإخفاء
Hide_Taskbar(true)
Window.Show(Application.GetWndHandle());


- لتنفيذ الإظهار :
Hide_Taskbar(false)
Window.Show(Application.GetWndHandle());

موفق :abc_138:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
هذه هي النتيجة
http://www.gulfup.com/?IeZSoG
في الواقع فهمت بالغالط كنت اظن ان الاخفاء والاظهار يقع داخل التجميعة
موفق بإذن الله:abc_152:... لك مني أجمل تحية .

[ثامر أبو بلقيس]

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

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

اليوم عندك عملية نسخ باستعمال الاضافة Clipboard حبيت تعرف
عدد الاسطر بطريقة ممتعة و غير منقولة :abc_088:

ازرع السطر تحت زر أنسخ ما تريده اضغط على الزر سيحسب لك عدد الاسطر
المنسوخة من الملف النصي
Dialog.Message("^_^",String.Length(Clipboard.GetText())-String.Length(String.Replace(Clipboard.GetText(), "\r\n", ".", true)));


في المرة القادمة اذا وجدنا وقت نحسبوها بنصف سطر :abc_138:


مع ملاحظة الخلل العام في البرنامج لتحديد مفهوم السطر !!!!!

[minomars]

^_^ ههههههههههههههههه شكرا :abc_083:

[ثامر أبو بلقيس]

^_^ ههههههههههههههههه شكرا :abc_083:

شكرا مينو :abc_085:

[حازم الداهش]

شكرا على تلك الطريقة الجديدة و المفهومة :abc_022:

[عمران الطاهر]

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

يجب أن تضع للبعض سمعات قبل إعطائها إلى ثامر أبو بلقيس مرة أخرى.

:abc_139:

[محمود خليل]

http://im45.gulfup.com/buwdKw.jpg
قم بتغيير تلك الصورة القبيحة من معرفك
لدينا اطفال لا يسرها رؤية وجه معرفك القبيح

ان الله جميل يحب الجمال
هذا ان كنت مسلم

[ثامر أبو بلقيس]

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

ان الله جميل يحب الجمال
هذا ان كنت مسلم
أضم صوتي لصوتك
بارك الله فيك ملاحظة في الصميم :abc_138:

نرجو التعديل بما يليق

[عمران الطاهر]

http://im45.gulfup.com/buwdkw.jpg
قم بتغيير تلك الصورة القبيحة من معرفك
لدينا اطفال لا يسرها رؤية وجه معرفك القبيح

ان الله جميل يحب الجمال
هذا ان كنت مسلم
نصيحة مقبولة تم تعديلها

[ثامر أبو بلقيس]

شكرا على تلك الطريقة الجديدة و المفهومة :abc_022:

مرور عطر :abc_138:

طالعت منذ قليل دالة تكرارية تساعد في حساب الاسطر
local Search = Clipboard.GetText();
local Lines = 1;
local Position = 1;
while (true) do
local Found = String.Find(Search, "\r\n", Position, false);
if (Found ~= -1) then
Lines = Lines + 1;
Position = Found + 1;
else
break;
end
end
Dialog.Message("Notice",Lines );


مازلت أقول أنه يوجد خلل في البرنامج في تحديد الاسطر

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

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


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

[ثامر أبو بلقيس]

جيد

طريقة البحث في ملفات الايكسل عن طريق الاوتوبلاي بدون إضافات
في نطاق معين و تحديد الخلية و الملف المتضمن لمفردة البحث


من هنااااااا (http://up.top4top.net/downloadf-top4top_65e8c2d9151-rar.html)

[ثامر أبو بلقيس]

بعد حصة المسامح كريم سنتواصل :abc_138:

[فرح صالحي]

نتمنى دائما ان تكون في تمام الصحة والعافية
ونرجوا من الله ان يستجيب دعاءنا لاخوتنا
بالتوفيق اينما كنت وكيفما كنت
:abc_152:

[ثامر أبو بلقيس]

عودة لهاته الصفحات ... ها أنا اليوم سأضع محاولة
لعبة المربعات السحرية بتسع خانات
اذ كانت الردود تشكل عليك عائق و عبء لتحميل المخفي أغلق اللسان العلوي
و عد لما كنت تتصفحه ... لم تجبر على شيء :abc_138:
--------------------------------------------------------
من هناااا (http://www.gulfup.com/?AiAuTP)

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
هذه محاولتي الاولي
http://im70.gulfup.com/lzW2Oa.jpg
موفق بإذن الله ..:abc_152:. لك مني أجمل تحية .

[ثامر أبو بلقيس]

شكرا أخي فرح على المتابعة المفيدة و الاهتمام و سأحاول إهدائك قبل
حلول الليل فكرة للعبة خلينا نسميها الليل:abc_138:

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم

الغاية من الفكرة في الملف هي تنشيط الذاكرة و تمكين المستخدم من تخزين معلومة ثم استرجاعها

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

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

الإضافة المستعملة في الملف هي SHAPE

من هنااااا (http://www.gulfup.com/?FAeJt1)

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
نتائجي في هذه اللعبة كانت مخيبة للآمال
موفق بإذن الله .:abc_152:.. لك مني أجمل تحية .

[ثامر أبو بلقيس]

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

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

نتواصل معكم لنكتشف خبايا الموضوع و لنا عودة

[احمدعمار]

قبل مواصلة مجموعة أخرى ضخمة المتعلقة بمنصة الوينداوز

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

1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory
2 - نزرع في globbal functions
function EnableWindow(nHWND, bEnable)
local nEnable=0
if bEnable then nEnable = 1 end
DLL.CallFunction("user32.dll", "EnableWindow", nHWND..","..nEnable, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
function MouseClipping()
_RECT = Memory.CreateStructure("long, long, long, long");
Memory.SetStructureData(_RECT, 1, 0, nLeft, "");--left
Memory.SetStructureData(_RECT, 2, 0, nTop, "");--top
Memory.SetStructureData(_RECT, 3, 0, nRight, "");--right
Memory.SetStructureData(_RECT, 4, 0, nBottom, "");--bottom
DLL.CallFunction(_SystemFolder.."\\User32.dll", "ClipCursor", _RECT, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Memory.FreeStructure(_RECT);
end
function Screen_coordinates()
nLeft = 0;
nTop = 0;
nRight = System.GetDisplayInfo().Width;
nBottom = System.GetDisplayInfo().Height;
end
function Do_clipping()
Input.SetText ("Input_left", nLeft);
Input.SetText ("Input_top", nTop);
Input.SetText ("Input_right", nRight);
Input.SetText ("Input_bottom", nBottom);
Page.StartTimer(250);
Label.SetText ("Label4", "Press Alt+F4 to disable clipping.");
Ex_it = 1;
end3 - في on show
nHWND = Application.GetWndHandle();
nLeft = Window.GetPos (nHWND).X;
nTop = Window.GetPos (nHWND).Y;
nRight = Window.GetSize (nHWND).Width+nLeft;
nBottom = Window.GetSize (nHWND).Height+nTop;
Do_clipping();
4 - في on timer
nActiveHWND = String.ToNumber(DLL.CallFunction(_SystemFolder.."\\User32.dll", "GetActiveWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if nActiveHWND == nHWND then
else
EnableWindow(nHWND, true);
end
MouseClipping();--عاين مشروعك حينها تكتشف أنه كان من الأحسن وضع زر للمغادرة :abc_025:
السلام عليكم ورحمة الله تعالى و بركاته
بالنسبة لتفعيل الاضافة
Memory
كيف يتم ذلك؟
لاننى اواجه رسالة
http://cdn.top4top.co/i_c7052cca091.jpg (http://up.top4top.net/)

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
http://store4.up-00.com/2015-11/1446888702581.bmp

[احمدعمار]

ممتاااااااااااااااااااااا ااااااااااااااااااز:abc_051::ab c_051::abc_051::abc_051::abc_051:
فعلا اشتغلت تمام
وجزاكم الله كل خير
دمت مبدعا ومتميزا وبارك الله فيك

[ثامر أبو بلقيس]

ترحيل معطيات عنصر Gridإلى ورقة ايكسل محددة :abc_138:

http://up.top4top.net/downloadf-top4top_a035d6cdfa1-rar.html

[احمدعمار]

ترحيل معطيات عنصر gridإلى ورقة ايكسل محددة :abc_138:

المحتوى المخفي لايقتبس

شكرا جزيلا
استاذ
انا ارسلت اليك رسالة عبر الخاص هل وصلتك؟

[ثامر أبو بلقيس]

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

فقد فقدت عديد المرات محتويات الجهاز إن شاء الله أجدها و حينها لن أبخل :abc_138:

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

ترحيل معطيات عنصر gridإلى ورقة ايكسل محددة :abc_138:

المحتوى المخفي لايقتبس

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

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

جيد

طريقة البحث في ملفات الايكسل عن طريق الاوتوبلاي بدون إضافات
في نطاق معين و تحديد الخلية و الملف المتضمن لمفردة البحث


المحتوى المخفي لايقتبس


شكرا على الملف .....و على فتح الصندوق و يكاني لم امر بالموضوع سابقا

[محمد بن عطية]

بورك فيك:abc_152::abc_152::abc_152::abc_152::abc_152 :

[زياد مقداد]

شكرا للأساتذة على المجهود

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
من الإنشغالات ... ندرج هذه الاستراحة البرمجية :

الســـؤال كان كالتالي :
السلام عليكم ورحمة الله وبركاته
أريد أن اعرض موقع لمنتدى في انبوت Input
و اتصفحه داخل Input
لم اعرف الطريقة

الجواب :
فعل الإضافـــة Memory
ضف أنبوت في التجميعيــة
كود :
function Event(sMsg, nRes)
if sMsg == "" then
title = Memory.GetObjectEventParam(Ex, 1, OBJECT_RETURN_STRING)
end
end
Ex = Memory.CreateObject(Input.GetProperties("Input1").WindowHandle, "Shell.Explorer.2", "Event");
Memory.CallObjectFunction(Ex, "Navigate", "http://www.abc4web.net/vb");

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
من الإنشغالات ... ندرج هذه الاستراحة البرمجية :

الســـؤال كان كالتالي :
المحتوى المخفي لايقتبس

الجواب :
المحتوى المخفي لايقتبس

عندي لا يعمل الا مع موقع الاحتراف

[ثامر أبو بلقيس]

عندي لا يعمل الا مع موقع الاحتراف

و هل يمكـــن و يعقل أن تتعامل الأكـــواد مع موقع دون غيره ومن طريق الاحتراف بالذات ؟

وظف صديقي الأكواد بطريقة جيدة إن أردت و لا تكتفي و تحكم من تجربة واحدة و قد تكون أساسا خاطئة

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
تشعر بالرتابة و الملل .... تنتظر أسئلة في قسم الاستفسارات لتملأ وقتك بحثا
عن الاجابة :abc_113:بأسرع وقت :abc_113: ... لا جديد ... في انتظار تحقق ذلك
إليك بسؤالي البسيط
التمرين كالتالي :
27 =:abc_138: x :abc_138: x :abc_138:

24 = :abc_152: x :abc_152: x :abc_152: x :abc_138:

96 = :abc_138: x :abc_152: x :abc_114: x :abc_114:

? = :abc_138: x :abc_152: + :abc_114:

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

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

السلام عليكم ورحمة الله وبركاته
تشعر بالرتابة و الملل .... تنتظر أسئلة في قسم الاستفسارات لتملأ وقتك بحثا
عن الاجابة :abc_113:بأسرع وقت :abc_113: ... لا جديد ... في انتظار تحقق ذلك
إليك بسؤالي البسيط
التمرين كالتالي :
27 =:abc_138: x :abc_138: x :abc_138:

24 = :abc_152: x :abc_152: x :abc_152: x :abc_138:

96 = :abc_138: x :abc_152: x :abc_114: x :abc_114:

? = :abc_138: x :abc_152: + :abc_114:

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

محاولة :


p = 27^(1/3) ;
b = (24/p)^(1/3);
v = (96/p/b)^(0.5);
s = p*b*v
Dialog.Message("",s);

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

في سطر واحد


Dialog.Message("ÇáäÊíÌÉ" , ( 27^(1/3) ) * ( (24/ (27^(1/3)))^(1/3) ) * ( (96/ (27^(1/3)) / ((24/ (27^(1/3)))^(1/3)))^(0.5)) );

[ثامر أبو بلقيس]

محاولة :


p = 27^(1/3) ;
b = (24/p)^(1/3);
v = (96/p/b)^(0.5);
s = p*b*v
Dialog.Message("",s);


? = :abc_138: x :abc_152: + :abc_114:

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

? = :abc_138: x :abc_152: + :abc_114:

اسف حسبتها طلها ضرب

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

p = 27^(1/3) ;
b = (24/p)^(1/3);
v = (96/p/b)^(0.5);
s = p+b*v
Dialog.Message("",s);

اي النتيجة 11

[ثامر أبو بلقيس]

اي النتيجة 11

النتيجة 11 ؟ اذن خطأ

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

النتيجة 11 ؟ اذن خطأ

مشكل الاقواس ..................... 20

p = 27^(1/3) ;
b = (24/p)^(1/3);
v = (96/p/b)^(0.5);
s = (p+b)*v
Dialog.Message("",s);

[ثامر أبو بلقيس]

ليست 20 ;وليست مشكل أقواس
s = v+b*p

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

السلام عليكم ورحمة الله وبركاته
تشعر بالرتابة و الملل .... تنتظر أسئلة في قسم الاستفسارات لتملأ وقتك بحثا
عن الاجابة :abc_113:بأسرع وقت :abc_113: ... لا جديد ... في انتظار تحقق ذلك
إليك بسؤالي البسيط
التمرين كالتالي :
27 =:abc_138: x :abc_138: x :abc_138:

24 = :abc_152: x :abc_152: x :abc_152: x :abc_138:

96 = :abc_138: x :abc_152: x :abc_114: x :abc_114:

? = :abc_138: x :abc_152: + :abc_114:

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

27 = 3x3x3
24 = 3x ....2x2x2
96 = 3x2 ......x 4x4
النهاية
2+4=6 ........... 6x3=18

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

p = 27^(1/3) ;
b = (24/p)^(1/3);
v = (96/p/b)^(0.5);
s = (v+b)*p
Dialog.Message("",s);

[ثامر أبو بلقيس]

هاهو السؤال مطروح بشكل واضح :
? = :abc_138: x :abc_152: + :abc_114:
هل ترى أقواس حتى تفترضها ؟؟ بل دع السؤال كما هو و اترك الأسبقية الحسابية هي التي تحدد الاجابة
أليس كذلك ؟

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

:abc_152::abc_152:

صحيح ......هل هذا يعني انه الحل ؟

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
اذ قصدت ان جوابك هو
p = 27^(1/3) ;
b = (24/p)^(1/3);
v = (96/p/b)^(0.5);
s = v+b*p
Dialog.Message("",s);


و كان الناتج 10 أي نعم هو حل لكن ليس كل الحل
لأن :

[ثامر أبو بلقيس]

2 = :abc_138: x :abc_152: + :abc_114:

ربما تكون حل بل هي حل أليس كذلك :abc_083:

[ثامر أبو بلقيس]

4 - = :abc_114:

2 = :abc_152:

3 = :abc_138:

انتهى .

لمشاركتك الفعالة أخي المحترف ساكتب لك كود هدية
متعلق بالبحث وفق تساؤلك مساء إن شـــــاء الله

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

2 = :abc_138: X :abc_152: + :abc_114:

ربما تكون حل بل هي حل أليس كذلك :abc_083:

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

[minomars]

بالمحاكاة :
for z = -Math.Ceil(Math.Sqrt(96)),96 do
for x = 1,27 do
for y = 1,24 do
d = x*x*x;g =y*y*y*x;k= x*y*z*z
if d == 27 and g == 24 and k== 96 then
Dialog.Message("Notice", z+x*y);
end
end
end
end

[ثامر أبو بلقيس]

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

اليـــــوم أحببت أن أكتب عن الجمع في النظام الستيني :abc_139:
ليس لسبب غير أن الرياضيات علمتني أن لا أتجاهل الأصفار:abc_138:
لذلك أحببت ان أخبأ هذا الكود لأجده عند الحاجة :
--[[
نفترض لدينا المسألة التالية
انطلقت سيارة من مدينة بوسعادة على
الساعة 11 صباحا و 50 دقيقة و 50 ثانية
اذا علمت ان مدة السير في الطريق تساوي
هي 13 ساعة و 50 دقيقة و 50 ثانية
ماهو وقت وصول السيارة ؟
]]
---- التوقيت الاول---
hour1=11 -- متغير ساعاته
min1=50 -- متغير دقائقه
sec1=50 -- متغير ثوانيه
-----------------------------------------------------------
---------- التوقيت الثاني -------------------------------
x1=13 ---- متغير ساعاته
x2=50 ---- متغير دقائقه
x3=50 ---- متغير ثوانيه
tamer = os.date('*t')
hour1=hour1+x1 --- جمع الساعات
min1=min1+x2 --- جمع الدقائق
sec1=sec1+x3 --- جمع الثواني
belkiss = os.time{year = tamer.year, month = tamer.month, day = tamer.day,hour=hour1, min= min1, sec = sec1}
Dialog.Message("",os.date('%H : %M :%S ',belkiss)); -- التوقبت الناتج و معالجتها وفق النظام الستيني
--------------------------ABOU _ BELKISS -------------------

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

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

اليـــــوم أحببت أن أكتب عن الجمع في النظام الستيني :abc_139:
ليس لسبب غير أن الرياضيات علمتني أن لا أتجاهل الأصفار:abc_138:
لذلك أحببت ان أخبأ هذا الكود لأجده عند الحاجة :
المحتوى المخفي لايقتبس
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

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

--[[
äÝÊÑÖ áÏíäÇ ÇáãÓÃáÉ ÇáÊÇáíÉ
ÇäØáÞÊ ÓíÇÑÉ ãä ãÏíäÉ ÈæÓÚÇÏÉ Úáì
ÇáÓÇÚÉ 11 ÕÈÇÍÇ æ 50 ÏÞíÞÉ æ 50 ËÇäíÉ
ÇÐÇ ÚáãÊ Çä ãÏÉ ÇáÓíÑ Ýí ÇáØÑíÞ ÊÓÇæí
åí 13 ÓÇÚÉ æ 50 ÏÞíÞÉ æ 50 ËÇäíÉ
ãÇåæ æÞÊ æÕæá ÇáÓíÇÑÉ ¿
]]
---- ÇáÊæÞíÊ ÇáÇæá---
h1=11 -- ãÊÛíÑ ÓÇÚÇÊå
m1=50 -- ãÊÛíÑ ÏÞÇÆÞå
s1=50 -- ãÊÛíÑ ËæÇäíå
-----------------------------------------------------------
---------- ÇáÊæÞíÊ ÇáËÇäí -------------------------------
x1=13 ---- ãÊÛíÑ ÓÇÚÇÊå
x2=50 ---- ãÊÛíÑ ÏÞÇÆÞå
x3=50 ---- ãÊÛíÑ ËæÇäíå
-------------------
h = h1 + x1;
m = m1 + x2;
s = s1 + x3;

if s >=60 then
s = s-60
m = m+1
h=h
end
if m >= 60 then
m=m-60
h=h+1
end
if h >= 24 then
h=h-24
end

Dialog.Message("",h..":"..m..":"..s); -- ÇáÊæÞÈÊ ÇáäÇÊÌ æ ãÚÇáÌÊåÇ æÝÞ ÇáäÙÇã ÇáÓÊíäí
--------------------------ABOU _ BELKISS -------------------

[ثامر أبو بلقيس]

جيد جدا ....
إليك بالتمرين التالي .... تسلى .... :
أكتب كود يستخرج تاريخ الأحد الأخير لشهر اكتوبر لعشر سنوات قادمة
بدء من 2010 إلى 2020 جميل هذا السؤال ؟ موفق :abc_138:

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

جيد جدا ....
إليك بالتمرين التالي .... تسلى .... :
أكتب كود يستخرج تاريخ الأحد الأخير لشهر اكتوبر لعشر سنوات قادمة
بدء من 2010 إلى 2020 جميل هذا السؤال ؟ موفق :abc_138:

:abc_052::abc_052:
طبعا ......هو ما جعلني لا انام الا و الارقام و الشروط تصبح كوابيس ..........
لكن خلينا من كود السطر الواحد ؟؟؟؟؟؟؟؟ ههههههه

[ثامر أبو بلقيس]

عقوبة :
خليها 100 سنة بدل 10 سنوات
لأنك لم تكتب الاجابة وتحاول الهروب :abc_138:
كلام = رفع سقف الطلب

[ثامر أبو بلقيس]

http://store3.up-00.com/2016-01/14541806369581.bmp


belkiss=""
for k = 2010,2110 do
for i=31,1 ,-1 do
TAMER = os.time({year=k, month=10, day=i})
if os.date("%A",TAMER) =="Sunday" then
belkiss=belkiss..os.date("%A",TAMER).." "..i.." ".."october".." "..k.." "
break
end
end
end
Dialog.Message("ABOU_BELKISS:)",belkiss )

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

http://store3.up-00.com/2016-01/14541806369581.bmp


المحتوى المخفي لايقتبس

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

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

لماذا استعملت هذا الشرط المعكوس

for i=31,1 ,-1 do

[ثامر أبو بلقيس]

شهر أكتوبر أقصاه 31 يوم تبدأ الدالة في التنازل و بمجرد تصل لأول يوم أحد تتوقف
لو بدأنا الشرط غير معكوس ستعطينا اول أحد في الشهر
لذلك الشرط المقلوب حقق المطلوب :abc_138:

[ثامر أبو بلقيس]

هات أسئلة ... نتعلم منها :abc_138:

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

هات أسئلة ... نتعلم منها :abc_138:

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

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

لست استاذ لتنتظر الجواب :abc_152::abc_152:

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

........هذه محاولة

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

http://e.top4top.net/p_29irtx1.png

بالايام

http://d.top4top.net/p_29fbtw1.png

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

لمائة سنة

http://c.top4top.net/p_293pbo1.png

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

يقال ان رمضان يعود بعد 33 سنة
اذن نحن 2016 ............اي في عام 2049

http://a.top4top.net/p_29w8my1.png

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

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

[ثامر أبو بلقيس]

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

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

لست استاذ لتنتظر الجواب :abc_152::abc_152:

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

أنا كذلك لست أستاذا من قال ذلك ؟ ومنه --- اذ فرضت أن الاستاذ فقط من حقه
كتابة الحلول فسأمسح كل ما كتبت تحت هذا الغطاء
رجوعا لسؤالك الجميل و الذي اعتمد على طرح 10 أيام لكل سنة
سؤالي : متى يعلن عن دخول شهر رمضان ؟ أحسابيا أم رؤية الهلال
مجرد تساؤل

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

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

أنا كذلك لست أستاذا من قال ذلك ؟ ومنه --- اذ فرضت أن الاستاذ فقط من حقه
كتابة الحلول فسأمسح كل ما كتبت تحت هذا الغطاء
رجوعا لسؤالك الجميل و الذي اعتمد على طرح 10 أيام لكل سنة
سؤالي : متى يعلن عن دخول شهر رمضان ؟ أحسابيا أم رؤية الهلال
مجرد تساؤل

السلام عليكم ورحمة الله وبركاته
طبعا حسابيا ..... لان الرؤية حسب علمي لا يمكن توقعها الا حسب العين و المناظير و التلسطوبات و و و .........و الا فمعلوماتي خاطئة
و ان كان في الوقت متسع ...........فاريد الاثنين

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

و لا اظن ان الفكرة في انقاص عشرة ايام .........

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
طبعا حسابيا ..... لان الرؤية حسب علمي لا يمكن توقعها الا حسب العين و المناظير و التلسطوبات و و و .........و الا فمعلوماتي خاطئة
و ان كان في الوقت متسع ...........فاريد الاثنين

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

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

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

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

[ثامر أبو بلقيس]

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

هل أرسلت الرابط الدال على حساب دخول شهر رمضان حسابيا
من داخل الموقع
لاحظ أنك لم تكتب معطيات لحل تمرين رياضي يبدو لك ذلك
كونك مقتنع أن العملية الحسابية -10 -11 ... الخ هي طريقة
معتمدة لدرجة أنها من البديهيات لكن الأمر ليس كذلك
----------------------------- موفق :abc_138:-------------------------------------------

سأمر لطرح و تساؤل اخر :
سألك صديق عن الأكواد المدمجة في الاوتوبلاي و يطلب منك مثالا
ماذا ستقول له ؟ أراد أن يعرفها كلها ؟ ماردك ؟

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

هل أرسلت الرابط الدال على حساب دخول شهر رمضان حسابيا
من داخل الموقع
لاحظ أنك لم تكتب معطيات لحل تمرين رياضي يبدو لك ذلك
كونك مقتنع أن العملية الحسابية -10 -11 ... الخ هي طريقة
معتمدة لدرجة أنها من البديهيات لكن الأمر ليس كذلك
----------------------------- موفق :abc_138:-------------------------------------------

سأمر لطرح و تساؤل اخر :
سألك صديق عن الأكواد المدمجة في الاوتوبلاي و يطلب منك مثالا
ماذا ستقول له ؟ أراد أن يعرفها كلها ؟ ماردك ؟

الموضوع سبق و طرحته استاذ
http://www.abc4web.net/vb/showthread.php?t=28649
فيه الاتجاهين اي من الميلادي الى الهجري و العكس
---------------
لم افهم دمج الاكود ؟ لكن قصدت بالدمج الاستافدة من عدة افكار لا ستخرج طرح جديد ............ مباشرة .........استفدت من الكود الموجود في الرابط اعلاه و اخر مشاركة لك في استخراج الاحد الاخير من شهر اكتوبر ..............هل اجبت استاذ ؟ :abc_152::abc_152:

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

الحل الذي تزصل اليه مخخي .................


belkiss=""

for annee = 2000, 2033 do ------------ نبحث في السنوات من 2000 الى 2033
for mois =1,12 do ------------من اجل كل الاشهر
for jour =1,31 do-------------- من اجل كل الايام
----------------التحويل الى الهجري ---------
if mois <=2 then
value1 = mois+12
value2 = annee-1
elseif
mois >2 then
value1 = mois
value2 = annee
end
value3 = Math.Floor(value2/100);
value4 = Math.Floor(value2/400);
value5 = 2-value3+value4
value6 =Math.Floor((value2+4716)* 365.25)
value7 =Math.Floor((value1 + 1 ) * 30.6001)
value8 = jour +value7+value6+value5-1524.5
value9 = value8-1937806.5
value10=Math.Floor((value9-1)/10631)
value11=( value9 + 354 ) - 10631 * value10
value12=Math.Floor(( 10985 - value11)/ 5316)
value13= Math.Floor(( 50 *value11 )/ 17719)
value14=Math.Floor(value11/5670)
value15=Math.Floor(( 43 * value11 )/ 15238)
value16= value13 * value12 + value15 * value14
value17=Math.Floor((30 - value16 )/ 15)
value18=Math.Floor((17719 * value16 ) / 50)
value19=Math.Floor(value16/16)
value20=Math.Floor((15238 * value16 ) / 43)
value21= value11-value17*value18-value19*value20+29
moish = Math.Floor(( 24 * value21 ) / 709)
value22=Math.Floor(( 709 * moish) / 24)
jourh = value21-value22
anneeh = 30 * value10 + value16 - 30

if jourh == 1 then ------------نبحث عن اليوم الاول
if moish == 9 then----------من شهر رمضان ------------
tamer = os.time({year=annee, month=mois, day=jour})----------- عندما نجد الشرط نختفظ بالسنة و الشهر و اليوم و نسجل ترجمته الى لا ادري ؟؟؟-------------
belkiss=belkiss.."\r\n"..os.date("%A".." %Y/%m/%d ", tamer);---------- نحول الشيء الذي لا ادري الى تاريخ يستنج لنا اليوم و التاريخ المقابل لذلك الشي الذي لا ادري ما هو ------------
end
end
end
end
end


Dialog.Message("ABOU_BELKISS:)", belkiss) ------------و ثم نخرج الناتج في ديالوج بلقيس

[ثامر أبو بلقيس]

جيد ... حول الشيء الذي لا أدري إلى تساؤل و استفد من موضوع
" بالمختصر المفيد " أو الأشمل :
----------------------------------------------------------------------
قم بالبحث و تحميل luaforwindows لا يهمك البرنامج في حد ذاته بل أدخل الى ملفاته
و ادرسها ركز على المجلدexamples

[ثامر أبو بلقيس]

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

ابحث :abc_088: فكر :abc_091: اسأل :abc_083: في الاخير ستعرف:abc_065:

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

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

ابحث :abc_088: فكر :abc_091: اسأل :abc_083: في الاخير ستعرف:abc_065:

لم افهم الطلب بالضبط لكن فيه صفحة المساعدة
http://www.indigorose.com/webhelp/ams50/Program_Reference/Variables/Global_Variables.htm

[ثامر أبو بلقيس]

جيد هو بالضبط
:abc_138:

[ثامر أبو بلقيس]

السلام عليكم
هذا ملف انطوى على أحد الحلول
http://www.gulfup.com/?JThZ2q

ممكن طرح أسئلة ذات طابع بحثي ممكن الوصول لها مشكووور:abc_152:

لتجديد روابط المشاركة رقم 12
خذ أنبوت 1 لكتابة الجملة
و الانبوت2 لاستقبال الجملة بعد عكس المفردات
بالضغط على الزر المتضمن الكود التالي ستظهر النتائج
sSeparator = " ";
tWords = {};
nEntries = 1;
nEntriesStart = 1;
sOutput = "";
nSeparator = 0;
sInput = Input.GetText("Input1");
while (nSeparator ~= -1) do
nInputLength = String.Length(sInput);
nSeparator = String.ReverseFind(sInput, sSeparator, false);
sWord = String.Right(sInput, (nInputLength-nSeparator));
tWords[nEntries] = sWord;
sInput = String.TrimRight(sInput, sWord);
sInput = String.TrimRight(sInput, sSeparator);
nEntries = nEntries + 1;
end
repeat
sOutput = sOutput..tWords[nEntriesStart]..sSeparator;
nEntriesStart = nEntriesStart + 1;
until nEntriesStart == nEntries
sOutput = String.TrimRight(sOutput, sSeparator);
Input.SetText("Input2", sOutput);

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

المحتوى المخفي لايقتبس

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

:abc_052::abc_052::abc_052:

الى التطبيق مباشرة

[ثامر أبو بلقيس]

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

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

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

اذن .......كنت احبذ المحاولة ......لطكن لانني مقلق ......اعطني السطر و خلينا من تكسار الراس :abc_088::abc_088:

[ثامر أبو بلقيس]

جيد تابع معي الان

[ثامر أبو بلقيس]

هاهو السطر الذي سأستغله :
string.gfind(strin, "(%w+)")
الان سنختبره ثم نعدله
جرب في مشروع جديد مايلي :
مع كتابة جملة أجنبي في الانبوت
strin =Input.GetText("Input1");
strout=''
for word in string.gfind(strin, "(%w+)") do
strout = word .. " " .. strout
end
Dialog.Message("Notice", strout);
ماهو الناتج : تم عكس مفردات الجملة
أين الخلل ؟ لما تقوم بكتابة جملة عربي ما الناتج ؟؟؟ :abc_085:

[ثامر أبو بلقيس]

الان نأتي لتعديل الكـــــود ليتعامل مع كلتا اللغتين بنفس الطريقة :
أكتب الان جملة في الانبوت عربي أو غير عربي
strin =Input.GetText("Input1");
strout=''
for word in string.gfind(strin, "(%S+)") do
strout = word .. " " .. strout
end
Dialog.Message("Notice", strout);

ما الناتج ؟ :abc_102:
يتبع :abc_138:

[ثامر أبو بلقيس]

تكسار الراس هاهو جاي

[ثامر أبو بلقيس]

كنت قد طرحت سابقا شرحا حول تواجد حرف ضمن نطاق أبجدي
حبيت أستغله كفكرة لتحديد اللغة وفق شرط فرضه انشغالك وهو الجملة العربية تعكس مفرداتها
أما الللغة الاجنبية تظهر عادي ... شرط أنا ساستغل الحرف الاول من كل جملة فقط على أساس لا توجد
مسافة شاغرة في بداية الجملة + الجملة كلها مكتوبة بلغة واحدة و ليست مزيجا :abc_088:

[ثامر أبو بلقيس]

:abc_139: هل أنت متواجد ؟ هل النتائج جيدة لحد الان ؟

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

:abc_139: هل أنت متواجد ؟ هل النتائج جيدة لحد الان ؟

بعد صلاة العشاء ........وجبة العشاء....... تكسار اراس نتاع البزوز .......الان اكسر راسي معك يا استاذ

[ثامر أبو بلقيس]

ههههههههههههه
بلغهم سلامي نواصل

[ثامر أبو بلقيس]

الان هاهي التركيبة التي ستتعامل مع الشرط المطروح :
strin =Input.GetText("Input1");
strout = ""
c= string.find(String.Lower(String.Mid(strin, 1, 1)), "[a-z]", 1);
if c == 1 then
Dialog.Message("", strin);
else
for word in string.gfind(strin, "(%S+)") do
strout = word .. " " .. strout
end
Dialog.Message("", strout);
end
الجملة العربي تعكس مفرداتها ... الاجنبي تظهر عادي

الان كيف نستغله في موضوعك المطروح و أقصد المشاركة الاولى:abc_088: المطروحة
في موضوع " تحويل النص في اي عنصر الى عناصر Label "

[ثامر أبو بلقيس]

اللغة الاجنبية لا يهم بأي قطع تم معالجة ذلك ضمن الكود

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

هاهو السطر الذي سأستغله :
string.gfind(strin, "(%w+)")
الان سنختبره ثم نعدله
جرب في مشروع جديد مايلي :
مع كتابة جملة أجنبي في الانبوت
strin =Input.GetText("Input1");
strout=''
for word in string.gfind(strin, "(%w+)") do
strout = word .. " " .. strout
end
Dialog.Message("Notice", strout);
ماهو الناتج : تم عكس مفردات الجملة
أين الخلل ؟ لما تقوم بكتابة جملة عربي ما الناتج ؟؟؟ :abc_085:

جميل جدا ....ناجح .........لكن من غير الحروف اليت فيها اكسون é è à لانها يعتبرها فراغات .....:abc_088:

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

الان نأتي لتعديل الكـــــود ليتعامل مع كلتا اللغتين بنفس الطريقة :
أكتب الان جملة في الانبوت عربي أو غير عربي
strin =input.gettext("input1");
strout=''
for word in string.gfind(strin, "(%s+)") do
strout = word .. " " .. Strout
end
dialog.message("notice", strout);

ما الناتج ؟ :abc_102:
يتبع :abc_138:


هذا حل روووووعة يحل مشكل الاكسن في الحروف الاجنبية

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

تمام

[ثامر أبو بلقيس]

هاهو مطبق على موضوعك في مشاركته الاولى
strin =Input.GetText("Input1");
strout = ""
c= string.find(String.Lower(String.Mid(strin, 1, 1)), "[a-z]", 1);
if c == 1 then
t =strin
else
for word in string.gfind(strin, "(%S+)") do
strout = word .. " " .. strout
t=strout
end
end
----------------تحويل النص الى كلمات-----------
s={}; e=1;
for w in string.gmatch(t,"[^%s]+") do
Table.Insert(s,e,w);
e=e+1;
end
con = Table.Count(s);
------------------------converti en label ---------------
tLabelProperties = {};
tLabelProperties.FontName = "Arial";
tLabelProperties.FontScript = 1;
tLabelProperties.FontSize = 24;
----------------------------------------------
tLabelProperties.Y = 140;
tLabelProperties.X = 200;
tLabelProperties.Text = s[1];
Page.CreateObject(OBJECT_LABEL, "B1", tLabelProperties);
Label.SetProperties("B1", {ColorNormal = Math.HexColorToNumber("000000")});

-------
for r = 2 , con do
tLabelProperties.Text = s[r];
tLabelProperties.X = Label.GetPos("B"..r-1).X + Label.GetSize("B"..r-1).Width + 5;
tLabelProperties.Y = 140;
Page.CreateObject(OBJECT_LABEL, "B"..r, tLabelProperties);
Label.SetProperties("B"..r, {ColorNormal = Math.HexColorToNumber("000000")});
end ;
---------------انتهى كود التحويل---------

[ثامر أبو بلقيس]

نلتقي بود لاتبق سجين اكواد الاوتوبلاي
وفقط ..... فكثير منها تجاوزه الزمن
:abc_138:موفق :abc_138:

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

الان كيف نستغله في موضوعك المطروح و أقصد المشاركة الاولى:abc_088: المطروحة
في موضوع " تحويل النص في اي عنصر الى عناصر label "

ساحاول ان اضعه ضمن مشروع تربوي بالعربية ......قريبا

ربي يخليك لنا استاذ و يحفظك لوليداتك

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

نلتقي بود لاتبق سجين اكواد الاوتوبلاي
وفقط ..... فكثير منها تجاوزه الزمن
:abc_138:موفق :abc_138:

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

[عبدوعزيز]

مشكوووووووووووور

[ثامر أبو بلقيس]

مشكوووووووووووور

مرور طيب شكرا :abc_138:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
صديقي العزيز يبدو أنك مستعجل لذلك عندما تنوي زيارة هاته الصفحات
اقرأ الحل :
tamer=""
v=0
function bel(p, x, g)
if x == 0 then
g(p);else
for i = 1, x do
p[i], p[x] = p[x], p[i]
bel(p, x - 1, g)
p[i], p[x] = p[x], p[i]
end;end;end
function callback(p)
p2=('{'..table.concat(p, ', ')..'}')
if p[1]~=1 and p[2]~=2 and p[3]~=3 and p[4]~=4 and p[5]~=5 then
v=v+1;tamer=tamer..p2.."\r\n"
end;end;bel({1,2,3,4,5}, 5, callback)

Dialog.Message(" عدد الاحتمــــالات = ".. v, tamer);


نلتقي بود :abc_138:

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

السلام عليكم ورحمة الله وبركاته
صديقي العزيز يبدو أنك مستعجل لذلك عندما تنوي زيارة هاته الصفحات
اقرأ الحل :
tamer=""
v=0
function bel(p, x, g)
if x == 0 then
g(p);else
for i = 1, x do
p[i], p[x] = p[x], p[i]
bel(p, x - 1, g)
p[i], p[x] = p[x], p[i]
end;end;end
function callback(p)
p2=('{'..table.concat(p, ', ')..'}')
if p[1]~=1 and p[2]~=2 and p[3]~=3 and p[4]~=4 and p[5]~=5 then
v=v+1;tamer=tamer..p2.."\r\n"
end;end;bel({1,2,3,4,5}, 5, callback)

Dialog.Message(" عدد الاحتمــــالات = ".. v, tamer);


نلتقي بود :abc_138:

جميل جدا جدا .........
من اجل الفهم .......رجاء ما المقصود بهذا السطر

function bel(p, x, g)

ثم كيف نطلب شرطا من 1 الى x و لم نحدد قيمته قبلا ؟؟؟؟ ايضا المصفوفة p

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

ايضا لم افهم

p[i], p[x] = p[x], p[i]
bel(p, x - 1, g)
p[i], p[x] = p[x], p[i]

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

كيف اختار عشوائيا من يبن الحلول ليظهر في انبوت مثلا ؟

[ثامر أبو بلقيس]

tamer=""
v=0
my_table = {};
function bel(p, x, g)
if x == 0 then
g(p);
else
for i = 1, x do
p[i], p[x] = p[x], p[i]
bel(p, x - 1, g)
p[i], p[x] = p[x], p[i]
end
end
end
function callback(p)
p2=('{'..table.concat(p, ', ')..'}')
if p[1]~=1 and p[2]~=2 and p[3]~=3 and p[4]~=4 and p[5]~=5 then
Table.Insert(my_table,v, p2);
v=v+1
end
end
bel({1,2,3,4,5}, 5, callback)
----------------------------------------------------------------
Input.SetText("Input1",my_table[Math.Random(1,#my_table)]);
----------------------------------------------------------------

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

tamer=""
v=0
my_table = {};
function bel(p, x, g)
if x == 0 then
g(p);
else
for i = 1, x do
p[i], p[x] = p[x], p[i]
bel(p, x - 1, g)
p[i], p[x] = p[x], p[i]
end
end
end
function callback(p)
p2=('{'..table.concat(p, ', ')..'}')
if p[1]~=1 and p[2]~=2 and p[3]~=3 and p[4]~=4 and p[5]~=5 then
table.insert(my_table,v, p2);
v=v+1
end
end
bel({1,2,3,4,5}, 5, callback)
----------------------------------------------------------------
input.settext("input1",my_table[math.random(1,#my_table)]);
----------------------------------------------------------------


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

[محمد سامر]

جزاك الله خيرا أخ ثامر:abc_050:

[ثامر أبو بلقيس]

جزاك الله خيرا أخ ثامر:abc_050:

مرحبــــا بتواجدك في هذه الصفحات الخاصة :abc_085:

و بحكم إنضمـــامك إليك السؤال التالي :

في إطار إنشغالاتك ونوعيتها : أكتب كود بقوم بالاتي :

:abc_012: ينسخ ما هو موجود في ملف Word إلى داخل التجميعية بحيث يكتبه مثلا في
أنبوت متعدد الأسطـــر

فكر :abc_065: :abc_085:

[السعيد الجزائري]

بسم الله الرحمن الرحيم موفق بإذن الله ... لك مني أجمل تحية . :abc_026::abc_026::abc_026:

[ثامر أبو بلقيس]

مرحبــــــــــــــــا:abc_139 :

[محمد سامر]

مرحبــــا بتواجدك في هذه الصفحات الخاصة :abc_085:

و بحكم إنضمـــامك إليك السؤال التالي :

في إطار إنشغالاتك ونوعيتها : أكتب كود بقوم بالاتي :

:abc_012: ينسخ ما هو موجود في ملف Word إلى داخل التجميعية بحيث يكتبه مثلا في
أنبوت متعدد الأسطـــر

فكر :abc_065: :abc_085:

أعتذر أستاذي ...لم ألاحظ السؤال؟؟؟؟
نحضر ملف text على desktopونكتب فيه مانشاء
في صفحة المشروع نقوم بإدراج زر Button1 لإختيار أي ملف text موجود على الجهاز ..وليكن الملف الذي أحضرناه على الديسك توب.
ندرج Input1 لإستقبال المكتوب في text
كود الزر
notes = Dialog.FileBrowse(true, "Notes:", "AutoPlay\\Docs", "Text files|*.txt|", "*.txt", ".txt", false, false)
if notes == "" then
return
else
notesText = TextFile.ReadToString(""..notes[1])
Input.SetText("Input1", ""..notesText)
end

مع ملاحظة تفعيل Enable للكتابه متعددة الأسطر.

[ثامر أبو بلقيس]

أعتذر أستاذي ...لم ألاحظ السؤال؟؟؟؟
نحضر ملف text على desktopونكتب فيه مانشاء
في صفحة المشروع نقوم بإدراج زر Button1 لإختيار أي ملف text موجود على الجهاز ..وليكن الملف الذي أحضرناه على الديسك توب.
ندرج Input1 لإستقبال المكتوب في text
كود الزر
notes = Dialog.FileBrowse(true, "Notes:", "AutoPlay\\Docs", "Text files|*.txt|", "*.txt", ".txt", false, false)
error = Application.GetLastError()
if error > 0 then
Dialog.Message("Error:", ""..error)
end
if notes == "Cancel" then
return
else
notesText = TextFile.ReadToString(""..notes[1])
Input.SetText("Input1", ""..notesText)
end

مع ملاحظة تفعيل Enable للكتابه متعددة الأسطر.

أعد قراءة السؤال ملف ووورد و ليس تكست .... حاول واستغل الموقع والحوارات الجانبية
بين الأعضاء ففيها فائدة .....في الأخير ستكسب المعلومة
إن شاء الله :abc_138: تقديري أستاذ:abc_139:

[محمد سامر]

أعد قراءة السؤال ملف ووورد و ليس تكست .... حاول واستغل الموقع والحوارات الجانبية
بين الأعضاء ففيها فائدة .....في الأخير ستكسب المعلومة
إن شاء الله :abc_138: تقديري أستاذ:abc_139:

جزاك الله خيرا أستاذي....
حاضر سأفعل ذلك..:abc_026:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
بمشـــاركة أخي محمد تنبهت أن الصفحات هاته عندها مدة
لم أكتب فيها فقلت سأكتب سؤالا بسيطا لقتل الرتابــــــــــــــة
-----------------
أريد أن أجعل محتوى الأنبوت 1 مخزن في الكبيورد عندما أقوم باللصق
اليدوي أو برمجي يتم اللصق مثلا في أنبوت ثان على أن :
1 - لايتم استعمال Clipboard
2 - ولايتم استعمال مكتبات خارجيــة
3- عدم الاستعانة بعناصر أخرى للتخزين مثلا أو ملفات خارج نطاق التجميعية
-------
تعرف :abc_052: أكتب الكود ليستفيد منه الجميع :abc_139:

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

السلام عليكم ورحمة الله وبركاته
بمشـــاركة أخي محمد تنبهت أن الصفحات هاته عندها مدة
لم أكتب فيها فقلت سأكتب سؤالا بسيطا لقتل الرتابــــــــــــــة
-----------------
أريد أن أجعل محتوى الأنبوت 1 مخزن في الكبيورد عندما أقوم باللصق
اليدوي أو برمجي يتم اللصق مثلا في أنبوت ثان على أن :
1 - لايتم استعمال Clipboard
2 - ولايتم استعمال مكتبات خارجيــة
3- عدم الاستعانة بعناصر أخرى للتخزين مثلا أو ملفات خارج نطاق التجميعية
-------
تعرف :abc_052: أكتب الكود ليستفيد منه الجميع :abc_139:

محاولة ....الانوبت المصدر هو input1
في الانوبت الذي نريد اللصق فيه نضع هذا الكود في OnKey
if System.IsKeyDown(13) then
Input.SetText(this, Input.GetText("Input1"));
end

عند المعاينة نكتب ما نشاء في الانبوت 1 و في الانبوت 2 نضغط على enter

[ثامر أبو بلقيس]

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

هل حققت الطلب بكودك ؟

[ثامر أبو بلقيس]

موفــــــق

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

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

هل حققت الطلب بكودك ؟

اذن لم افهم ما معنى مخزن في الكيبورد ؟

[ثامر أبو بلقيس]

اذن لم افهم ما معنى مخزن في الكيبورد ؟

حاول أن تفهم
أقصد بها حافظة اللصق

وأعلم أن keyboard يمكنها كذلك أن تلصق بالمفاتيح ctrl+c

ولما تجد حل ورغبت في كتابته أكتبه بالـ keyboard أو Clipboard

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

من غير الاضافة !clipoard
لا اظن

[ثامر أبو بلقيس]

لا أكتب هنا الا ويوجد حل :abc_085:

[ثامر أبو بلقيس]

سأكتب رابط يحيل للحل موفق :abc_152:

[ثامر أبو بلقيس]

في المشاركة رقم 15 في هذا الرابط
http://www.abc4web.net/vb/showthread.php?p=306172&posted=1#post306172
ستقرآ الرد

[ثامر أبو بلقيس]

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
السلام عليكم ورحمة الله وبركاته


سؤال اليـــوم :
الصورة أسفله تعبر عن الازرار
Num lock و Scroll Lock و Caps lock

https://upload.wikimedia.org/wikipedia/commons/thumb/7/70/Yahoo_Keyboard.jpg/237px-Yahoo_Keyboard.jpg

السؤال : ما الطرق أو الاكواد عن طريق البرنامج أو المكتبات أو الملفات الدفعية ....الخ
لتحقيق فتح و إغلاق برمجي للأزرار الثلاثة

موفـــــق :abc_138:

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم

للتحكم برمجيا في الأزرار

Numlock
Capslock
Scrolllock

يمكنك الدخول الان و الكشف عن الملف التــــالي لمعرفة احدى الطرق

مــــوفق (http://up.top4top.net/downloadf-351d38kl1-rar.html)

[ياسرهتهت]

بسم الله الرحمن الرحيم

للتحكم برمجيا في الأزرار

Numlock
Capslock
Scrolllock

يمكنك الدخول الان و الكشف عن الملف التــــالي لمعرفة احدى الطرق

المحتوى المخفي لايقتبس
----------------------------------
بسم الله الرحمن الرحيم

بارك الله فيك استاذنا الكريم
عمل رائع ومتقن
من الواضح ان ملفات dll لها دور مهم وكبير مع البرنامج
موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

[ثامر أبو بلقيس]

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

مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6
كون علاقات حسابية برمجية للحصول على الناتج 7

بمعنى كود يحبل إلى أن
(((-4+9)*10)-8)/6=7

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

سيكون أجمل كود تكتبـــــه في حال تجاحك في تحقيق المطلوب موفق :abc_138:

[ثامر أبو بلقيس]

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

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

بسم الله الرحمن الرحيم

للتحكم برمجيا في الأزرار

numlock
capslock
scrolllock

يمكنك الدخول الان و الكشف عن الملف التــــالي لمعرفة احدى الطرق

المحتوى المخفي لايقتبس

ربي يحفظكم استاذ على التميز دائما

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

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

مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6
كون علاقات حسابية برمجية للحصول على الناتج 7

بمعنى كود يحبل إلى أن
(((-4+9)*10)-8)/6=7

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

سيكون أجمل كود تكتبـــــه في حال تجاحك في تحقيق المطلوب موفق :abc_138:

لم اطلع على المشاركة الا الالحظة لذلك ارجو وقت اضافي لاعصر مخي لعلي اجد الحل و الا سارفع العلم الابيض

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

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

مثال : من الأعداد : -4 ’ 9 ’ 10 ’ 8 ’ 6
كون علاقات حسابية برمجية للحصول على الناتج 7

بمعنى كود يحبل إلى أن
(((-4+9)*10)-8)/6=7

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

سيكون أجمل كود تكتبـــــه في حال تجاحك في تحقيق المطلوب موفق :abc_138:

هل بشنرط بقاء الارقام في مكانها في المعادلة ام يمكن تغيير موضعها ؟؟؟؟

[ياسرهتهت]

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

----------------------------------
بسم الله الرحمن الرحيم
استاذنا الكريم الموضوع او الفكرة رائعة
لكن من اين الطريق ؟؟؟
انا ايضا لست من هواة الكرة كثيرا .. لكن مع باقة بن سبور توجد قناة الاطفال براعم
لهذا اتتبع كل طرق الفك التي اجدها في الانترنت

موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

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

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

http://up.top4top.net/downloadf-3800nvcy1-rar.html

طبعا التفكير جاري

[ثامر أبو بلقيس]

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

http://up.top4top.net/downloadf-3800nvcy1-rar.html

طبعا التفكير جاري

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

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

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

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

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

الان بعد الظهر ....ارجو ان تكون الاخبار سعيدة على ما يرام
اللهم اجلعه خير

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

محاولة :
نفترض مصفوفة تتضمن العمليات الاربعة ......و في التمرين سنكون مصفوفة اخرى تشمل كل الاحتمالات لترتيب العمليات الاربعة و العدد هو
4 ء 3 ء 2 ء 1 = 24

سننشء مصفوفة اخرى تتمضن الاعداد في التمرين و هي خمسة .........و بالتالي سيكون عندنا مصفوفة تتضمن عدد الاحتمالات التي يمكن ان يتموقع عليها
5 ء 4 ء 3 ء 2 ء 1 = 120
ثم نحسب كل احتمال من هذه الاحتمالات و نقارنها بالناتج
نحصر النتيجة في مصفوفة نواتج ...... ثم نحدف المكرر ......و لا يتكرر الا في حالة كان الارقام في المعطيات مكررة

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

الحل:

انشء 6 انبونات ............. 5 للمعطيات .......السادس للناتج
ضع في زر الكود التالي :

Abc4web()
ضع Paragraph لعرض النواتج

في Global Function ضع الكود الطويل الذي لم استطيع ان اختصر اكثر من ذلك




function Abc4web()

v1 = String.ToNumber(Input.GetText("Input1")); v2 = String.ToNumber(Input.GetText("Input2"));
v3 = String.ToNumber(Input.GetText("Input3")); v4 = String.ToNumber(Input.GetText("Input4"));
v5 = String.ToNumber(Input.GetText("Input5")); nat = String.ToNumber(Input.GetText("Input6"));
rep1 = {}; rep2 = {}; e=1; g ="";
for num = 1234 , 4321 do
g =""..num;
if String.Find(g, "0", 1) == -1 and String.Find(g,"5",1) == -1 and String.Find(g,"6",1) == -1
and String.Find(g,"7",1) == -1 and String.Find(g,"8",1) == -1 and String.Find(g,"9",1) == -1
and String.Mid(g, 1, 1) ~= String.Mid(g, 2, 1) and String.Mid(g, 1, 1) ~= String.Mid(g, 3, 1)
and String.Mid(g, 1, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 2, 1) ~= String.Mid(g, 3, 1)
and String.Mid(g, 2, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 3, 1) ~= String.Mid(g, 4, 1)then
Table.Insert(rep1,e,g); e = e + 1 ;
end
end -----rep1
oper = {}
for i, n in pairs(rep1)do
op1 = String.Replace( n,"1","+"); op2 = String.Replace( op1,"2","-");
op3 = String.Replace( op2,"3","*"); op4 = String.Replace( op3,"4","/");
Table.Insert(oper,i,op4);
end------list


e=1; g ="";
for num = 12345 , 54321 do
g =""..num;
if String.Find(g, "0", 1) == -1 and String.Find(g,"6",1) == -1
and String.Find(g,"7",1) == -1 and String.Find(g,"8",1) == -1 and String.Find(g,"9",1) == -1
and String.Mid(g, 1, 1) ~= String.Mid(g, 2, 1) and String.Mid(g, 1, 1) ~= String.Mid(g, 3, 1)
and String.Mid(g, 1, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 1, 1) ~= String.Mid(g, 5, 1)
and String.Mid(g, 2, 1) ~= String.Mid(g, 3, 1) and String.Mid(g, 2, 1) ~= String.Mid(g, 4, 1)
and String.Mid(g, 2, 1) ~= String.Mid(g, 5, 1) and String.Mid(g, 4, 1) ~= String.Mid(g, 5, 1)
and String.Mid(g, 3, 1) ~= String.Mid(g, 4, 1) and String.Mid(g, 3, 1) ~= String.Mid(g, 5, 1) then
Table.Insert(rep2,e,g); e = e + 1 ;
end
end -----rep1
fin = {};
for i, nn in pairs(rep2)do
Nop1 = String.Replace( nn ,"1","a"); Nop2 = String.Replace( Nop1,"2","b");
Nop3 = String.Replace( Nop2,"3","c"); Nop4 = String.Replace( Nop3,"4","d");
Nop5 = String.Replace( Nop4,"5","e");
Table.Insert(fin,i,Nop5);
end------list


sol = "" ; Myres = {}; MyOper = {};
for d, n in pairs(fin) do
s1 = String.Mid(n,1,1); s2 = String.Mid(n,2,1); s3 = String.Mid(n,3,1);
s4 = String.Mid(n,4,1); s5 = String.Mid(n,5,1);
for i, opr in pairs(oper) do
o1 = String.Mid(opr,1,1); o2 = String.Mid(opr,2,1); o3 = String.Mid(opr,3,1); o4 = String.Mid(opr,4,1);
sol = "(".."(((".. s1..o1..s2..")"..o2..s3..")"..o3..s4..")"..o4..s5..")";
Np1 = String.Replace( sol,"a",v1); Np2 = String.Replace( Np1,"b",v2);
Np3 = String.Replace( Np2,"c",v3); Np4 = String.Replace( Np3,"d",v4);
Np5 = String.Replace( Np4,"e",v5);
Natij = string.gsub("$return "..Np5.."$", "%$(.-)%$", function (s) return loadstring(s)() end )
end
Table.Insert(MyOper,d,Np5); Table.Insert(Myres,d,Natij);
end

Pro = ""; x=1; Mytable={}; e=1;
for i, n in pairs(Myres) do
if String.ToNumber(n) == nat then
Table.Insert(Mytable , e, MyOper[i]); e=e+1;
end
end

flags = {} ;
for i=1,table.getn(Mytable) do
if not flags[Mytable[i]] then
io.write(' ' .. Mytable[i])
flags[Mytable[i]] = true
Pro = Pro.."N°"..x.." : "..Mytable[i].." = "..nat.."\r\n";
x=x+1 ;
end
end




if Pro =="" then
Paragraph.SetText("Paragraph1", "áÇ íæÌÏ Íá áåÐå ÇáÊÑßÈÈÉ .....ÛíÑ ÇáäÇÊÌ")
else
Paragraph.SetText("Paragraph1", Pro)
end

end------function

ارج ان يكون الكود يفي بالغرض

http://a.top4top.net/p_381vo71v1.png
الملف المفتوح :
http://up.top4top.net/downloadf-381naahc1-rar.html

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

مشكل في الارقام السالبة

[ثامر أبو بلقيس]

مجهود كبير و فكر برمجي متورد
لكن سأكتب يوما :abc_138:
مشكــــور جدا

[ثامر أبو بلقيس]

إن شاء الله نجد الوقت الكافي :abc_033:
و أكمل ما بدأت :abc_101:

الساعة حسب بلدك من الانترنت
result = HTTP.Submit("http://www.timeanddate.com", {}, SUBMITWEB_POST, 20, 80, nil, nil);
h = String.Find(result, '"clk_hm">', 1, false);v = String.Find(result, '"ij0">', 1, false)
hm = String.Mid(result,h+9,5);s = String.Mid(result,v+6,2)
Dialog.Message("belkiss", hm..":"..s);

[ياسرهتهت]

إن شاء الله نجد الوقت الكافي :abc_033:
و أكمل ما بدأت :abc_101:
المحتوى المخفي لايقتبس
---------------------------------
بسم الله الرحمن الرحيم
:abc_138:عمل رائع جدددددددااااا:abc_138:
شكرا لك استاذي الكريم
:abc_152::abc_152::abc_152:

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

[ربيع]

من المفترض أن التاريخ سيظهر في عنوان الديالوج لكن نفضل استعمال ملف الدل الموجود في الموقع باسم الجزائر

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

على كل جرب موفق

result = HTTP.Submit("http://www.timeanddate.com", {}, SUBMITWEB_GET, 20, 80, nil, nil);
h = String.Find(result, '"clk_hm">', 1, false);v = String.Find(result, '"ij0">', 1, false)
hm = String.Mid(result,h+9,5);s = String.Mid(result,v+6,2)
date = String.Find(result, '"ij2">', 1, false)
d = String.Mid(result,date+6,11)

Dialog.Message(d, hm..":"..s);

[ياسرهتهت]

المحتوى المخفي لايقتبس
--------------------------
بسم الله الرحمن الرحيم

http://www.abc4web.net/vb/images/icons/ok.gif

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

[ثامر أبو بلقيس]

----------------------------------
بسم الله الرحمن الرحيم
استاذنا الكريم الموضوع او الفكرة رائعة
لكن من اين الطريق ؟؟؟
انا ايضا لست من هواة الكرة كثيرا .. لكن مع باقة بن سبور توجد قناة الاطفال براعم
لهذا اتتبع كل طرق الفك التي اجدها في الانترنت

موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

الله يوفقك :abc_138:

[ثامر أبو بلقيس]

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




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




k1 = {1,3,5,7,9,11,13,15,17,19,20,21,25,79,0}
total =20
-----------------------------------------------------------------------
table.sort(k1, function(a,b) return tonumber(a) < tonumber(b) end)-----
a={};r=''; f=0---------------------------------------------------------
-----------------------------------------------------------------------
for x,y in pairs (k1) do ----------------------------------------------
if y <= total then-----------------------------------------------------
Table.Insert(a, x, y);end;end------------------------------------------
table.sort(a, function(a,b) return tonumber(a) < tonumber(b) end)------
-----------------------------------------------------------------------
n = Table.Count(a);p ="";k=1;s=0---------------------------------------
for i= 0,n-1 do-----------------------ABOU_BELKISS---------------------
s=s+2^i;end;for j = 1,s do------------ALGER LE 21-07-2017--------------
m=j;while m>0 do-------------------------------------------------------
if Math.Mod(m, 2)==1 then----------------------------------------------
p=p..a[k].."+";end;m = Math.Floor(m/2);k=k+1;end----------------------
x = String.Length(p);y = String.Mid(p, 1, x-1);------------------------
pp =String.Find(y, "+",1) ;pp2 = String.Find(y, "+",pp+pp)-------------
pp3 = String.ReverseFind(y, "+", false);-------------------------------
if pp ~= -1 and pp2 ~= -1 and pp3 ==pp2 then--------------------------
belkiss = loadstring(string.format("return %s",y))()------------------
if total == belkiss then-----------------------------------------------
f=f+1;r=r.. y..' = '..belkiss.."\r\n"----------------------------------
end;else---------------------------------------------------------------
end;p ="";k=1;end--------------http://www.abc4web.net------------------
-----------------------------------------------------------------------
Dialog.Message("les possibilités = "..f,r);

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

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

المحتوى المخفي لايقتبس

مشكور استاذ على الحواب
نحاول تحليل الكود
و اكيد نتعلم من حل التمارين المطروحة

كنت احاول احل الغاز رياضية في مجموعة فايسبوك مثال

https://4.bp.blogspot.com/-r2Ebm2qVVfg/WIOITpoXMcI/AAAAAAAAHSg/iBz-8PghyBs_MIH7gBDfz3k0fichy2NgACLcB/s1600/2017-01-21_155648.png

[ثامر أبو بلقيس]

مشكور استاذ على الحواب
نحاول تحليل الكود
و اكيد نتعلم من حل التمارين المطروحة

كنت احاول احل الغاز رياضية في مجموعة فايسبوك مثال

https://4.bp.blogspot.com/-r2Ebm2qVVfg/WIOITpoXMcI/AAAAAAAAHSg/iBz-8PghyBs_MIH7gBDfz3k0fichy2NgACLcB/s1600/2017-01-21_155648.png

- اذ كانت رياضيات
جاوبهم كالتالي : مجموع ثلاث أعداد فردية == عدد فردي (وهنا كل الاعداد فردية)
30 عدد زوجي اذن : لايوجد حل :abc_152:

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

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

- اذ كانت رياضيات
جاوبهم كالتالي : مجموع ثلاث أعداد فردية == عدد فردي (وهنا كل الاعداد فردية)
30 عدد زوجي اذن : لايوجد حل :abc_152:

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

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

[ثامر أبو بلقيس]

الأعداد المتماثلـــة :



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

سؤالنا اليوم بسيط

إذا ذكرتك بأن : الاعداد المتماثلة هي التي تقرأ من اليمين مثلما تقرأ من اليسار
مثال : 88 , 11 , ...... 848 , 878 , 1001 ... الخ اذن هي كثيرة

نريد ايجاد كل الاعداد المتماثلة و المحصورة من 1 إلى غاية 100000

عارف بانها سهلة اترك جوابا مخفي إن أمكن

موفق :abc_139:

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم




لجلب مجموعة Pixel المتعلق بصورة ما وجدت صعوبة مع صيغ الصور
في حد ذاتها فأجريت التجربة على الصيغة bmp بالذات

ماذا لو نجرب وضع صورة بهذه الصيغة في القرص (C)

و نحمل الملف التالي ونفكه في المجلد Docs
https://up.top4top.net/downloadf-588y4yqz1-rar.html
ترى الكود التالي الان :

strTitle= "C:\\1.bmp"
DLL.CallFunction("AutoPlay\\Docs\\10.dll", "BELKISS_PixelsImage", "\""..strTitle.."\"", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);
result = TextFile.ReadToString("C:\\tameur.txt");
Dialog.Message("Notice",result);


أعطى نتائج أم التجربة فاشـــــلة :abc_080:

[ياسرهتهت]

بسم الله الرحمن الرحيم
استاذنا عندي حدث تشنج للبرنامج
لم يعمل

موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
استاذنا عندي حدث تشنج للبرنامج
لم يعمل

موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138:

بصيغة الصورة المشار اليها ؟ (bmp)

[ياسرهتهت]

بصيغة الصورة المشار اليها ؟ (bmp)
بسم الله الرحمن الرحيم
نعم

[ثامر أبو بلقيس]

بسم الله الرحمن الرحيم
نعم

نتج معك ملف نصي في القرص c لعل القضية كالعادة قضية مسؤولية

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
نعود مجددا بعد مدة بطرح هذا السؤال نقلا من احدى صفحات التواصل الاجتماعي
لطرح حل الاشكال بالصورة باستعمال الاكواد
http://www10.0zz0.com/2017/12/27/03/493018937.jpg

[ياسرهتهت]

السلام عليكم ورحمة الله وبركاته
نعود مجددا بعد مدة بطرح هذا السؤال نقلا من احدى صفحات التواصل الاجتماعي
لطرح حل الاشكال بالصورة باستعمال الاكواد
http://www10.0zz0.com/2017/12/27/03/493018937.jpg

-------------------------
بسم الله الرحمن الرحيم
718


موفق بإذن الله ... لك مني أجمل تحية .

[خادم المسلمين]

قبل مواصلة مجموعة أخرى ضخمة المتعلقة بمنصة الوينداوز

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

1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory
2 - نزرع في globbal functions
function EnableWindow(nHWND, bEnable)
local nEnable=0
if bEnable then nEnable = 1 end
DLL.CallFunction("user32.dll", "EnableWindow", nHWND..","..nEnable, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
function MouseClipping()
_RECT = Memory.CreateStructure("long, long, long, long");
Memory.SetStructureData(_RECT, 1, 0, nLeft, "");--left
Memory.SetStructureData(_RECT, 2, 0, nTop, "");--top
Memory.SetStructureData(_RECT, 3, 0, nRight, "");--right
Memory.SetStructureData(_RECT, 4, 0, nBottom, "");--bottom
DLL.CallFunction(_SystemFolder.."\\User32.dll", "ClipCursor", _RECT, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Memory.FreeStructure(_RECT);
end
function Screen_coordinates()
nLeft = 0;
nTop = 0;
nRight = System.GetDisplayInfo().Width;
nBottom = System.GetDisplayInfo().Height;
end
function Do_clipping()
Input.SetText ("Input_left", nLeft);
Input.SetText ("Input_top", nTop);
Input.SetText ("Input_right", nRight);
Input.SetText ("Input_bottom", nBottom);
Page.StartTimer(250);
Label.SetText ("Label4", "Press Alt+F4 to disable clipping.");
Ex_it = 1;
end3 - في on show
nHWND = Application.GetWndHandle();
nLeft = Window.GetPos (nHWND).X;
nTop = Window.GetPos (nHWND).Y;
nRight = Window.GetSize (nHWND).Width+nLeft;
nBottom = Window.GetSize (nHWND).Height+nTop;
Do_clipping();
4 - في on timer
nActiveHWND = String.ToNumber(DLL.CallFunction(_SystemFolder.."\\User32.dll", "GetActiveWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if nActiveHWND == nHWND then
else
EnableWindow(nHWND, true);
end
MouseClipping();
--عاين مشروعك حينها تكتشف أنه كان من الأحسن وضع زر للمغادرة :abc_025:
السلام عليكم ورحمة الله تعالى و بركاته.


:abc_028::abc_028: