Abboodd

السلام عليكم ورحمة الله خوارزمية كتابة الأعداد غير الأولية: مممممممممممممم... إذا جربت خوارزميتنا الثالثة في هذه المرحلة، وكتبت العدد 15 مثلاً في مربع النص، ثم ضغطت الزر، فسوف تظهر لك رسائل MessageBoxes تحوي هذه الأعداد: 1 4 6 8 9 10 12 14 15 يمكنك ملاحظة أن ه…

لكن يا epal4 في الموضوع الذي أشرت إليه، سوف تصبح الأمور فوضى بهذه الطريقة، سأرسل لك على الخاص لتحسين الفكرة. بالنسبة لسؤال الأخت، فيمكن البحث بواسطة جمل SQL في قاعدة البيانات، مثلاً: RS.Open "SELECT * FROM a WHERE word =" & Text1.Text & "'" حيث a اسم الجدول في…

اعذرني أخي، المثال الذي أعطيته لك كان ليعمل على MSFlexGrid ولكن لم أستطع تجربته على DataGrid ويبدو أنه لا يعمل، على كل سوف أنظر في حل لهذه المشكلة بإذن الله.

فكرة جميلة، ولكن ما رأيك أن نجعله موضوعاً لأكثر المشاكل شيوعاً، وليس لكل المشاكل، فالمشاكل لا تنتهي.

يا أخ kiss، ليس من الذوق الكلام بهذه الطريقة، مع شخص يطلب منك مزيداً من التوضيح ليستطيع ان يساعدك بشكل فعال.... على كل حال، بالنسبة للسؤال الأول،ضع الكود التالي في الحدث Validate للأداة DataGrid1 يمكنك التنقل بين كل صف من صفوف DataGrid والتحقق من أنه ليس فارغا…

ما هي رسالة الخطأ؟

للمبتدئين في مشاريع التخرج والأبحاث العلمية هل هذا هو؟

السلام عليكم ورحمة الله أظن أن هذه الخوارزمية كانت جديدة بعض الشيء عليكم، لكن لا بأس، إن كنت قد حاولت ونجحت، فهذا ممتاز، وإن كنت قد حاولت وفشلت، فهذا أيضاً ممتاز، أما إن فكرت خمس دقائق ثم ذهبت، فهذا يعني أن هذا الموضوع كله لا فائدة منه، فالهدف الأساسي هنا، هو …

وما هي مشكلته؟ إنه يعمل عندي بشكل جيد، ما هي رسالة الخطأ؟

ما هو الغلط يا أخي؟

السلام عليكم ورحمة الله Private Sub Calendar1_Click() Text1.Text = Calendar1.Value End Sub Private Sub Command1_Click() Calendar1.Visible = True End Sub

تسلم :) shadinxtpr.rar

السلام عليكم ورحمة الله خوارزمية إيجاد قواسم عدد: عدنا إلى الابتدائي ;) إذا نظرت إلى الخوارزمية التالية في مرحلتنا هذه، وكتبت عدداً ما في مربع النص، ثم ضغطت الزر الموجود، فسوف يعطيك قواسم العدد، كل قاسم في رسالة MsgBox ، فمثلاً قواسم العدد 18 هي: 1 2 3 6 9 18 …

أهلاً يا شادي.. كود التالي: Private Sub Command1_Click() If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Adodc1.Recordset.MoveNext End Sub كود السابق: Private Sub Command2_Click() If Adodc1.Recordset.BOF Then Exit Sub Adodc1.Recordset.MovePrevious End S…

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

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

ما شاء الله أكثر من رائع. جزاك الله خيراً

السلام عليكم ورحمة الله هذا هو الكود: انسخ الكود Dim TriangleLength As Integer Dim Letter As String Dim A As Integer Dim i As Integer , j As Integer , y As Integer TriangleLength = Text1 . Text Letter = Text2 . Text Text3 . Text = "" A = 0 For i = 1 To Triangl…

لا ليس بها أحداث، ولكن بها خواص مثل Top و Left ووو، أما الرسم بالأوامر، فليس له أية صفات، أو خواص.

وهذا موقع آخر، حملت منه الكثير :) : http://www.freevbcode.com/ ما رأيكم أن نجعل هذا الموضوع جامعاً للمواقع التي تقدم Source Codes مميزة في الفيجوال بيسك؟؟