14-04-13, 02:19 AM
السلام علكيم
ممكن كود لتحريك الرسوم الى الاسفل والى الاعلى او بتحريكه حركه عشوائيه
ممكن كود لتحريك الرسوم الى الاسفل والى الاعلى او بتحريكه حركه عشوائيه
كود لتحريك الرسوم
|
14-04-13, 02:19 AM
السلام علكيم
ممكن كود لتحريك الرسوم الى الاسفل والى الاعلى او بتحريكه حركه عشوائيه
14-04-13, 03:00 PM
السلام عليكم
- توضيح أكثر لو سمحت .
15-04-13, 10:22 PM
لدينا شخصيه كارتونيه ااريدها ان تتحرك خارج الفورم بإيعازات عن طريق الكود الى اليمين والى اليسار وحركات اخرى عشوائيه
15-04-13, 11:28 PM
السلام عليكم
- هل الشخصية عباره عن صوره ثابته أم متحركه . وهل قصدك بخارج الفورم يعني على شاشة الكمبيوتر .
16-04-13, 11:22 PM
(آخر تعديل لهذه المشاركة : 16-04-13, 11:33 PM {2} بواسطة sharif2014.)
نعم هي خارج الفورم على شاشة الكومبيتر وهذا كود ظهورها فارجوا اضافة كود او التعديل على الكود لكي تتنقل علىالشاشه
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"
30-04-13, 02:10 AM
...............
30-04-13, 02:42 AM
السلام عليكم
Agent1.Characters.Item("j").Top = 100 Agent1.Characters.Item("j").Left = 150 وطبعا الارقام دي بتتغير وممكن يكونوا داخل تيمر وتتغير القيمه بمتغير
30-04-13, 02:45 AM
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
30-04-13, 03:01 PM
شكرا لك ولكنني لم اقصد الأنتقال الصامت هكذا
بل اردت عند انتقاله الى الأسفل يحرك يديه او رأسه او ماشابه ذلك
30-04-13, 03:03 PM
علما الشخصيه ليست شخصيه
ثابته بل متحركه |
|