Abboodd

بصراحة أخ شادي، فاجأتني...... الكلمة Dim تستعمل لتعريف المتغيرات! التي هي من أهم أساسيات البرمجة في كل لغات البرمجة، يمكنك العودة إلى الدروس الكثيرة الموجودة في الموقع للتعرف على المتغيرات وطريقة تعريفها، أما بالنسبة لـ #1 فيمكنك العودة إلى درس التعامل مع المل…

Dim i As Integer If Val(Text1.Text) > Val(Text2.Text) Then Exit Sub Else For i=Val(Text1.Text) To Val(Text2.Text) Text3.Text=Text3.Text + Str(i) Next End If أظن الكود بسيط، وهو يختبر القيمة في كل من Text1 و Text2 فإن كانت القيمة في الأول أكبر من الثاني لا يقوم…

السلام عليكــم ورحمـة الله وبركاتــه بســم الله الـرحمــن الرحيــم هذا الدرس يحتوي على مجموعة من الأمثلة لخوارزميات بسيطة، يتراوح مستواها بين السهل جداً والمتوسط، وقد أحببت أن أقدمه لأسباب عديدة: 1- تشجيع الخبراء على تقديم دروس حقيقية ومتقدمة، بعد أن دخل المنت…

يبدو أنك لم تقم بنسخ الصورة aa.jpg يجب أن تنسخها إلى ملف المشروع، وأعتقد أنك تستعمل الأمر التالي: Image1.Picture=LoadPicture(App.Path + "\aa.jpg" ففي هذه الحالة، لن يعمل برنامجك إن لم تكن الصورة موجودة على المسار المحدد، وخصوصاً إن كان هذا الأمر موجوداً في For…

لحل هذه المشكلة، يجب أن تحفظ القيم في مكان خارج برنامجك، يمكن أن يكون ملف Txt أو قيمة في الريجيستري. يمكنك الاطلاع على المثال في المرفقات وفقك الله. OutPut_and_Input.rar

السلام عليكم ورحمة الله بسم الله الرحمن الرحيم لعل هذا الدرس ليس ضرورياً لتعلم البرمجة، ولكنه ذو أهمية كبيرة لك، خصوصاً إن كنت حديث العهد بالبرمجة. فمن السهل عليك أن تسمي النوافذ بالأسماء القياسية Form1,Form2,Form3.... ومن السهل أن تسمي المتغيرات a,b,c...... ل…

FreeSize أرجو أن تقوم بالبحث يا أخي قبل أن تطرح سؤالك

أخي هذا مثال في المرفقات، فيه زران، الأول يقوم بتشغيل البرنامج نفسه، والثاني يقوم بتشغيل المفكرة، عندما تريد تشغيل ملف تنفيذي عليك بالأمر: Shell(PathName,WindowStyle) حيث PathName هو مسار الملف التنفيذي، و WindowStyle هو الطريقة التي سيعرض بها الملف، هل يملأ ا…

أرجو أن تكتب أخي الطريقة التي استعملتها، لكي تفيد الآخرين الذين يطلعون على الموضوع.

أخي العزيز، إذا كنت تقصد الForm النافذة، فيمكن جعلها في وسط الشاشة بضبط خاصية StartUpPosition إلى CenterOwner لتظهر النافذة في وسط الشاشة. أما إذا كنت تقصد أداة الFrame وتريدها أن تكون في وسط النافذة فاكتب الأمر التالي في الحدث Form_Load : Frame1.Left = (Width…

أخي العزيز، المشكلة هي أنه يعرض الصورة التي تحقق الشرط V=50 ولكنه يتابع في زيادة الV حتى يصل إلى المئة، فيعرض الصورة التي تحقق الشرط V=100 بدلاً من الصورة السابقة. لحل المشكلة يمكنك استعمال الأمر Exit Do ليخرجك من الحلقة التكرارية في حال تحقق الشرط، يعني: Else…

بدّل: MsgBox PathName بـ: Shell PathName & "Project1.exe" في حال كان اسم مشروعك Project1 . وفقك الله

اضغط 11111111111 إلى أن يصبح زر الـNext قابلاً للضغط

هل أنت متأكد أن الذي وضعته هو Label ؟ لأن الـLabel لا يمكن أن تكون فوق الأزرار. على كل حال اختر الليبل ثم افتح القائمة Format وافتح Order ثم Send to back. وفقك الله

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

السلام عليكم ورحمة الله إخواني، لقد قمت بتحميل كتاب الإكسير للأخ سلطان محمد الثبيتي من على المنتدى رغبة في تعلم السي ++ وقد استفدت منه كثيراً حتى الآن ولله الحمد، ولكن أثناء تعلمي لجملة For لاحظت خطأ في المثال العملي للأخ، حيث يقوم ببرمجة كود يحسب العدد الأكبر…

لا أدري كيف يصدق الناس هذه الأحاديث مع أن علامات الوضع ظاهرة عليها، فمثلاً هذا الحديث، تأمل في سنده فقط، كيف يروي معاذ بن جبل عن ابن عباس، مع أن ابن عباس كان صغيراً عندما توفي الرسول صلى الله عليه وسلم، ومعظم روايته كانت عن الصحابة عن رسول الله صلى الله عليه و…

وفقك الله لكل ما فيه خير أخي محمود فايد، وأدعو الله أن يجعلك من خيرة عباده الذين يسعون لرفع مستوى المسلمين بين الأمم

ممكن مثل ما قال الأخ hythamzero وممكن إذا كنت تقوم بعمل آلة حاسبة أن تجعل الـEnabled للتيكست بوكس False ثم تضع أوامر بكتابة الأرقام، مثلاً: Select Case KeyAscii Case 48 Text1 = Text1 & "0" Case 49 ............................... ممكن هذا الكود، أو مثل كود الأخ

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