هنگ mmb

kohan20

Member
mmb گاهی وقتی فشرده سازی که موقع کامپایل هست رو میزنی برنامه اجرا میشه بعد چند دقیقه هنگ میکنه

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

در کل برنامه تو کارهای محاسباتی نسبتا پیچیده هنگ داره باید چکار شه

من برنامم تو 3 صفحه است با 3 لیست باکس هر صفحه یکی که به صورت ضرب دری آدرس رو بدست میاره بعد میره اونو اجرا میکنه

مشکلش اینه وقتی exe می کنم بعد از 6-5 دقیقه کار با هاش هنگ میکنه بیرون میندازه هالا با فایل mmb یعنی فرمت mbd بدون مشکل کار میکنه
 

m javad

کاربر متخصص
تو آدرس دهی ها و دستورات اجرای exe هاتون یه تداخلی هست احتمالا.
یا کدها و یا اگر مقدور هست سورس رو بزارید
 

kohan20

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

اما نه که اجرا نشه پنج دقیقه که صفحاشو جابه جا می کنم هنگ میکنه

اما اگر کامپایل نشه بیشتر کار میده و 3 تا پلاگین هم روش نصبه یکی مال راست چین لیست باکس

یکی fa. برای فارسی کردن صفحه کلید یکی هم برای کپی و جابه جایی فایل

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

اغلب هم موقعی که یکم تعداد فایلها زیاد میشه گیر میده و موقعی که بیش از چند بار فایلها رو cut یا کپی کنم این اشکال پیش میاد

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

lod$=
'G:\file\[FONT=Courier New (Arabic)][FONT=Courier New (Arabic)][FONT=Courier New (Arabic)]مهندسي الکترونيک[/FONT][/FONT][/FONT]\aa.txt'


SongListLoad
("lod$","*.txt")

ListBoxGetSelectedItems
("ListBox","SelItems$,ItemNum$,#,count")

For
i=1 To count

nam2$=
GetArrayItem(ItemNum$,#,i)

nam2=
VAL(numitem$)

SelItems$=
GetArrayItem(SelItems$,#,i)

k1$=aa$+
'\k'+nam2$


**G:\file\mohandsy barg \k + add


***********sabat**********


********************


************


***********


NextPage()

Next
i



اما حالا با توجه به شماره گزینه انتخاب شده میره به صفحه بعد و


lod3$=aa$+'\k'+nam2$+'\feh (1).txt'
SongListLoad("lod3$","txt")
ListBoxAddItem("ListBox","<List>")

و در لیست باکس

ListBoxGetSelectedItems("ListBox","SelItems$,ItemNum$,#,count")
For i=1 To count
nam3$=GetArrayItem(ItemNum$,#,i)
nam3=VAL(nam3$)
SelItems$=GetArrayItem(SelItems$,#,i)
NextPage()
Next i

و با دابل کلیک دو باره مقداری رو ذخیره و میره برای سرچ کتاب که گاهی شاید 50 در صد مواقع همینجا هنگ میکنه

SearchForFiles("k4$","*.*")
RunScript("Script1")
ListBoxAddItem("ListBox","<List>")
**Pause("100")
ListBoxSortItems("ListBox","NAME")
**Pause("100")
SongListReset()
**Pause("100")
ListBoxGetItems("ListBox","<List>")

ودر لیست باکس

ListBoxGetSelectedItems("ListBox","SelItems$,ItemNum$,#,count")
For i=1 To count
numitem$=GetArrayItem(ItemNum$,#,i)
numitem=VAL(numitem$)
SelItems$=GetArrayItem(SelItems$,#,i)
Run("SelItems$","SelItems$")
open1$=open$+'\k1'
***********sabat**********
***********
Return()
Next i
دابل کلیک کنه کتاب باز میشه و از این حرفا

برنامه ای سادست

یک کتابخانه هوشمنده که کتابها رو دسته بندی کردم و هر یک را در یک پوشه به نام k1 دسته بندی کردم که اطلاعاتش تو txt است و درون اون پوشه هم زیر شاخه هاش درون پوشه هایی به نام k1 تا kn است درون اون پوشه ها رو فایل ریختم که mmb اونجا رو سرچ میکنه مثلا نمونش

file>>mmb>>k1 to kn>>k1 to kn>> serch

بترتیب کل فایلها>>پوشه mmb فایلش txt است>>انتخاب از لیست باکس که مثلا نوشته برنامه و مثال که از فایل txt خوانده میشه و به کد قبلی یه k و شماره numitem$=GetArrayItem(ItemNum$,#,i) اضافه میشه >>زیر شاخه ها که در فایل txt است که مانند قبلی بین k1 to kn انتخاب میشه طبق شماه زده شده در mmb>> درون این پوشه سرچ میشه
 

m javad

کاربر متخصص
از این چیز زیادی نمیشه متوجه شد
اگر براتون مقدور هست سورس رو ایمیل کنید یا بزارید اینجا
 

جدیدترین ارسال ها

بالا