تغییر خاصیت اشیاء به صورت Random

[Metaldevil]

سلام دوستان
من دارم یه پروژه در VB.net می نویسم، یه عکس رو به 16 قسمت تقسیم کردم و 16تا شی Pictureرو فرمم گذاشتم حالا می خوام خاصیت ImageLocation این شی هام به صورت رندم داده بشه به شرطی که مربوط به اون 16 تا عکسم باشه ممنون می شم منو کمی در این مورد راهنمایی کنین.

[eyes_shut_number1]

سلام این کار رو بکنید :


Dim Rnd As New System.Random

حالا جای LOCATION عکسهات اینو اضافه کن


Image.location = Image.location + New Point(CInt(1000 * rnd.NextDouble))
))

البته این اندازه رندم میده .رو این کار کن ببین چی میشه!

[Metaldevil]

مرسی ممنون
روش کار می کنم ببینم میشه درستش کرد یا نه بهت خبر می دم.

[eyes_shut_number1]

ok ;)!!!!!

[Metaldevil]

سلام ببخشید من به برنامه شما زیاد دقت نکرده بودم
منظور منImage.Location نیست منظور من ImageLocation هستش اگه میشه بشتر کمکم کنین.

[eyes_shut_number1]

بیشتر توضیح بده لطفا

[Metaldevil]

ممنون از راهنماییت راهشو پیدا کردم برنامم کمی غیر حرفه ای میشه ولی از هیچی بهتره:چشمک:

[eyes_shut_number1]

بگو چیکار کردی ما هم بدونیم

[Metaldevil]

اینم از سورس برنامه :بامزه:
[]

[eyes_shut_number1]

tnx;):)!!!!

[samira3]

لطفا کنید سورسشو برام بزارین samira_136520005@yahoo.comمنفایل فایل zip alhv, kj,ksjl fhc ;kl

[samira3]

کمک کنید من هم همین کار کردم ولی درسته درست نشد
به من هم کمک کنید
مرسی

[Metaldevil]

مرسی
زود میخوام کمک کنید در گردش عکسها فقط گیر دارم
چه طور می توانم عدد بین1تاهرعددی تولید کنم

سلام باید اول یه شی از نوع Random تعریف کنی بعدش باید به شیت بگی که عددت رو از روی مثلا میلی ثانیه محاسبه کنه و بعد یه محدوده برای تولید عدد براش مشخص کنی و عدد تولید شده رو توی یه متغیر دیگه بریزی


Dim objRandom1 As System.Random


Dim value1 As String



objRandom1 = New Random(Now.Millisecond)

value1 = objRandom1.Next(1, 16)