رفتن به مطلب

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


محمد احمدی

ارسال‌های توصیه شده

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

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

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

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

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

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

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

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

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

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

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

wallpaper.zip

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

عالیه

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام مهدی جان

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

Student.zip

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 1 ماه بعد...
  • 4 هفته بعد...

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 هفته بعد...

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

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

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

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

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

attachment.php?attachmentid=558&stc=1

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 هفته بعد...

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

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

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

attachment.php?attachmentid=617&stc=1

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 2 هفته بعد...

تشکر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

موفق باشید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...