شبه جسم

بالنسبة للسؤال الأول راجع الرابط التالي ( هنا ) وجواب الأخ salehr3 صحيح أيضا ، لكن يظهر أن الأخ السائل يستفسر عن الطريقة برمجيا أما السؤال الثاني فقد أجابك به الأخ عبدالفتاح حسن مشكورا مع أني أرى أن الكود لا يحتاج إلى تحديد إحداثيات ، فيكفي كتابة : If Button =…

Print Space(50) & "super_pro" كود رائع وسهل وبسيط ومفيد أشكرك أخوي عليه وبالنسبة للون ما عرفت أغير فيه ، فما حصلت غير إني أكتب : Me.ForeColor = vbRed أما عن الكود ( Size = 20 ) فينطبق على هذا الكود الأخير ، لكنه ما ينطبق على الكود الأول . والله يوفقك

هلا بأخوي Super_Pro وأشكرك على التعقيب أنا أدري إن On Error Resume Next نكتبها عند حدوث خطأ ما في البرمجة ، لكن المشكلة إني ما كنت عارف ليش يظهر الخطأ !! الظاهر إن الخطأ فعلا في For x = 0 To List1.ListCount -1 لكني عندي سؤال أخوي لو تكرمت .. ليش نكتب -1 ؟ عدد …

بالنسبة للسؤال الأول أخوي جرب هذا الكود : Private Sub Command4_Click() On Error Resume Next For x = 0 To List1.ListCount If List1.Selected(x) = True Then Print List1.List(x) End If Next x End Sub وإن شاء الله موفق

بالنسبة للسؤال الأول ما عرفت الطريقة ، لكن إن شاء الله أول ما أعرفها راح أخبرك على طول أما السؤال الثاني فاستخدم هذا الكود : On Error Resume Next For x = 0 To List1.ListCount List1.Selected(x) = True Next أما ليش On Error Resume Next فالله أعلم !

يا سلام عليك الأنيميشن ممتاز ، واستغلالك للفكرة رائعة هذا هو الإبداع وإلا فلا بالنسبة للكود إللي عطيتك إياه ، فأنا فهمي ليه بسيط جدا ، والحقيقة أنا حصلته بالصدفة ، وعدلت فيه ( عندي عادة غريبة إني أحب أعدل في الأكواد ، وأمسح منه الأشياء إللي ما أحتاجها :lol: ) …

بالنسية للسؤال الثاني يا أخوي Super_Pro أنا حصلت هذا الكود : Private Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject …

البرنامج شكله عادي معاي يمكن يكون الخلل في الكمبيوتر إللي تشتغل فيه غير الكمبيوتر وشوف النتيجة

ليست عملية خط بدون لون ، ولكنها عميلة رسم خط من النقطة (أ) إلى النقطة (أ) ، يعني إلى نفس النقطة ، يعني ما رسمنا شي باختصار ، مجرد تحديد احداثيات للأمر الذي يليه ، والذي هو طباعة كلمة ( محمد ) . بالنسبة للسؤال الثاني جاري التفكير فيه .

بالنسبة للسؤال الأول ، استخدم هذا الكود للـ ( 500 ) : Line (500, 0)-(500, 0) Print "محمد" وإذا تريد 200 مثلا غير الإحداثيات السنية إلى 200 ، وإذا تريد تنزل تحت ، زود الإحداثيات الصادية. بس لازم تكون كل الإحداثيات السنية متساوية ، وكل الإحداثيات الصادية متساوية…

فيه طريقة ما أدري إذا راح تعجبك وإلا لا ليش ما تستخدم تقنية الـ ASCII مثلا اسم محمد: حرف الميم = 277 وحرف الحاء = 205 وحرف الدال = 207 في النهاية يكون اسم محمد = 277,205,277,207 وطبعا تفصل بين كل حرف وحرف بفاصلة (,) علشان ما يتخبل البرنامج والفراغات بين الأسما…

طريقة الأخ Super_Pro ناجحة ومفيدة ، لكن المشكلة إن الأخ Amorous قال في بداية كلامه : وقال أيضا : المشكلة إن قاعدة البيانات لا تحوي إلا على أرقام فقط ، يعني ما ممكن نكتب أي اسم فيها !!!! أخاف أقول شيء تقول عني سخيف :( ليش ما تكتب أداة شرط ( إذا كان Text1 = 1 ..…

كود إطفاء الجهاز هو : Shell ("shutdown -s") أتمنى يساعدك في إجابة سؤالك

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

ممكن أخوي الكريم تحط لنا مثال وإحنا نعدل فيه ؟

أخي الكريم محمد لا يوجد شيء اسمه سؤال سخيف ، كل الأسئلة مهمة مهما كانت ، ما دامت ضمن حدود الأدب والذوق ولولا مثل هذه الأسئلة ما كان أحد تعلم شيئا بالنسبة لسؤالك الكريم ، انظر الملف المرفق ، لعله ما طلبت _________________.rar

أبسط أنواع الأرقام السرية هي هذه : Private Sub Form_Load() If InputBox("ضع الرقم السري هنا") <> "123" Then End End If End Sub حيث أن ( 123 ) هو الرقم السري .

أخوي deepfreeze .. جرب هذا الكود : Private Sub Form_Load() Command2.Value = True End Sub Private Sub Command2_Click() Dim C As Integer Dim I As Integer Randomize C = (Rnd * 100) + 1 I = (Rnd * 100) + 1 Text1 = C Text2 = I Label1 = Val(Text1) / Val(Text2) If La…

أنا لن أضيف جديدا ، لكنني سأعيد ما تم ذكره من الأخوة الخبراء بطريقة أكثر تبسيطا ( متطفل ليس إلا (h) ) 1- هيئ الفورم بالشكل الذي تحب ، ثم قم بحفظه ، ليكن ( Form1 ) . 2- نفس الفورم ( لا تغلقه ) غير خاصية الـ (Name) الخاصة به ، وعن طريق الـ ( Save Form as ) احفظه…

أنا بعطيك فكرة بسيطة ، لكن إنت طبقها وطورها ، لأن بها قصور . المشكلة إني ضعيف جدا بالرياضيات ، علشان كذا ما ضبطت معاي العملية . المسألة سهلة جدا . أول شيء طلع النسبة المؤوية بين الأداة والفورم ، يعني مثلا عندك في الفورم عدد ثلاثة Text، وعندك خمس مثلا زر Comman…