مشکل در پروژه برنامه والپیپر

[reza2001 587]

سلام

یکی از دوستان تو این تاپیک یه برنامه والپیپر گذاشته بودند اما بدون عکس تا خودمون اضافه کنیم.

تو قسمت Sub Panel1_Touch یه همچین کدی نوشته بود:

Select Action        Case Activity.ACTION_DOWN
                 startx=X
     Case Activity.ACTION_up
           If X > startx +15 Then 'swipe Right
   i=i-1
      a.Initialize(File.DirAssets,"image"&i&".jpg")
      Panel1.SetBackgroundImage(a)
End If


           If X < startx -15 Then 'swipe Left


i = i+1
      a.Initialize(File.DirAssets,"image"&i&".jpg")
      Panel1.SetBackgroundImage(a)
End If
            a.Initialize(File.DirAssets,"image"&i&".jpg")
            Panel1.SetBackgroundImage(a)
     End Select

منم 15 تا عکس تو فایل ها گذاشتم.وقتیی برنامه رو کامپایل میکنم 15 تا عکس میاد.

اما مشکل اینجاست که هنگام مرور والپیپر ها

وقتی 15 تا عکس تموم میشه با زدن دکمه جلو یه همچین اخطاری میده:

همچنین وقتی دکمه عقبو میزنم و به اولین عکس میرسه با زدن مجدد دکمه این اخطارو میده:

من میخوام وقتی عکسا تموم شد دیگه دکمه عقب و جلو کار نکنه.

لطفا درباره کد هایی که بالا گفتم توضیحاتی بدین هیچی ازش سر در نمیارم همچنین اینکه چطوری مشکلمو رفع کنم.

دوستانی که می دونن کمک کنن.

ممنون*قلب**قلب**قلب*

[reza2001 587]

*عصبانی**عصبانی**عصبانی*

.

.

.

.

.

.

.

.

لطفا دوستانی که میدونن راهنمایی کنن

.

.

.

.

.

.

.

*مرسی**مرسی**مرسی*

[Mohsen27 199]

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

Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
   Select Action
       Case Activity.ACTION_DOWN
                 startx=X
     Case Activity.ACTION_up
           If X > startx +40 Then 

   i=i-1
If i<0 Then
i=0
End If

      a.Initialize(File.DirAssets,"image"&i&".jpg")
      Panel1.SetBackgroundImage(a)
End If

        If X < startx -40 Then 


i = i+1
If i>20 Then
i=20
End If

      a.Initialize(File.DirAssets,"image"&i&".jpg")
      Panel1.SetBackgroundImage(a)
End If
            a.Initialize(File.DirAssets,"image"&i&".jpg")
            Panel1.SetBackgroundImage(a)

     End Select
End Sub

بادت باشه ک من تو اون قسمت ک نوشتم

if i>20 then
i=20
en if

اونجا تعیین کردیم ک چقد عکس رو لود کنه

موفق باشی

سوالی بود در خدمتم

[reza2001 587]

ممنون داداش

ولی مشکلم حل نشد هنوز اینطوری میشه:

[مجید آرتا 5,874]

یک مثال ساده:

بنده 15 تا عکس دارم که اسماشون از 0 شروع میشه تا 14.

Dim Count as Int
Count = 0 
Dim BImg As Bitmap
Then If Count < 15
BImg.Initialize(File.DirAssets,Count&".JPG")
Panel1.SetBackgroundImage(BImg)
Count = Count + 1
End If

یه مثال زذم خودت تلاش کن میتونی با استفاده از این کد بسازیش.کار خاصی نداره.

[Mohsen27 199]

خب عزیز تو عکسات از اونی ک وارد میکنی بیشتر میشه دیگه بگو ک چن تا عکس داری؟؟؟؟؟؟؟؟

[reza2001 587]

بله

.

.

.

.

.

رو دو تا گوشی

[رضا جابرپور 179]

دوست عزیز وقتی page سوال شما با موضوع فروشگاه بسته می شه دور از ادبه که بخوام جوابتون رو بدم ولی با کسب اجازه یه مثال براتون می زارم شاید به دردتون خورد :

جهت ست شدن LongClick فراموش نشود *قلب*

test.rar

[yasinshop 10]

میشه. تو سرورت یه فایل تکست بزار و توش یه عدد بزار که تعداد عکس ها رو می خونه.

اسم عکس هایی هم که توی هاست آپلود می کنی از 1 بزار تا هر چند که برسی.

حالا فرض کن کاربر تا عکس 150 رو دانلود کرده قبلا و روی هاست 180 تا عکس هست.

با کتابخانه httputils2 باید فایل text رو بخونی که عدد 180 رو بر می گردونه.

بعد چون داخل برنامه رو هم چک کردی تا 150 عکس ها رو گرفتی یه حلقه For بنویس از 151 تا 180 شروع کنه به دانلود عکس ها.

فایل های که حجم زیادی دارن رو بهتره رو دیتابیس ذخیره نکنین چون بعدا برای انتقالش به مشکل می خورین و حجم دیتابیس mysql بالا بره ارورر میده البته تنظیماتی داره واسه ارورر ندادنش که دیگه اینجا جای توضیحش نیست.

با این روش می شه کاری کرد که مثلا تا 1000 معرفی کرد و به مرور عکس ها رو اضافه کرد ؟ کاربر می تونه عکس ها رو ببینه و بعد اگه خواست دانلود کنه ؟

[reza2001 587]

نمیــــــــــــــــــ*عصبانی*ــــــــــــــــــــــ*عصبانی*ـــــــــــــــــــــــــــــــ*عصبانی*ــــــــــــــــــشه

.

.

.

.

.

.

.لطفا بیشتر راهنمایی کنید*قلب**قلب**قلب*

[مجید آرتا 5,874]

سلام

خیلی راحت بیا Height و Witdh عکسو برابر Height و Witdh اکتویتی یا ایمج ویو و یا هر ویویی که ازش استفاده میکنی قرار بده فیکس میشه.

و یا اصلا یک خاصیت Gravity هست که اگه رو حالت Fiill بزاری کامل نشون میده.

[محمد احمدی 70]

سلام

من فرض میگیرم شما 50 تا عکس داری پس :

Sub Activity_Touch (Action As Int, X As Float, Y As Float)
       Select Action
       Case Activity.ACTION_DOWN
                 startx=X
     Case Activity.ACTION_up
           If X > startx +40 Then 'Right
Try
   i=i-1
      img.Initialize(File.DirAssets,"im"&i&".jpg")
     bp.SetBackgroundImage(img)
Catch
i = 0
End Try
End If

           If X < startx -40 Then 'Left
Try
i = i+1
lbl.Text = i&"/50"
      img.Initialize(File.DirAssets,"im"&i&".jpg")
      bp.SetBackgroundImage(img)
Catch
i = 50
lbl.Text = i&"/50"
End Try
End If
            img.Initialize(File.DirAssets,"im"&i&".jpg")
            bp.SetBackgroundImage(img)
     End Select
End Sub

این کدی بود که خودم استفاده کردم و جواب گرفتم

ی چند دقیقه دیگه هم سورس اون تاپیک رو آپدیتش میکنم مشکلت حل نشد اونو چک کن

---------------------------

البته منظورم این تاپیک هست

http://answercenter.ir/thread254.html

[محمد احمدی 70]

سورس کد آلبوم تصاویر آپدیت شد

http://answercenter.ir/thread254.html

[reza2001 587]

ممنون داداش*قلب**قلب**قلب*

.

.

.

.

.

.

مشکلم حل شد*خنده شیطان

[reza2001 587]

فقط یه سوال دیگه

.

.

.

.

.

میخوام یه Button بذارم برای اشتراک گذاری هر والپیپر،

باید چه کدی بنویسم؟؟؟

.

.

.

.

.

*قلب**قلب**قلب*

[reza2001 587]

با ایمیج ویو هم امتحان کردم ولی نشد*عصبانی*

.

.

.

.

.

***دوستان من نمیخوام عکس ها توی برنامم فیت بشه،بلکه میخوام وقتی عکسو به عنوان تصویر زمینه انتخاب کردیم توی صفحه اصلی و مناسب با صفحه نمایش فیت بشه***

.

.

.

.

.

*بوس**بوس**بوس*

[نیما قبادی 246]

دوست عزیز اسکیریپ دیزاینر رو واسه من نزاشتن خوب راحت ترین را هست

*لال**لال**لال**لال*

[مجید آرتا 5,874]

خب دوست من سوالتون رو قشنگ واضح بگید.

توی دیزاینر اسکریپت بیا ویو رو (حالا هر چی پنل یا ایمیج ویو )

[b]Panel1.SetLeftAndRight(0,100%x)[/b]
[b]Panel1.SetTopAndBottom(0,100%y)[/b]

[yasinshop 10]

می شه همین سورس رو تبدیل کرد به سورسی که از دیتابیس انلاین تصاویر رو بگیره ؟

یه سورس برای این کار توی انجمن هست ولی امکان اینکه بشه تصاویر رو بزرگ مشاهده کرد و ... رو نداره !

[مهدی ایزدی 9,203]

فقط یه سوال دیگه

.

.

.

.

.

میخوام یه Button بذارم برای اشتراک گذاری هر والپیپر،

باید چه کدی بنویسم؟؟؟

.

.

.

.

.

*قلب**قلب**قلب*

در مورد اشتراک گذاری توی انجمن بحث شده . یک جست و جو کنید احتمالا مشکلتون حل میشه.

می شه همین سورس رو تبدیل کرد به سورسی که از دیتابیس انلاین تصاویر رو بگیره ؟

یه سورس برای این کار توی انجمن هست ولی امکان اینکه بشه تصاویر رو بزرگ مشاهده کرد و ... رو نداره !

چرا که ن !!!

شما با کمی تغییر میتونید همون سورس رو کاری کنید که وقتی روی عکس کلیک میشه بزرگ هم نمایش بده.

[yasinshop 10]

چرا که ن !!!

شما با کمی تغییر میتونید همون سورس رو کاری کنید که وقتی روی عکس کلیک میشه بزرگ هم نمایش بده.

درسته ولی خوب گفتن این حرف برای شما راحته . برای ما تازه کارا کمی پیچیده اس . مشکل اینجاست که واقعا اگه بخوام تصاویر مورد نظرم رو همراه برنامه بزارم حجمش خیلی بالا میره برای تنها راه به نظرم اتصال به دیتا بیس هست درسته ؟