[CLARO]

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

احببت ان اشارككم هاذا الموضوع 

لطريقة انشاء برنامج لتحويل صيغ المقاطع 

بسم الله نبدأ 

المتطلبات :

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

       

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

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

[CLARO]

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

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

[CLARO]

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

[الوادي]

يا كلارو،

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

[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

[CLARO]

(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

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

[Amir_Alzubidy]

شكرا جزيلا

[ابراهيم كركوكي]

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

[CLARO]

نورتم <3 <3

[ahmadpal]

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