الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في القراءه من السيدي

مغلق
بدأه hafs في 13 نوفمبر 2005 · 2 رد · 402 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أنا الآن أكملت تصميم وبرمجة برنامج بالفيجوال بيسك دوت نت والمهم في الموضوع إنه برنامج قارئ للأصوات بامتداد MP3 وهذه الملفات موجوده في على CD يعني ماتكون مخزنه على الجهاز زي البرامج اللي بتصمم من قبل بعض الشركات (وأنا مستخدم أداة Drive List Box وعن طريق استحدام API ومعرفة رقم Drive المحتوي على CD وطبعا رقمه 5 ) بس على جهازي اشتغل بس على جهاز الغير بعد التثبيت مارضي يشتغل :unsure: :unsure: والله ماعرفت المشكله فلو أحد يخمن معي المشكله <_< أو عنده طريقه تكون رهيبه لقراءة ملفات الصوت من CD :o بالله تكفون ردوا علي وجزاكم الله خيرا :rolleyes: :rolleyes:

مع تحيات أخوكم ومحبكم أبو حفص

فمن يباري أباحفص وسيرته *** أو من يحاول للفاروق تشبيها

#2
اقتباس
بس على جهاز الغير بعد التثبيت مارضي يشتغل  والله ماعرفت المشكله فلو أحد يخمن معي

يا اخى كيف نخمن المشكله انت اعرض المشكله ونشوفلك حل

حدد ايش المشكلة بالظبط او اسبابها فالبرنامج لا يراه احد الا انت :rolleyes:

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#3

بشويش علي ياأخ SOLO.NET سأبين لك الكود الخاص بقراءة الملف من الCD :

Sub PlaySound(ByVal Sound_file As String)

        Try

            Dim drvnm As String
            Dim drvtp As Int64
            Dim i As Integer

            If lbl_showname.Text = "" Then

                For i = 0 To dlb.Items.Count - 1

                    drvnm = Strings.Left(dlb.Items(i), 2) & "\"
                    drvtp = GetDriveType(drvnm)

                    If drvtp = 5 Then
                        PB_pause_2.Visible = True
                        PB_play_1.Visible = False

                        MP.Stop()
                        Tools_Panel.Enabled = True
                        lbl_showname.Text = "Play"
                        FullPath = drvnm & Sound_file & ".mp3"

                        show_pic(Sound_file)

                        MP.FileName = FullPath
                        MP.Play()
                        Timer1.Enabled = True
                    End If
                Next

            ElseIf lbl_showname.Text = "Play" Then

                lbl_showname.Text = "Pause"
                PB_play_1.Visible = True
                PB_pause_2.Visible = False

                MP.Pause()
                Timer1.Enabled = False

            ElseIf lbl_showname.Text = "Pause" Then

                lbl_showname.Text = "Play"
                PB_pause_2.Visible = True
                PB_play_1.Visible = False

                MP.Play()
                Timer1.Enabled = True
            End If

        Catch ex As Exception
            MsgBox("يجب وضع السيدي الخاص بالبرنامج في السواقه", MsgBoxStyle.Critical, "تنبيه")
        End Try

    End Sub

لاحظ في الجزء بعد FOR يقوم بقراءة الrives والبحث عن الخاص منها بCD ROM ليقرأ ملفات الصوت منه بعد اختيار المستخدم للملف الذي يحتاجه العمليه مزبوطه 100% لكن بعد السيت أب على جهاز الغير ماشتغل ولاأدري مالسبب

إن شاء الله وصلت الفكره

أرجو ذلك محبكم/أبو حفص

فمن يباري أباحفص وسيرته *** أو من يحاول للفاروق تشبيها

هذا الموضوع مغلق.

مواضيع مشابهة