تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الريسورس
#1
السلام عليكم ورحمة الله وبركاته
لدي سؤال بسيط بإذن الله
وهو كيف اشغل مقطع صوتي موجود في الريسورس يعني مثلا 4+7 وعندما يكتب 11 يقول له أحسنت انا استطيع استدعائه بمسار ملف عندي ولكن لم استطع تشغيله عندما 
اضعه في الريسورس ونفس الطريقة اريد تشغيل مقطع فيديو وشكرا. Heart
الرد }}}}
تم الشكر بواسطة: سعود
#2
https://msdn.microsoft.com/en-us/library....100).aspx
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أبو عمر , anasmoner , LoveVb
#3
https://www.youtube.com/watch?v=FEfST1-9oFk
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: سعود , anasmoner , LoveVb
#4

الصراحة لقيت نفسي مجهز المثال هذا من غير اصرارSmile
الصور وملفات الصوت في الريسورس
PHP كود :
Imports System.IO

Public Class Form1
    Dim o 
As New List(Of String)
 
   Dim numbers As New List(Of String)

 
   Private Function gn() As String
        Return numbers
(Int(Rnd() * numbers.Count))
 
   End Function

 
   Private Function geno() As String
        Return o
(Int(Rnd() * o.Count))
 
   End Function



 
   Private Function geto() As String
        Dim op 
As String lblsec.Text
        If op
.ToString.ToLower.Contains("*"Then
            Return 
"*"
 
       ElseIf op.ToString.ToLower.Contains("-"Then
            Return 
"-"
 
       ElseIf op.ToString.ToLower.Contains("+"Then
            Return 
"+"
 
       Else
            Return 
""
 
       End If
 
   End Function


 
   Private Sub res()
 
       Select Case geto()
 
           Case "*"
 
               If Val(TextBox1.Text) = Val(lblsec.Text.Split("*")(0)) * Val(lblsec.Text.Split("*")(1)) Then
                    My
.Computer.Audio.Play(My.Resources.thanksAudioPlayMode.Background)
 
                   PictureBox1.Image My.Resources.tru
                Else
                    My
.Computer.Audio.Play(My.Resources.wrongAudioPlayMode.Background)
 
                   PictureBox1.Image My.Resources.fal
                End 
If

 
           Case "-"
 
               If Val(TextBox1.Text) = Val(lblsec.Text.Split("-")(0)) - Val(lblsec.Text.Split("-")(1)) Then
                    My
.Computer.Audio.Play(My.Resources.thanksAudioPlayMode.Background)
 
                   PictureBox1.Image My.Resources.tru
                Else
                    My
.Computer.Audio.Play(My.Resources.wrongAudioPlayMode.Background)
 
                   PictureBox1.Image My.Resources.fal
                End 
If



 
           Case "+"

 
               If Val(TextBox1.Text) = Val(lblsec.Text.Split("+")(0)) + Val(lblsec.Text.Split("+")(1)) Then
                    My
.Computer.Audio.Play(My.Resources.thanksAudioPlayMode.Background)
 
                   PictureBox1.Image My.Resources.tru
                Else
                    My
.Computer.Audio.Play(My.Resources.wrongAudioPlayMode.Background)
 
                   PictureBox1.Image My.Resources.fal
                End 
If



 
       End Select
    End Sub


    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        o
.Add("*")
 
       o.Add("-")
 
       o.Add("+")

 
       numbers.Add("0")
 
       numbers.Add("1")
 
       numbers.Add("2")
 
       numbers.Add("3")
 
       numbers.Add("4")
 
       numbers.Add("5")

 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        If lblsec
.Text.Length 2 Then
            res
()
 
       End If


 
       lblsec.Text gn() & geno() & gn()
 
   End Sub
End 
Class 


الملفات المرفقة
.zip   PlaySoundInResource.zip (الحجم : 240.59 ك ب / التحميلات : 12)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: أبو عمر , LoveVb , anasmoner


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] لا يوجد مساحة كافية في الريسورس x7rBI 2 361 20-03-15, 02:21 AM
آخر رد: silverlight
  [VB.NET] مطلوب مثال برنامج تحميل من الريسورس ال مسار x7rBI 13 1,030 19-03-15, 09:35 PM
آخر رد: سعود
  [سؤال] كيف افتح ملف (وورد) من الريسورس؟ led 3 418 30-12-14, 01:41 PM
آخر رد: hassan
  [سؤال] سوال مهم بخصوص الريسورس hassan 4 578 24-07-14, 10:12 PM
آخر رد: سعود
  [كود] كود ارسال مافي الريسورس في ملف البرنامج hassan 9 1,694 02-06-14, 08:58 PM
آخر رد: hassan
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 3 514 30-06-13, 05:58 PM
آخر رد: المبرمج الاسطورى
  تشغيل ملف صوت او فيديو من الريسورس cvcvcv 14 1,704 29-05-13, 09:33 PM
آخر رد: @@أبورائد@@
  اريد الحصول على كل الصور التى فى الريسورس ثم عمل تكرار لعرضها فى بكتشر بوكس ali.alfoly 11 1,145 15-05-13, 10:48 AM
آخر رد: just.coder
  تعريف طريقة جلب ملف من الريسورس ali.alfoly 5 892 07-05-13, 11:41 AM
آخر رد: ali.alfoly
  مساعدة فى جلب صورة من الريسورس ali.alfoly 11 758 05-05-13, 01:35 PM
آخر رد: ali.alfoly

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


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