تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لتحريك الرسوم
#1
السلام علكيم

ممكن كود لتحريك الرسوم الى الاسفل والى الاعلى او بتحريكه حركه عشوائيه
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- توضيح أكثر لو سمحت .
الرد }}}}
تم الشكر بواسطة:
#3
لدينا شخصيه كارتونيه ااريدها ان تتحرك خارج الفورم بإيعازات عن طريق الكود الى اليمين والى اليسار وحركات اخرى عشوائيه
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- هل الشخصية عباره عن صوره ثابته أم متحركه . وهل قصدك بخارج الفورم يعني على شاشة الكمبيوتر .
الرد }}}}
تم الشكر بواسطة:
#5
نعم هي خارج الفورم على شاشة الكومبيتر وهذا كود ظهورها فارجوا اضافة كود او التعديل على الكود لكي تتنقل علىالشاشه
Agent1.Characters.Load "j", App.Path & "\merlin.acs"
Agent1.Characters.Item("j").Show
Agent1.Characters.Item("j").Think "Hi "
Agent1.Characters.Item("j").Speak "im al asela"
الرد }}}}
تم الشكر بواسطة:
#6
...............
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم
Agent1.Characters.Item("j").Top = 100
Agent1.Characters.Item("j").Left = 150

وطبعا الارقام دي بتتغير وممكن يكونوا داخل تيمر وتتغير القيمه بمتغير
الرد }}}}
تم الشكر بواسطة:
#8
Private Sub Command1_Click()
Agent1.Characters.Load "j", App.Path & "\merlin.acs"
Agent1.Characters.Item("j").Show
Agent1.Characters.Item("j").Think "Hi "
Agent1.Characters.Item("j").Speak "im al asela"
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Agent1.Characters.Item("j").Top = 100 * Rnd(10000)
Agent1.Characters.Item("j").Left = 150 * Rnd(10000)
End Sub
الرد }}}}
تم الشكر بواسطة:
#9
شكرا لك ولكنني لم اقصد الأنتقال الصامت هكذا
بل اردت عند انتقاله الى الأسفل يحرك يديه او رأسه او ماشابه ذلك
الرد }}}}
تم الشكر بواسطة:
#10
علما الشخصيه ليست شخصيه
ثابته بل متحركه
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم