007GB

قد يكون الموضوع كلاسيكي نوعاً ما و لكنني أضفت إليه بعض النكهة العصرية شكل العقارب هنا ليس خطوطاً بل مضلعات مع أرقام الساعات في الخلف حمل الملف اتعرف عما أتكلم New_Analog_Clock.rar

أولاً أعتذر عن التأخير بسبب المشاغل ثانياً و قبل الشرح قررت أن أرفق نسخة معدلة من البرنامج أصلحت فيها بعض الأخطاء التي وجدتها و قمت ببعض التعديلات و لذلك عذا هو المرفق الجديد Encode_V2.0.1.rar أما الشرح فسأشرح عملية التشفير فقط لأن فك التشفير تعاكسها تماماً ال…

يبدو أن الموضوع فتر و أن لا أحد يعيره اهتماماً على كل حال هذا جواب السؤال الأخير procedure TForm1.Button1Click(Sender: TObject); var Wdt,Hgt,X,Y:integer; begin PaintBox1.Repaint; Wdt:=PaintBox1.width div 2; Hgt:=PaintBox1.Height div 2; PaintBox1.Canvas.MoveTo(…

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

سؤال جديد : لديك التابع التالي : y=x^2 أو ع=س^2 كيف ترسم المنحني البياني الممثل لهذا التابع ضمن PaintBox علماً أن x,y من النوع integer أو س،ع أعداد صحيحة

ما شاء الله 24 تحميل و إثنين ردوا فقط ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟…

أطلب العفو من كل المبرمجين الذين حملوا الكود و الذين لما يحملوه و لكن هنالك ملاحظة نسيت أن أذكرها الا و هي : لا أريد فقط أن تحملوا و تقولوا جيد بل انتقدوا هذا الكود حتى العظم و لا تبخلوا علي بنقدكم حتى أشعر أن المبرمجين قد تفاعلوا مع الموضوع أخوكم 007GB

هنالك طريقة عامة تحسب من خلالها النسبة المئوية لأي مقدار من أي مقدار function CalculatePrecentage (FatherNum,SonNum:extended):extended; begin result:=(SonNum*100)/FatherNum end; و لكن ذلك لا يعني أنها الوحيدة فكما ذكرت هي طريقة عامة و تلاحظون أنها ثقيلة نوعاً …

مرحباً إخواني المبرمجين اليوم أقدم لكم مشفر النصوص الإصدار الثاني يحوي هذا الإصدار تطويرات كثيرة عن الإصدار الأول الذي تجده في Text Encoder لن أذكر التطويرات التي أضفتها و إنما أفضل أن تكتشفوها بأنفسكم و إذا استعصى عليكم قسم من الكود فسألوا و أنا سأجيب الملف :…

مرحباً إخواني أعتدذر عن التأخر في الرد لظروف خاصة صراحة لقد صعقت للإجابات الكثيرة و التي لم أعرف أين تبدأ و أين تنتهي عن سؤال العدد الزوجي و الفردي أما بالنسبة للسؤال الثاني فهذه إجابتي var a,b,c:integer; begin a:=16010 div 3600 b:=(16010 mod 3600)div 60 c:=16…

مرحباً أخي GamingMaster : أعلم أنهما طريقة واحدة و كلاهما تعتدمان على باقي القسمة إذ أن باقي القسمة على العدد 2 هو مايميز و بشكل رئيسي الأعداد الزوجية عن الفردية و أردت أن أذكر طريقتين مختلفتين للاعتماد على باقي القسمة فقط لتوسيع الأفق و المدارك أخي rober : يب…

و هاتان طريقتان اخريتان : نحن نعلم أن العدد الزوجي ينتج عن جمع عددين زوجيين أو فرديين الطريقة 1 : procedure isconjugal(var number:integer):boolean; var NewNum:integer; begin result:=false; NewNum:=Number-2 if NewNum mod 2=0 then result:=true; end; الطريقة 2 pr…

مرحباً إخواني المبرمجين قد تتسألون عن عنوان الموضوع الغريب (سؤال دون جواب)؟ إن الغرض من هذا الموضوع هو طرح سؤال برمجي من قبل مبرمج ما و هو يعرف حله ثم ينتظر الردود المختلفة من عدة مبرمجين قد تحمل حلول جديدة غير حله و الهدف هو تشغيل الباحة البرمجية في مخ المبرم…

مرحباً إخواني هذا برنامج بسيط جداً لتصفح الصور أرجوا أن يعجبكم Thumbed_Browsing.rar

مشكور إخواني جاري التجريب

مرحباًَ إخواني لدي استفسار في ملفات الADO ملف اسمه msjro.dll يحتوي على class module( هكذا تسمى في الفيجوال بيسك و هي كائن له خصائصه و أحداثه) باسم jetenginge له وظيفتان إحداهما ضغط قاعدة البيانات هذه الوظيفة اسمها compactdatabase و تأخذ بارمتران الأول SourceCo…

مرحباً إخواني هذا مما وجدته في موقع PSCode.com عن ملفات ICL icl.rar and may piece be upon you

مرحباً مرة أخرى لقد وجدت بعض الإجابات في موقع Planet Source Code عندما بحث بستخدام كلمة ICL لكن لم أختبر بعض هذه الأمثلة بعد و شكراً

جاري التجريب شكراً لك أخي DelphiCoder

مرحباً أيها المبرمجين لدي سؤال عن ملفات مكاتب الأيقونات ICL كيف يمكن التحكم بها بواسطة دلفي و شكراً