Abboodd

أرجو أن تضع حلها إذا لم يكن هناك مانع. شكراً لك :)

أخي المثال الذي كتبته شكله غريب، لكن أهم خطأ فيه هو وضع DateAdd بين "" يجب أن تكون هكذا: Text14.Text = DateAdd("yyyy" , 4 , Text12) فيجب ألا تضعها بين علامات اقتباس.

اضغط Control + T ثم اختر Microsoft Hierarchical FlexGrid Control 6.0

قد يفيدك هذا الموضوع /index.php?showtopic=156197

أخي عفواً ولكنك لم تجاوبني على سؤالي. هل تريده نسبة مئوية مثلاً، عندها يجب أن تقول لي ما هو العدد الذي سينسب إليه، مثلاً: 50 إلى 200 يساوي 25 إلى 100 أم أنك تريد الحصول على أي رقم كان، المهم أن يكون بين الصفر والمئة، وعندها يمكنك استعمال المعامل Rnd.

تمسح البيانات من الـCombo Box؟ لم يحدث هذا وقد عملت له Run أكثر من مرة، انظر قد تكون هناك مشكلة في الكود عندك.

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

السلام عليكم ورحمة الله وهذا حل خوارزميتنا الأخيرة: انسخ الكود Private Sub Fibonacci ( Numbers As Long , Result ( ) As Long ) Dim Counter As Integer ReDim Result ( Numbers - 1 ) As Long Select Case Numbers Case 1 Result ( 0 ) = 0 Case 2 Result ( 0 ) = 0 Result…

السلام عليكم ورحمة الله خوارزمية Fibonacci: اسم غريب على بعضنا، صحيح :) لكن لا تقلقوا، فهي سهلة بإذن الله. هذه الخوارزمية تقدم سلسلة أعداد كالتالي: 0___1___1___2___3___5___8___13___21....... ما المميز في هذه الأعداد؟ :hmm: في البداية نبدأ بالصفر، ثم الواحد، ثم…

تفضل أخي المثال غير متكامل تماماً، ولكن به ما تريده يمكنك الكتابة في MSHFlexGrid وإضافة صف جديد بضغط الزر Enter وعندما تضغط الزر Save يتحقق من أن كل الحقول مملوءة، ثم يقوم بإضافتها إلى قاعدة البيانات إذا كان في المثال أي خطأ أو نقص، أرجو إطلاعي عليه، لأقوم بال…

أرجو أن يكون هذا ما تريده :) لا تنس إعادة ضبط الاتصال Kiss.rar

لا أظن ذلك ممكناً في أداة DataGrid.

قد يفيدك هذا الموضوع، علماً أني لم أقرأه: /index.php?showtopic=125874

منتدى مبرمجي Microsoft Visual Basic.Net بالتوفيق.

كما قلت لك، لا يوجد فرق، انظر مثلاً التحويل من كيلوغرام إلى غرام، وبالعكس: Text2.Text=Val(Text1.Text) * 1000 Text1.Text=Val(Text2.Text) / 1000 هل هذا ما تريده؟

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

أخي الكريم، أولاً: أخي رابط الصورة لا يعمل. ثانياً: هي تحويلات عادية كما في الرياضيات الابتدائية، مثلاً من كيلو غرام إلى غرام: Weight In Grams = Weight In KiloGrams * 1000 والعكس: Weight In KiloGrams = Weight In Grams / 1000 تحويلات عادية تماماً. ثالثاً: منتدى…

أخي أنت لم توضح ما المشكلة، ما هي رسالة الخطأ مثلاً على كل قد يفيدك هذا الموضوع: /index.ph...%DD%ED%D3%CA%C7

يبدو أن الأمور قد بدأت تتعقد :) هذه هي الدالة IsPrimary: انسخ الكود Private Function IsPrimary ( ByVal Number As Long ) As Boolean Dim Counter As Long If Number = 1 Then IsPrimary = False Exit Function End If For Counter = Number - 1 To 2 Step -1 If Number Mod…

تفضل أخي، هذا بالنسبة للسؤال الأول، لم أستطع تجربته لوجود مشاكل عندي، إذا واجهتك رسائل خطأ أرجو وضع نصها، وشكراً لك: انسخ الكود Private Sub DataGrid1_Validate ( Cancel As Boolean ) Dim i As Integer , j As Integer For i = 0 To DataGrid1 . Columns . Count - 1 Da…