السلام عليكم
كيفكم يا جماعة
لو سمحتو بدي مساعدتكم
عندي وظيفة برمجة فجوال بيزيك اريد تصميم برنامج تحريك صورة في picture box من خلال احداثيات Y,X مكتوبة مسبقا في ملف نصي على سطح المكتب
فأريد مساعدتكم بحثت في النت لكن وجدت تحريك الصورة بواسطة ازرار لكن لم اجد حسب طلبي
هل ممكن تساعدوني بفيديوهات معينة او شيء ابحث عنه لحل هذا المشكلة
جزاكم الله خيرا
شكرا مقدما على المساعدة
عليك أن تقرأ الإحداثيات من الملف و تضعها في مصفوفة
ثم تستخدمها لتغيير مكان الصورة من خلال تايمر
وهناك اسلوبان إما أن تكون الصورة يتم رسمها علي الفورم مباشرة و هنا تقوم بتغيير مكان رسم الصورة و من ثم تقوم بعمل Invalidate للرسم داخل التايمر
أو أن الصورة موجودة داخل Picture Box و هنا تقوم فقط بتغيير مكانه من خلال التايمر
(27-12-16, 11:07 AM)silverlight كتب : [ -> ]عليك أن تقرأ الإحداثيات من الملف و تضعها في مصفوفة
ثم تستخدمها لتغيير مكان الصورة من خلال تايمر
وهناك اسلوبان إما أن تكون الصورة يتم رسمها علي الفورم مباشرة و هنا تقوم بتغيير مكان رسم الصورة و من ثم تقوم بعمل Invalidate للرسم داخل التايمر
أو أن الصورة موجودة داخل Picture Box و هنا تقوم فقط بتغيير مكانه من خلال التايمر
اول اشكرك اخي على الرد السريع
الصورة هي صورة PacMan موجودة داخل Picture Box
هل يمكن ان تعطيني فيديوهات لاتعلم طريقة تنفيذ ذلك
علما ان ابعاد الصورة واوامر الحركة ستكون في الملف النصي
Örnek Komut Dosyası (PacMan.txt)
---------------------------------------------
15 x 20
D12 U3 R12
U12 D12 L12 R5
U5
السلام عليكم
هذا الكود الذي يقرأ الملف PacMan.txt ويضعها في مصفوفة مع وضع أداة Timer والصورة يكون في الأداة PictureBox وبخاصية AutoSize
كود :
Public Class Form1
Dim arrPacMan() As String
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
arrPacMan = IO.File.ReadAllLines("PacMan.txt")
Timer1.Start()
End Sub
Private pntPacMan As Integer = 0
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
Dim s() As String = arrPacMan(pntPacMan).Split
Dim pnt As New Point(s(0), s(1))
Me.PictureBox1.Location = pnt
pntPacMan += 1
If pntPacMan = Me.ListBox1.Items.Count Then
pntPacMan = 0
Timer1.Stop()
End If
End Sub
End Class