rober

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

يمكنك أستبدال الـ for بـ while على الشكل var i : integer; begin i := 0; while i < 200 do begin i := i + 2; showmessage(inttostr(i)); end; end;

أخي الكريم هذه روابط فيها كتب عن الـ PLC و فيها روابط عربية أرجو أن تفيدك http://www.eod.gvsu.edu/~jackh/books/plcs/ http://www.artikel-software.com/blog/2007/...gic-controller/ http://www.arab-eng.org/vb/t52595.html http://www.google.com/search?hl=ar&q=plc+bo…

السلام عليكم القصة من البداية : أحد الموظفين قام بإستقبال ملف من skype عبارة عن ملف exe بعد فتح الملف بدأت أخطاء الويندوز لم يخبر أحد عن المشكلة و بعد يومين ترك حاسبة شغال و ذهب إلى البيت و كأن شيأ لم يكن بعد ذهابه و أنا جالس على حاسبي ( عامل أيقاف للـ FireWal…

أختي الكريمة أنسخي السطر C:\Documents and Settings\Administrator\Cookies مع أستبدال الـ Administrator بإسم المستخدم عندك ثم قومي بلصقه في شريط العنوان Address Bar

بالنسبة للـ interbase data access components معظم أصدارات دلفي تحتوي على أدوات جاهزة للتعامل معها

السلام عليكم أولا بالنسبة لسؤال الأخ billel_del2006 عن الأنتربيز فهي نوع من قواعد البيانات مثلها مثل الـ SQL MySQL Oracle Access كما له أدوات جاهزة مع دلفي موضحة في الصورة المرفقة ثانيا بالنسبة لسؤال الأخ moa mohsen قمت بعمل تجربة على الأنتر بيز بمشروع صغير عل…

أخ دلفاوي بمجرد أني قمت بفتح الملف التنفيذي ظهرت لي الصورة المرفقة

السلام عليكم مثال لتوضيح البحث بإستخدام الـ filter و SQL procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text <> '' then begin adotable1.Filtered := false; adotable1.Filter := 'name like ''%'+edit1.Text+'%'''; adotable1.Filtered := true; end; en…

نفس المثال المرفق في دلفي

أخي الكريم كما قال الأخ وائل قم بتنقيح الكود و إن لم تحل المشكلة قم بوضع الكود الذي تحدث فيه المشكلة ( يفضل أن يكون مثال مرفق ) و بإذن الله ستجد حل لمشكلتك

أخ عمر مشكور على المتابعة لكن أتصور ليست هذه هي الطريقة و السبب عندي أحد الأمثلة المجربة : الرقم الكبير : 16461 الرقم الصغير : 16333 الرقم الأوسط : 16370 (المطلوب حساب نسبته بالنسبة للرقمين الأخرين ) النتيجة هي 29% جربت تطبيق طريقتك على الأرقام فكانت النتائج ع…

السلام عليكم ممكن سؤالي يحله طفل عمره 5 سنوات لكن صاحبكم بالرياضيات (0%) :blush: بشكل كلام (ثلاث أرقام لا على التعيين لكنها تدل على رقم كبير و رقم صغير و رقم يقع بين الأثنين و المطلوب حساب نسبة الرقم الأوسط بالنسبة للرقمين الأخرين) على شكل أرقام (10)(1)(5) طبع…

مشكور على التوضيح

أتصور المشكلة من النسخة المنصبة أو خطأ في التنصيب والله أعلم :huh:

السلام عليكم أخي الكريم الرجاء التوضيح هل تريد عمل برنامج يقوم بالتخاطب ( رسائل كأرسال أمر من برنامجك ) إلى / مع الهاتف المحمول ( جوال ) ؟ هل تريد عمل برنامج يقوم بإرسال رسائل عن طريق الهاتف المحمول الموصول بالحاسب ؟ أعذرني لعدم فهمي السؤال لكن أرجو التوضيح أك…

أخ أحمد يا ريت تضع مثال و هيك تسهل على نفسك الوقت و على الشخص المساعد الفهم :blush: بكل الأحوال جرب المرفق الذي يحدث فيه الخطأ ( عدم وجود الحقل id1 في الجدول ) ( الخطأ مقصود طبعا ) بإستخدام الكود التالي procedure TForm1.Button1Click(Sender: TObject); begin try…

السلام عليكم أخي الكريم تابع المثال المرفق من دلفي في المسار C:\Program Files\Borland\Delphi7\Demos\RichEdit و ستجد فيه مطلبك بعون الله أرجو أن يكون كذلك و إن لم يكن كذلك سيكون هناك حل أخر بعون الله شاهد الصورة المرفقة و لاحظ الدوائر الحمراء

لاشكر على واجب المهم أن تكون قد وجدت ما تبحث لو أردت الكود بالفيجوال بيزك Private Sub Timer1_Timer() If Form1.BackColor = &HFF& Then Form1.BackColor = &HFF0000 Else Form1.BackColor = &HFF& End If End Sub أيضاً قمت بإرفاق الملف أرجو الأستفادة VB_Form_color_by_t…

procedure TForm1.Timer1Timer(Sender: TObject); begin if form1.Color = clred then form1.Color := clblue else form1.Color := clred; end; المرفق يقوم بنفس العملية Form_color_by_timer.rar