• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

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

Hossam 2005

اعضاء جدد
  • عدد المشاركات

    13
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن Hossam 2005

  • الرتبة
    عضو جديد
  1. كود سعر العملة

    السلام عليكم ورحمة الله وبركاته أخي الكريم هذا موقع البنك الأهلي المصري - أسعار العملات http://www.nbe.com.eg/exchangerate.aspx ولكن السؤال المهم هل يمكن عرض هذه الأسعار في برنامجنا (بداخل DataGridView مثلا) دون الدخول لصفحة البنك ؟؟؟ لقد قمت بالبحث كثيرا ولكن دون جدوى
  2. السلام عليكم ورحمة الله وبركاته أولا شكرا لك أخي الكريم على ردك ثانيا هدفي في البرنامج أن يقوم المستخدم بالضغط على زر فينفتح له فورم آخر يحتوي على جدول يحتوي على أسعار تحويل العملات (والتي يجب أن تكون محدثة يوميا من موقع رسمي مثل البنك المركزي أو البنك الأهلي) وبعد ذلك فالمستخدم حر فإما يستخدمها في القيود اليومية أو يكتفي بالاطلاع عليها ومرة أخرى شكرا جزيلا لك وجزاك الله كل خير
  3. السلام عليكم ورحمة الله وبركاته شكرا لك أخي عمرو على مبادرتك الجميلة في هذا الموضوع ألاحظ في بعض البرامج المحاسبية أن البرنامج يعرض أسعار العملات يوميا فكيف يمكن تحميل أسعار العملات من موقع معين مثل موقع البنك الأهلي http://www.nbe.com.eg/exchangerate.aspx ووضعها داخل DataGridview وجزاك الله خيرا
  4. السلام عليكم ورحمة الله وبركاته أخي الحبيب اجعل الكود كما يلي : TextBox2.Text = Decimal.Round(Val(TextBox1.Text), 0, MidpointRounding.AwayFromZero) والسلام عليكم ورحمة الله وبركاته
  5. السلام عليكم ورحمة الله وبركاته أخي الحبيب يمكنك عمل ذلك دون اللجوء إلى أكواد VBA فإكسيل يدعم ذلك بجدارة كل ما عليك سوى اتباع ما يلي : قم بتحديد الخلايا المراد ادخال الرقم بها ومن قائمة Data اختر Validation سيفتح لك مربع حوار بعنوان Data Validation في التبويب الأول منه Settings افتح القائمة المنسدلة Allow واختر منها Whole number (أي أنك تريد أن تجبر المستخدم على ادخال عدد صحيح) ثم من القائمة المنسدلة الثانية المسماة Data اختر between سيظهر لك مربعين . الأول Minimum أكتب فيه 0 ، والثاني Maximum اكتب فيه 10 بعد ذلك انتقل للتبويب الثاني بالأعلى Input Message وذلك إذا أردت أن تظهر للمستخدم رسالة إذا وقف على الخلية تخبره فيها بإدخال رقم أكبر من الصفر وأقل من العشرة بعد ذلك انتقل للتبويب الثالث بالأعلى Error Alert وهذا الجزء هو المسؤول عن ظهور رسالة الخطأ في حالة ادخال المستخدم رقم يخالف القاعدة الموضوعة (كما هو واضح في رسالة الخطأ التي أرفقتها في الصورة) بعد ذلك اضغط OK وإذا أردت أن تزيل كل هذا قم بتحديد الخلايا المراد إزالة هذا الشرط منها وكرر فتح مربع حوار Data Validation مرة أخرى واضغط على الزر الأيسر Clear All ثم Ok وأريد أن أوضح أن هذه الطريقة أفضل لأن طريقة أكواد VBA يجب أن يجعل المستخدم مستوى الأمان عنده إما متوسط أو منخفض حتى تعمل أكواد VBA والسلام عليكم ورحمة الله
  6. السلام عليكم ورحمة الله وبركاته إخواني الكرام ... إذا كان لدي قاعدة بيانات Access بها 5 جداول مثلا ، وأردت عمل تصدير (أو نسخة احتياطية) من الجدول رقم 1 و الجدول رقم 2 فقط (وليس قاعدة البيانات بالكامل) فكيف يمكنني هذا ؟؟ أيضاً كيف يمكنني استيرادهم (إرجاعهم) لقاعدة البيانات مرة أخرى ؟؟؟ مع العلم بأني استخدم VB.NET 2005 وجزاكم الله خيراً
  7. برنامج بنك الاكواد

    أخي الكريم اعتقد أن هذه أكواد فجوال بيسيك 6 عموما شكرا جزيلا لك
  8. ربط الtreeviewبقاعدة البيانات

    السلام عليكــم ورحمـة الله وبركاتــه ،، أخي العزيز ؛؛ يمكنك مراجعة المثال التالي (مصمم ب Framework 3.0 + Visual Basic.Net 2005 أو Framework 2 Sp1) http://www.arabteam2000-forum.com/index.php?act=attach&type=post&id=83049 وفكرة البرنامج أنني لا أعلم عدد الحسابات الموجودة بالشركة أو التي قد يتم فتحها بالمستقبل لذلك تم انشاء جدول واحد بقاعدة البيانات يحتوي على ثلاث حقول فقط كما يلي: حقل ID نوعه AutoNumber حتى يتم اعطاء كل حساب موجود رقم خاص به لا يتكرر مع أي حساب آخر حقل Name نوعه text وهو عبارة عن اسم الحساب حقل Type نوعه Number وهو عبارة عن رقم الحساب الأب أو هو عبارة عن رقم الحساب الرئيسي الذي تفرع منه الحساب الحالي وحتى تتضح وظيفة الحقل Type إليك شرح لما تم بالمثال المرفق: بند "الأصول المتداولة" يأخذ الرقم 2 في حقل ID وهذا الرقم أخذه تلقائياً ، ويأخذ الرقم 0 في حقل Type وبالتالي فهو فرع رئيسي بالشجرة ثم نجد بند "البنك" يأخذ الرقم 5 في حقل ID وهذا الرقم أخذه تلقائياً أيضاً ، ويأخذ الرقم 2 في حقل Type ومن ثم فهو فرع للأصول المتداولة (حيث أن الأصول المتداولة تأخذ القيمة 2 في الحقل ID) ثم نجد بند "الأهلي" يأخذ الرقم 5 في حقل Type ومن ثم فهو فرع للبنك (حيث أن البنك يأخذ القيمة 5 في حقل ID) وهكذا بمعنى أصح أن كل اسم حساب(ابن) له قيمة في الحقل Type هذه القيمة ما هي إلا قيمة لحقل ID لحساب آخر(الأب). أتمنى أن أكون قد أوضحت الفكرة والحق يقال بأن الذي ساعدني في تصميم الكود هو الأخ Jbsa بمنتدى المحيط العربي فجزاه الله خيراً. والسلام عليكــم ورحمـة الله وبركاتــه ،،
  9. السلام عليكــم ورحمـة الله وبركاتــه ،، أخي ممكن ترسل لي البرنامج على إيميلي [email protected] وشكراً لك اخي الكريم
  10. الأداة Tree View

    السلام عليكــم ورحمـة الله وبركاتــة ،، أولاً : أشكر الأخ تمهيدي على المرور . كما أحمد الله على أن البرنامج لا يقف معي أنا فقط ثانياً : أين الخبراء في هذا المنتدى؟؟ وشكراً ؛؛؛
  11. الأداة Tree View

    السلام عليكــم ورحمـة الله وبركاتــة ،، أخواني الكرام عندي برنامج يحتوي على شجرة الحسابات والتي يتم ملؤها من جدول واحد فقط من قاعدة بيانات Access وقد وضعت مشاركة في منتدى المحيط العربي للبرمجة بالرابط التالي http://www.arabmoheet.net/forum/default.as...mp;#entry100145 وقد استفدت كثيراً منهم إلا أن البرنامج لا يعمل معي. فأرجو منكم المساعدة لحل المشكلة مع العلم بأنني استخدم فجوال بيسيك 2005 البرنامج موجود بالمرفقات Accounts_Tree_View.rar
  12. Skin Crafter والكريستال ريبورت

    السلام عليكــم ورحمـة الله وبركاتــه أخي العزيز ... هذه المشكلة كانت تحدث معي ، وبعد مراسلات مع الشركة المنتجة لها أفادوني بإزالة تأثير الأداة SkinCrafter من على أي أداة أخرى لا تدعمها (مثل الكريستال ريبورت في حالتك هذه). المهم ؛ في نهاية حدث التحميل للنموذج أكتب الكود التالي SkinOb.ClearWnd(Z.hWnd, True) حيث Z هي الأداة المطلوب إزالة التأثير عنها وبالتوفيق إن شاء الله
  13. أخي الحبيب اعمل في شركة شحن وتفريغ ولدينا ميزان للسيارات النقل ماركة METTLER TOLEDO و هو يعمل من خلال السيريال بورت وله برنامج خاص تم عمله لدى شركة برمجة متخصصة فإن أردت المساعدة فأرسل لي كود ربط الفجوال بيسيك بالسيريال بورت (لأنني لا أعرفه) وسأقوم بتجربة لبعض الأكواد عندي إلى أن اصل إلى طلبك سريعاً