درباره اجرای اتوران فقط با سی دی

Ehssan_it · Feb 10, 2007

درباره اجرای اتوران فقط با سی دی+یک مشکل نو

سلام
قبلا توی همین انجمن یک کد دیدم که اگه سی دی داخل سی دی رام بود اتوران اجرا بشه و اگر نبود خارج بشه (یا هر عمل دیگه)
حالا من این کد رو در صفحه اول پروژه وارد کردم اگه سی دی بود وارد صفحه اطلی بشه واگه نبود یه پیغام بیاد که سی دی داخل سی دی رام نیست
ولی این کد تو بعضی سی دی رام ها یا سی دی رایتر ها جواب نمیده و اگه سی دی باشه هم پیعام می ده سی دی داخی سی دی رام نیست
چرا ؟ ؟ ؟

Little-Demon · Feb 10, 2007

احتمالا درست بعضی از سی دی رام ها رو نمیشناسه ....مطمئنید کد رو درست وارد کردید ؟

کارشناسان فنی؟ کجائید ؟ راستی شما یه نمونه بزار تا امتحانش کنیم.....

Ehssan_it · Feb 10, 2007

بله کد ها درست وارد شده اند
در بضی سی دی رام ها یا رایتر ها جواب نمی ندهد

.::Mehran::. · Feb 11, 2007

شما میتونید کد هاتون رو بزارید ؟ من شاید تونستم یک کاری باراتون انجام بدم!

Ehssan_it · Feb 11, 2007

اول یک فایل متنی باز کردم و اسم و فورمت ان را به edlp.opxتغیر دادم ( کد پائین)

FileExist("<CD>\edlp.opx","d")
If (d=0) Then
Message("Please insert CD.","")
Exit()
Else
Page("Page 1")
End

mojtaba-saleh · Feb 11, 2007

کد مشکلی نداره و نباید کار نکنه
در ضمن هیچ ربطی هم به نوع سی دی رام نداره
این کد می گه اگه فایل edlp.opx وجود داشته باشه بره صفحه1 اگه نباشه خارج بشه. مگه اینگه سی دیش خش دار باشه و برنامه نتونه فایل رو بشناسه

Ehssan_it · Feb 12, 2007

نه سی دی خش دار نیست
مشکل من هم همین جاست چرا توی بعضی رایتر و رام ها نمی تونه ؟!!!

.::Mehran::. · Feb 12, 2007

یکی از مشکلات Mmb این هست که فقط درایو اول سیستم رو شناسایی میکنه و این دستور <cd> فقط اون ادرس رو شامل میشه.

silvercover · Feb 12, 2007

Ehssan_it گفت:
اول یک فایل متنی باز کردم و اسم و فورمت ان را به edlp.opxتغیر دادم ( کد پائین)

FileExist("<CD>\edlp.opx","d")
If (d=0) Then
Message("Please insert CD.","")
Exit()
Else
Page("Page 1")
End

کد:

FileExist("<SrcDir>\edlp.opx","d")
If (d=0) Then
  Message("Please insert CD.","")
  Exit()
Else
  Page("Page 1")
End

این رو امتحان کن...

.::Mehran::. · Feb 12, 2007

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

silvercover · Feb 12, 2007

این مثال رو ببینید که برای همه درایو ها کار میکنه :

Ehssan_it · Feb 16, 2007

ممنون کد توی سیستم های که به قبلی قبلا جواب نمدادند جواب داد

Ehssan_it · Mar 1, 2007

سلام
من يک پروزه با 2 صفحه دارم تو صفحه اول کد زير رو گذاشتم

For i=1 To Infinity
FileExist("<CD>\er.zip","stat")
If (stat=1) Then
Page("Page 1")
Break()
Else
Message("لطفا سي دي را قرار دهيد","")
Break()
Exit()
End
Next i

که اگرفايل ذکر شده در سي دي بود به صفحه دوم برود و اگر نبود با يک پيغام در صفحه اصلي بماند
ولي کد کار نمي کند ايا کد مشکل داره ؟