(28-05-16, 01:54 PM)CLARO كتب :السلام عليكم ورحمة الله وبركاته
احببت ان اشارككم هاذا الموضوعلطريقة انشاء برنامج لتحويل صيغ المقاطعبسم الله نبدأ
المتطلبات :
TextBox عدد 2
Button عدد 2
RadioButton عدد 6OpenFileDialog عدد 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
و الان انتهينا من البرنامج الشكل النهائي مع التعديل و تزيينه :
لتحميل البرنامج من هنـــــــــــــــــــــــــــــــــــــا
الرابط لايعمل ممكن اعادة رفعه وجزاكم الله خير