awajihm

اريد ان احدد فترة او زمن عند الاتصال بصفحة اوموقع بحيث يتم قطع الاتصال اذا انتهت المدة او الزمن المحدد وهذا كود اريد التعديل فية Public Sub Loadwep() Dim URL As String Dim objLink As HTMLLinkElement Dim obj2 As HTMLTable Dim objMSHTML As New HTMLDocument Dim o…

الاخوه الاعزاء السلام عليكم لدي طلب وارجو المساعدة فيه عند تغيير خاصية MSFlexGrid.RightToLeft = True تظهر الارقام بالعربي وانا اريد اتظهر الارقام انجليزي كيف استطيع عمل ذلك؟؟؟؟؟؟؟؟؟؟ وللجميع تحياتي

اريد دالة معامل الارتباط الثنائي مثل التي في الاكسل

الرجاء المساعدة وتحياتي للجميع

لدي كود يقوم بجلب البيانات من موقع تداول القديم ولكن هذا الكود لايعمل مع الموقع الجديد ولم استطع حل المشكلة الموقع: http://www.tadawul.com.sa/Resources/...lyList_ar.html والكود هو Sub GetRows(strText As String) Dim strText2 As String Dim strRows As String Dim …

السلام عليكم وكل عام وانتم بخير طلبي من كل اعضاء المنتدي المساعدة في كود مؤشر Zig Zag Indicator اريد هذا الكود لهذا المؤشر لانني تعبت في البحث عنه واريد ان يعمل في الفيجول بيسك 6 الرجاء من له خبرة في رسم المؤشرات فلا يبخل علينا وتحياتي للجميع

اريد ان اعمل برنامج يشبة برنامج الاكسل طبعا هذا البرنامج محتاج الي الدوال التي في الاكسل فكيف اصمم تلك الدول بشرط عدم استخدام مكتبة الاكسل الرجاء المساعدة وللجميع تحياتي

حرام خمسة ايام ولم اجد رد او مساعدة

وجدت كود ولكنه ناقص اريد منكم المساعدة في اكمالة Private Enum SCRIPTITEM Const SCRIPTITEM_GLOBALMEMBERS = 8 Const SCRIPTITEM_ISSOURCE = 4 Const SCRIPTITEM_ISVISIBLE = 2 End Enum Private cObjects As New Collection Sub AddObject(sName As String, obj As Object) I…

لدي كلاس مبايل في نفس البرنامج اريد ان اضع اسماء الاكواد الموجود في الكلاس في لستة برمجيا اي من خلال كود يستخرج تلك الاكواد ويضعها في اللستة كما يحدث في ايقونة الفيجول بيسك ObjectBrowser التي في اعلي البرنامج هل استطيع فعل ذلك وللجميع تحياتي

ثلاثة وماحد رد علي هل يمكن تعديل الكود ام لا

الرجاء المساعدة والتعديل علي هذا الكود اريد التعدي علي هذا الكود يعمل علي المصفوفات الكود موجود في المرفقات وللجمع تجياتي 123.rar

اريد التاكد من اسم المتغير انه موجود ام لا اقصد بسم المتغر Dim X As String اريد ان اعرف هل المتغير X موجود ام لا طبعا اسم المتغير في Module الذي اريدة رسالة توضح هل المتغير المكتوب في تكست بوك موجود ام لا If variableName(Text1) Then MsgBox "موجود" Else MsgBox …

لااريد هذه الطريقة بل اريد كما يلي Public Function Eval(Expression) ماهو الكود الذي يوضع هنا لتنفيذ ذلك End Function اريد تنفيذ الكود التالي n2 = Eval((n - n1) + (n / n1

بمعني اخر اضع الكود كمايلي ويتم تنفيذ العملية الحسابية غلي جميع عناصر المصفوفات Private Sub Command1_Click() n2 = n - n1 n3 = n + n1 n4 = n * n1 End Sub ارجوا ان يكون الطلوب واضح

ااي يكون الناتج في مصفوفة جديدة مثلا n2(1) = n(1) - n1(1) n3(1) = n(1) + n(1) يشرط عدم وضغ رقم المصفوة بين قوسين

اريد تنفيذ العمليات الحسابية يطرقة اخري مثلا لدي مصفوفوفتان اريد تنفيذ العمليات الحسابية ويكون الناتج في مصفوفة جديدة المصفوفة الاولي n(0) = 1 n(1) = 1 n(2) = 1 n(3) = 1 n(4) = 1 المصفوفة الثانية n1(0) = 1 n1(1) = 2 n1(2) = 3 n1(3) = 4 n1(4) = 5 بحيث يكون كود …

من رمضان ولم يرد علي احد ليش

طبعا هذا الكود في برنامج الميتا ستوك واريد ان افهمه واطبقة في الفيجول هذه بيانات الدالة SYNTAX cross( DATA ARRAY 1, DATA ARRAY 2 ) FUNCTION Plots a "+1" on the day that DATA ARRAY 1 crosses above DATA ARRAY 2. Otherwise, "0" is plotted. 'If you want to know wh…

اريد معادلة التقاطع بين خطيين حيث ان بيانات الخطيين هما سعر الاغلاف وسعر الافتتاح طبعا الاسعار تعني اسعار الاسهم الرجاء المساعدة