المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : الغريد و الالوان


عبد الهادي بهاب
29-11-2017, 10:47 PM
السلام عليكم ورحمة الله وبركاته

الكود المسؤول على تلوين الخلايا في الغريد هو

tbColors = {Background=16777215,Text=0};
Grid.SetCellColors("Grid1",1,1,tbColors);


الان تعالوا نستمتع بالكود

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

Grid.SetColumnCount("Grid1", 50);
Grid.SetRowCount("Grid1", 20);
Grid.SetSize("Grid1", 750, 450)
for p=0,50 do
Grid.SetColumnWidth("Grid1", p, 30)
end

Page.StartTimer(100)

في التايمر on timer

for i=1,50 do
for p=1,20 do
Grid.SetCellColors("Grid1", p, i, {Background= Math.Random(0,16711690) ,Text=0});
end
end

معاينة

https://e.top4top.net/p_698ei6mo1.gif

عبد الهادي بهاب
29-11-2017, 11:13 PM
الان مع لقطة اجمل

في on show نضيف فقط
x=1

نستبدل الكود في الاتيمر بالتالي

for i=1,20 do
for p=1,20 do
Grid.SetCellColors("Grid1", p, i, {Background= i*p+x ,Text=0});
end
end
x=x+1000

النتيحة جميلة جدا
http://u.damasgate.com/001/4/26mqzqyqxli6txwclin4.gif

عبد الهادي بهاب
29-11-2017, 11:36 PM
اللقطة الثالثة

في on show ضع الكود

Grid.SetColumnCount("Grid1", 50);
Grid.SetRowCount("Grid1", 20);
Grid.SetSize("Grid1", 750, 450)
for p=0,50 do
Grid.SetColumnWidth("Grid1", p, 30)
end

Page.StartTimer(100)

في التايمر ضع الكود

x = {Background= 16777215 ,Text=0};
for i=1,20 do
for p=1,20 do
Grid.SetCellColors("Grid1", p, i, x);
end
end

x = {Background= Math.Random(0,16711690) ,Text=0};
for i=1,20 do
for p= Math.Random(1,20),20 do
Grid.SetCellColors("Grid1", p, i, x);
end
end



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

http://u.damasgate.com/001/4/xafq3uodtnilftr30kf0.gif

عبد الهادي بهاب
29-11-2017, 11:40 PM
الان مع اللقذة الرابعة باستعمال الاعمدة افقيا

نفس الاكواد السابقة

غير في التايمر

x = {Background= 16777215 ,Text=0};
for i=1,20 do
for p=1,20 do
Grid.SetCellColors("Grid1", p, i, x);
end
end

x = {Background= Math.Random(0,16711690) ,Text=0};
for i=1,20 do
for p= 1, Math.Random(1,20) do
Grid.SetCellColors("Grid1", i, p, x);
end
end


http://u.damasgate.com/001/4/yam7u6syem6ylv7fx2qh.gif

عبد الهادي بهاب
29-11-2017, 11:50 PM
اللقطة الخامسة

في on show

Grid.SetColumnCount("Grid1", 20);
Grid.SetRowCount("Grid1", 20);
Grid.SetSize("Grid1", 750, 450)
for p=0,50 do
Grid.SetColumnWidth("Grid1", p, 30)
end
y= 10 ; z=10 ;
Page.StartTimer(100)

في on timer

if y < 0 then y=10 end
if z > 20 then z=10 end



x = {Background= Math.Random(0,16711690) ,Text=0};
for i= y,z do
for p= y,z do
Grid.SetCellColors("Grid1", i, p, x);
end
end

y=y-1 ; z=z+1;




النتيجة

http://u.damasgate.com/001/4/p6g1f8ruifw7w5qii9hb.gif

فرح صالحي
30-11-2017, 08:44 PM
زادك الله من علمه :abc_152:

ياسرهتهت
30-11-2017, 08:55 PM
بسم الله الرحمن الرحيم
لقطات رائعة واكواد مميزة وابداع وفن
موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152::abc_152:
:abc_152::abc_152:
:abc_152:

المصمم
01-12-2017, 01:12 AM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

عبد الهادي بهاب
14-12-2017, 08:45 PM
زادك الله من علمه :abc_152:

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

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

شكرا سادتي على المرور
اظن الصور التي تظهر الحركة تعمل عندكم

فرح صالحي
15-12-2017, 04:57 PM
نعم اخي عبد الهادي تعمل :abc_152: جيدا

أبو يوسف
15-12-2017, 07:04 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .