عبدالفتاح حسن

يرجى التوضيح هل تريدين وضع كل كلمة فى الجملة كعنصر فى المصفوفة ام ماذا ؟؟؟ وما هى نوع العمليات المراد تنفيذها على عناصر المصفوفة .

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

تفضل ... ارجو ان يكون هذا هو المطلوب password.rar

Dim ArrLetter() As String 'لوضع النص فى مصفوفة Sub TextToArr(Text As String) 'اعادة تعريف المصفوفة مع تحديد عدد عناصرها ReDim ArrLetter(1 To Len(Text)) For t = 1 To Len(Text) ArrLetter(t) = Mid(Text, t, 1) Next t End Sub 'لمعرفة عدد عناصر المصفوفة MsgBox UBoun…

الأخ الفاضل : ممكن التوضيح هل البار كود المطبوع تم اعداده برمجيا ام تم طباعته من خلال طابعة مخصصة لذلك ... اذا كان الباركود سليم فيجب التأكد انه مطبوع باللون الأسود وليس اى لون أخر واذا كان كذلك ... يجب التجربة على ماكينة بار كود اخرى ويفضل ان تكون 20 شعاع لضم…

لا شكر على واجب .. فى الكود السابق يتم التعامل مع الأسكى كود الخاص بالحروف من A وحتى Z والأسكى كود يبدا من 65 ويمثل الحرف A وحتى 90 ويمثل الحرف Z ارجو ان اكون قد افدت ...

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

اليك هذا الكود -- حسب ما فهمت -- Function TransKey(KeyText As String, KeyNo As Integer) As String Dim AscKey As Integer Dim Result As String Dim T As Integer KeyText = UCase(KeyText) For T = 1 To Len(KeyText) AscKey = Asc(Mid(KeyText, T, 1)) If AscKey < 65 Or …

الأخ الفاضل مجهود طيب وفقك الله ولكن لى بعض الملاحظات والأسئلة : أولا : هل المشروع المزمع انشاءة خاص بشركة محددة او نوع معين من الشركات ام تريد ان يكون شامل بحيث يمكن تطبيقة فى اى مكان تريد ؟ ثانيا : من الأفضل أن يكون هناك استقلال للشهور عن بعضها كيف ؟!!!! بأن…

الأخ الكريم ... اضم صوتى الى صوتك فقد حاولت فى هذا الموضوع مرارا وتكرارا ولكن دون جدوى وسأوضح لك ملخص محاولاتى : اولا يتم التقاط البيانات من خلال قنوات مباشر ويت ذلك من خلال تقنية DDE وهى اختصار Dynamic Data Exchange وهذه التقنية موجودة بالفعل فى الفيجوال بيسك…

تفضل rs="Select sum(salary) from Tabel1 where PersonalName='ahmed'",db if rs.recordcount>0 then text1=rs.feild(0) end if

ما شاء الله ... جميل جدا ... مشكور اخى وفقك الله للمزيد

تفضل : Printer.Orientation = 2 Form1.PrintForm ولكن الأفضل: Dim PrintState As Integer PrintState = Printer.Orientation Printer.Orientation = 2 Form1.PrintForm Printer.Orientation = PrintState حتى يتم استعادة وضع الطابعة الى ماكانت عليه قبل طباعة الفورم

تفضل اذا كان فهمى لماطلبت صحيح ... Dim I As Integer Dim Emp As Integer Dim Bus As Integer Me.List2.Clear Me.List3.Clear For I = 0 To Me.List1.ListCount - 1 If Me.List1.List(I) = "" Then Me.List2.AddItem Me.List1.List(I) Emp = Emp + 1 Else Me.List3.AddItem Me.L…

الأخ الكريم تم تنزيل المثال ولكنه يعتمد على المكتبة EZTW32.DLL وهى غير مجانية .. شكرا مرة اخرى ..وفقك الله لما يحب ويرضى

الف شكر اخى الكريم وجارى التجربة ....

وهذا كود ارسال الجمل التى ذكرتها الى النافذة النشطة SendKeys "CD c:\program files\picostreamer-2.0b\client" & vbCrLf & "java -jar PicoIcy.jar default.cfg" & vbCrLf

تفضل وهذه طريقة اخرى Query.rar

^ ^

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