برنامج تصحيح التلآوة - للشيوخ والمعلّمين لكتآب الله

[AL-MOB4RM3G]

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

اخواني الكرام, سلام الله عليكم اجمعين,

ها انا اعلن اليوم عن برنامجي المتوآضع الجديد والذي اسئل الله سبحآنه وتعلى ان ينفعني وكل من استخدمه به,,

http://img44.imageshack.us/img44/4444/barnamgaltas7i7.png

اسم البرنامج: برنامج تصحيح التلآوة

وظيفة البرنامج: برنامج موجّه للشيوخ والمدرّسين لكتاب الله سبحآنه وتعلى, ليسهل عليهم تنظيم الملآحظات للطلّاب و الإطلاع على تطورات الطالب, البرنامج متوآضع لكنه مفيد بئذن الله,

تم برمجة البرنامج بلدلفي 2009

البرنامج مجّآني وفتوح المصدر ( بعد قليل من الزمن, سأنشر الكود )

همم,, لا أدري ماذا اكتب,, جربوا البرنامج وردوا علي خبر,, فهذا اول برنامج لي على ما اعتقد :)

بعد تجربتكم للبرنامج(دون الإطلآع على الكود) وردكم على بلملآحظات و الإقترآحات, اضع الكود ان شاء الله لتتمكّنوا من تصحيحي برمجيّا,, لكن هذا بعد فترة وجيزة من الزمن ان شاء الله تعلى

لتحميل البرنامج, اختر احد الروآبط ادنى

رابيت شير من هنا (http://rapidshare.com/files/336726228/BaRnAmG_Al_Tas7i7_Setup.zip.html)

تو ش شارد من هنا (http://www.2shared.com/file/10731122/a2b3c67f/BaRnAmG_Al_Tas7i7_Setup.html)

ميديا فاير, من هنا, (http://www.mediafire.com/?ytvdydmtzzy)

ومن اراد رآبط على شركة اخرى فأنا جآهز ان شاء الله تعلى,, بارك الله لكم وجزاكم خيرا
لا تنسوني من صالح دعآئكم ,, والسلام عليكم ورحمة الله وبركاته

[kachwahed]

السلام عليكم
الله يبارك، بسم الله ما شاء لا قوة إلا بالله
لهذا البرنامج شأن عظيم إن شاء الله...
بارك الله فيك، وجعل برنامجك في ميزان حسناتك، ورزقك الإخلاص في القول والعمل.
بالتوفيق للمزيد.

[AL-MOB4RM3G]

اهلا وسهلا بك اخي الكريم :d

الله يبارك فيك, ويرفع قدرك

[delphiwin2007]

السلام عليكم

أخي الكريم برنامجك رائع و سيكون له شان عظيم ان شاء الله ، واصل

لاحظت بعض الأخطاء مع windows 7. فأنا لم استطع اسنعماله كثيرا.

[AL-MOB4RM3G]

السلام عليكم

أخي الكريم برنامجك رائع و سيكون له شان عظيم ان شاء الله ، واصل

لاحظت بعض الأخطاء مع windows 7. فأنا لم استطع اسنعماله كثيرا.

اهلا وسهلا بك اخي الكريم,, حيّاك الله

اخي الكريم,, هل لك ان تطلعني على الأخطآء بارك الله لك ؟

ماهو الذي يحدث ؟

شكرا لك على تعاونك معي على تحسين البرنامج :cool:

[delphiwin2007]

http://i25.tinypic.com/f9qret.png
هذه صورة bug التي تظهر للمرة الأولى

أظن أن المشكلة هي chemin لقاعدة البيانات ، أنا استعمل windows 7 64 bits البرنامج يستعمل program files ، لكن في الأنظمة التي تعمل ب 64 bits لديها اثنان من program files واحد x86 و الأخر x64 ، من الأحسن ان تدرس الحالتين أو تضع الملفات كلها في مجلد خارجي مثل c:\xxxxx او d:\xxxxx هذا ما اظنه انا وقد يكون اللإشكال شيء أخر والله أعلم، واصل مجهوداتك فالبرنامج مهم جدا و لك فية أجر عظيم ان شاء الله.

[AL-MOB4RM3G]

نعم اخي الكريم اكرمك الله,,

شكرا على هذه الملآحظة,, وسأعمل على اصلآحها ان شاء الله تعلى,,

ان كان هناك اي شئ آخر فأنا بلإنتظار ان شاء الله ;)

[musvc]

انا اعتقد بأن تقوم بهمل Compile له في اصدار اخر كالدلفي 2006 او حتى 7
وفقك الله

[kachwahed]

بصراحة لم أتمكن من التحميل
أكثر من 900 Mb كثير بالنسبة لي للاتصال عندي :D
لو تحط الملف التنفيذي وحده، والبقية وحدها لكان أحسن.

[AL-MOB4RM3G]

بصراحة لم أتمكن من التحميل
أكثر من 900 mb كثير بالنسبة لي للاتصال عندي :d
لو تحط الملف التنفيذي وحده، والبقية وحدها لكان أحسن.

ههههههه 900 ميجا اخي ؟ تقصد كيلو ؟

ان كنت تود اقسمها لك اقسآما كثيرا ,, 20, 30 قسم لو اردت :p مش مشكلة, فقت قل لي على اي موقع تفضّل,

[Anter2010]

http://www.uptir.com/img/images/tuykmiu08zka268r9c2o.png


اخي مبرمج هذا ما ظهر لي

[AL-MOB4RM3G]

http://www.uptir.com/img/images/tuykmiu08zka268r9c2o.png


اخي مبرمج هذا ما ظهر لي

اها يبدوا هناك خلل ما في البرنامج,, هل هناك من جربه دون مشآكل عند فتحه؟

سأحآول من جديد ان شاء الله

بارك الله فيك على ملآحظتك اخي الكريم,,

[AL-MOB4RM3G]

اخي عنتر,, اي ويندوز تستخدم بارك الله لك؟

لأني جربته على 3 اجهزة ولم يحدث معي اي خلل ؟

وهل تستطيع ان تستخدم البرنامج بعد ظهور الرسآلة ؟

شكرا لتوآصلكم

[kachwahed]

935.13 MB لم تكن مزحة، من رابط MEGAUPLOAD:
NomFichier: BaRnAmG_Al_Tas7i7_Setup.exe
Description: BaRnAmG_Al_Tas7i7_Setup
Taille du Fichier: 935.13 MB
توقفت بعد حوالي 90 Mb، من RapidShare حوالي 5 Mb.

[AL-MOB4RM3G]

935.13 MB لم تكن مزحة، من رابط MEGAUPLOAD:
NomFichier: BaRnAmG_Al_Tas7i7_Setup.exe
Description: BaRnAmG_Al_Tas7i7_Setup
Taille du Fichier: 935.13 MB
توقفت بعد حوالي 90 Mb، من RapidShare حوالي 5 Mb.

سبحآن الله,,, البرنامج كله,, 4,9 ميجا بايت

على العموم يبدوا هناك خلل في رآبط الميجا ابولآد,,


سأجرب ان احمل من هناك لأرى كيف حال برنامجي الكبير وما هو بلأصل,, :eek:(900 ميجا)

شكرا على التنبيه :) سأرد بعد تحميل البرنامج

[AL-MOB4RM3G]

هممم اخواني الكرآم أمر هذا البرنامج غريب,,

شأهدوا الصورة + يمكن للمشرف لو تكرم علينا ان يحذف الرآبط الأول لأنه يبدوا هناك خلل ؟

ملآحظة اسم البرنامج كإسم برنامجي ؟

اي لغة ؟ المآني, فرنسي ؟ اسبآني او شئ آخر

http://img40.imageshack.us/img40/8477/fakeprog.jpg

[STRELiTZIA]

http://i25.tinypic.com/f9qret.png
هذه صورة bug التي تظهر للمرة الأولى

أظن أن المشكلة هي chemin لقاعدة البيانات ، أنا استعمل windows 7 64 bits البرنامج يستعمل program files ، لكن في الأنظمة التي تعمل ب 64 bits لديها اثنان من program files واحد x86 و الأخر x64 ، من الأحسن ان تدرس الحالتين أو تضع الملفات كلها في مجلد خارجي مثل c:\xxxxx او d:\xxxxx هذا ما اظنه انا وقد يكون اللإشكال شيء أخر والله أعلم، واصل مجهوداتك فالبرنامج مهم جدا و لك فية أجر عظيم ان شاء الله.

تظهر هذه الرسالة في حالة تشغيل البرنامج بدون صلاحيات Administrator...
جرب تشغيل البرنامج : Run as administrator مباشرة من المجلد و ليس من الاختصار الموجود في سطح المكتب...



Anter2010

الخطا من عندك... اعد تحميل البرنامج من جديد... ملف التثبيت معطوب...

-----------
بعد التجربة... البرنامج يشتغل بصورة طبيعية على :
Windows Xp Sp2
Windows Xp Sp3
Windows Vista, Vista SP1, Vista SP2
و اخيرا Seven

بما يخص Vista و Seven بخيارات administrator مباشرة من مجلد التنصيب...

-----
اول ملاحظة و بعدين الملاحظات الأخرى :D
- البرنامج يقبل حفظ الفراغات :cool: اسم الطالب فارغ...
- عنوان email : يجب ان يكون email format يعني :

xxxx@xxx.xxx

- ارقام الهاتف : يجب ان لا تقبل الحروف...

بالتوفيق ان شاء الله

[delphiwin2007]

السلام عليكم

أنت محق. فهو يعمل ولكن يجب اختيار "run as adminstrator" وهو يعمل ايضا من الاختصار الذي هو على المكتب.

واصل.

[Dr.MOT]

السلام عليكم ,,

رائع أخي الحبيب ,,

ملاحظة : بعض الأشخاص يملكون برنامج مشغل لصيغة PDF ولكن ليس الأكروبات ( مثلي )

لذلك لو وضعت مثلا عند زر المتون رسالة بانه لا يوجد برناج الأكروبات في الجهاز ,, هل تملك برنامج آخر مشغل للـ Pdf

في حالة ( نعم ) يتم تشغيلها

وشكرا

[AL-MOB4RM3G]

اولا اشكر الأخ STRELiTZIA على تجربة البرنامج على عدة نسخ من الويندوز,,

كما اشكرك اخي على ملآحظآتك الجميلة والتي ستكون مصححة في النسخة القآدمة من البرنامج ان شاء الله تعلى,,

لكن اخي الكريم,,

عنوان email : يجب ان يكون email format يعني :

هل لك ان توضح هذه النقطة بارك الله لك؟ فهمت ماذا تقصد لكن هل هناك امكآنية لعمل ذلك في الكود ؟

امّا بنسبة للأخ الغآلي دوكتور موت,,

لذلك لو وضعت مثلا عند زر المتون رسالة بانه لا يوجد برناج الأكروبات في الجهاز ,, هل تملك برنامج آخر مشغل للـ Pdf

في حالة ( نعم ) يتم تشغيلها

عملت هذا من اجل انني اعرض البي دي اف في البرنامج,, يعني هو لا يتم عرضه في الأكروبات خآرج من البرنامج ولكنني استخدم AcroPDF الذي هو ِActiveX للأكروبات,,

لكن فكرتك جيدة جدا,, ان لم يكن موجود الأكروبات يتم عرض البي دي اف في البرنامج الذي يعرض البي دي اف كبرنامج الFoxit rader مثلا,,

سيتم عمل هذا بنسخة القآدمة ان شاء الله تعلى,, اشكرك على اقترآحك كثيرا ..

هل من مزيد من الإنتقآدات( اين الأخ ديلتا عزيز؟ :D) او الإقتراحآت ؟

اشكركم جميعا على تعآونكم لتحسين برنمآمجي وننتظر برآمجكم انتم ايضى,, (وخصوصا الأخ دوكتور موت ;))

[AvimimuS]

السلام عليكم

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


اليك الحل برمجيا

function TestEmailformat(EMail:string):boolean;
var
a,b:integer;
s,accept:string;
begin
s := lowercase(EMail);
Result := True;
accept := 'abcdefghijklmnopqrstuvwxyz0123456789-@._~';
for a:=1 to length(s) do
begin
if pos(copy(s,a,1),accept) < 0 then
Result := False
end;
b:=0;
for a:=1 to length(s) do
if copy(s,a,1) = '@' then b:=b+1;
if b <> 1 then
Result := False;
for a:=1 to length(s) do
if ( (copy(s,a,1) = '@') or (copy(s,a,1) = '.') ) and
((copy(s,a+1,1) = '@') or (copy(s,a+1,1) = '.')) then
Result := False;
if (copy(s,1,1) = '@') or (copy(s,1,1) = '.') or
(copy(s,length(s),1) = '@') or (copy(s,length(s),1) = '.') then
Result := False;
if pos('.',copy(s,pos('@',s)+1,length(s)-pos('@',s)-1)) = 0 then
Result := false;

والسلام عليكم

[AL-MOB4RM3G]

اولا وعليكم السلام

,,

اشكرك على الفونكشن اخي الكريم,,

ثآنيا,, اخي الكريم
حاول ان تغير واجهة البرنامج في النسخة المقبلة ان شاء الله

هل لديك اقترآح اخي الكريم؟
تقصد الصورة ؟ ام الوآجهة كلها,, بلأزرار وو الى آخره ؟

ام تقصد ان اضع سكين ؟

شكرا لك اخي :)

[AvimimuS]

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

[AL-MOB4RM3G]

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

حآضر اخي الكريم.,, اشكرك على ملآحظتك هذه :)

هل هناك شئ آخر ,, ؟ من عنده شئ يود قوله ؟

انا بلإنتظآر لبعض الأيآم ,,, ان شاء الله

[Anter2010]

السلام عليكم اخي انا نصبة الدالفي 2009 و الحقيقة ان التحميل لم يكتمل في الرابيد شار

[AL-MOB4RM3G]

السلام عليكم اخي انا نصبة الدالفي 2009 و الحقيقة ان التحميل لم يكتمل في الرابيد شار

اخي الكريم,, هل لديك موقع تفضله ؟

ان كان كذلك ارس لي الموقع وانا ارفعه لك ان شاء الله تعلى,,

اكرمك الله

[kachwahed]

هناك خلل عند حذف ملاحظة والجدول فارغ.
أضف شرط التحقق قبل الحذف، مثل:
if not adoquery2.IsEmpty then
adoquery2.Delete;

بالتوفيق ;)

[AL-MOB4RM3G]

فعلا هناك خلل,, شكرا على التنبيه اخي الكريم,,

سيتم اصلآح هذا ان شاء الله في القريب العآجل, :)

[saidfor2]

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

[AL-MOB4RM3G]

اولا, اهلا وسهلا بك اخي الكريم,, وآكرمك الله ورفع قدرك,

اخي الكريم

وإسمحلي أني لاحظة أن ليس هناك طباعة علمة بالمدرسة وخاصة بالطالب ... وشكرا

انا تحت امرتك اخي الكريم,, لكن لم افهم ماذا تقصد اكرمك الله, فهل لك ان توضح قليلا جزاك الله خيرا ؟

[AL-MOB4RM3G]

الروابط لا تعمل اخي عاود شوف البرنامج وكان تقدر مدلنا السورس معاه وشكرا جزيلا

اهلا وسهلا بك اخي الحبيب, ومرحبا بك في منتدى دلفي للعرب, :bye1:

تم تجديد الروآبط في المشآركة رقم 1, يمكنك التحميل الآن ان شاء الله,

بالنسبة للسورس, تفضل,
http://rapidshare.com/files/336732713/barnamg_altas7i7_43.rar.html

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

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

[علي]

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

[alaa lubbad]

جزاك الله خيرا علاء الدين