تقييم الموضوع :
  • 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
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد }}}
تم الشكر بواسطة: سعود , 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 ك ب / التحميلات : 36)
الرد }}}
تم الشكر بواسطة: أبو عمر , LoveVb , anasmoner


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تشغيل ملف من الريسورس ابو روضة 13 3,961 25-09-20, 11:51 PM
آخر رد: Anas Mahmoud
  اضافة مجلد الى الريسورس ابو روضة 5 1,644 05-07-20, 01:19 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف اضيف file او صورة من الريسورس الي Byte farfour 0 1,173 07-01-20, 07:12 AM
آخر رد: farfour
  تشغيل ملف صوت او فيديو من الريسورس cvcvcv 15 8,742 26-12-18, 10:21 AM
آخر رد: سيف الله الشريف
  إختيار الصورة من الريسورس حافظ حافظ 2 1,797 15-09-18, 11:52 AM
آخر رد: elgokr
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 2,274 28-02-18, 11:24 AM
آخر رد: silverlight
  [سؤال] كيف اجعل زر او نافذة تساوى صورة ليست فى الريسورس ولكن على الجهاز؟؟؟ Mohamed371 3 2,244 24-03-17, 10:21 AM
آخر رد: أسامة السالمي
  طلب كود استخراج ملف exe من الريسورس MOSTAFA.KAMEL 4 3,095 20-03-17, 07:25 AM
آخر رد: سعود الشامان
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 2,951 23-12-16, 03:16 PM
آخر رد: silverlight
  [سؤال] لا يوجد مساحة كافية في الريسورس x7rBI 2 1,943 20-03-15, 02:21 AM
آخر رد: silverlight

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


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