واضح آرشیو وب فارسی:سایت ریسک: درباره اجرای اتوران فقط با سی دی Ehssan_it 21 بهمن 1385, 18:44سلام قبلا توی همین انجمن یک کد دیدم که اگه سی دی داخل سی دی رام بود اتوران اجرا بشه و اگر نبود خارج بشه (یا هر عمل دیگه) حالا من این کد رو در صفحه اول پروژه وارد کردم اگه سی دی بود وارد صفحه اطلی بشه واگه نبود یه پیغام بیاد که سی دی داخل سی دی رام نیست ولی این کد تو بعضی سی دی رام ها یا سی دی رایتر ها جواب نمیده و اگه سی دی باشه هم پیعام می ده سی دی داخی سی دی رام نیست چرا ؟ ؟ ؟ Little-Demon 21 بهمن 1385, 20:07احتمالا درست بعضی از سی دی رام ها رو نمیشناسه ....مطمئنید کد رو درست وارد کردید ؟ کارشناسان فنی؟ کجائید ؟ راستی شما یه نمونه بزار تا امتحانش کنیم..... Ehssan_it 21 بهمن 1385, 22:29بله کد ها درست وارد شده اند در بضی سی دی رام ها یا رایتر ها جواب نمی ندهد .::Mehran::. 22 بهمن 1385, 04:17شما میتونید کد هاتون رو بزارید ؟ من شاید تونستم یک کاری باراتون انجام بدم! Ehssan_it 22 بهمن 1385, 11:12اول یک فایل متنی باز کردم و اسم و فورمت ان را به edlp.opxتغیر دادم ( کد پائین) FileExist("<CD>edlp.opx","d") If (d=0) Then Message("Please insert CD.","") Exit() Else Page("Page 1") End mojtaba-saleh 22 بهمن 1385, 12:22کد مشکلی نداره و نباید کار نکنه در ضمن هیچ ربطی هم به نوع سی دی رام نداره این کد می گه اگه فایل edlp.opx وجود داشته باشه بره صفحه1 اگه نباشه خارج بشه. مگه اینگه سی دیش خش دار باشه و برنامه نتونه فایل رو بشناسه Ehssan_it 23 بهمن 1385, 09:05نه سی دی خش دار نیست مشکل من هم همین جاست چرا توی بعضی رایتر و رام ها نمی تونه ؟!!! .::Mehran::. 23 بهمن 1385, 11:31یکی از مشکلات Mmb این هست که فقط درایو اول سیستم رو شناسایی میکنه و این دستور <cd> فقط اون ادرس رو شامل میشه. silvercover 23 بهمن 1385, 13:50اول یک فایل متنی باز کردم و اسم و فورمت ان را به 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::. 23 بهمن 1385, 16:45این اقا میخواست طوری برنامه ریزی کنه که فایل ها را از سیدی چک کنه واگه در سیستم کپی شد پیغام خطا بده با فرمان شما اگه فایلها در سیستم هم باشن و فقط در مصیر جاری برنامه قرار داشته باشن بازم خطایی اعلام نمیکنه..... silvercover 23 بهمن 1385, 21:38این مثال رو ببینید که برای همه درایو ها کار میکنه : Ehssan_it 27 بهمن 1385, 14:37ممنون کد توی سیستم های که به قبلی قبلا جواب نمدادند جواب داد Ehssan_it 10 اسفند 1385, 11:25سلام من يک پروزه با 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 که اگرفايل ذکر شده در سي دي بود به صفحه دوم برود و اگر نبود با يک پيغام در صفحه اصلي بماند ولي کد کار نمي کند ايا کد مشکل داره ؟ silvercover 11 اسفند 1385, 13:58جواب شما در این پست نهفته هست: 5 دقیقه وقت بزارین کافی هست.
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1836]