(مهم و فوری) رفرش حافظه یا سی پی یو یا هر چیز دیگه؟

phontoms · Feb 17, 2014

سلام

یه فایل متنی دارم که در mmb اون رو فراخونی میکنم و بعد فایل به صورتی که انگار داره تایپ میشه نمایش داده میشه
یه چندتا هم فایل فلش و متحرک دارم
حالا مشکل اینجاست که وقتی برنامه شروع به تایپ می کنه برنامه دچار افت سرعت نمایش فریم های فلش و gif میشه
و وقتی یه فایل دیگه رو می خوام فراخونی کنم و محتواتش رو به صورت تایپ شونده نمایش بدم
دیگه برنامه باید چون بکنه تا بتونه این کار رو بکنه
و هیچ فریمی از فایل های فلش و gif نمایش داده نمیشه و همه چیز منطوری گیر میکنه

حالا می خواستم بدونم دوستان راحی بلد هستک که بشه حافظه مورد استفاده mmb رو refresh کرد
ممنون

باید این پروژه رو تا 3 روز دیگه تحویل بدم :cry:

arash-mmb-tz · Feb 17, 2014

با سلام دوست عزیز.

احتمالا شما برای تکرار کد ها از واحد میلی ثانیه استفاده می کنید. شما به جای دستور Pause و یا ScriptTimer ، از دستور Refresh استفاده کنید.

یا اگه از همون refresh استفاده می کنید ، به نظر من پروژه تون رو توی انجمن بزارید بهتره و بهتر می تونیم به شما کمک کنیم . یا اگه نمی خوایید اطلاعات پروژه تون فاش بشه همون قسمتی که با اون مشکل دارید رو توی انجمن بزارید.

یا حق

phontoms · Feb 18, 2014

سلام ممنون
وقتی روی گزینه مورد نظر کلیک میشه
کد زیر اجرا میشه

TSpeedN=20
BSpeedN=15
OpenFile$='F:\shahid\About Abas.txt'
ResStr$ = ''
i=0
EOL=0
r=0
LoadText("Text","ResStr2$")
ScriptTimer("TypeText","150")

بعد

LoadText("TextBTN","Stop Typing")
LoadText("Test$","OpenFile$")
StrLen= LEN(Test$)
i=i+1
If (i>StrLen) Then
RunScript("blinking")
Return()
End
GetStr$ = StrGet(Test$,i)
ORDval = ORD(GetStr$)
ResStr$= ResStr$ + GetStr$
ResStr2$ = ResStr$ + ' '
If (ORDval=13) Then
EOL=1
RunScript("blinking")
Return()
End
LoadText("Text","ResStr2$")
ScriptTimer("TypeText","TSpeedN")

و در آخر هم

If (Stop=1) Then
LoadText("TextBTN","Start Typing")
Return()
End
If (EOL=1) Then
r=r+1
If (r<7) Then
If (n=0) Then
ResStr2$ = ResStr$ + ' '
LoadText("Text","ResStr2$")
n=1
ScriptTimer("blinking","BSpeedN")
Return()
End
If (n=1) Then
ResStr2$ = ResStr$ + ' '
LoadText("Text","ResStr2$")
n=0
ScriptTimer("blinking","BSpeedN")
Return()
End
End
EOL=0
r=0
ScriptTimer("TypeText","TSpeedN")
End
If (n=0) Then
ResStr2$ = ResStr$ + ' '
LoadText("Text","ResStr2$")
n=1
ScriptTimer("TypeText","BSpeedN")
Return()
End
If (n=1) Then
ResStr2$ = ResStr$ + ' '
LoadText("Text","ResStr2$")
n=0
ScriptTimer("TypeText","BSpeedN")
Return()
End

برنامه دارای دکمه هست که رو هر کدوم کلیک بشه
یه متن خاصی اجرا میشه
چون وقت نداشتم هر کدوم رو تو یه پروژه دیگه اجرا کردم و بعد دونه دونه تو برنامه فراخونی کردم البته با فایل exe
حالا یه مشکل دارم
با شیء Binder کار کردم
و Show , Hide می کنم
اما حالا یه مشکل هست اون هم این که وگه یه شیء یک بار Show بشه و دفعه باز باز Show کنیمش اونوقت از ادامه اجرا میشه
کاری میشه کرد که هر بار کلیک میکنیم از اول اجرا بشه نه از ادامه؟
ممنون