تغيير رنگ متن و چگونگي يه چرخه بي نهايت براي ان

aff - SEvEN · Nov 13, 2006

آقا سيلور سلام ...
الان داشتم اون سمپلي رو که زحمت کشيدين باسه تغيير رنگ مکرر متن باسم ساختين رو با اسکريپتش کار مي کردم ...
شرمندم اقا سيلور ... هر کاري کردم نتونستم چرخشو بي نهايت کنم چون وفتي بي نهايتش مي کنم اصلا ديگه رنگ متن عوض نمي شه و Text1 هم ديگه حتي واکنش نشون نمي ده !
خوب اسکريپت اصلي کليد ما اين بود :

For i=1 To 255
val1=i
val2=i
val3=i
param$='TEXTCOLOR='+CHAR(val1)+','+CHAR(val2)+','+CHAR(val3)
SetObjectParam("Text","param$")
LoadText("Text1","param$")
Pause("10")
Next i
Pause("2000")
For i=1 To 155
val1=255-i
val2=100+i
val3=255-i
param$='TEXTCOLOR='+CHAR(val1)+','+CHAR(val2)+','+CHAR(val3)
LoadText("Text1","param$")
SetObjectParam("Text","param$")
Pause("10")
Next i
Pause("2000")
For i=1 To 55
val1=200+i
val2=160+i
val3=55-i
param$='TEXTCOLOR='+CHAR(val1)+','+CHAR(val2)+','+CHAR(val3)
LoadText("Text1","param$")
SetObjectParam("Text","param$")
Pause("10")
Next i

مي تونين يه دفعه ديگه قبول زحمت کنين و بهم ياد بدين که چطوري مي شه کاري کرد که متن رنگش هي عوض بشه و متوقف نشه اصلا ؟
مي دونم خيلي سرتون شلوغه و اذيت مي شين و پوزش ... و بابت همه چيزايي که تو اين مدت ازتون ياد گرفتم خالصانه مي گم :
MEr30

Little-Demon · Nov 13, 2006

ببخشید وارد بحث تخصصی شدم مگه نمیشه این قسمت کدها رو با یکم تغییر داخل یه اسکریپت بذارین

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

silvercover · Nov 14, 2006

ميتنوني با حلقه هاي تو در تو مشكل رو حل كني. كافيه كه كد بالا رو توي يه حلقه بينهايت محصور كني.

کد:

For k=1 To Infinity
  For i=1 To 255
    val1=i
    val2=i
    val3=i
    param$='TEXTCOLOR='+CHAR(val1)+','+CHAR(val2)+','+ CHAR(val3)
    SetObjectParam("Text","param$")
    LoadText("Text1","param$")
    Pause("10")
  Next i
  Pause("2000")
  For i=1 To 155
    val1=255-i
    val2=100+i
    val3=255-i
    param$='TEXTCOLOR='+CHAR(val1)+','+CHAR(val2)+','+ CHAR(val3)
    LoadText("Text1","param$")
    SetObjectParam("Text","param$")
    Pause("10")
  Next i
  Pause("2000")
  For i=1 To 55
    val1=200+i
    val2=160+i
    val3=55-i
    param$='TEXTCOLOR='+CHAR(val1)+','+CHAR(val2)+','+ CHAR(val3)
    LoadText("Text1","param$")
    SetObjectParam("Text","param$")
    Pause("10")
  Next i
Next k