منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ملف مفتوح ..تصميم لعبة متاهة بسيطة جدا

السلام عليكم
لانني مبتدى في عالم ال vb
هذا اول مشروع لي في تصميم الالعاب

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

فقط يجب ان تضع اسماء الصور كلها في مصفوفة الحواجز

PHP كود :

Public Class Form1
    Dim blk() As PictureBox
  

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        blk = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4,
       PictureBox5, PictureBox6, PictureBox7, PictureBox8, PictureBox9, PictureBox10, PictureBox11,
        PictureBox12, PictureBox13, PictureBox14, PictureBox15, PictureBox16, PictureBox17, PictureBox18,
       PictureBox19, PictureBox20, PictureBox21, PictureBox22, PictureBox23, PictureBox24, PictureBox25, PictureBox26}
 
    End Sub

    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Up Then
            PDinasor.Image = My.Resources.lapinU

            Tup.Start()
            Tdown.Stop()
            Tright.Stop()
            Tleft.Stop()
        End If
        If e.KeyCode = Keys.Down Then
            PDinasor.Image = My.Resources.lapinD
            Tdown.Start()
            Tup.Stop()
            Tright.Stop()
            Tleft.Stop()
        End If
        If e.KeyCode = Keys.Left Then
            PDinasor.Image = My.Resources.lapinL
            Tleft.Start()
            Tup.Stop()
            Tdown.Stop()
            Tright.Stop()
        End If
        If e.KeyCode = Keys.Right Then
            PDinasor.Image = My.Resources.lapinR
            Tright.Start()
            Tup.Stop()
            Tdown.Stop()
            Tleft.Stop()
        End If
    End Sub



    Private Sub Tup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tup.Tick
        PDinasor.Top -= 5
        For i = 0 To 25
            If (PDinasor.Bounds.IntersectsWith(blk(i).Bounds)) Then
                Tup.Stop()
                PDinasor.Top = PDinasor.Top + 5
            End If
        Next
        If (PDinasor.Bounds.IntersectsWith(Pcarot.Bounds)) Then
            Tup.Stop()
            Label1.Visible = True

        End If
    End Sub

    Private Sub Tdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tdown.Tick
        PDinasor.Top += 5
        For i = 0 To 25
            If (PDinasor.Bounds.IntersectsWith(blk(i).Bounds)) Then
                Tdown.Stop()
                PDinasor.Top = PDinasor.Top - 5
            End If

        Next
    End Sub


    Private Sub Tright_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tright.Tick
        PDinasor.Left += 5
        For i = 0 To 25
            If (PDinasor.Bounds.IntersectsWith(blk(i).Bounds)) Then
                Tright.Stop()
                PDinasor.Left = PDinasor.Left - 5
            End If
        Next
    End Sub

    Private Sub Tleft_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tleft.Tick
        PDinasor.Left -= 5
        For i = 0 To 25
            If (PDinasor.Bounds.IntersectsWith(blk(i).Bounds)) Then
                Tleft.Stop()
                PDinasor.Left = PDinasor.Left + 5
            End If

        Next
    End Sub

 

    Private Sub PDinasor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PDinasor.Click

    End Sub
End Class 

الملف المفتوح للتعديل

http://www.mediafire.com/file/il8mddx0gg...t.zip/file

بالتوفيق

تسلم اناملك

الله يعطيك الصحة والعافية

مشروع جميل ومتعوب علية

جاري تحميل الملف

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد الهادي بهاب

المعترس