أوبس!! هل حقا ما أراه؟

بسم الله الرحمن الرحيم

موضوعنا اليوم سيكون مختلفا قليلا عن المواضيع التي طرحتها سابقا فلن أتحدث عن إنشاء مكون أو أداة برمجية أو عن مشروع معين حديثي اليوم سيكون بعض الأمور التي ليس من المتوقع ان تحدث عند كتابة اي برنامج لكنها تحدث و قد يتعجب بعض المبرمجين من سبب حدوثها.
في الحالة الأولى أنظر معي للشيفرة التالية:

for (float i = 0.5f; i < 1; i += 0.01f)
{
if (i == 0.6f)
{
Console.WriteLine(i);
}
}

في مقطع الشيفرة السابق أنشأت حلقة for و عرفت فيها المتحول i من النوع float و مهدته بالقيمة 0.5 و جعلت مقدار الزيادة على المتحول i في كل مرة تساوي 0.01 اي واحد بالمئة و جعلت الحلقة مستمرة طالما المتحول i اصغر من القيمة 1
حسنا كل شيء حتى الان طبيعي و صحيح
وضعت ضمن كتلة الحلقة عبارة if تقوم بطباعة قيمة المتحول i على الشاشة عندما تبلغ هذه القيمة 0.6
تبعا للشرح المنطقي السابق ستتوقع ان كل شيء صحيح و انه نتيجة تنفيذ مقطع الشيفرة السابق ستكون طباعة قيمة المتحول i عندما يصبح 0.6
اسف لان اخيب املك و اقول لك بأن شيئا لن يحدث و لن تطبع قيمة المتحول i ابدا
و للتأكد من هذا الامر قم بنسخ الشيفرة السابقة و ضعها في مشروع جديد و قم بالتنفيذ .
بعد أن تأكدنا من هذاالكلام دعنا نفسر ما الذي حدث و كيف نتجاوز هذه المشكلة
تكمن المشكلة السابقة في تعريفنا للمتحول i على انه من النوع float و الأنواع الخاصة بالفاصلة العائمة مثل float تتعامل مع الارقام و تجعلها تقوم بالعمليات الحسابية بطريقة خاصة و تحتفظ بقيمة تقريبية للناتج
للتأكد من هذا الكلام قم بتجربة الشيفرة التالية:

for (float i = 0.5f; i < 1; i += 0.01f)
{
Console.WriteLine(i);
}

سيكون الناتج كما في الصورة أدناه:

أمر مدهش أليس كذلك
لو بحثت عن القيمة 0.6 التي كنا نستخدمها في عبارة if من أجل المقارنة فلن تجدها
اذن فالمتحول i لن يحتوي على القيمة 0.6 في أي حال من الاحوال
ما هو الحل لهذه المشكلة ؟ حسنا كما اخبرتكم سابقا بسبب الطبيعة الخاصة للتعامل مع الاعداد ذات الفاصلة العائمة فسيتم تخزين قيمة تقريبية للعدد و ليس العدد نفسه لذا يمكن ان نعتبر ان المتحول i وصل للقيمة 0.6 عندما تكون قيمته قريبة جدا منها
لذا سنتستخدم الشيفرة التالية و التي ستعمل بشكل صحيح معنا:

for (float i = 0.5f; i < 1; i += 0.01f)
{
if ((i > 0.59f)&&(i < 0.6f))
{
Console.WriteLine(“0.6″);
}
}

نلتقي في الجزء الثاني مع حالة مدهشة جديدة

تمام كوجان في 29/07/2007
ُEmail : TammamKoujan@Gmail.com
يجوز نشر هذه المقالة أو أجزاء منها بشرط المحافظة على اسم الكاتب و ذكر المصدر

Su Doku هيا بنا نبرمج لعبة

بسم الله الرحمن الرحيم

ماذا ستتعلم من هذا الدرس :

اولا ستحصل على لعبة Su Doku مجانية ( و هو الاهم في رأيي )
كما انك ستتعلم كيفية انشاء اداتك اخاصة و برمجة خصائصها و احداثها و التعامل معها و التعامل مع الجموعات Collections إضافة إلى تعلمك كيفية انشاء الرسوم على النموذج كل هذا يتم من خلال تطبيق للـ Pocket Pc رغم انني راعيت ان يعمل التطبيق على Pc و Pocket Pc فلا داعي للقلق اذا لم يكن لديك Pocket Pc أو كانت هناك مشكلة مع المحاكي المتاح مع اللغة

هذا الدرس مطبق على :

- Microsoft Visual Studio .NET 2005
- Windows XP Professional SP2

مقدمة :

انا من الذين يؤمنون انه لتتعلم أي شيء يجب ان تستمتع فيما تتعلمه و في البرمجة بالذات المتعة في العمل هي الحافز للمتابعة و النشاط ( هذا ليس رأيك أنت ! حسنا انا اعبر عن رأيي الخاص و على فكرة من الذي اخذ رأيك )
لذا عندما قررت ان ابدا مع برمجة الكائنات في اطار عمل .NET Framework قررت ان ابرمج لعبة صغيرة حسنا فكرت ما هي اللعبة ؟ لا يوجد اية فكرة … اه فكر مرة ثانية ! لا يوجد
عندها ضربت رأسي بالحائط فسقط فكرة صغيرة اه انها لعبة Su Doku
ما هي لعبة Su Doku هي لعبة يابانية يمكن ان نشبهها بالكلمات المتقاطعة لكن لا يوجد احرف و انما ارقام
كيف تلعب : عليك أن تضع في كل حقل فارغ أحد الأرقام من 1 إلى 9 بحيث لا تستخدم الرقم نفسه أكثر من مرة واحدة في كل
خلية مؤلفة من 3*3 مربعات و ألا تستخدم الرقم نفسه أكثر من مرة واحدة في نفس الصف العمودي أو الأفقي الممتد من طرف الشبكة
إلى طرفها المقابل .

لان فلنشرح كيف نلعب سودوكو اه عفوا كيف نصمم سودودكو
فكر معي بهذا الاسلوب اولا بسط الفكرة سودوكو لعبة تعتمد على تغيير القيم من واحد إلى تسعة في الخانة على ان لا يتكرر نفس الرقم في نفس المجموعة نفس السطر و نفس العمود.
اذا نحن نحتاج إلى كائن له الصفات التالية:
• يمكن ان تتغير قيمته بين الواحد و التسعة : أي انه يمتلك خاصية تخزن فيها قيمته من اجل عمليات المقارنة
• عند تغيير قيمة الكائن يتم تفحص المجموعة فيما اذا كانت تحتوي كائنا اخر يملك نفس القيمة :
اذا الكائن يمتلك خاصية تبين المجموعة التي ينتمي إليها من اجل عمليات المقارنة للكائنات ضمن نفس المجموعة

• عند تغيير قيمة الكائن يتم تفحص السطر الحاوي للكائن فيما اذا كان يحوي كائنات تمتلك قيما مشابهة : اذا الكائن يمتلك خاصية تجدد السطر الحاوي له من اجل عمليات المقارنة للكائنات في نفس السطر
• عند تغيير قيمة الكائن يتم تفحص العمود الحاوي للكائن فيما اذا كان يحوي كائنات تمتلك قيما مشابهة : اذا الكائن يمتلك خاصية تحدد العمود الحاوي للكائن من اجل عمليات المقارنة للكائنات في نفس السطر

هذا يكفي كبداية و من ثم سنتوسع في تفاصيل الكائن

الان شغل Visual Studio .NET و اذهب إلى القائمة File و انقر New تظهر نافذة كما في الصورة ادناه

قم باختيار مشاريع Visual Basic .NET و انتق من Smart Device ان تنشأ Device Application

سم المشروع Su-Duko و انقر موافق .

من النافذة Solution Eplorer انقر باليمين على المشروع و اختر ADD و من ثم انقر على User Control سم الكائن MyPanel و من ثم انقر موافق
سيضاف كائن إلى المشروع , بعد اضافة الكائن انتقل إلى محرر الشيفرة الخاص بالكائن

انسخ الشيفرة التالية و ضعها عوضا عن الشيفرة الموجودة في المحرر

Public Class MyPanel

Private m_X As Integer
Public Property X() As Integer
Get
Return m_X
End Get
Set(ByVal value As Integer)
m_X = value
End Set
End Property
Private m_Y As Integer
Public Property Y() As Integer
Get
Return m_Y
End Get
Set(ByVal value As Integer)
m_Y = value
End Set
End Property

Private m_IsSelected As Boolean = False
Public Property IsSelected() As Boolean
Get
Return m_IsSelected
End Get
Set(ByVal value As Boolean)
m_IsSelected = value
End Set
End Property

Private m_Hold As Boolean = False
Public Property Hold() As Boolean
Get
Return m_Hold
End Get
Set(ByVal value As Boolean)
m_Hold = value

End Set
End Property
Public m_BackColor As Color

‘ Public Overrides Property BackColor() As Color
‘ Get
‘ Return m_BackColor
‘ End Get
‘ Set(ByVal value As Color)
‘ m_BackColor = value
‘ End Set
‘End Property

Enum MyPanelValue
Null = 0
One = 1
Two = 2
Three = 3
Four = 4
Five = 5
Sex = 6
Seven = 7
Eight = 8
Nine = 9
End Enum

Private m_Value As MyPanelValue = MyPanelValue.Null
Public Property Value() As MyPanelValue
Get
Return m_Value
End Get
Set(ByVal value As MyPanelValue)
m_Value = value
End Set
End Property
Enum Group
Null = 0
One = 1
Two = 2
Three = 3
Four = 4
Five = 5
Sex = 6
Seven = 7
Eight = 8
Nine = 9
End Enum
Private m_MyGroup As Group
Public Property MyGroup() As Group
Get
Return m_MyGroup
End Get
Set(ByVal value As Group)
m_MyGroup = value
End Set
End Property

Public Sub New()

‘ This call is required by the Windows Form Designer.

InitializeComponent()

‘ Add any initialization after the InitializeComponent() call.

m_X = -1
m_Y = -1
m_MyGroup = Group.Null
End Sub
Public Sub New(ByVal ValueX As Integer, ByVal ValueY As Integer)

‘ This call is required by the Windows Form Designer.

InitializeComponent()

‘ Add any initialization after the InitializeComponent() call.

m_X = ValueX
m_Y = ValueY
m_MyGroup = Group.Null
End Sub

Private Sub IncreaseValue()
If m_IsSelected = True And (Hold = False) Then
If m_Value < 9 Then
m_Value += 1
Else
m_Value = 0
End If
Else
m_IsSelected = True
End If

Me.Refresh()
End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

‘ Dim FontFamily As New FontFamily(“Tahoma”)

Dim myFont As New Font(“Tahoma”, Me.Width / 3, FontStyle.Bold)
Dim myPoint As New Point(5, 70)
Dim solidBrush As New SolidBrush(Color.FromArgb(0, 0, 255))
Dim fs As SizeF = e.Graphics.MeasureString(m_Value, myFont)
If m_Value = MyPanelValue.Null Then
e.Graphics.DrawString(“”, myFont, solidBrush, 4, 4)
Else

‘ e.Graphics.DrawString(m_Value, myFont, solidBrush, 4, 4)

e.Graphics.DrawString(m_Value, myFont, solidBrush, _
((Me.Width – fs.ToSize().Width) / 2), _
((Me.Height – fs.ToSize().Height) / 2) _
)

End If

End Sub

Private Shadows Sub MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
Me.Focus()
IncreaseValue()
Dim RowPanel As New MyPanels
Dim ColPanel As New MyPanels
Dim GroupPanel As New MyPanels
Dim h As MyPanel
Try

For Each h In Me.Parent.Controls
If Me.X = h.X Then
RowPanel.Add(h)
End If
If Me.Y = h.Y Then
ColPanel.Add(h)
End If
If (Me.MyGroup = h.MyGroup) Then
GroupPanel.Add(h)
End If
Next

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
RowPanel.Check(Me)
ColPanel.Check(Me)
GroupPanel.Check(Me)
End Sub
Private Shadows Sub GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.GotFocus
m_BackColor = Me.BackColor
If m_Hold = False Then
Me.BackColor = Color.Fuchsia
End If

End Sub
Private Shadows Sub LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.LostFocus
m_IsSelected = False

‘ Me.BackColor = Color.Coral

If m_Hold = False Then
Me.BackColor = m_BackColor ‘Color.Coral
Else
Me.BackColor = Color.LightGray
End If
End Sub

End Class
Public Class MyPanels
Inherits CollectionBase

Public Sub Add(ByVal PanelToAdd As MyPanel)
List.Add(PanelToAdd)
End Sub

Public Sub Remove(ByVal PanelToRemove As MyPanel)
List.Remove(PanelToRemove)
End Sub

‘ Indexer for MyPanels

Public Property MyPanel(ByVal Index As Byte) As MyPanel
Get
Return Me.List(Index)

End Get
Set(ByVal value As MyPanel)
Me.List(Index) = value
End Set
End Property

Public Sub Check(ByRef CheckPanel As MyPanel)

For i As Integer = 0 To Me.Count – 1
If (CheckPanel.Value Su_Doku.MyPanel.MyPanelValue.Null) And (Me.MyPanel(i).Value = CheckPanel.Value) Then
Me.MyPanel(i).BackColor = Color.Red
CheckPanel.BackColor = Color.Red
Else
Me.MyPanel(i).BackColor = Color.Coral
End If
Next

End Sub
End Class

الان إلى شرح الشيفرة السابقة
• المتحول m_X يخزن هذا المتحول قيمة تمثل السطر الذي يتواجد فيه الكائن
• الخاصية X يتم من خلالها اسناد و استرجاع قيمة المتحول m_X
نلاحظ ان المتحول من نوع Private لإننا لا نريد للمستخدم الوصول إليه إلا من خلال الخاصية و التي من نوع Public مما يتيح لنا القيام بعمليات معينة عند قراءة او كتابة قيمة في المتحول من خلال خاصيته عند الحاجة
• المتحول m_Y يخزن هذا المتحول قيمة تمثل العمود الذي يتواجد فيه الكائن
• الخاصية Y يتم من خلالها اسناد و استرجاع قيمة المتحول Y_m
• المتحول m_IsSelected متحول بولياني يحدد فيما اذا كان الكائن محددا او لا
لن أشرح الخاصيات لانها كما ذكرت فقط لاسناد القيم او الحصول عليها من المتحولات
• المتحول m_Hold متحول بولياني يحدد فيما اذا كانت قيمة الكائن مثبتة ام لا ( أي ان قيمة الكائن مجمدة لا يمكن تغييرها عندما يكون المتحول True يستفاد من ذلك من اجل تبيت قيم عند بدء اللعبة مما يحدد درجة صعوبتها
• البنية MyPanelValue التي تحوي القيم اتي يجب ان يأخذها الكائن فقط
• المتحول m_Value الذي يخزن قيمة الكائن و يأخذ قيمه من البنية السابقة
• البنية Group التي تحوي المجموعة التي ينتمي إليها الكائن في Su Doku هناك تسع مجموعات اما المجموعة العاشرة Null فهي قيمة تمهيدية تعطى للكائن عند انشاءه
• المتحول M_MyGroup الذي يخزن المجموعة التي ينتمي إليها الكائن و يأخذ قيمه من البنية السابقة
• الباني New يستخدم الباني لإنشاء الكائن مع تمهيده بالقيم المناسبة حيث يأخذ افتراضيا قيمة -1 للسطر و -1 للعمود أي انه لا ينتمي لأية سطر أو عمود كما يتم تمهيد المجموعة عند القيمة Null أي انه لا ينتمي لأي مجموعة
• الباني المحمل بشكل زائد New() يتم من خلال هذا الباني انشاء كائن يتم تمهيد سطره و عموده من خلال القيم الممررة له .
• الاجرائية IncreaseValue تقوم هذه الدالة بتغيير قيمة الكائن عند النقر عليه .
• الاجرائية OnPaint التي تقوم برسم الكائن نلاحظ ان الكلمة Overrides تجعل هذه الدالة تهيمن على الحدث OnPaint الخاص بالكائن كما ان عملية الرسم تجعل النص الذي يعرض قيمة الكائن يرسم في وسط الكائن و بحجم يتناسب مع تغير حجم الكائن .

قبل المتابعة في شرح بقية الأجرائيات دعونا ننتقل إلى الصنف MyPanels الذي تم التصريح عنه في القسم الاخير من الشيفرة
نلاحظ العبارة Inherits CollectionBase التي تشير إلى وراثة هذه الفئة للفئة CollectionBase
تستخدم الفئة MyPanels كمخزن لعناصر MyPanel حيث يتم تجميع العناصر ضمن كائن من هذه الفئة

تحتوي الفئة MyPanels على الطرائق التالية :
• الإجرائية Add : تقوم هذه الإجرائية بإضافة الوسيط المرر لها إلى الكائن الذي يستدعيها
• الإجرائية Remove : تقوم بحذف الوسيط المرر لها من العناصر المخزنة في الكائن الذي يستدعيها اذا كان موجودا
• الخاصية MyPanel : تعود هذه الخاصية بالعنصر المخزن بالكائن و الذي يوافق فهرسه القيمة المررة , كما انها تسند قيمة عنصر للعنصر الذي فهرسه يوافق القيمة المكررة
• الجرائية Check تقوم هذه الإجرائية بتفحص فيما اذا كان العنصر المرر لها موجودا ضمن العناصر المخزنة ضمن الكائن . تعتبر هذه الجرائية من أهم الإجرائيات فمن خلالها نتفحص تكرار الرقم ضمن مجموعته و ضمن سطره و ضمن عموده .

الان لنتابع شرح بقية طرائق الكائن MyPanel
* الإجرائية MouseDown : للتعامل مع حدث الضغط بالفأرة نلاحظ انه للربط مع هذا الحدث هناك امران الاول ان يكون للدالة نفس عدد الوسائط التي تملكها الإجرائية MousDown التقليدية إضافة إلى إضافة العبارة Handles MyBase.MouseDown إلى نهاية السطر الذي صرحت فيه الإجرائية .
نلاحظ أن مهمة هذه الدالة هي : عند الضغط على الكائن قم بتحديده و من ثم قم بزيادة قيمته ثم يتم تعريف ثلاث متحولات من نوع MyPanels الأول يستخدم لتجميع العناصر الموجودة في نفس سطر الكائن
الثاني يستخدم لتجميع العناصر الموجودة في نفس عمود الكائن أما الثالث فيستخدم لتجميع العناصر التي تنتمي لنفس المجموعة , بعد أن نقوم بملئ المتحولات السابقة بالعناصر المناسبة من خلال حلقة
نستدعي إجرائية Check لكل منها

و هكذا أكون قد شرحت الأجزاء المهمة من الفئة MyPanel و الفئة MyPanels

ننتقل الأن إلى النموذج الرئيسي للمشروع اسم هذا النموذج هو MainForm لا تسأل لماذا فهي عادة عندي , فلنذهب الان إلى الإجرائية DrawCells تقوم هذه الإجرائية برسم العناصر على النموذج مع تمهيد مجموعة كل عنصر و سطره و عموده .
تستدعى الإجرائية السابقة في الباني New الخاص بالنموذج
الان بقي لدينا الحدث Paint للنموذج يتم من خلال هذا الحدث رسم الخطوط التي تؤلف لوحة الـ Su Doku

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

قد اشرح كيف نقوم بتطوير اللعبة في دروس قادمة لكن حاول ان تجرب هذا أفضل بالنسبة لك .

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

للمزيد من الدروس يمكنك زيارة مدونتي الإلكترونية http://www.enashir.com/blogs/TammamKoujan
أو يمكنك زيارة مندى المبرمجين العرب حيث اشارك في منتديات البرمجة هناك http://www.arabteam2000.com
اذا كنت ترغب بمراسلتي Tammam84@Yahoo.com
ملاحظاتك و استفساراتك مرحب بها على الدوام .

الشيفرة :

لتحميل شيفرة البرنامج :
SuDoku.zip
للتحميل هذه المقالة بصيغة ملفات word :
Su_Doku.doc

كلمة أخيرة :

اتمنى ان تكون قد استفدت من الدرس , اذا كان عندك اية ملاحظات او اكتشفت اي خطأ أو كنت تملك معلومات اضافية قد تساعدني
اتمنى ان تراسلني و تخبرني بما عندك .

للمزيد من الدروس يمكنك زيارة مدونتي الإلكترونية http://tammamkoujan.wordpress.com/

اذا كنت ترغب بمراسلتي tmmamkoujan@gmail.com
ملاحظاتك و استفساراتك مرحب بها على الدوام .
تمام كوجان
‏الثلاثاء‏، 24‏ كانون الثاني‏، 2006

يجوز نشر هذه المقالة أو أجزاء منها بشرط المحافظة على اسم الكاتب و عنوانه , أعلم أنه يمكنك ألا تفعل ذلك لكنها تبقى أمانة في عنقك .

ملاحظة : كتب هذا الموضوع بالاصل بتاريخ 28‏ كانون الثاني‏، 2006 كما ذكر في نص المقالة
و قد نشر في منتديات الفريق العربي للبرمجة على الرابط:
Su Doku هيا بنا نبرمج لعبة

تمام كوجان في 26/07/2007
ُEmail : TammamKoujan@Gmail.com
يجوز نشر هذه المقالة أو أجزاء منها بشرط المحافظة على اسم الكاتب و ذكر المصدر

الجديد من ميكروسوفت

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

شباط (فبراير) سيصل أسرع مما تعتقد:

لماذا هو الامر مهم ان تنتظر منتصف الشتاء و أنت ما زلت في منتصف الصيف؟ الجواب هو ان شهر شباط (فبراير) 2008 سيكون مختلفا كونه سيكون شهر ميكروسوفت الذي ستطرح فيه أكبر عدد من منتجاتها المهمة على الإطلاق ذلك من خلال نسخ RTM من Visual Studio 2008 و Windows Server 2008 و SQL Server 2008 .
و يمكن أن تبدأ بالتحضير من الان. فالاصدار القادم من فيجوال ستوديو Microsoft Visual Studio 2008 (و المعروف بالاسم الكودي “Orcas” ) سيوفر للمطورين اختبار Windows Vista و كذلك نظام Microsoft Office 2007 إضافة إلى الويب
و لتوفر إمكانية الاختبار و التجريب المبكر فقد وفرت ميكروسوفت إصدارات Community Technology Preview (CTP) و Beta
من Visual Studio 2008

February will arrive sooner than you think.

Why is it so important to consider the middle of winter in the middle of summer? Because February 2008 is shaping up to be Microsoft’s largest launch month – ever – with RTMs of Visual Studio 2008, Windows Server 2008, and SQL Server 2008 all on tap. And you can begin preparing now. The next version of Visual Studio, Microsoft Visual Studio 2008 (formerly known as Microsoft Visual Studio code name “Orcas”), will provide a developer experience for Windows Vista, the 2007 Microsoft Office system, and the Web. To enable early feedback, Microsoft provides Community Technology Preview (CTP) and Beta releases of Visual Studio 2008. Get an early look at Visual Studio 2008 Beta 1 and check back for the late-summer Beta 2 release.

If you create software development tools, you’ll want to consider building on the Visual Studio 2008 Shell, a streamlined Visual Studio development environment that provides the core foundation so you can focus on building your tool’s unique features. Created in response to requests from our partners, the Visual Studio Shell gives you the option of integrating your tools with Visual Studio or creating an isolated, custom-branded application.

If you are building on the new features in the .NET Framework 3.0, such as Windows Workflow Foundation (WF), Windows Communication Foundation (WCF), Windows Presentation Foundation (WPF), and Windows CardSpace, you’ll want to preview the The .NET Framework 3.5 Beta 1 release, which will ship with Visual Studio 2008. .NET Framework 3.5 adds several new features, including integration of Language Integrated Query (LINQ); ASP.NET AJAX; new Web protocol support for building WCF services including AJAX, JSON, REST, POX, RSS, and ATOM; full tooling support for WF, WCF, and WPF; and new classes in the base class library (BCL).

Speaking of ASP.NET, MSDN is now offering the ASP.NET “How Do I” video series, with dozens of videos designed for all ASP.NET developers, from the novice to the professional. If you are new to ASP.NET, you can learn the basics of how to create dynamic Web applications with ASP.NET 2.0 and Visual Web Developer 2005 Express Edition, using either Visual Basic or C#. If you have a bit of development experience, you will learn how to employ some of the great new features introduced in ASP.NET 2.0. New videos are added every week, so check back often.

And here’s a learning tip that comes with free stuff. Register to attend an MSDN Event near you from August through September in one of dozens of U.S. locations, and you’ll receive a copy of the MSDN Events Technical Resource Kit, which includes access to the latest builds of new technologies, including Visual Studio 2008, a sample Silverlight application (with source code), free trials of Microsoft Expression suite products, Visual Web Developer 2005, and more.
Thanks for reading.
Editor, MSDN Flash

خوارزمية المطابقة الصوتية SoundX

بسم الله الرحمن الرحيم
اظن ان هذه المقالة هي اول مقالة تكتب عن خوارزمية صوتية تدعم اللغة العربية
ستفهم مبدأ عمل الخوارزمية من خلال المقالة و ستتمكن من تحميل مثال كتبته لتطبيق الخوارزمية
على اللغة العربية المثال مكتوب بلغة الـ C Sharp.
في عام 1935 قامت هيئة الإحصاء الامريكية بتصميم خوارزمية SoundX , و هي خوارزمية تقوم بتحويل الكلمات إلى ما يسمى (اكواد SoundX) ثابتة الطول
تقوم الخوارزمية على تقسيم الكلمات المتشابهة صوتيا في مجموعات مبنية على صفات صوتية مميزة.
يوضحها الجدول التالي :

لتشفر اسما ما فإن الخوارزمية تحفظ الحرف الأول من الاسم ثم تستبتدل الأحرف الصامتة التي تليه بالقيم الرقمية المعروضة في الجدول السابق , اما الاحرف الصوتية و كذلك الأحرف ( h, w , y ) يتم تجاهلها لأن المعلومات الصوتية التي تقدمها هذه الحروف تسبب غاليا لبسا او غموضا عندما ترفق مع حروف أخرى.
اذا ما جاء حرف صامت متكررا وراء نفسه فإنه يمثل لمرة واحدة في الكود .

هذه هي خوارزمية SoundX بأبسط صيغها حيث تم تطوير اصدارات من الخوارزمية تتمتع بدقة تمييز صوتية أعلى لكنها اكثر تعقيدا ففي احدى الاصدارات يتم تبديل المحرف x بالمحرف ecs قبل عملية إنشاء كود SoundX مثلا او تم تقسيم الاحرف إلى مجموعات اكثر تفصيلا.

اذا سيتقسم عملنا إلى ما يلي :
- إبقاء الحرف الاول من الاسم .
- استبدال المحارف (a, e, i, o, u, h, w,y) بالرقم 0
- استبدال المحارف (b, f, p, v) بالرقم 1
- استبدال المحارف (c, g, j, k, q, s, x, z) بالرقم 2
- استبدال المحارف (d, t) بالرقم 3
- استبدال المحارف (l) بالرقم 4
- استبدال المحارف (m, n) بالرقم 5
- استبدال المحارف r بالرقم 6

بعدها نخزن الكود الناتج عن كلمة و عندما يدخل المستخدم كلمة نقوم بالبحث عن الكلمات التي لها نفس الكود الصوتي .

بالنسبة للغة العربية قمت بعمليات بحث كثيرة عن نسخة عربية من SoundX لكن لم اجد فبدأت ببعض التجارب الشخصية بناء على فكرة النسخة الانجليزية لكن لم تكن النتائج مرضية إلى ان وجدت ورقة بحث لفريق من الباحثين من معهد ايلينويس للتكنولوجيا Illinois Institute of Technology قام بها خمسة باحثين من المعهد في العام 2006 للحصول على نسخة عربية من SoundX و كانت نتائج البحث رائعة لكن التطوير عليها ما يزال ممكنا للحصول على نتائج أفضل .

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

الان إلى الشيفرة :
في الأسفل مثال كامل عن استخدام SoundX من اجل اللغة العربية و الانكليزية على حد سواء , و المثال مكتوب بالـ C#

و فيما يلي روابط تتحدث عن برمجة SoundX للغة الانكليزية بعدة لغات برمجة :
Vb.NET و C#
Soundex Implementation in C# and VB.NET
Delphi :
1971. Searching Strings by the way they sound
ليست افضل الخوارزميات الصوتية و هي مجرد بداية و النسخة العربية الموجودة في موضوعنا ما تزال بحاجة
للتطوير كما انه هناك خوارزميات صوتية اخرى بحاجة للدراسة اذ انه في العادة يتم دمج نتائج عدة خوارزميات صوتية للحصول على افضل النتائج (انا اعمل على ذلك لكن بشكل متقطع و انا لست ملزما ان اكمل او اتابع)

هناك العديد من الخوارزميات الصوتية مثل :
Soundex
Levenshtein
Metaphone
Phonix
n-gram
الخوارزميات الصوتية تقسم إلى نوعين :
1 – خوارزميات مرتبطة باللغة و ميزاتها مثل SoundX حيث لا يمكن ان نطبق النسخة الانكليزية على اللغة العربية
2 – خوارزميات مستقلة عن اللغة اي يمكن تطبيقها على اية لغة مباشرة مثل Levenshtein
من التطبيقات الشائعة للخوارزميات الصوتية محررات النصوص مثل MS Word فأنت عندما تكتب كلمة انكليزية بشكل خاطئ
تجد ان المحرر يقترح عليك عدة تصحيحات لكلمات لها نفس اللفظ الصوتي للكلمة التي ادخلتها

ملاحظة مهمة : المثال المرفق يتعامل مع قاعدة بيانات MS SQL Server
بالنسبة لقاعدة البيانات فقط قموا بإنشاء قاعدة بيانات SQL Server جديدة و من ثم قوموا باضافة جدول
مؤلف من ثلاث حقول هي
id من نوع int
name من توع VarrChar
value من نوع VarChar

لتحميل الشيفرة : انقر هنا

تمام كوجان في 08/04/2007
ُEmail : TammamKoujan@Gmail.com
يجوز نشر هذه المقالة أو أجزاء منها بشرط المحافظة على اسم الكاتب و ذكر المصدر

الربط مع قواعد البيانات في الدوت نت

الربط مع قواعد البيانات في الدوت نت
Data Access with .NET

بسم الله الرحمن الرحيم

ماذا ستتعلم من هذا الدرس :

مستوى الدرس : مبتدأ

لغة البرمجة : C# , VB.NET

مضمون الدرس : اذا كنت مبتدأاً يعلمك هذا الدرس واحدة من طرق الربط مع انواع مختلفة من قواعد البيانات

البداية :

عندما تكتب تطبيق قواعد بيانات فإنك أول ما ستحتاجه هو تحديد عبارة الاتصال بالقاعدة , و تختلف هذه العبارة باختلاف
نوع قاعدة البيانات التي تتعامل معها و نوع الاتصال الذي تقوم به مع القاعدة .
من خلال هذا الدرس سأعلمك واحدة من اسهل الطرق للاتصال بقاعدة البيانات و التي توفر لك طريقة سهلة و مريحة للإتصال
بمختلف أنواع قواعد البيانات . طبعا هناك طريقة أخرى سهلة جداً من خلال إضافة مكونات قواعد البيانات من لوح الادوات لكن بصراحة أنا شخصيا لا احب هذه الطريقة لأن الاتصال و التعامل مع البيانات من خلال الشيفرة يجعلني احس بسيطر و قدرة اكبر على التحكم بالبيانات.

هذا الدرس مطبق على :

- Microsoft Visual Studio .NET 2005
- Microsoft SQL Server 2000
- Microsoft Access 2003

مقدمة :

إذا كنت تبرمج برنامجا يعتمد على قواعد البيانات و إذا كنت كسولا مثلي فلربما ستسأل نفسك ألا يوجد طريقة بسيطة و سهلة تريحني من كتابة عبارة الإتصال التي ارتبط بها مع قاعدة البيانات , تهانينا ستجد هنا الطريقة السحرية التي طالما حلمت بها .
في دوت نت يمكنك الارتباط بقواعد البيانات من خلال فضائي الاسماء :
- System.Data.SqlClient : هذا الفضاء مخصص للتعامل مع قواعد بيانات Microsoft SQL Server .
- System.Data.OleDb : هذا الفضاء مخصص للتعامل مع بقية أنواع قواعد البيانات التي تدعم OLE مثل
Microsoft Access.
ملاحظة : بما ان SQL Server تدعم OLE فيمكنك التعمل معها من خلال الفضاء System.Data.OleDb لكن
الفضاء System.Data.SqlClient هو الافضل و الاسرع في التعامل مع SQL Server .

كبداية سريعة إنطلق مباشرة إلى سطح مكتبك (لا أقصد سطح مكتبك في الغرفة بل الذي في حاسبك) و انقر بزر الفأرة الأيمن في أي مكان فارغ فيه , ثم انقر على الخيار “New” ثم اختر مستند نصي “Text Document”
كما في الصورة التالية :

قم بتغيير اسم الملف إلى Connection.udl (عند تغيير اسم الملف تأكد من أنك غيرت لاحقته فعلا و إلا فإنه سيبقى ملفا نصيا )

عند تغيير اسم الملف ستظهر لك الرسالة التالية :

انقر Yes , ستتحول أيقونة الملف إلى الشكل التالي :

سنبدأ أولا بالاتصال مع قاعدة البيانات SQL Server 2000 , انقر على الملف , سفتح لك نافذة قد تكون مألوفة لك اذا كنت قد كتبت تطبيقات قواعد بيانات من قبل .
اذهب إلى الصفحة Provider:

قم باختيار Microsoft OLE DB Provider for SQL Server (يبدو انك قد لاحظت كلمة OLE في العبارة رغم
اننا قلنا بأنه لن نستخدم OLE في الاتصال بـ SQL Server ثق بي فقط و أكمل)
انقر على الزر Next , ستنتقل عندها إلى الصفحة Connection

قم بتحديد اسم السرفر الذي تتواجد عليه SQL Server ( في مثالنا هذا هو TAMMAM_PC )
ثم قم بتحديد طريقة الدخول للقاعدة (في المثال قمت باستخدام أمان ويندوز) , في الجزء الثالث و الأخير أنقر على
القائمة المنسدلة و قم بتحديد قاعدة البيانات التي تريد الاتصال بها (في هذا المثال استخدم قاعدة Northwindالمرفقة مع SQL Server كمثال) , الان كل شيء جاهز تقريبا انقر على الزر Test Connection اذا كان كل شيء صحيحا ستظهر لك الرسالة التالية :

انقر زر OK لتغلق الرسالة ثم زر OK لتغلق النافذة .

اذهب الان إلى Visual Studio .NET قم بإنشاء مشروع جديد (رغم أنني سأضع الشيفرة بالـ C# و الـ VB.NET إلا
ان الصور ستكون للمشروع المكتوب بالـ C# ) و قم بتسميته CreateConnection كما في الصورة :

قم بإضافة زر إلى النموذج و قم بتغيير خاصية الـ Text له إلى : SQL Server Test Connection كما في الشكل :

انقر بزر الفأرة الأيمن على النموذج و اختر View Code , قم بإضافة فضاء الاسماء System.Data.SqlClient
إلى البرنامج في الجزء العلوي من الشيفرة و ذلك لدعم SQL Server :

C# :

using System.Data.SqlClient;

VB.NET :

Imports System.Data.SqlClient

عد إلى واجهة التصميم و انقر على الزر ثم قم بكتابة ما يلي :

C# :

try
{
SqlConnection objConn = new SqlConnection();
objConn.Open();
objConn.ConnectionString = “”;
MessageBox.Show(“Hello” + (char)13 + ” I am Connected to SQL Server 2000″);
}
catch (Exception ex)
{
MessageBox.Show(“Can not Connect to the database “+ex.Message);
}

VB.NET :

Try

Dim objConn As New SqlConnection()
objConn.ConnectionString = “Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=TAMMAM_PC”
objConn.Open()
MessageBox.Show(“Hello” + vbCrLf + “I am Connected to SQL Server 2000″)
Catch ex As Exception
MessageBox.Show(“Can not Connect to the database ” + ex.Message)
End Try

الان نعود إلى ملف Connection.udl الذي أنشأناه في بداية هذا الدرس , قم بالنقر باليمين على الملف ثم اختر
Open With ثم قم بإختيار Notepad :

بدءاً من عبارة Integrated Security قم بنسخ السطر إلى نهايته (لاحظ اننا تجاهلنا العبارة Provider=SQLOLEDB.1; في
بداية السطر لأننا نتصل من خلال الفضاء System.Data.SqlClient و ليس من خلال
System.Data.OleDb رغم انه يمكنك تجاهلها بالنسبة لـ OLE أيضا لانه القيمة الافتراضية لكن من الفضل وضعها عند استخدامه)
و من ثم الصقه في الشيفرة عند objConn.ConnectionString في مثالنا سيكون بالشكل التالي :

C# :

objConn.ConnectionString = ” Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=Northwind;Data Source=TAMMAM_PC”;

VB.NET :

قم بضغط F5 سيتم تنفيذ البرنامج انقر على الزر و اذا مان كل شيء صحيحا ستظهر لك الرسالة التالية :

الان انهينا ما يتعلق بالاتصال بـ SQL Server و ننتقل إلى الاتصال من خلال OLE

قم بإنشاء ملف Microsoft Access جديد , ثم قم بالنقر على الملف Connection.udl الذي أنشأناه اذهب إلى الصفحة
Provider و قم باختيار Microsoft Jet 4.0 OLE DB Provider انقر على الزر Next سيتم نقلك إلى الصفحة Connection قم بتحديد مسار القاعدة ثم انقر الزر Test Connection انقر OK ثم OK .

قم بإضافة زر جديد إلى البرنامج اكتب في خاصية Text للزر : OLE DB Test Connection
قم بإضافة فضاء الاسماء System.Data.OleDb إلى البرنامج في الجزء العلوي من الشيفرة و ذلك لدعم OLE :

C# :

using System.Data.OleDb;

VB.NET :

imports System.Data.OleDb

عد إلى واجهة التصميم و انقر على الزر الثاني ثم قم بكتابة ما يلي :
C# :

try
{
OleDbConnection objConn = new OleDbConnection();
objConn.ConnectionString = “”;
objConn.Open();
MessageBox.Show(“Hello” + (char)13 + “I am Connected to OLE DB”);
}
catch (Exception ex)
{
MessageBox.Show(“Can not Connect to the database ” + ex.Message);
}

VB.NET :

Try

Dim objConn As New OleDbConnection()
objConn.ConnectionString = “”
objConn.Open()
MessageBox.Show(“Hello” + vbCrLf + “I am Connected to OLE DB”)

Catch ex As Exception

MessageBox.Show(“Can not Connect to the database ” + ex.Message)
End Try

الان نعود إلى ملف Connection.udl الذي عدلنا الاتصال فيه , قم بالنقر باليمين على الملف ثم اختر
Open With ثم قم بإختيار Notepad :

بدءاً من كلمة Provider قم بنسخ السطر إلى نهايته , و من ثم الصقه في الشيفرة عند objConn.ConnectionString في مثالنا سيكون بالشكل التالي :
C# :

objConn.ConnectionString = @” Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;Persist Security Info=False”;

VB.NET :

objConn.ConnectionString = ” Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Test.mdb;Persist Security Info=False”

قم بتنفيذ البرنامج ثم اضغط الزر الثاني ستظهر لك الرسالة :

هكذا تكون تعلكت كيف تنشأ عبارة الاتصال مق قواعد بيانات SQL Server و OLE و بالتالي اصبح من السهل عليك ان تتوسع و تربط مع اي قاعدة بيانات تريدها

الشيفرة :

لتحميل شيفرة البرنامج :
CreateConnection.zip

كلمة أخيرة :

اتمنى ان تكون قد استفدت من الدرس , اذا كان عندك اية ملاحظات او اكتشفت اي خطأ أو كنت تملك معلومات اضافية قد تساعدني
اتمنى ان تراسلني و تخبرني بما عندك .

للمزيد من الدروس يمكنك زيارة مدونتي الإلكترونية http://tammamkoujan.wordpress.com/
اذا كنت ترغب بمراسلتي Tammam84@Yahoo.com
ملاحظاتك و استفساراتك مرحب بها على الدوام .

تمام كوجان في 17/03/2007
ُEmail : TammamKoujan@Gmail.com
يجوز نشر هذه المقالة أو أجزاء منها بشرط المحافظة على اسم الكاتب و ذكر المصدر

Posted in برمجة | 8 Comments »