11-07-20, 05:02 AM
السلام عليكم
لانني مبتدى في عالم ال vb
هذا اول مشروع لي في تصميم الالعاب
كل ما عيك وضع صور كحواجز و اجعلها باي لون تريد
اختر المسار الذي تريده
ثم في الكود
فقط يجب ان تضع اسماء الصور كلها في مصفوفة الحواجز
الملف المفتوح للتعديل
http://www.mediafire.com/file/il8mddx0gg...t.zip/file
بالتوفيق
لانني مبتدى في عالم ال 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
بالتوفيق
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك