+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) (/showthread.php?tid=18591)
مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) - marten363 - 27-12-16
السلام عليكم
كيفكم يا جماعة
لو سمحتو بدي مساعدتكم
عندي وظيفة برمجة فجوال بيزيك اريد تصميم برنامج تحريك صورة في picture box من خلال احداثيات Y,X مكتوبة مسبقا في ملف نصي على سطح المكتب
فأريد مساعدتكم بحثت في النت لكن وجدت تحريك الصورة بواسطة ازرار لكن لم اجد حسب طلبي
هل ممكن تساعدوني بفيديوهات معينة او شيء ابحث عنه لحل هذا المشكلة
جزاكم الله خيرا
شكرا مقدما على المساعدة
RE: مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) - silverlight - 27-12-16
عليك أن تقرأ الإحداثيات من الملف و تضعها في مصفوفة
ثم تستخدمها لتغيير مكان الصورة من خلال تايمر
وهناك اسلوبان إما أن تكون الصورة يتم رسمها علي الفورم مباشرة و هنا تقوم بتغيير مكان رسم الصورة و من ثم تقوم بعمل Invalidate للرسم داخل التايمر
أو أن الصورة موجودة داخل Picture Box و هنا تقوم فقط بتغيير مكانه من خلال التايمر
RE: مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) - marten363 - 27-12-16
(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
RE: مساعدة لو سمحتو (طريقة تحريك صورة من خلال احداثيات موجودة في ملف نصي بدون ازرار) - مساعدة - 27-12-16
السلام عليكم
هذا الكود الذي يقرأ الملف 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