Abboodd

سأشرح لك بمثال: Form1.BackColor=vbRed Form1.Width=2000 Form1.Caption="Hello World" هذا يساوي تماماً: With Form1 .BackColor=vbRed .Width=2000 .Caption="Hello World" End With تمام؟

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

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

:hmm:

درس رائع عن القراءة والكتابة من وإلى الملفات حرفاً حرفاً هل هذا مناسب؟

هل يمكنك أن تعطينا هذه الطريقة في c++ ، للفائدة :)

حقك عليّ :) إذا أمكن تغيير عنوان الموضوع ليصبح مناسباً. جزاك الله خيراً.

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

:)

السلام عليكــم ورحمـة الله وبركاتــه قلّي كم محاولة حاولت، أقل لك من أنت، وإليك الحل التالي: نحن نريد القيام بالأمر في كل ربع ثانية، وهذا باستخدام الأداة Timer ، وبما أننا في المثال السابق وضعنا 1000 في خاصية Interval لنعبر عن ثانية واحدة، إذن لنعبر عن ربع ثان…

هل جربت Open for input ؟ Dim A As String Open App.Path + "\test.reg" for input As #1 Input #1,A

يمكنك قراءة ملف الوورد بالطريقة التالية: Dim A As String Dim FullText As String Open "FileName" For Input As #1 Do Until EOF(1) Input #1,A FullText=FullText + A Loop Close #1 وبهذا أصبح لديك الملف كاملاً، موضوعاً في المتغير FullText ، لتنقله إلى مجلد ما، يمكنك…

السلام عليكــم ورحمـة الله وبركاتــه إخواني وجدت هذه الصفحة الرائعة، واستفدت منها كثيراً، وأحببت أن أشارككم فيها، وهي تتحدث عن القراءة والكتابة إلى الملفات بطريقة Binary. المشكلة الوحيدة أنها بالإنكليزي، لكن يجب على المبرمج أن تكون لغته الإنكليزية قوية. وها هو…

يمكن أن يساعدك هذا الكتاب في الـResource Files . Resource_File.rar

أخي على حد علمي، لا يوجد في الفيجوال بيسك ما يقوم بهذا، ولكن يمكن قراءته Byte Byte ، أي حرفاً حرفاً، ثم تحصل على الـAscii للحرف، وتحوله عبر خوارزمية ما إلى نظام ثنائي إذا أردت ، سأبحث لك عن هذه الخوارزمية .

جرب Arial (Arabic)

هذه هي الأداة تفضل أخي Active_Skin_4.rar

لا أدري أخي فالنظام عندي Vista ، ولكن أنا كنت أعمل على الـAdministrator ومع هذا كان يتطلب عمل السابق، فهل تعمل أنت على الـAdministrator أم على حساب آخر؟ نصيحة: انسخ نص الـError والصقه كما هو في الـGoogle ، قد تجد مواضيع كثيرة تتحدث عن الذي تريده. أنا بحثت ساعا…

عفواً، أنا فهمت بالعكس، ما رأيك بهذا: Text1.Text=Format(Now,"hh:mm:ss") هل هذا ما تريده ؟ :)

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