• الإعلانات

    • فيصل الحربي

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

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

حسين احمد طالب

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

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

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

كل شيء نشر بواسطة حسين احمد طالب

  1. تحديد مكان الهاتف

    هذا البرنامج يمكنك من ايجاد هاتفك في الحال فقدانه حيث يستطيع ايجاده اعتماد على GPS وعلى الرسائل ولا يشترط توفر انترنت في الهاتف الاخر لايجاده اذا كانت الدولة تدعم GPS المجاني. اما اذا لا فلا بد من اشترا ك الهاتف في خدمات الانترنت. يرسل هذا النظام رسالة الى الهاتف المفقود الذي بدوره يرسل له موقعه الحالي . يفيدهذا النظام ايضا في ايجاد موقع اطفالنا الصغار او الكبار وايجاد مواقع الاصدقاء في حال قبولهم بذالك خطوات العمل -1 نزل البرنامج وقم بتنصيبه . بعدها ادخل رقم الهاتف الذي تثق فبه في ايجاد هاتفك وحفظ الاعدادات 2- من خلال الهاتف الموثوق فقط ادخل رقم هافك تلقائيا سيجد لك موقعه الحالي على الخريطة الررابط الرابط على المتجر          
  2. تحديد مكان الهاتف

    هذا البرنامج يمكنك من ايجاد هاتفك في الحال فقدانه حيث يستطيع ايجاده اعتماد على GPS وعلى الرسائل ولا يشترط توفر انترنت في الهاتف الاخر لايجاده اذا كانت الدولة تدعم GPS المجاني. اما اذا لا فلا بد من اشترا ك الهاتف في خدمات الانترنت. يرسل هذا النظام رسالة الى الهاتف المفقود الذي بدوره يرسل له موقعه الحالي . يفيدهذا النظام ايضا في ايجاد موقع اطفالنا الصغار او الكبار وايجاد مواقع الاصدقاء في حال قبولهم بذالك خطوات العمل -1 نزل البرنامج وقم بتنصيبه . بعدها ادخل رقم الهاتف الذي تثق فبه في ايجاد هاتفك وحفظ الاعدادات 2- من خلال الهاتف الموثوق فقط ادخل رقم هافك تلقائيا سيجد لك موقعه الحالي على الخريطة الررابط الرابط على المتجر          
  3. روابط البرنامج على المتجر 1- متجر وندوز Windows Store   2-حمله من Google Play   3-حمل النسخة للحاسوب من متجر وندوز -------------------------------------------------------------------- وندوز موبايل ------------------------------------------- تطبيق جديد على وندوز فون 8 .! هذا التطبيق يمكنك من الاستماع المباشر للقرأن الكريم بختمات كاملة بصوت مجوعة من القراء . كما يوفر امكانية تنزيل اي سورة داخل النظام بسرعة عالية جدا . للأستماع اليها في وقت عدم توفر انترنت اي تطبيق يسهل عليك تنزيل السور التي ترغب باستماعها تعرف على هذا البرنامج من خلال هذا الفيديو   ======================================= اسم البرنامج في المتجر هو (تلاوات القرأن كاملة) رابط البرنامج على  متجر وندوز Windows Store         اندوريد  ------------------------------------------- هذا البرنامج  يحتوي على مجموعة من التلاوات العطرة  بصوت  مجموعة من القراء البرنامج يعمل على ثلاث  خطوات سهلة وهي حمله من Google Play     1- بداية تختار القارئ الذي تفضله       2- تختار الاية القرئنية   3- تشغل وتستمع لها ويمكنك تصفح والعمل على هاتفك خلال الاستماع          3- نسخة الكوبيوتر    
  4. نظرا لوجود كثيرا من الطلاب يشكون منبرمجة  OPP بلغة سي بلاس فكونت ثلاث دروس تشرحها لهم بكل بساطة   https://www.youtube.com/watch?v=wgxuZ_1BYH4&list=PLF8OvnCBlEY3g_zK7-mnbVyFCDXJpJjlS   رابط الدورة على اليوتيوب  
  5. Binary Search Algorithm

    غزيزي الكاتب , هناك خطا كبير في عملية برمجتك لل Binary Tree واساسيات بنائها في Data structure عزيزي  Binary Tree كما معروف عنها وحسب طرق البحث الثلاثة الخاصة بها كما هي مبينة  هنا من جامعة ستانفورد http://cslibrary.stanford.edu/110/BinaryTrees.html   فانت لم  تتبع الخورازمية  في عملك بمعنى انت تحل بطريقة صحيحة برمجيا لكن خطا من باب   Data structure اي انك لم تتبع الخورزمية في حلك وخاصة في البحث ( اي انك ترتب عناصر مصفوفة بقليل من التعقيد ) وكذالك الهيكلية  Binary Tree فهمي ليست مصفوفة بعدد محدد من العناصر هي  ثلاث مؤشرات لكل عنصر(البيانات , لمؤشر اليمن, المؤشر لأيسر) لان قد تكون السلسلة المدخلة لترتيبها غير محددة العناصر  وهو مامعروف عن اي سلسلة لترتبها انت لاتعرفها وليس 100 كما انت مفترض في حلك . وبالاخص هوا يحاول بهذه الخارزمية يريك عمل المترجم في ترتيب البيانات   لذالك اتمنى منك العمل على الخوارزمية بشكل صحيح في شرحك حتى يكون واضح للفهم بين الشرح والكود
  6. مقدمة توجد كثير من التقنيات يمكن استخدامها بلغة Vb.net بكل سهولة  لكشف الوجوه Face Detection  منها   تقنية Code التي توفرها شركة Google التي موجودة على الرابط التالي https://code.google.com/p/accord/ والثانية تقنية OpenCV's توفرها شركة emgu  التي تعتمد على نظرية Viola-Jones method  في تحديد واستكشاف الوجوه في الصورة  موجودة على الرابط التالي  نقوم بتحميل المكتبة من الموقع http://emgu.com/   Face Detection Example  كيف تستكشف الوجوه بنظرية Viola-Jones سيكون شرحنا على طريقة عمل  تقنية OpenCV's  التي توفرها شركة emgu  لأننا سنبرمج باستخدام هذه التقنية.     تقنية OpenCV's تعتمد على نظرية Viola-Jones method في استكشاف الوجوه  .   تم اكتشاف هذا النظرية عام 2001 وهذا النظرية تستكشف  كل الأجزاء objects الموجودة في الصورة  ومنها أجزاء الوجه ونحن نجمع أجزاء الوجه لنكون وجه شخص وتلخص في أربع نقاط : 1.    مستطيل بسيط يسمى Haar features 2.    عمل تكامل الصورة لسرعة اكتشاف الأشكال أو الوجوه 3.    استخدام نظرية AdaBoost machine-learning 4.    عمل تجميع لأجزاء الوجه (انف عيون فم) لتكون صورة باستخدام cascaded classifier نظرية Viola-Jones method تعتمد على  تحويل Haar wavelets في استكشاف الصور                 Haar wavelets هو موجة واحدة مربعة (جزء واحد عالي وجزء واحد واطئ ). في ثنائية الإبعاد هو موجة مربعة مكونة من أزواج من المستطيلات المتجاورة  كل واحدة  لونين اسود وابيض كما في Figure 1            Figure 1 معدل Haar   في كل مستطيل  يحسب بطرح مجموع قيم pixel في مناطق سوداء من مجموع قيم pixel في مناطق بيضاء وتقسيمها على مجموع pixel في المنطقتين إذا كان نتيجة الاختلاف اعلي من a threshold  الذي يحدد خلال  نظرية machine-learning يعتبر هذا الجزء هو جزء من الوجه ويتجه ليبحث عن بقية الأجزاء الخاصة بالوجه ضمن نفس المستطيل بتطبيق Haar   على بقية pixel  شاهد Figure 4. عن طريق استخدام تكامل integrating يعني جمع أجزاء الصغيرة مع بعض في هذه الحالة الأجزاء الصغيرة هي قيم  pixel .قيم integral لكل pixel هي مجموع كل pixel التي تقع فوقه . أي في Figure 2. قيمة pixel في موقع 4 هي مجموع (A+B+C+D) قيمة pixel في موقع3 هي (A+C) قيمة pixel في موقع 2 هي (ِ A+B  )   قيمة pixel في الموقع 1 في (A) وتلخص العملية في هذه المعادلة integer operations: (x4, y4) - (x2, y2) - (x3, y3) + (x1, y1). Figure 2 يبدأ بتحريك المربع البحث (الذي يحتوي في داخله على مستطيلات Haar)  من الجزء الأعلى الأيسر  في الصورة وينفذ مستطيلات Haar على كل Pixel الموجودة في المربع باحثا عن وجه الشخص  وبعدها يتحرك المربع إلى اليمين ويستمر إلى أن يصل إلى نهاية الجزء الأيمن  وبعدها يتحرك  المربع إلى الأسفل ويستمر سطر سطر وبعد أن ينتهي من دورة واحدة على كل الصورة بمربع ذو حجم معين يكبر حجم المربع ويعيد البحث في كل الصورة من جديد ويستمر يكبر المربع وينفذ مستطيلات Haar على كل Pixel الموجودة في المربع  حتى أخر مرة يكون المربع مساوي لحجم الصورة حتى يساعده في اكتشاف جميع الوجوه في الصورة مهما اختلف كبر رأس الشخص     Figure 4 شرح استخدام مكاتب  emgu  بلغة VB.Net  في اكتشاف الوجوه Face Detection بالبداية ندخل على الربط التالي  نحمل النسخة التي تلاءم نظامنا حسب نوع نظام التشغيل الخاص بنا http://sourceforge.net/projects/emgucv/files/emgucv/2.4.0/ إنا هنا اختارت الإصدار  2.4.0.1717 الخاصة بالمعالج ذو 32 bit لان نظامي هكذا.؟؟وسأشرح على  النسخة 2.4.0.1717 نقوم بتحميل النسخة من الموقع..؟   بعد التحميل نقوم بتنصيبها في الحاسوب على المسار الذي نريده؟ هنا نصبناها  على قرص \:F   سيكون مسار للمجلد  الخاص بالمكتبة  Emgucv  بالشكل التالي F:\emgucv-windows-x86 2.4.0.1717\     أكثر مجلدين سنستخدمهم هما مجلد bin ومجلد opencv ألان نكون مشروع VB.NET جديد فيه نافذتين كما في الشكل  كل وحدة مصممة وفيها أدوات حسب الشكل؟ يوجد نوعين من الأنظمة  نظام bit=X86 ) 32(  ونظام bit=X64)  64   ( نستطيع معرفة نوع نظامنا بالضغط بزر Mouse الأيمن على My Computer واختيار خصائص  سيعرض لنا نوع نظام التشغيل الخاص بنا؟؟ لتحديد النظام الذي سيعمل عليه البرنامج  نصممه نذهب إلى التبويب التالي (My Project--Compile-- Advanced Compile Options--Target CPU)   نضغط على Add reference  ونضيف المكاتب التالية Emgu.CV  , Emgu.Util   او كل مكاتب  Emgucv   حتى لا نواجه مشكلة الموجودة في مجلد ( F:\emgucv-windows-x86 2.4.0.1717\bin ) نذهب داخل مجلد emgucv-windows-x86 2.4.0.1717 اذا كان نظام تشغيلنا 32 bit   نذهب الى المسار التالي F:\emgucv-windows-x86 2.4.0.1717\bin\x86 اذا كان نظام تشغيلنا 64 bit    نذهب الى المسار التالي F:\emgucv-windows-x86 2.4.0.1717\bin\x64   وننسخ جميع ملفات DLL التي تبدأ بأسم    opencv أو جميعها حتى لا نواجه مشكلة أما إلى المسار الذي يعمل منه البرنامج أي مجلد bin\Debug آو  إلى المسار C:\Windows\System32 كود البرنامج كامل الذي سيكتب في Form1   VB.net CodeImports Emgu.CVImports Emgu.CV.StructureImports Emgu.UtilImports System.Runtime.InteropServicesImports System.Windows.FormsImports System.DrawingPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickOpenFileDialog1.ShowDialog()'Load the image from fileDim img As New Image(Of Bgr, Byte)(OpenFileDialog1.FileName)'Load the object detectorDim faceDetector As New HaarCascade("F:\emgucv-windows-x86 2.4.0.1717\opencv\data\haarcascades\haarcascade_frontalface_default.xml")'Convert the image to GrayscaleDim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()For Each face As MCvAvgComp In faceDetector.Detect( _imgGray, _1.1, _10, _CvEnum.HAAR_DETECTION_TYPE.DO_CANNY_PRUNING, _New Size(20, 20), _Size.Empty)img.Draw(face.rect, New Bgr(Color.White), 1)NextForm2.Show()Form2.PictureBox1.Image = img.BitmapEnd SubEnd Class    شرح كود اكتشاف الوجود خطوة بخطوة   1.    نستدعي المكاتب التالية من مكتبة   Emgu بعد أن نضيفها إلى المشروع عن طريق Add Reference VB.net Code   Imports Emgu.CVImports Emgu.CV.StructureImports Emgu.Util    وقد نحتاج إلى المكاتب التالية يفضل أضافتها حتى لا نواجه مشاكل في الرسم VB.net Code   Imports System.Runtime.InteropServicesImports System.Windows.FormsImports System.Drawing    2.    نقرئ الصورة التي نريد تحديد الوجوه فيها  من المسار المخزنة به ونخزنها داخل متغير img  من نوع صورة؟هنا قرئنا صورة مخزنة داخل  المسار   C:\test.jpg VB.net Code   Dim img As New Image(Of Bgr, Byte)("C:\test.jpg")    3.    نقرئ الملف haarcascade_frontalface_default.xml الموجود بالمسار F:\emgucv-windows-x86 2.4.0.1717\opencv\data\haarcascades وهذا الملف متخصص في تجميع ملامح الوجه  HaarCascade وتكوين وجه للشخص لتحديده شاهد Figure 3 VB.net Code   Dim faceDetector As New HaarCascade("F:\emgucv-windows-x86 2.4.0.1717\opencv\data\haarcascades\haarcascade_frontalface_default.xml")    4.    نحول الصورة التي قرئناها إلى صورة ابيض واسود Gray لان إجراء البحث Detect الموجود في HaarCascade يأخذ الصورة بصيغة Gray VB.net Code   Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()    5.    نبحث عن كل وجه ضمن الصورة ونضع مستطيل حول الوجه VB.net Code   For Each face As MCvAvgComp In faceDetector.Detect(imgGray, 1.1, 10, CvEnum.HAAR_DETECTION_TYPE.DO_CANNY_PRUNING, New Size(20, 20),Size.Empty)img.Draw(face.rect, New Bgr(Color.White), 1)Next    يأخذ إجراء Draw ثلاث برامترات Construct   img.Draw(face.rect, New Bgr(Color.White), 1)  ?    البرامتر الأول الوجه الذي نريد تخطيطه ?    البرامتر  الثاني  لون الخط الذي سنرسم به مستطيل حول الوجه ?    البرامتر الثالث هو سمك الخط أو سمك أطراف المستطيل الذي سيغطي كل وجه 6.    الآن تم تحديد كل الوجوه في الصورة بقي فقط نستعرض الصورة ويفضل استعراضها على نافذة ثانية ندرج فيها أداة Picturebox وتستعرض بالشكل التالي VB.net Code   Form2.Show()Form2.PictureBox1.Image = img.Bitmap    وإذا أردنا أيضا تحديد عيون الأشخاص في الصور فقط نستدعي الملف haarcascade_eye.xml الخاص بمعالج عيون الأشخاص في الصور الصور الموجود في المسار  التالي F:\emgucv-windows-x86 2.4.0.1717\opencv\data\haarcascades\ ونضيف هذا الكود VB.net Code   'Load the object detectorDim faceDetector1 As New HaarCascade("F:\emgucv-windows-x86 2.4.0.1717\opencv\data\haarcascades\haarcascade_eye.xml")For Each face As MCvAvgComp In faceDetector1.Detect(imgGray, 1.1, 10, CvEnum.HAAR_DETECTION_TYPE.DO_CANNY_PRUNING, New Size(20, 20), Size.Empty)img.Draw(face.rect, New Bgr(Color.Red), 2)Next    حمل المقالة بالصور من هنا   مدونتي   http://hussienahmmed.blogspot.com/
  7.   تبرمج الالعاب اساسا بتقنية اسمها XNA دعمتها مايروسوفت لبرمجة الالعاب بلغة #C وبنفس طريقتنا بكتابة Code ولكي تعمل لدينا نقوم بتنزيلها وتنصيبها وستضاف تلقائيا الى البرنامج VS.NET .وهي موضوع طويل ساتطرق عليه بوقت لاحق ,وهنا ساشرح عن برمجة العاب لكن بلغة VB.NET وكيفية تصميم لعبة بسيطة وكيف نحرك الأدوات... تعتمد الألعاب بشكل كبير على خدع المستخدم  وتوهميه في الصورة مثلا لعبة سباق السيارات .السيارات لا تسير لان السباق طويل وطول النافذة محدودة بعرض شاشة الحاسوب  لذالك نوقف السيارة ونحرك الشارع فيعتقد المستخدم أن السيارة هي من يتحرك لكن في الحقيقة الأرضية هي من تتحرك وكذالك العاب القتال العدو هو من يأتيك لكن يحسسك انك أنت من يتحرك عليه. والألعاب الرسومية تعتمد على مصممين الكرفكس بشكل اكبر بكثير من اعتمادها على المبرمجين لأنها تحتاج إلى تصميم  أماكن وصور لمختلف الأماكن والحركات . وايظا تصميم البيئة التفاعلية وجعل المستخدم يتفاعل مع اللعبة من أهم أساسيات برمجة الألعاب؟ مواقع الأدوات في النافذة وطرق تحريكها (ركز جيدا وافهم كيفية تحديد المواقع)   * لو نلاحظ ان الجهة العليا اليسرى من النافذة تكون قيم x,y للنافذة هي صفر وكذالك قيم x,y لأي اداة على النافذة تكون الجهة العليا اليسرى لهذه الأداة قيم x,y الخاصة بها صفر . وقيم X,Y تمثل جميع  النقاط داخل كل اداة على المحورين ممتد بالطول والعرض * وكل اداة لها عرض Width يمثل اكبر قيمة X ولها ارتفاع Heightيمثل اكبر قيمة Y  * وكذالك كل اداة على النافذة لها موقع نحدده من left يمثل ابتعاد الاداة عن نهاية الجهة اليسرى من النافذة كلما زودنا قيمته اتجهت الاداة الى الجة اليمنى من النافذة واذا نقصناه تتحرك الى الجهة اليسرى من النافذة . و,Top  يمثل ابتعاد الاداة عن نهاية الجهة العليا من النافذة كلما زودنا تتجه الاداة الى الجهة السفلى من النافذة واذا نقصناه تتجه الى الجهة العليا لو أردنا تحريك حاضنة الصور إلى يمين النافذة باستمرار فقط  ندرج Timer ونكتب فيه الكود التالي ونشغله   VB.net CodePictureBox1.Left = PictureBox1.Left + 1  لو أردنا تحريك حاضنة الصور إلى الأعلى النافذة باستمرار فقط  ندرج Timer ونكتب فيه الكود التالي ونشغله   VB.net CodePictureBox1.Top = PictureBox1.Top - 1  تحريك الصورة المعروضة داخل حاضنة الصور   PictureBoxبشكل أفقي فقط  الى مكان وجود مؤشر Mouse على النافذة وكذالك عرض قيم موقع مؤشر Mouse وهي ( x , y) على كل كائن داخل النافذة     لتحريك  موقع أداة PictureBox1  الى اليمين اواليسار حسب مكان وجود مؤشر Mouse على النافذة نجعل  خاصية Left  الخاصة بأداة  PictureBox1 مساوية  لموقع Mouse على النافذة e.x . نكتب الكود التالي في حدث MouseMove  الخاص بالنافذة Form  حتى يتنفذ عند تحريك مؤشر Mouse       VB.net CodePrivate Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMoveMe.Text = "x=" & e.X & " y=" & e.YPictureBox1.Left = e.XEnd Sub  لعرض قيم  (x ,y ) الخاصة بأداة  PictureBox1 على اسم النافذة نكتب الكود التالي  في حدث MouseMove  الخاص بأداة PictureBox حتى عندما يتحرك Mouse عليها  تعرض قيمها   VB.net CodePrivate Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMoveMe.Text = "xp=" & e.X & " yp=" & e.YEnd Sub  كل أداة (كائن) داخل المشروع لها قيم    ( x , y) تبدأ  (0,0)  وتنتهي بطول وعرض الأداة نقل كائن إلى موقع تم تحديده: تفيد هذه الطريقة في العاب ترتيب القطع     •    لتحريك موقع الكائن PictureBox كله في المحورين  الى موقع ضغط  بالمؤشر  Mouse  على النافذة بالبداية نحفظ موقع الضغط  Mouse  على النافذة  في متغيرات عامة معرفة على كل المشروع   VB.net CodeDim pl As IntegerDim pT As IntegerPrivate Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClickpl = e.XpT = e.YEnd Sub  وثم عند الظغط على كل  PictureBox  في حدث MouseClick الخاص بها  نجعلها  تنتقل  الى الموقع المحفوظ ؟هنا نقلنا PictureBox1 الى موقع  الجديد. وكذالك البقية بنفس الطريقة.   VB.net CodePictureBox1.Left = plPictureBox1.Top = pT  شاشة تنفيذ بعد ترتيب الصور   لعبة  الحظ : هذه اللعبة نقلب أوراق (مربعات ) مكونة من تسعة  وتوجد تحت ثلاث أوراق صورة الابتسامة ان استطعنا إخراجها بالتتابع  دون ان تظهر لنا إحدى الصور الحمراء (مطبات)  نكون فائزين وإلا نخسر علما ان هذه الرسومات( الابتسامة)  في كل مرة ستختفي تحت مربع مختلف. نكون مشروع جديد كما في الشكل التالي   بالبداية نعرف المتغيرات التالية في منطقة التعريفات العامة حيث المصفوفة نخزن فيها مكان وجود المربعات التي ستظهر فيها الابتسامة   VB.net CodeDim selected(3) As IntegerDim NumberIsFound As Boolean = FalseDim winCount As Integer = 0    في زر (لعبة جديدة) نكتب الكود التالي الذي يقوم بعرض صورة موحدة في جميع الصناديق .وكذالك تحديد أي الصناديق ستكون فيها الخيارات الصحيحة   VB.net CodePrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickOn Error Resume NextLabel1.Text = "رجاء انتضر"' make spongimage to all for new gameFor Each btn As PictureBox In Me.Controlsbtn.BackgroundImage = My.Resources.spongNext'تصفير عداد الربحwinCount = 0'نكون عداد للمصفوفةDim countselected As Integer = 0' make count to number of chosseDim Numberseleted As Integer = 0While Numberseleted < 3Dim RandomClass As New Random()Dim RandomNumber As Integer = RandomClass.Next(0, 8)NumberIsFound = FalseFor j = 0 To 2If RandomNumber = selected(j) ThenNumberIsFound = TrueEnd IfNextIf NumberIsFound = False Thenselected(countselected) = RandomNumbercountselected = countselected + 1Numberseleted = Numberseleted + 1End IfEnd WhileLabel1.Text = " ابدء اللعب بالضغط على الصور وقلبها"End Sub  ونكون  الدالة التالية التي نستدعيها عند ضغط المستخدم  على كل صندوق ليبين له ما موجود تحت الصندوق   VB.net Code Sub picSelected(ByVal picseleced As Integer, ByRef picName As PictureBox)NumberIsFound = FalseFor j = 0 To 2If picseleced = selected(j) ThenNumberIsFound = TrueEnd IfNextIf NumberIsFound = True ThenpicName.BackgroundImage = My.Resources.Smile.ToBitmapwinCount = winCount + 1If winCount = 3 ThenMsgBox("مبروك لقد ربحت اللعبة")End IfElsepicName.BackgroundImage = My.Resources.Love.ToBitmapLabel1.Text = "لقد خسرت اللعبة"End IfEnd Sub    وتحت كل صورة نستدعي الدالة السابقة ونرسل لها رقم مخصص للصورة وأداة الصورة لتغير صورتها   VB.net CodePrivate Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.ClickpicSelected(0, PictureBox1)End SubPrivate Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.ClickpicSelected(1, PictureBox2)End SubPrivate Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.ClickpicSelected(2, PictureBox3)End SubPrivate Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.ClickpicSelected(3, PictureBox4)End SubPrivate Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.ClickpicSelected(4, PictureBox5)End SubPrivate Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.ClickpicSelected(5, PictureBox6)End SubPrivate Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.ClickpicSelected(6, PictureBox7)End SubPrivate Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.ClickpicSelected(7, PictureBox8)End SubPrivate Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.ClickpicSelected(8, PictureBox9)End Sub    صور من اللعبة إثناء وقت اللعب     مدونتي http://hussienahmmed.blogspot.com/
  8.     هذا البرنامج  يحتوي على 120 ختمة  بصوت  مجموعة من القراء تستطيع الستماع بشكل مباشر لأي قارئ ترغب به    البرنامج يعمل على ثلاث  خطوات سهلة وهي حمله من Google Play     1- بداية تختار القارئ الذي تفضله       2- تختار الاية القرئنية   3- تشغل وتستمع لها ويمكنك تصفح والعمل على هاتفك خلال الاستماع       
  9. هناك ملف في مجلد bin/release هذا الملف ذو امتداد xap فقط انقليه للهاتف ونصيبه عليه شاهدي هذا الفيديو لكن هنا يرفعه للمتجر رابط الفيديو https://m.youtube.com/watch?list=PLF8OvnCBlEY00u9yJ8P_qA_2AVq6KgHSE&v=tsO9wJljBoQ
  10. دورة فيديو لتقارير Report Viewer

    شكرا لك اخي الفاضل
  11. دورة فيديو لتقارير Report Viewer

    تحية طيبة ارفق لكم مجموعة من الدروس لتعلم برمجة التقارير من الصفر الى النهاية بفيديوات واضحة لكل اداة وكيف تستخدمها    هنا مجموعة من الدروس عن التقارير وكيفية استخدامها في  السي شارب     مدونتي http://hussienahmmed.blogspot.com/
  12. مجموعة عطرة من التلاوات بصوت 120 قارئ على وندوز فون 8 يمكنك الاستاع لها وتنزيلها   فيديو يشرح البرنامج https://www.youtube.com/watch?v=zpY7swU4O9U       رابط البرنامج على المتجر    http://www.windowsphone.com/en-us/store/app/%D8%AA%D9%84%D8%A7%D9%88%D8%A7%D8%AA-%D8%A7%D9%84%D9%82%D8%B1%D8%A3%D9%86-%D9%83%D8%A7%D9%85%D9%84%D8%A9/f9ff1ad3-05f4-42e4-9b4c-5b3be2daee2f
  13. السلام عليكم ورحمة الله ارفق لكم سلسلة من الدروس بالفيديو لتعلم برمجة تطبيقات وندوز فون من الصفر            الدروس  بشكل لست هي تتسلسل من درس الى اخر https://www.youtube.com/watch?v=Ydo0QkPUnxk&list=PLF8OvnCBlEY00u9yJ8P_qA_2AVq6KgHSE
  14. السلام عليكم ورحمة الله ارفق لكم سلسلة من الدروس بالفيديو لتعلم برمجة تطبيقات وندوز فون من الصفر          https://www.youtube.com/watch?v=Ydo0QkPUnxk&list=PLF8OvnCBlEY00u9yJ8P_qA_2AVq6KgHSE
  15. نعم نفسس الطريقة    Connection string ضبطها كما هو مطلوب
  16. لا يوجد اي اختلاف بين حاسبة او مجموعة حواسيب فكلها تعامل واحدة في SQL server لذالك ممكن ان تتصل اكثر من حاسبة على خادم واحد لكن تحتاج لتضبط الخادم على هذه الاجرائات التي بلفيديو   فقط عباار ة   connection string تكون تكون موحدة لكل الحواسيب
  17. Use Sql server online

    كيف تسمح لمجموعة تطبيقات وندوز الاتصال بقاعدة بيانات واحدة اون لاين على مستخدمين موزعين على شبكة بكل سهولة           https://www.youtube.com/watch?v=9xyslQsvYfY&list=PLF8OvnCBlEY06W5pcZHYjtNj_0xwwqhA1&index=4     مدونتي http://hussienahmmed.blogspot.com/
  18. هذا البرنامج  يحتوي على مجموعة من التلاوات العطرة  بصوت  مجموعة من القراء البرنامج يعمل على ثلاث  خطوات سهلة وهي حمله من Google Play   https://play.google.com/store/apps/details?id=com.onlines.quranonlineapp   1- بداية تختار القارئ الذي تفضله     2- تختار الاية القرئنية 3- تشغل وتستمع لها ويمكنك تصفح والعمل على هاتفك خلال الاستماع    مدونتي http://hussienahmmed.blogspot.com/  
  19. Webmatrix with Windows Azure

    شرح كيف ترفع موقعك على وندوز اسوز باستخدام برنامج ويب ماتركس   https://www.youtube.com/watch?v=Pbs4fvBS8OY&feature=youtu.be       مدونتي http://hussienahmmed.blogspot.com/
  20. قاعدة بيانات  على خادم ومستخدمين موزعين على الشبكة : نستخدم مثل هذه الحالة دائما في حال اردنا ان نكون تطبيق سطح مكتب (windows application)  لمستخدمين موزعين على شبكة يشتركون بقاعدة بيانات واحدة .بمعنى في شركة ما لدينا موضفين موزعين على مستوى العالم او بلد او على شبكة محلية واحدة يشتركون بقاعدة بيانات واحدة أي تحديث لأي موضف على قاعدة البيانات يظهر عن البقية فمثلا لدينا موضف اجازات فيوسط البلد يدخل كل اجازات الموضفين وموضف اخر في شرق البلد يحتاج ان يعرف اجازة أي موضف .فنحل هذه المسئلة بوضع قاعدة بيانات المستخدمين على خادم وكل المستخدمين  يتصلون بقاعدة البيانات هذه عن طريق Connection String الخاصة بها  .قاعدة البيانات هنا قد تكون  SqL server , oracle ونفعل بها خاصية الوصول عن بعد .   لماذا نستخدم تطبيق سطح مكتب  وقاعدة بيانات موزعة لماذا لانستخدم  تطبيق ويب  WEB application ؟ السبب هو بعض الشركات  او المؤسسات لا تريد ان يكون تطبيقاها بشكل ويب  كل شخص يستطيع الوصول اليه عن طريق متصفح الانترنت تريد فقط من لديه تطبيق الشركة  يستطيع الوصول الى بياناتها والسبب الثاني الأهم هم في الشبكات المحلية لا يفضل استخدام تطبيقات الويب في التطبيقات الموزعة لان تتسبب تأخر في نقل البيانات بين الخادم والمستخدم تخيل تطبيق وندوز Windows ينقل عبر الشبكة فقط البيانات Data المضافة او المحدثة بينه وبين  قاعدة البيانات لان التطبيق عند المستخدم والقاعدة البيانات عند الخادم . اما في تطبيقات الويب التطبيق وقاعدة البيانات عند الخادم ففي كل طلب للخادم من قيل المستخدم  Request يرسل الخادم صفحة بشكل HTML  ويحدث عليها المستخدم ويعيد ارسال الصفحة الى الخادم لان كما نعلم لغة التخاطب بيننا وبين الخوادم هي HTML       قاعدة بيانات  وتطبيق ويب على خادم وخادم احتياطي  ومستخدمين موزعين على الشبكة : نستخدم مثل هذه الحالة دائما في حال اردنا ان تكون لنا دائمة نسخة احتياطية من البيانات التي على الخادم بشكل دائم وتلقائي يعني أي مستخدم يحدث على الخادم ينتقل نسخة من تحديثة على الخادم الأحتياطي تلقائيا بدون أي كود فيحتوي الخادم الاحتياطي نسخة مطابقة لبيانات الخادم المستخدم ففي حالة أي عطل في الخادم ينقل المستخدمون  الذبن بعملون على الخادم الأساسي الى الخادم الاحتياطي ويجدون كل بياناتهم مطابقة ولا يوجد أي بيانات مفقودة  . تتم هذه العملية عن طريق  Sql server Agent من خلال اعدادات  الخوادم نجعل خادم النسخة الاحتياطية  Agent للخادم الأول ونعمل  Replication بين الخوادم .اذن العملية كلها مجرد ضبط اعدادات الخادمين من خلال  Sql server لكل خادم لاتوجد أي برمجة .       مخاطبة بين الخوادم : نستخدم مثل هذه الحالة  في اردنا عمل مخاطة بين خادم واخر مثلا شركة ياهو Yahoo توفر خادم يخص الطقس  فليس الحاجة ان اردنا ان نكون مشروع يحتاج الى الطقس الحالي في حساباته ان نبرمج  وضع اجهزة حساب الطقس نستطيع استخدام الخادم الخاص بشركة ياهو   Yahoo  اذن هي مخاطبة بين خادمنا وخادم شركة ياهو Yahoo . وكذالك لو صممنا قاعدة بيانات تابعة لمؤسسة ما ومؤسسة اخرى ارادة وصول جزئي للبيانات الخاصة بألمؤسسة الأولى على سبيك المثال في المؤسسة الأول يدخلون معلومات مواطنين وموضفين في قاعدة بياناتهم والمؤسسة الثانية تحتاج فقط الى بيانات الموضفين المدخلة بشكل دائم اذن هنا ايضا مخاطبة بين خادمين .للعلم البيانات تنتقل بين الخوادم بشكل  XML لذالك يجب مراعاته الامر في برمجة  Class  لحل هذه المشكلة نستخدم Web Service لعمل هذه الخاطبة ففي حالة الطقس شركة ياهو  Yahoo توفر هذه Web Service فقط نحن نستدعيها ونستخدمها وفي الحالة الثانية المؤسسة الأولى تستدعي Web Service وهذه Web Service تضيف في قاعدة البيانات المؤسسة الثانية . ممكن ان نضع Web Service على خادم رقم (2) او على خادم اخر .   استخدام  Web Service   نفتح مشروع جديد من نوع Web ونضيف له  Web service       بعد ان نفتح Web service  سوف يضهر لنا الشكل كما في الأسف للعلم Web service   هو  مشروع حاله حال أي مشروع نستطيع اضافة Class لها ودوال و أي امر نحتاجه .ففي صفحة Web service نستطيع ان نكون Web service من خلال كتابة Web Method ونكتب الخدمة Web service بشكل دالة Function ,Sub حسب ستخدامنا لها     هنا هوا ضاف Web service بأسم  HelloWord وتعيد رسالة نصية الان نقوم بأستدعاء هذه Web service   الان لأستخدام هذه الخدمة Web service في أي مشروع من داخل المشروع نختار Add ومنه نختار Refrence Add Web ومن  Address نختار عنوان الخادم واسم صفحة الخدمة على الخادم كما في الشكل ستضهر لنا كل الخدمات الموجودة ضمن هذه Web service . ونعطي اسم للخدمة داخل المشروع Web refrence name وبعده نختار Add Refrence ستضاف الخدمة الى المشروع   هذه شكل الخدمة بعد اضافتها للمشروع نستدعي الدالة HellWord في الخدمة بشكل التالي سوف يعرض لنا رسالة ترحيبة الموجودة في الخدمة   Dim serviceNew As New localhost.WebService1        MsgBox(serviceNew.HelloWorld())       لكي  نقوم برفع web service على خادم ,نقوم بالتالي نشتري عنوان عام    Public  IP  وليكن (169.254.243.53) بحاسبتنا ونفتح IIS Manager ونختار Add web  ونضيف مشروع Web service اليه بالشكل التالي . نختار  مكان خزن المشروع الخاص بنا ونحدد له منفذ خاص به وليكن (80) ونختار العنوان العام Public  IP الخاص به ونعمل اضافة       اي عنوان الخدمة على الانترنت بشكل التالي (169.254.243.53:80) الان لكي نضيف هذه web service  الى اي مشروع خاص  بنا نختار Add web refrence و   فقط التغير في URL نكتبه بشكل التالي   URL:  http:\169.254.243.53:80\webservice1.asmx   مدونتي http://hussienahmmed.blogspot.com/        
  21. الفيديو   https://www.youtube.com/watch?v=sIXuyPvPpbw&feature=youtu.be       مدونتي http://hussienahmmed.blogspot.com/  
  22. هذا الدرس يشرح لك كيف تكون  datetimepicker في ASP.NET عبر استخدام WebUserControl بطريقة سهلة جدا  وتستغنى بها على datetimepicker التي تعتمد على Java وغيرها لانها هنا مصممة ضمن ASP.NET وباستخدام ادواته كما في الشكل في الأسفل   تابع الدرس على اليوتيوب https://www.youtube.com/watch?v=PDw6n-Fr6UA&feature=youtu.be   حمل المثال من هنا     مدونتي http://hussienahmmed.blogspot.com/  
  23. قائمة مطعم restaurant menu

    هوا برنامج صممته كبديل لقوائم المطاعم الورقية حيث يوضع جهاز تابلت IPAD ذو نظام اندوريد على كل طاولة ويستطيع الزبون تصفح الاكلات الموجودة في المطعم واختيار مايريد  وهذا البرنامج يمنع الزبون من الدخول على برامج اخرى غير هذا البرنامج التفاصيل : القائمة الرئيسية: تحتوي على كل نوع بشكل قائمة مثلا المشروبات عند الضغط عليها يعرض لك تفاصيل كل مشروب كما في التالي     ويعرض لك سعر المادة كما في الشكل   ادارة النظام:  وادخال تفاصيل كل نوع وتغير الاسعار يكون فقط من قبل المدير يدخل بكلمة مرور   ومن هنا يضيف اصناف جديدة الى القائمة    نستطيع الحذف والتعديل ايضا     مدونتيhttp://hussienahmmed.blogspot.com/ 
  24. هل من كود ل face Recognition

    http://hussienahmmed.blogspot.com/2013/04/vbnet-and-emgu-face-detection_27.html
  25. فيديو يشرح كيف تقوم بانشاء تطبيق على الفيس بوك https://www.youtube.com/watch?v=9CcTPHGC-DE     مدونتي http://hussienahmmed.blogspot.com/