سورس آلبوم تصاویر

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

با سلام خدمت استادان گرامی

پوزش بنده رو پذیرا باشین به علت غیبت

دیگه باید ببخشید مشکلات زیاده

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

و چطور اونو به عنوان تصویر زمینه انتخاب کنید

و چطور اطلاعات رو ذخیره کنیین که با بستن برنامه و باز کردن مجدد اون برنامه از جای اول شروع نکنه و چطور با کشیدن به سمت چپ عکس بعدی لود شه و...

ببخشید اگه توضیحاتم کامل نیست

برای اینکه حجم سورس بابلا نره عکسهارو پاک کردم ، شما خودتون میتونین عکسهارو وارد پوشه فایل کنید

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

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

پروژه آپدیت شد!

wallpaper.zip

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

ممنون محمد جان

عالیه

یک سوال : Dim s As StudentLibrary مربوط به کدوم کتابخانه میشه ؟

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

سلام مهدی جان

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

Student.zip

[salmana 174]

کتابخانه آقا امید هستش

[vistamobile 1,700]

سلام. شرمنده. نمیدونم عکسها رو چجوری اضافه کنم؟ یعنی از add file خود b4a تضاویر رو با اون اسمی که گفتین اضافه کنم، اضافه میشه؟ و یه سوال دیگه اینکه این سورس رو اجرا میکنم هشدار mem.txt میده.

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

سلام. شرمنده. نمیدونم عکسها رو چجوری اضافه کنم؟ یعنی از add file خود b4a تضاویر رو با اون اسمی که گفتین اضافه کنم، اضافه میشه؟ و یه سوال دیگه اینکه این سورس رو اجرا میکنم هشدار mem.txt میده.

بله دوست عزیز شما باید عکس هارو از طریق Files به برنامه اضافه کنید

این برنامه کارش اینه که میاد اسم عکسارو توی یک لیست اضافه میکنه و بعد با لمس و کشیدن دست به چپ و راست عوض میشه

خب اگه هشدار Mem میده شما این کد رو در قسمت Else مربوط به if در Activity_Create اضافه کنید ببینید کارتون راه میوفته.

	   File.Copy(File.DirAssets,"mem.txt",File.DirRootExternal,"mem.txt")

[vistamobile 1,700]

بله دوست عزیز شما باید عکس هارو از طریق Files به برنامه اضافه کنید

این برنامه کارش اینه که میاد اسم عکسارو توی یک لیست اضافه میکنه و بعد با لمس و کشیدن دست به چپ و راست عوض میشه

خب اگه هشدار Mem میده شما این کد رو در قسمت Else مربوط به if در Activity_Create اضافه کنید ببینید کارتون راه میوفته.

       File.Copy(File.DirAssets,"mem.txt",File.DirRootExternal,"mem.txt")

داداش ممنون مشکل تصاویر حل شد ولی بازم مشکل فایل txt رو داره. یعنی وقتی اجرا میشه میگه :

مگه نباید این فایل txt تو فایلها باشه؟ من تو فولدر سورس هم گشتم نبود.

[vistamobile 1,700]

دوستان من هنوز با این فایل تکست مشکل دارم. لطفا کمک کنین حل بشه *مرسی*

[vistamobile 1,700]

سلام. من هنوز درگیر این فایل تکست هستم.

[Farzad Musavi 576]

سلام. من هنوز درگیر این فایل تکست هستم.

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

[vistamobile 1,700]

ساختم افاقه نکرد!!!! نمیدونم به این فایل نیازی هست یا نه. من فقط یه کد میخوام که چندتا عکس رو بتونم عقب و جلو کنم *ناز2*

[shahab1392 47]

با سلام به اساتید گرامی

یه سئوال داشتم چه طور میشه که عکس ها رو با پنل فیت کرد.

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

[ali123ali123 4]

عالی بود.

ممنون

[milad19 113]

تشکر

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

بازدن دکمه ی قبلی و بعدی میشه از +بینهایت تا -بینهایت رفت که تصویر هرکدووم که موجود نباشه حاصلش یه اروره

[Mohsen27 199]

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

Sub Globals	
Dim startx As Int
Dim a As Bitmap
Dim i As Int
Dim n As String
Private Panel1 As Panel
End Sub

و بعد این کد رو بنویسید

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=10 
End If
End If
If x <startx-40 Then
i=i+1
If i >23 Then
i=0 
End If
End If
a.Initialize(File.DirAssets,"a"&i&".jpg")
Panel1.SetBackgroundImage(a)
End Select
End Sub

موفق باشید