مشاهدة النسخة كاملة : الغريد و الالوان
عبد الهادي بهاب
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
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
vBulletin® v3.8.11, Copyright ©2000-2024, abohmam