بناء الألعاب البسيطة بلغة Vb.net

لعرض قيم  (x ,y ) الخاصة بأداة  PictureBox1 على اسم النافذة نكتب الكود التالي  في حدث MouseMove  الخاص بأداة PictureBox حتى عندما يتحرك Mouse عليها  تعرض قيمها

VB.net Code
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove

Me.Text = "xp=" & e.X & " yp=" & e.Y

End Sub

كل أداة (كائن) داخل المشروع لها قيم    ( x , y) تبدأ  (0,0)  وتنتهي بطول وعرض الأداة



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

•    لتحريك موقع الكائن PictureBox كله في المحورين  الى موقع ضغط  بالمؤشر  Mouse  على النافذة بالبداية نحفظ موقع الضغط  Mouse  على النافذة  في متغيرات عامة معرفة على كل المشروع

VB.net Code

Dim pl As Integer
Dim pT As Integer

Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick

pl = e.X
pT = e.Y

End Sub

وثم عند الظغط على كل  PictureBox  في حدث MouseClick الخاص بها  نجعلها  تنتقل  الى الموقع المحفوظ ؟هنا نقلنا PictureBox1 الى موقع  الجديد. وكذالك البقية بنفس الطريقة.

شاشة تنفيذ بعد ترتيب الصور
 

VB.net Code
Dim selected(3) As Integer
Dim NumberIsFound As Boolean = False
Dim winCount As Integer = 0

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

VB.net Code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Label1.Text = "رجاء انتضر"
' make spongimage to all for new game
For Each btn As PictureBox In Me.Controls
btn.BackgroundImage = My.Resources.spong
Next
'تصفير عداد الربح
winCount = 0
'نكون عداد للمصفوفة
Dim countselected As Integer = 0
' make count to number of chosse
Dim Numberseleted As Integer = 0
While Numberseleted < 3
Dim RandomClass As New Random()
Dim RandomNumber As Integer = RandomClass.Next(0, 8)
NumberIsFound = False
For j = 0 To 2
If RandomNumber = selected(j) Then
NumberIsFound = True
End If
Next
If NumberIsFound = False Then
selected(countselected) = RandomNumber
countselected = countselected + 1
Numberseleted = Numberseleted + 1
End If
End While
Label1.Text = " ابدء اللعب بالضغط على الصور وقلبها"
End Sub

ونكون  الدالة التالية التي نستدعيها عند ضغط المستخدم  على كل صندوق ليبين له ما موجود تحت الصندوق

VB.net Code
 Sub picSelected(ByVal picseleced As Integer, ByRef picName As PictureBox)
NumberIsFound = False
For j = 0 To 2
If picseleced = selected(j) Then
NumberIsFound = True
End If
Next
If NumberIsFound = True Then
picName.BackgroundImage = My.Resources.Smile.ToBitmap
winCount = winCount + 1
If winCount = 3 Then
MsgBox("مبروك لقد ربحت اللعبة")
End If
Else
picName.BackgroundImage = My.Resources.Love.ToBitmap
Label1.Text = "لقد خسرت اللعبة"
End If
End Sub

وتحت كل صورة نستدعي الدالة السابقة ونرسل لها رقم مخصص للصورة وأداة الصورة لتغير صورتها

VB.net Code
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
picSelected(0, PictureBox1)
End Sub

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
picSelected(1, PictureBox2)
End Sub

Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
picSelected(2, PictureBox3)
End Sub


Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
picSelected(3, PictureBox4)
End Sub

Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
picSelected(4, PictureBox5)
End Sub

Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
picSelected(5, PictureBox6)
End Sub

Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
picSelected(6, PictureBox7)
End Sub

Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
picSelected(7, PictureBox8)
End Sub

Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
picSelected(8, PictureBox9)
End Sub

صور من اللعبة إثناء وقت اللعب