mokadem2000

قالت وزارة الدفاع الامريكية (البنتاغون) انها ستدمر قمرا اصطناعيا للتجسس تعرض للعطل وسيسقط على الارض خلال الاسابيع القليلة المقبلة. وقال مسؤولون في الوزارة ان الرئيس الامريكي جورج بوش اقر خطة تدمير القمر بصاروخ يطلق من غواصة حربية قبل ان يدخل، خلال سقوطه، إلى ا…

الأخ الفاضل ... استخدم الكود التالى Private sFilepath As String Private Sub Form_Load() sFilepath = "C:\" Text1.Text = sFilepath Label1.Caption = "" Timer1.Interval = 60000 ' Check every 1 minute Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim Fil…

الأخ الفاضل ... Polygon.zip أرجوا ان يفيدك هذا البرنامج فيما تريد إنجازه، بإستخدام MS-VB 6.0 وهو بعتمد على استخدام أحدى دوال API المستخدمة فى الرسم GDI، وهى الدالة Polygon ، وتستخدم لرسم أى شكل وليس الخماسى فقط، فيمكنك رسم اشكال سداسية ونجوم، او حتى اشكال عشوا…

الأخت الفاضلة ... الحقيقة أنا مش عارف فى حاجه مطلوبه وانا مش واخد بالى منها، ولا ايه ؟؟؟ class MyOwnClass { //simi-empty class public: MyOwnClass(double d) {/* Your code */} //Your code goes here...as long as you need. //Don't make any operators overloading. }…

الأخ الفاضل ... راجع: كيف أعرف أسماء الجداول وأضعها في كمبو بوكس ؟؟؟؟ شكراً

الأخ الفاضل ... الوسم WEB والمستخدم لعرض IFrame، غير مستخدم فى المنتدى، وغالباً يتم إيقافه فى أغلب المنتديات لأسباب الـ Security، حيث أنه من الممكن استغلاله لتشغيل Script ضار، وبعض أنواع المنتديات تستخدم الوسم IF بدلاً من WEB لنفس الغرض. المتاح فى المنتدى، وقر…

الأخ الفاضل ... الموضوع أيسط من أنه يحتاج كود، فقط جملة SQL فى MS-Access تفى بالغرض. لنفترض أن لديك جدول بغسم People يحتوى على الحقل Fullname والمخزن به الأسماء، أستخدم: SELECT Right$(Fullname,Len(Fullname)-InStrRev(Fullname," ")) AS Surname, Count(Right$(Full…

الأخ الفاضل ... راجع: كفيه دمج اداه في البرنامج شكراً

الأخ الفاضل ... راجع: فيروس بدو حل؟؟ شكراً

الأخ الفاضل ... راجع المثال الموجود فى: Image Processing ، فستحتاج فى عملية المقارنة إلى Digital Image Processing وهو يحتاج كثير من الجهد. شكراً

ما الاجزاء المتبقية التى تريد المساعدة فى انهائها

الأخ الفاضل ... Lines.zip أرجوا ان يفيدك هذا المثال فى ما تريد إنجازه، بإستخدام MS-VB 6.0 حيث يعتمد على علاقات حساب المثلثات المعروفة، لحساب احداثيات النقطة بدلالة زاوية الميل: س = ل × جتا هـ ص = ل × جا هـ Private PI As Double Private Sub Form_Load() PI = Atn(…

الأخ الفاضل ... راجع: ارسال بريد الكترونى مباشرتاً بالمرفقات والصور شكراً

الأخ الفاضل ... راجع: Mido_suit_scrollBar - Mido Style progress bar شكراً

الأخ الفاضل ... راجع: مجموعة دروس فى انشاء Active x control شكراً

الأخ الفاضل ... PrevInstance.zip أرجوا أن يفيدك هذا المثال فى ما تريد إنجازه، بإستخدام MS-VB 6.0 يعتمد المثال على فحص قيمة Private Counter As Long Private Sub Form_Load() Me.LinkMode = 1 Me.LinkTopic = Me.Caption If App.PrevInstance = True Then txtDDE.LinkMode…

الأخ الفاضل ... تثبيت: Microsoft Jet 4.0 Database Engine كذلك مفيد تثبيت: MDAC شكراً

ارفع (ارفق) الكود

الأخ الفاضل ... RS232 المقصود به الـمنفذ التسلسلى COM Port، ويمكن برمجته بإستخدام أداة مايكروسوفت الموجودة مع VB6.0 Enterprise هذه الأداة هى: Microsoft Comm Control 6.0 مثال لذلك، راجع: Voice Modem CallerID شكراً

الأخ الفاضل ... أنتبة: الكود الذى كتبتة لن يعطيك تارخ الإصدار، ولكن سيعطيك تاريخ أخر تعديل (أو إنشاء) المجلد الموجود به البرنامج. أما إذا أردت الحصول على تاريخ ووقت أخر تغير للملف التنفيذى الخاص بك فأستخدم MsgBox FileDateTime(App.Path & "\" & App.EXEName & ".e…