برنامج إذاعات القراء للقرآن الكريم

[saadi-2008]

////////////////////////////////////

[الجليس الصلح]

http://up.arab-x.com/Nov10/HZv66019.gif

[saadi-2008]

////////////////////////////////////

[ASKme]

بالاوتوبلاي برمجة سيئة
هذا الكود المستخدم
0x1ab5630 (2475): local e_Selection=15;local this="ComboBox1"--@@Page1 -> ComboBox1 -> On Select
if e_Selection == 1 then MediaPlayer.Load("Plugin1", "");end
if e_Selection == 2 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/radio");end
if e_Selection == 3 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/salma");end
if e_Selection == 4 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/maher");end
if e_Selection == 5 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/ajm");end
if e_Selection == 6 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/sds");end
if e_Selection == 7 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/shur");end
if e_Selection == 8 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/yasser");end
if e_Selection == 9 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/afs");end
if e_Selection == 10 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/basit");end
if e_Selection == 11 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/qtm");end
if e_Selection == 12 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/minsh");end
if e_Selection == 13 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/s_gmd");end
if e_Selection == 14 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/basit_mjwd");end
if e_Selection == 15 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/qht");end
if e_Selection == 16 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/frs_a");end
if e_Selection == 17 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/abkr");end
if e_Selection == 18 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/shatri");end
if e_Selection == 19 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/a_jbr");end
if e_Selection == 20 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/jbrl");end
if e_Selection == 21 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/husr");end
if e_Selection == 22 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/ayyub");end
if e_Selection == 23 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/basit_warsh");end
if e_Selection == 24 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/bsfr");end
if e_Selection == 25 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/hkm");end
if e_Selection == 26 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/jaman");end
if e_Selection == 27 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/kyat");end
if e_Selection == 28 then MediaPlayer.Load("Plugin1", "mms://50.22.223.13/akdr");end

[ASKme]

من يريد برنامج احترافي فجربوا هذا
http://www.mediafire.com/?we27ufofepilb4n
وهو مفتوح المصدر وجدته في هذا المنتدى (http://delphi4arab.net/forum/showthread.php?t=8424) بالاضافة الى ذلك برمجة جزائرية

[saadi-2008]

////////////////////////////////////

[ASKme]

بإنتظار برمجتك المحترفة
ولو تتفضل وتتحفنا بدروس في البرمجة لنتعلم منك
بارك الله فيك


راني قدمتلك السورس تعلم الدلفي
اما بخصوص لغة ليا فقد كانت اول لغة ابرمج بها لا انسى فضل كريم_دز في منتدى برامج نت وكنت اقدم دروس للاجانب بعد احترافها
لاكن مع تطور قدراتي في البرمجة ادركت انها برمجة بدون مستقبل لانها سهلة الكسر وغير فعالة
هذا كتاب لكيفة برمجة برنامج القران الكريم
http://www.kutub.info/library/book/10728

[saadi-2008]

////////////////////////////////////

[imagineshopping]

جزاك الله كل خير

[yasserdede]

شكرا على هاته المعلومات القيمة