omani

الطلب الأول Dim b As Integer Dim binarry As String, octle As String, hexadicimas As String binarry = "" b = Val(InputBox("أدخل الرقم المطلوب")) octle = Oct(b) hexadicimas = Hex(b) ' to binarry While (b > 0) binarry = binarry & (b Mod 2) b = b \ 2 Wend binarry …

الطلب الثاني Dim byt() As Byte Dim i As Long Dim bytStr As String byt = InputBox("أدخل الحرف أو النص المطلوب") For i = 0 To UBound(byt) Step 2 bytStr = (bytStr) & byt(i) & "," Next MsgBox bytStr تحياتي

ينقل الى قسم فيجوال دوت نت .. تحياتي

أخي جواد لم توضح المطلوب . يرجى رفع مثال مع بيان المطلوب . ليتمكن الاعضاء من مساعدتك . تحياتي

+1 مني لك ..

فكرة ممتازة اخي الكريم . وتنسيق جيد. تسلم يداك

تفضل مثالك بعد التعديل ضع الأمر في حدث بعد التحديث لحقل الدفع أيضا لا انصحك باستخدام مسميات رقمية اطلاقا . تحياتي 456.rar

مانوع اصدارة الويندوز التي تعمل عليها ؟؟ وماهي اللغة ؟ المثال السابق يعمل بكفاءة مع اصدارة Xp انجليزي وليس عربي .. لانه يبحث عن مجلد الشبكلة في لوحة التحكم ومن ثم يبحث عن اسم الاتصال من خلال الاتصالات المتوفرة فيها . سأحاول ان اقوم بتطوير المثال ليتعامل مع الن…

تفضل هذا مثال لما تريد .. تحياتي LAN Disable.rar

موضوع جميل ويستحق التثبيت .. فهو يعتبر مرجع للفيجوال . شكرا اخي الكريم .. يثبت الموضوع

ربما التسوق الالكتروني فكرة مفيده . فهو يضم موقع + قاعدة بيانات إلخ منظومة تسويق ( شركة تسويق) منظومة إدارية ( وزارة أو شركة ) كل هذه المواضيع وأمثالها . تحياتي

تفضل المثال بعد التعديل .. ولكنني قمت باعادة اعداد التقرير لان جهازي لايدعم اللغة العربية في تنفيذ الاكواد .. ولكن بنفس الطريقة ستجد الكود . الاستاذ mrnooo2000 يبدو انك لم تنتبه للتقرير الموجود في المثال . تحياتي aaaaaaa.rar

تم وضع مثال بقسم الفيجوال بيسك 6 .. راجع موضوعك هناك . يمكنك استخدام savepicture. أو ارفع مثال لماتريد عمله في الاكسيس . تحياتي

أخي هناك أداة CommonDialog ناقصة لم تقم باضافتها الى الفورم .. حاول ان ترفع مثال الاستاذة زهرة او رابط التحميل تحياتي

تفضل هذا مثال لتغيير امتداد الصورة .. بطريقتين .. الاولى حفظ مع تغيير الحجم والثانية حفظ بدون تغيير الحجم تحياتي JPGtoBMP.rar

في خصائص الليست تجد خيار اسمه Multi selection اجعلها تساوي True تحياتي

ولا يهمك استاذي .. اعتبرني جديد . يادوب بدخل عالم البرمجة . وعلى فكرة انا لا اعتبر نفسي مبرمجا حتى الان . تحياتي

ماشاء الله عليكم .. افحمتموني بالاجابات .. اشكركم جداً . سوف ابدأ مع الكتب المطروحه . وكذلك سأحاول البحث عن هذه الكتب في الهند . فأنا احب النسخ الورقية .. يعني ما ارتاح لما اقرأ كتاب الكتروني . ولكل منكم +1 مني تحياتي

اخي اعتقد انك تستخدم الاداة Adodc1 او الأداة Data1 في بعض النماذج . لذا يجب ان تقوم باغلاق هذه الادوات قبل اجراء النسخ الاحتياطي . لان هذه الادوات تبقي الاتصال مع قاعدة البيانات مفتوحاً . وسوف تحل المشكلة باذن الله أن لم تستطع عمل ذلك قم برفع المثال لنقوم بالت…

ضع هذا الكود في زر جديد في المثال المرفق من قبل الأخت layan كما يجب تغيير اسماء الحقول في الجدول لان بعضها اسماء محجوزة . مثل name ,no ولنفترض اننا قمنا باعادة تغيير اسم الحقل no الى myno Command1.Enabled = False Dim rs As New ADODB.Recordset If rs.State = adS…