یک سوال تقریبا تا قسمتی نیمه حرفه ای ...

[Mohammad_amour]

آقا سلام به همه :
یه موردی هست که چند وقتی یه که بد جوری منو ریخته به هم :wacko:
توی Visual Basic وقتی که با media player یه آهنگی را پلی می کنی باید به اون مسیر بدی.
حالا اگه خواستیم این آهنگ از روی سی دی اجرا کنیم قضیه فرق می کنه .
چون تو هر کامپیوتری درایو سی دی رام فرق فوکوله . پس نمی تونی آدرس یک درایو ثابت را بهش
بدی. این وسط یه تابعی چیزی باید باشه تا به هنگام اجرای آهنگ از روی سی دی نام درایو
سی دی رام را برگردونه .
حالا هر می تونه کمک کنه بسم الله...
فعلا بای
:) :)

[SherlockHolmes]

از توابع api کمک بگیر!!

[SherlockHolmes]

یه همچین چیزی میخوای دیگه؟!
http://www.mentalis.org/tips/tip053.shtml

[Mohammad_amour]

شرلوک جان از کمکت ممنون
ولی نمی دونم شما منظور منو متوجه نشدی یا من از ماجول ها چیزی متوجه نشدم
(یعنی شدم ولی یه حالی بود) :wacko:
البته فکر می کنم دومی درست باشه :d :d
ببین اگه مطمئنی که اون چیزیه که من می خوام لطف کن فقط اون قسمتی را که من می خوام
تشریحش کن ... (چی گفتم !!)
ممنون
:) :)

[emad86_20011]

با همین که شرلوک گفت میتونی به دست بیاری!!
باید اسم هر درایو بدی به این برنامه تا بهت بگه چه نوع درایوی هست!! بعد که تشخیص دادی سی دی رام هست ازش استفاده کن!!
اونجایی که نوشته:
Drive = "F:\" 'Enter the driverletter you want
باید اسم درایوت رو بنویسی!
اگه DriveeType یک شد یعنی وجود نداره!!
اگه دو شد یعنی فلاپی دیسک درایو
اگه 3 یعنی یکی از درایو های هارد
اگه 5 یعنی سی دی رام!

این عدد ها رو به صورت تجربی گفتم!! شاید اون یک و دو و سه و... معانی دیگه ای هم داشته باشه http://qsmile.com/qsimages/306.gif

[Mohammad_amour]

آقا اینو هر کاریش می کنم نمی شه !!
آخرش باید اسم درایو رو یه جوری بهش بدی (تو همون متغیر Drive)
اگه زحمتی نیست بیشتر راهنمایی کنید :sad:
بای

[Asef]

بيا عزيزم اين احتمالا بايد مشكلتو حل كنه:
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the graphic mode to persistent
Me.AutoRedraw = True
'Get information about the C:\
Select Case GetDriveType("C:\")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub

[Mohammad_amour]

آقا این که همون شد !! :wacko: :wacko:
فقط به جای if از select استفاده شده. اگه دقت کنی می بینی که بازم جلوی select از اسم یک
درایو خاص استفاده شده . من می خوام اسم درایو سی دی رام را پیدا کنه و بعد در آدرسی
مثل این به کار ببره : ("mediaplayer1.open("Ali\ali.mp3

[Asef]

خب يه حلقه فور اضافه كن كل درايو هارو چك كنه هركدوم كه سي دي رام بود روش كار كن ...

[emad86_20011]

فك كنم اين هموني باشه كه ميخواي!!
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
Dim i
For i = 65 To 90
If GetDriveType(Chr(i) & ":\") = 5 Then MsgBox Chr(i) & ":\ is a CD-ROM/DVD-ROM"
Next
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net (mailto:KPDTeam@Allapi.net)
'Set the graphic mode to persistent
End Sub
Private Function is_CDROM(MyDrive As String) As Boolean
Select Case GetDriveType("C:\")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case Is = 4
Me.Print "Remote"
Case Is = 5
Me.Print "Cd-Rom"
Case Is = 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Function

[Asef]

درسته! البته بهتره خود درايو ها رو هم بدست بياري از يه driveListBox ميشه استفاده كرد. يا توابع api

[Mohammad_amour]

سلام به همگی :
آقا دست همه در نکنه . واقعا که یه حال اساسی دادید !! :) :) :)
بالاخره با کدهایی که عماد جان داده بود و اضافه کردن چندتا تابع دیگه تونستم به هدف نهایی
برسم. از آسف و شرلوک عزیز هم به خاطر راهنمایی هایشان که بسیار کمکم کرد ممنونم .
بازم اگه سوالی بود ازتون می پرسم.
ای ول
:wink:

[emad86_20011]

اون كد ها رو كه آسف داد!! من فقط يه حلقه for اضافه كردم!!
ولي يه ضرب المثل قديمي ميگه!! كار را كه كرد؟ آن كه تمام كرد http://qsmile.com/qsimages/243.gif

[Mohammad_amour]

سلام به همگی :
بازم من اومدم. بازم با سوال اومدم.بابت کمک هایی که کردید ممنون .ولی یه مشکل دیگه:sad:
در ماجولی که معرفی کرده بودید چون من زیاد از ماجول ها سردر نمیارم به جز یه تعریف متغیر و
یه Private و Function چیز دیگه ای نفهمیدم. لطف کنید یه توضیحی درباره این خط بدید . ما که
نتونستیم یه نمره درست و حسابی بگیریم لااقل شماها کمک کنید یه چیزی بگیریم:sad:
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
فعلا بای :wink:

[Mohammad_amour]

راستی یه سوال دیگه :
یه component چیزی تو visual سراغ دارید که بشه باهاش تصاویر Gif را نشون داد.من از
کامپوننت Animation Gif Control استفاده کردم (ظاهرا مال DAP هستش) ولی سریال می خواد
که اونم پولیه!!

[Mohammad_amour]

آقا یکی توروخدا جواب این سوال منو بدهد.بدجوری احتیاج دارم.
مرثی.بای

[emad86_20011]

اگه سرچ كني ميتوني كامپوننتي گير بياري كه مجاني باشه!! آصف در زمينه GIF بيشتر تخصص داره!! اگه چيزي پيدا كردم ميزارم اينجا!!:)

[emad86_20011]

ببين به اينا يه نگاهي بنداز!! نحوه كار با gif رو ياد ميگيري!!
Gif Sample (http://www.planetsourcecode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabet ical&txtCriteria=gif viewer&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=QuickSearch)
اين يكي هم كه اتچ كردم از همونجا پيدا كردم!!

[Mohammad_amour]

بازم سلام :
عماد جان دستت درد نکنه ولی کدهاش خیلی ناجور بود :wacko: :wacko: :wacko: :wacko:
ببین من یه چیزی می خوام که کامپوننت باشه . آخه برا هر چیزی که به کار می برم بعدا باید
کامل توضیح بدم :d اونم که بخوام توضیح بدم :blink:
اگه یکی بتونه سوال اولم رو جواب بده که دیگه خییییییییییلی دستش درد نکنه

[emad86_20011]

بازم سلام :
عماد جان دستت درد نکنه ولی کدهاش خیلی ناجور بود :wacko: :wacko: :wacko: :wacko:
ببین من یه چیزی می خوام که کامپوننت باشه . آخه برا هر چیزی که به کار می برم بعدا باید
کامل توضیح بدم :d اونم که بخوام توضیح بدم :blink:
اگه یکی بتونه سوال اولم رو جواب بده که دیگه خییییییییییلی دستش درد نکنه
ميتوني براي نمايش gif ها از كامپوننت DHTML Edit استفاده كني!!
يه نمونشو اتچ كردم!!

در مورد سوال اولت هم منتظر بودم يكي بياد جواب بده!! آخه من نميتونم درست حسابي بگم!!
در اون خط مياد يه تابع تعريف ميكنه به اسم GetDriveType كه از تو كتابخونه kernel32 انتخاب شده و اسمش هست GetDriveTypeA
ميتوني از اون Alias استفاده نكني ولي بايد اسم تابع رو به GetDriveTypeA تغيير بدي!!
به بيان بهتر يه تابع هست تو كتابخونه Kernel32 به اسم GetDriveTypeA كه ميخوايم ازش استفاده كنيم!! و ما تو برناممون اونو به اسم GetDriveType تعريف ميكنيم!!
منظور از Lib هم همون Library