Aleppo

للرفع

يمكن عبر الأمر SendKey

الفيجوال .net ينتظر

السلام عليكم ورحمة الله وبركاته . أما بعد ..... فهذه مشاركتي رقم 1000 في أحد المنتديات والتي أريد أن تكون مميزة إلى أبعد الحدود . لذلك فقط قررت أن يكون هذا الموضوع عبارة عن عدة مواضيع ! لكن الهدف الأساس من (ألفية Aleppo Force) هو توديع VB6 والانتقال إلى VB.net…

بســم الله الـرحمــن الرحيــم السلام عليكــم ورحمـة الله وبركاتــه أخواني الأعزاء أريد تغيير اسمي من FoFo asil إلى Aleppo Force أرجو من المشرف العام ذلك

كود يرسم معادلة من الدرجة الثانية الرمز PHP: Option Explicit Private Sub Command1_Click () Const PI = 3.14159265358979 Dim Y As Double, X As Double Dim a As Integer Me.Scale (-PI, 1.1)-(PI, -1.1 ) Cls a = 1 DrawWidth = 1 Line (-PI, 0)-(PI, 0 ) Line (0, -1)-(0,…

بسم الله الرحمن الرحيم عدنا لتقديم الدروس البسيطة للمبتدئين درس اليوم عن تغير شكل مؤشر الفارة عند المرور فوق أي أداة كالعادة نشغل الفيجوال بيسك ثم (Standard EXE) نلاحظ الآن في خصائص الForm هناك خاصيتان : الخاصية : MousePrinter هي لشكل مؤشر الماوس وإذا أسدلنا ا…

بسم الله الرحمن الرحيم كثرت في الفترة السابقة السؤال عن الأداة أكتف اسكن فقررت كتابة هذا الكتاب . راجيا وجه الله تعالى. عنوان الكتاب : الأداة ACTSKIN4.OCX في الفجوال بيسك مؤلف الكتاب : فؤاد أصيل (Aleppo Force) صورة الصفحة الأولى : سنة النشر : 1429هـ ثمن الكتاب…

الخطوة الأولى : شغل الفيجوال بيسك الخطوة الثانية : من القائمة Project اختر Refences الخطوة الثالثة : ضع إشارة صح عند Microsoft Speech Object Library و هذه هي المكتبة التي سنستعملها الآن في قسم ال General نضع الكود التالي: رمز:Dim sp As New SpeechLib.SpVoice وه…

بســم الله الـرحمــن الرحيــم بسم الله الرحمن الرحيم درس اليوم عن التحقق بطريقة بسيطة من وجود محرك أقراص وسنعمل على القرص المرن A:\ أولا الكود المستخدم رمز:Private Sub Timer1_Timer()On Error GoTo 100Open "a:\test.txt" For Random As #1Close #1MsgBox"يوجد قرص"Ex…

ممكن الرسم (وهذا سهل) لكن تحويله إلى نص فما عندي أي فكرة !!!!!!!!!!!!!!!!!

المشكلة هي عند تنصيب البرنامج على جهاز آخر وأقترح وضع رابط ثابت ، وعبر البرنامج اللي بتسوي فيه Setup خليه يحمله على هذا الرابط

أقترح VB.Net لأأنها أقوى من هذه الناحية

مشششششششكوووووووووووووووور

كلام صحيح

شكرا جزيلا

ليش ال Dll ممكن تستخدم كود كالتالي : On Error Resume Next Me.Scale (-100, 100)-(100, -100) Line (-100, 0)-(100, 0) Line (0, -100)-(0, 100) For x = -100 To 100 Step 0.01 y = (4 * a) * (x - d) + h * (2 * y - 1) ^ 0.5 Me.PSet (x, y) y = -1 * ((4 * a) * (x - d) + …

:angry: :angry: :angry: معقول ما أحد عنده حل؟؟؟؟؟؟

السلام عليكم الأداة Text-to-speech استعملتها في أحد برامجي لكن عند نقل البرنامج إلى جهاز آخر لاتعمل ما الحل؟