تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
شرح انشاء برنامج تحويل صيغ الملفات الصوتيه
#1
السلام عليكم ورحمة الله وبركاته 

احببت ان اشارككم هاذا الموضوع 
لطريقة انشاء برنامج لتحويل صيغ المقاطع 
بسم الله نبدأ 


المتطلبات :

TextBox عدد 2

Button عدد 2

RadioButton عدد 6 
OpenFileDialog عدد 1


الشرح :
اولا نقوم بتغيير اسم الRadioButton الى انواع الصيغ التي سنحول لها 


ثانيا نقوم بتسمية الButton1 بـ: اختيار المقطع
و نقوم بتسمية الButton2 بـ: بتحويل

كود Button1 الخاص باختيار المقطع الصوتي :
كود :
OpenFileDialog1.ShowDialog()

كود Button2 الخاص بتحويل المقطع الصوتي :
كود :
Dim Type As String = TextBox2.Text
       If TextBox2.Text = "" Then
           MsgBox("قم باختيار الصيغه")
       End If
       If TextBox1.Text = "" Then
           MsgBox("قم باختيار الفيديو")

       End If
       MsgBox("تم التحويل" & TextBox1.Text)
       Dim OldFile As String = Mid(TextBox1.Text, 1, Len(TextBox1.Text) - 4)
       File.Copy(TextBox1.Text, OldFile + Type)

ننقر علىOpenFileDialog وندخل الكود الاتي:
كود :
       Dim File As String = OpenFileDialog1.FileName
       TextBox1.Text = File

والان بما اننا قمنا بوضع 6 من  RadioButton  الان نضع الكود الاتي  :
كود :
   Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
       TextBox2.Text = ".Avi"
   End Sub

   Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
       TextBox2.Text = ".Flv"
   End Sub

   Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
       TextBox2.Text = ".M4v"
   End Sub

   Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
       TextBox2.Text = ".Wav"
   End Sub

   Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
       TextBox2.Text = ".Mp3"
   End Sub

   Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
       TextBox2.Text = ".Mp4"
   End Sub


       
و الان انتهينا من البرنامج الشكل النهائي مع التعديل و تزيينه :

(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة: Adrees , Amir_alzubidy
#2
الله يعطيك العافية، إلى الأمام يا بدر التمام
عن مولا نا علي ابن أبي طالب عليه السلام :
أحصد الشر من صدر غيرك بقلعه من صدرك.
الرد }}}}
تم الشكر بواسطة: CLARO
#3
(28-05-16, 01:56 PM)khodor1985 كتب : الله يعطيك العافية، إلى الأمام يا بدر التمام

الله يعافيــــك  Heart
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#4
.............................................
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#5
يا كلارو،

تأكد من الموضوع ومن الملف المرفق.
الرد }}}}
تم الشكر بواسطة:
#6
شكرا على طرحك لهذا المثال لقد وجدت طريقة اخرى لكود التحويل و اعادة تعيين الصيغة اسهل للفهم و التنفيذ اود ان اضعه للافادة ارجو ان ينال اعجابكم

كود :
Dim o As New OpenFileDialog
       With o
           .Filter = "all files|*.*|sound files|*.mp3;*.wav"
           If .ShowDialog = Windows.Forms.DialogResult.OK Then
                              IO.File.Copy(.FileName, IO.Path.ChangeExtension(.FileName, InputBox("add extantion", "", "example .wav")))
               MsgBox("done")
           End If
       End With
الرد }}}}
تم الشكر بواسطة: CLARO
#7
(30-05-16, 10:01 PM)mohamed haroon كتب :
شكرا على طرحك لهذا المثال لقد وجدت طريقة اخرى لكود التحويل و اعادة تعيين الصيغة اسهل للفهم و التنفيذ اود ان اضعه للافادة ارجو ان ينال اعجابكم

كود :
Dim o As New OpenFileDialog
       With o
           .Filter = "all files|*.*|sound files|*.mp3;*.wav"
           If .ShowDialog = Windows.Forms.DialogResult.OK Then
                              IO.File.Copy(.FileName, IO.Path.ChangeExtension(.FileName, InputBox("add extantion", "", "example .wav")))
               MsgBox("done")
           End If
       End With

اهلا و سهلا نورت
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#8
شكرا جزيلا
سأعود قريباً ان شاء الله

الرد }}}}
تم الشكر بواسطة: CLARO
#9
بارك الله فيكم
الرد }}}}
تم الشكر بواسطة: CLARO
#10
نورتم <3 <3
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ( يبدو انني مزعج ) ممن عندهم خبره في vb.net هل يمكنك تحويل النص التالي إلى كود برمجي thevirus 2 143 21-11-16, 06:35 AM
آخر رد: أبو عمر
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 2 438 27-10-16, 04:03 PM
آخر رد: rafaag777
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 280 11-09-16, 07:20 AM
آخر رد: أبووسم
Star [مقال] كيفية تحويل اسعار العملات بإستخدام Yahoo Exchange Rates Web Service Programmation 8 2,486 26-08-16, 10:21 AM
آخر رد: tryold
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 0 262 09-07-16, 08:30 PM
آخر رد: mohamed atef2018
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 889 23-06-16, 01:13 PM
آخر رد: yasser_72
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 1 393 01-06-16, 10:20 PM
آخر رد: CLARO
Star [VB.NET] شرح عمل امتداد خاص لبرامجك وجعل برنامجك يقرأ هذة الملفات mohammed_gamal381 22 7,421 01-06-16, 02:55 PM
آخر رد: ابراهيم كركوكي
  شرح انشاء برنامج دردشة بسيط CLARO 0 252 28-05-16, 02:24 PM
آخر رد: CLARO
Wink عمل برنامج فك الضغط alking-0999 0 301 20-12-15, 06:32 PM
آخر رد: alking-0999

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم