منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : شرح انشاء برنامج تحويل صيغ الملفات الصوتيه (/showthread.php?tid=15945)

الصفحات: 1 2

شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - CLARO - 28-05-16

السلام عليكم ورحمة الله وبركاته 

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


المتطلبات :

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


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

لتحميل البرنامج من هنـــــــــــــــــــــــــــــــــــــا


RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - CLARO - 28-05-16

(28-05-16, 01:56 PM)khodor1985 كتب : الله يعطيك العافية، إلى الأمام يا بدر التمام

الله يعافيــــك  Heart

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - CLARO - 29-05-16

.............................................

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - الوادي - 30-05-16

يا كلارو،

تأكد من الموضوع ومن الملف المرفق.

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - mohamed haroon - 30-05-16

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

كود :
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


RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - CLARO - 30-05-16

(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

اهلا و سهلا نورت

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - Amir_Alzubidy - 31-05-16

شكرا جزيلا

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - ابراهيم كركوكي - 01-06-16

بارك الله فيكم

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - CLARO - 02-06-16

نورتم <3 <3

RE: شرح انشاء برنامج تحويل صيغ الملفات الصوتيه - ahmadpal - 01-11-18

الفكرة فقط يقوم بتغيير اسم الاكستنشن لملف الصوت او الفيديو