تقييم الموضوع :
  • 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
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابسط كود لرفع الملفات عن طريق سيرفر FTP Basil Abdallah 0 100 06-01-17, 03:23 PM
آخر رد: Basil Abdallah
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 4 661 01-01-17, 05:20 PM
آخر رد: Basil Abdallah
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 2 504 31-12-16, 11:46 PM
آخر رد: Basil Abdallah
  عمل برنامج FTP Upload Basil Abdallah 3 145 31-12-16, 11:46 PM
آخر رد: Basil Abdallah
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 1 413 31-12-16, 11:44 PM
آخر رد: Basil Abdallah
Question [مقال] كيف تعرف عدد مستخدمين برنامج Basil Abdallah 6 212 31-12-16, 10:32 PM
آخر رد: Basil Abdallah
  [مشروع] تعلم كيف تصنع برنامج لنشر منشورات لحساب الفيس بوك الخاص بك Basil Abdallah 6 208 31-12-16, 09:23 PM
آخر رد: Basil Abdallah
  التعامل مع الملفات الصوتية ........دردشة برمجية RaggiTech 7 3,390 26-12-16, 02:40 AM
آخر رد: sayed fox
  [VB.NET] ( يبدو انني مزعج ) ممن عندهم خبره في vb.net هل يمكنك تحويل النص التالي إلى كود برمجي thevirus 2 217 21-11-16, 06:35 AM
آخر رد: أبو عمر
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 413 11-09-16, 07:20 AM
آخر رد: أبووسم

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


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