تقاضاي كمك و راهنمايي

[wahid online]

سلام دوستان براي ساخت يك برنامه نمايش عكس نياز به راهنمايي اساتيد ام ام بي دارم شايد مشكل من خيلي ساده باشد . در برنامه گالري كه ساخته يكي از دوستان است و لينك آن در زير مشاهده مي شود مي خواهم اسكريپتي توشته شود تا بمحض اجراي برنامه ، عكسهاي موجود در يك مسير مشخص نمايش يابد مثلا" مسير d:\IMAGE و نمي خواهم از دكمه Open موجود در اين برنامه استفاده كنم . لطفا راهنمايي فرمايي . با تشكر

لينك برنامه : gallery.rar (131.5 کیلوبایت)

 

[m javad]

با سلام
من قبلا اگه جوابم نتونه كامل باشه عذرخواهي ميكنم.
من الان روي سيستمي هستم كه mmb نداره پس اون فايلي كه گذاشتيد رو نتونستم ببينم.

اين موضوع به كررات توي انجمن موجود هست(گالري عكس و اسلايد شو و...) پس با يكم جستجو ميتونستيد پيداش كنيد.
ولي ميتونم حدس بزنم كه اون فايل چي كار ميكنه و شما باهاش چه مشكلي داريد. به همين خاطر اين پست رو زدم.
احتمالا توي اون فايل ابتدا يه دكمه Open توسط كاربر زده ميشه و بعد كاربر آدرس رو انتخاب ميكنه تا فايلهاي توي مسير به نمايش در بياد.
شما هم ميخواهيد كه اين قسمت رو حذف كنيد.
پس اين كار رو بكنيد:
اول آدرس دلخواه خودتون رو به جاي آدرسي كه كاربر بعد از open مشخص ميكنه بزاريد:
من اون فايل رو با Notepad بررسي كردم و فكركنم از multi open و از plug y استفاده كرده و مسير رو هم فكر كنم با $files مشخص كرده
پس اين كد رو بجاي همه ي كدهاي مربط به open توي اون فايل ميزاري!

files$='d:\IMAGE'

يعني بجاي كاربر خودت اول كار مسير رو به طور ثابت براش مشخص ميكني
و اجراي دكمه Open رو هم با يه اسكريپت اول برنامه ميدي.
البته files$ احتمال داره چيز ديگه اي باشه كه بايد ببيني چي هست و تو كد بالا جايگزين كني

به محض اينكه به جايي رسيدم كه بيلدر بود برات تستش ميكنم و كاملشو برات ميزارم.( امروز يا فردا)

بازم شرمنده.
موفق باشي

 

[evil_gates]

فكر مي كنم بهتره مسير پوشه اي كه مي خواي رو به $file بدي و بعد نام فايل ها رو به مسير اضافه كني و بعد كل دستورات رو تو يه اسكريپت بنويسي و اسكريپت رو همزمان با اجراي برنامه اجرا كني

 

[wahid online]

با تشكر از دوستاني كه در پستهاي قبلي راهنمايي فرمودند ، آيا كسي از دوستان هست كه يك مثال براي اين مورد ارسال كند و يا مثال بالا را اصلاح نمايد . با تشكر

 

[evil_gates]

با تشكر از دوستاني كه در پستهاي قبلي راهنمايي فرمودند ، آيا كسي از دوستان هست كه يك مثال براي اين مورد ارسال كند و يا مثال بالا را اصلاح نمايد . با تشكر

الان رو سيستمم mmb ندارم فرصت كردم برات مثالت رو اصلاح مي كنم

 

[nevercom]

به این مبحث هم توجه کنید، میتونه بهتون کمک کنه: http://forum.majidonline.com/showthread.php?t=115776

 

[wahid online]

در مثال ذكر شده در پست قبلي چگونه مي توان عكسهاي موجود در يك مسير مشخص ( مثل D:\pic) كه داراي اسامي مختلفي هم هستند را نمايش داد .

 

[m javad]

راهنمایی با تاخیر !!!

با سلام

میتونید از کد زیر استفاده کنید:

BrowseForFolder("","")
ext$='*.jpg,*.bmp'
seldir$=CBK_OpenDir
SearchForFiles("seldir$","ext$")
If (CBK_NumInList>0) Then
For i=1 To CBK_NumInList
LoadText("Text$","STRING:<List>i")
filename$=ExtractDrive(Text$)+ExtractDir(Text$)+ExtractName(Text$) + ExtractExt(Text$)
DisplayValue("Path","filename$")
vv=VAL(CBK_NumInList)
dd$=CHAR(i)+' of '+CBK_NumInList
DisplayValue("Text","dd$")
Pause("1")
Next i
End

دوتا Text object به نامهای Text و Path بسازید تا بهتر متوجه بشید که کد چیکار میکنه.
یا میتونید در ابتدای اجرای برنامه کد زیر رو بدید تا اجرا کنه تا دیگه نیاز به دستور کاربر هم نباشه:

ext$='*.jpg,*.bmp'
seldir$='D:\IMAGE'
SearchForFiles("seldir$","ext$")
If (CBK_NumInList>0) Then
For i=1 To CBK_NumInList
LoadText("Text$","STRING:<List>i")
filename$=ExtractDrive(Text$)+ExtractDir(Text$)+ExtractName(Text$) + ExtractExt(Text$)
DisplayValue("Path","filename$")
vv=VAL(CBK_NumInList)
dd$=CHAR(i)+' of '+CBK_NumInList
DisplayValue("Text","dd$")
Pause("1")
Next i
End

بازم به خاطر تاخیر معظرت میخوام.
چون پیفام فرستاده بودید جواب دادم.
تو جواب پیغام دلیل تاخیر رو نوشتم.
البته یه نمونه از همین کار رو توی sample های MMB هم میتونستید پیدا کنید.
موفق باشید.

 

[m javad]

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