PDA

View Full Version : سوال : نمایش تصاویر تصادفی


saeedvbm
چهارشنبه 11 فروردین 1389, 13:37 عصر
دوستان عزیز من می خوام یه برنامه بنویسم که با کلیک کاربر یک تصویر تصادفی نشان بده !:متفکر:
لطفاً راهنمایی نمایید.
shahmahi
چهارشنبه 11 فروردین 1389, 17:24 عصر
با كد زير ميتوني اين كار رو بكني :
Randomize Timer
m1 = Int(Rnd * 23)
Picture2.Picture = LoadPicture(App.Path + "\picture\" & m1 & ".jpg")

اون عدد 23 تعداد عكسات كه داري، بقيشم مشخصه.
look20
چهارشنبه 11 فروردین 1389, 19:02 عصر
با كد زير ميتوني اين كار رو بكني :
Randomize Timer
m1 = Int(Rnd * 23)
Picture2.Picture = LoadPicture(App.Path + "\picture\" & m1 & ".jpg")

اون عدد 23 تعداد عكسات كه داري، بقيشم مشخصه.
ببخشید عکسارو به چه اسمی قرار بدیم
در ضمن این کد رو کجا بزارم و اینکه چه مواردی رو توی فرمم قرار بدم تا این دستور اجرا بشه
ali682344
چهارشنبه 11 فروردین 1389, 19:37 عصر
ببخشید عکسارو به چه اسمی قرار بدیم
در ضمن این کد رو کجا بزارم و اینکه چه مواردی رو توی فرمم قرار بدم تا این دستور اجرا بشه

بايد 23 تا عكس به نام هاي 1 تا 23 داشته باشي داخل يه پوشه به نام picture
و يه دونه image رو فرمت مي زاري و كدو هم به اين شكل مي نويسي
Randomize Timer
m1 = Int(Rnd * 23)
Image1.Picture = LoadPicture(App.Path + "\picture\" & m1 & ".jpg")
xxxxx_xxxxx
پنج شنبه 12 فروردین 1389, 00:52 صبح
بايد 23 تا عكس به نام هاي 1 تا 23 داشته باشي داخل يه پوشه به نام picture

دستور موردنظر، اعداد تصادفی بین 0 تا 22 تولید میکنه. پس یا نام فایل ها رو باید در این بازه قرار داد، یا به انتهای دستور فوق +1 اضافه کرد.
REZADG
پنج شنبه 12 فروردین 1389, 10:32 صبح
نمونه ی همین سوال رو توی مسابقا علمی - کاربردی سطح کاردانش معلم خودمون داده بود واسه این که دوستان یه چیزایی دیگه هم بلد بشن من سوال رو مطرح میکنم
چگونه میتوان عکس های داخل یک پوشه رو با یک زمان معین از هم نشان داد و با کلیک بر روی فرم بتوان این زمان را تغییر داد ؟
من با دو سطر نوشته بودم و دوتا تایمر که هم معلمم و هم اون یکی ناظر دهنشو.ن وا مونده بود آخه بچه های دیگه که اغلب خواهرامون بودن با ده الی ... سطر نوشته بودن
look20
پنج شنبه 12 فروردین 1389, 11:21 صبح
ببخشید چطور میشه توسط کاربر بشه تصویر رو انتخاب کرد و مثلا خود کاربر تعیین کنه که فلان عکس چه روز یا چه ساعتهایی نمایش داده بشه و این تنظیم ذخیره بشه ممنون می شم اگه باکد توضیح بدید
shahmahi
پنج شنبه 12 فروردین 1389, 12:07 عصر
چگونه میتوان عکس های داخل یک پوشه رو با یک زمان معین از هم نشان داد

اين عمل با يك تايمر هم قابل اجراست :

Private Sub Timer1_Timer()
Randomize Timer
Dim m1 As Integer
m1 = Int(Rnd * 3)
Picture1.Picture = LoadPicture(App.Path + "\" & m1 & ".jpg")
End Sub