کمک در خصوص اصلاح کدنویسی

[alizadeh.6725]

به نام خدا
کدای زیر مال ساخت اسلاید شو هست.این کدا یه جوری نوشته شده که فقط باید اسم عکس اولش pic-pic1-pic2و... باشه برای من که می خوام 300 عکس تو سی دی بزارم خیلی سخت تک تک اسمها را عوض کنم. الان چطوری می تونم این کد عوض کنم که هر اسمی را که تو دوست دارم بزارم مثلاً از 1 تا 300 یا ... .
به طوری کلی اگه امکان داره یا توضیح مختصر در مورد این کدا بدین.
سپاسگذارم/

img = img+1
number$=CHAR(img)
Picture$='C:\Picture\Pic' +number$+'.jpg'
FileExist("Picture$","exist")
If (exist=0) Then
img = 1
number$=CHAR(img)
Picture$='C:\Picture\Pic' +number$+'.jpg'
End
ReplaceImage("Bitmap","Picture$")
ScriptTimer("Script","4000")

 

[alizadeh.6725]

راستی سریال نسخه جدید بیلدر چندهMultimedia Builder 4.9.8

 

[nevercom]

شما دقیقاً چه قسمتی از کد مد نظرتون هست که اصلاح بشه ؟
میخاید فقط فرم نامگزاری تصاویرتون رو تغییر بدید یا میخاید تمام تصاویر با هر نامی شناخته بشن ؟

راستی سریال نسخه جدید بیلدر چندهmultimedia builder 4.9.8

در این انجمن بحث پیرامون این مسائل ممنوع هست.

 

[alizadeh.6725]

تمام تصاویر با هر نامی شناخته بشن

 

[aloke]

Picture$='C:\Picture\*' +number$+'.jpg'
Picture$='C:\Picture\*' +'.jpg'
​

ببين با اين كدها درست مي شه يا نه .
با كد دومي بايد هر اسمي را بتوني به عكس هات بدي .

 

[nevercom]

ببين با اين كدها درست مي شه يا نه .
با كد دومي بايد هر اسمي را بتوني به عكس هات بدي .

با این کدها گمان نمیکنم نتیجه بگیرید.

روش من برای انجام اینکار این هست:

اسکریپت Page Start:

[FONT=Courier New][SIZE=2][COLOR=#000090][B]BrowseForFolder[/B][/COLOR]("Select a folder containing the Images","") 
Dir$ = [COLOR=#0000ff]CBK_OpenDir[/COLOR] 
[COLOR=#0000ff]If[/COLOR] (Dir$ <> [COLOR=#800000]''[/COLOR]) [COLOR=#0000ff]Then[/COLOR] 
  [COLOR=#000090][B]SearchForFiles[/B][/COLOR]("Dir$","jpg") 
  NumOfPics = [COLOR=#0000ff]CBK_NumInList[/COLOR] 
[COLOR=#0000ff]Else[/COLOR] 
[COLOR=#0000ff]End[/COLOR] 
[COLOR=#000090][B]RunScript[/B][/COLOR]("Script")[/SIZE][/FONT]

و در شئ Script:

[COLOR=#0000ff]If[/COLOR] (check <> [COLOR=#ff0000]1[/COLOR]) [COLOR=#0000ff]Then[/COLOR] 
  img = img + [COLOR=#ff0000]1[/COLOR] 
  [COLOR=#0000ff]If[/COLOR] (img = NumOfPics) [COLOR=#0000ff]Then[/COLOR] 
    img = [COLOR=#ff0000]1[/COLOR] 
  [COLOR=#0000ff]End[/COLOR] 
  [COLOR=#000090][B]LoadText[/B][/COLOR]("Picture$","<[COLOR=#0000ff]List[/COLOR]>img") 
  [COLOR=#000090][B]ReplaceImage[/B][/COLOR]("Bitmap","Picture$") 
  [COLOR=#000090][B]ScriptTimer[/B][/COLOR]("Script","[COLOR=#ff0000]2000[/COLOR]") 
[COLOR=#0000ff]End[/COLOR]

در کد اول که همزمان با اجرای برنامه اجرا میشه (Page Start)، اول پنجره ی انتخاب فولدر نمایش داده میشه و مسیر فولدر در متغیر $Dir ذخیره میشه (البته شما میتونید این قسمت از کد رو غیرفعال کنید و مسیر فولدر موردنظرتون در متغیر $Dir قرار بدید.
و بعد از انتخاب فولدر برنامه فولدر موردنظر (بهمراه زیر فولدرهاش) رو برای فایلهای با پسوند jpg جستجو میکنه، و تعداد فایلهای پیدا شده رو در متغیر NumOfPics میریزه.
حالا در شئ Script هربار یکی از عکسهای پیداشده رو به ترتیب در متغیر $Picture میریزیم و اون رو نمایش میدیم، اینکار تا زمانی ادامه پیدا میکنه که آخرین عکس هم نمایش داده بشه، و بعد از اون برنامه نمایش عکسها رو از اول یعنی عکس شماره 1 شروع میکنه.
فایل MBD ویرایش شده رو پیوست کردم.

 

[goleyakh6006]

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

 

[nevercom]

برای پرینت پلاگین Primage رو ببینید.

ضمن اینکه اون عکس ها هرکدوم آدرسشون در دسترس هست، در کد بالا آدرس فایل در متغیر $Picture ذخیره میشه
میتونید توسط دستور Syscommand فایل رو کپی کنید