• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

Mohammed-Saeed

اعضاء
  • عدد المشاركات

    511
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

33 عادي

عن Mohammed-Saeed

  • الرتبة
    عضو فعال

طرق الإتصال

  • ICQ 0

معلومات الملف الشخصي

  • الجنس ذكر
  • الدولة : وطني، ارض الله الواسعة
  1. هل درس صاحب المقال ابجديات علم المنطق، لياتي بكل هذه المغالطات مجتمعة معاً في مقال واحد؟   الوقف، سنة اسلامية .. اليس نشر البرنامج بشكل حر، شبيه بهذا الذي نسميه وقف؟   لا اعلم لماذا يفترض الكاتب ان نعتقد انه صادق حينما يدعي بدون دليل ان الابتكار كان وسيبقى للبرامج المغلقة ... الابتكار ملك لكل الافراد، بحسب الحاجة، والتخيل ... وقد اضطررت عدة مرات لتعديلات بسيطة لاداء حاجاتي الخاصة، والتي لا يمكنني انجازها الا بالبرامج الحرة كي لا ارتكب خطا الكاتب مرة اخرى .. لننظر لهذا المنتدى، هو مكتوب بلغة php ، ابتكار شخصي سبق مايكروسوفت والتعيس ASP بحوالي سنة كاملة، ولا يزال الاكثر شيوعاً، والافضل من عدة نواحي لدى الكثير من الخبراء ... هذا مجرد مثال للابتكار .. الذي تقوده البرمجيات الحرة، والاحرار من المبرمجين   بقية المقال، مغالطات، واكاذيب من هذا القبيل ...
  2. استخدام الامر Shell

    البرنامج التالي يقوم بفتح برنامج آخر 6 مرات ... مع تمرير قيمة لها، وثمة زر آخر يقوم باغلاق جميع البرامج التي قام بفتحها ... واجهت مشكلة في اتصال البرامج المفتوحة بقاعدة البياتات (تعمل جيدا مع Shell)، وقد كتبت الموضوع هنا: عدم تمكن البرنامج المُستدعى بدالة CreateProcess من فتح قاعدة بيانات اتمنى ان تفيدك الاوامر البرمجية ... فهي تحوي ما سالت Loader.rar
  3. لدي برنامج، يقوم بفتح عدة نسخ من برنامج معين، بالدالة CreateProcess ... العجيب ان البرامج المُستدعاة بالدالة المذكورة لا تستطيع فتح قاعدة البيانات، وتعطي رسالة خطا غير مخصصة (80004005) اسم ملف قاعدة البيانات سليم، ولكن المشكلة في الاتصال بها فقط !! بعمل البرنامج المُستدعى بشكل جيد عن تشغيله بواسطة المستخدم من نظامن التشغيل، او بالدالة Shell الخاصة بالفيجوال بيسيك ... وهذا يعني ان الامر يتعلق باعدادت الدالة CreateProcess هل من راي؟
  4. استخدام الامر Shell

    يحمل سؤالك احتمالين ... الاول: ان يكون لديك ملف تنفيذي، قمت بتشغيه بالدالة المذكورة (او دالة اخرى مثل CreateThread [من دوال الـ API] ) وتريد اغلاقه بامر من برنامجك. الثاني: لديك ملف تنفيذي تم تشغيله عن طريق المستخدم او اي برنامج آخر، وتريد اغلاقه من برنامجك .. في الحالتين، يجب عليك الحصول على مقبض البرنامج عند نظام التشغيل ... ومن استخدام احد الدوال المخصصة لهذا الامر، مثل: TerminateThread
  5. الجملة الواحدة يمكن لها ان تنطق باكثر من معنى ...\ فمثلاً: اجلس [امر بالجلوس] او اجلس [امر بالجلوس والسكوت في حالة الغضب] ... نبرة الصورة جزء من القضية ... فحسب الدراسات في الطب النفسي، يكون فهمنا في الحوار 15% حول مضمون الحوار (معنى الكلمات) 35% لنبرة الصوت في الحوار، و50% لما يسمى Body Language ... القضية تحتاج لكادر، في اكثر من تخصص ... ومثل هذه الامور يجب اما ان تكون مفتوحة المصدر، او ان تقوم به شركات كبيرة ..
  6. هذه عبارة عن اداة ListView .. في النمط report وهي ضمن microsoft Windows Common Control 6.0 SP6 وجميع الامور يمكنك الحصول عليها من خلال الكود ...
  7. ما هي الخصائص المطلوبة؟ الصورة لا تظهر عندي، بسبب الحجب...
  8. مساعدة في مشروعي رجاء

    الخطا في: For i = 0 To List1.ListCount - 1 s = s & List1.List(i) & vbNewLine Next i فلم تضف ما يشير لما تودوضعه قبل السطر وبعده!!! وهو قلب العملية، استخدم For i = 0 To List1.ListCount - 1 s = s & Text2 & List1.List(i) & Text3 & vbNewLine Next i طبعاً، يرجى ان تقوم برعاية آداب تحرير الكود... لسهودلة دراسته، واستيعابه لك مستقبلاً، وللآخرين حالياً، اعني امور مثل اسماء المتغيرات يجب ان تكون دالة على محتواها يفضل استخدام الـ Tab لبيان الشكر الشجري للكود ... من ناحية اخرى، لِمَ تستخدم ملف من النوع Binary للحفظ؟ يمكن استخدام النوع النصي كما كان عند فتح الملف ... فيس النهاية، اذا تمت الاجابة على السؤال، لا تنسى اغلاق السؤال ... والتقرير بمكافاة من اجاب بالنقاط الني يستحقها لك الشكر
  9. السلام عليكم كما قلت سابقا، البرنامج يمتنع عن الاستجابة ولكن، ارتفع عدد الملفات التي يعالجها من 200 الى حوالي 700 !!! ولم تتغير سائر المعطيات ...
  10. السؤال غير واضح ... والكود لا يظهر كاملا
  11. شكرا جزيلا لك ... البرنامج يمتنع عن الاستجابة ... ساععود غدا للمنزل، حقيقة، كما تقول اخطات في ممكان الـ doevents ولم انتظر لاعرف ما يجري ... لان عدد الصور مليون و300 الف صورة ...
  12. انا استخدم FreeImage وهي مكتبة DLL رائعة وحولها درس كتبته، في توقيعي التعامل الاحترافي مع جميع انواع الصور
  13. يمكنك استخدام vbnewline لبداية سطر جديد، وهو من ثوابت الـ VB وكذلك chr(13) وتعني تحويل الرقم 13 اي سطر جديد لحرف: سطر جديد
  14. لدي حوالي مليون صورة ... بعضها تالف حين التحميل ... قمت ببرمجة بريمج، لفحص هذه الصور، وتخزين النتيجة في قاعدة بيانات .. ولكن المشكلة ان البرنامج يتوقف عن العمل بعد فحص حوالي 200-300 صورة .. الكود كالتالي: Set DB = SetDatabase(App.path & "\Pics.mdb") Set RS = SetRecordset("Pics_Check", DB) RS.MoveFirst Pics_Path$ = "L:\Pics\" DoEvents For i = 1 To RS.RecordCount IMG_Path$ =Pics_Path$ & RS("File").Value & "\" & RS("Pic_name").Value RS("GoodPic").Value = isGoodPicture(IMG_Path$) RS("Exist").Value = True RS.Update RS.MoveNext Next i MsgBox "OK" وكود دالة فحص الصور كالتالي: Public Function isGoodPicture(ByVal PicPath As String) As Boolean On Error Resume Next Dim pic As StdPicture Set pic = LoadPicture(PicPath) If Err = 0 Then isGoodPicture = True Set pic = Nothing End Function والمطلوب، حل مشكلة توقف البرنامج عن العمل .. * الصورة التالية تبين مقادير استهلاك الذاكرة والمعالج ... ولا اشعر باي مشكلة في تشغيل سائر البرامج للاتصال بقاعدة البيانات استخدم هذه في موديول Public DB As Connection Public Function SetDatabase(ByVal DBFileName As String, Optional ConnectionString As String = "MDB", Optional DBPassword As String = "") As Connection Dim mDB As New Connection Select Case ConnectionString Case "MDB" If DBPassword <> "" Then DBPassword = "pwd=" & DBPassword & ";" ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DBFileName & ";" & DBPassword 'y = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFileName & ";" End Select mDB.CursorLocation = adUseClient mDB.Mode = adModeReadWrite mDB.Open ConnectionString Set SetDatabase = mDB End Function Public Function SetRecordset(ByVal RecordSource As String, ByVal DBase As Connection) As Recordset Set SetRecordset = Nothing Dim RS As New Recordset 'adOpenDynamic RS.Open RecordSource, DBase, adOpenDynamic, adLockOptimistic Set SetRecordset = RS End Function تحياتي
  15. لو ذكرت ماهية المشروع، لكان اضافة مفيدة ... اما هكذا، فلم استطع -لكا ما اوتيت من قوة- ايجاد فائدة له