تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] الريسورس
#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 ك ب / التحميلات : 40)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: أبو عمر , LoveVb , anasmoner


الردود في هذا الموضوع
الريسورس - بواسطة anasmoner - 01-09-16, 07:06 PM
RE: الريسورس - بواسطة سعود - 01-09-16, 07:38 PM
RE: الريسورس - بواسطة أبو عمر - 01-09-16, 08:14 PM
RE: الريسورس - بواسطة سعود - 01-09-16, 09:05 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اضافة ملف Pdf الى الريسورس واستخراجه الى مسار معين .. ackore 6 608 15-11-24, 02:51 AM
آخر رد: justforit
  تشغيل ملف من الريسورس ابو روضة 13 4,627 25-09-20, 11:51 PM
آخر رد: Anas Mahmoud
  اضافة مجلد الى الريسورس ابو روضة 5 1,915 05-07-20, 01:19 PM
آخر رد: ابراهيم ايبو
  [VB.NET] كيف اضيف file او صورة من الريسورس الي Byte farfour 0 1,353 07-01-20, 07:12 AM
آخر رد: farfour
  تشغيل ملف صوت او فيديو من الريسورس cvcvcv 15 9,528 26-12-18, 10:21 AM
آخر رد: سيف الله الشريف
  إختيار الصورة من الريسورس حافظ حافظ 2 2,004 15-09-18, 11:52 AM
آخر رد: elgokr
  [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب محمد اسماعيل 4 2,507 28-02-18, 11:24 AM
آخر رد: silverlight
  [سؤال] كيف اجعل زر او نافذة تساوى صورة ليست فى الريسورس ولكن على الجهاز؟؟؟ Mohamed371 3 2,459 24-03-17, 10:21 AM
آخر رد: أسامة السالمي
  طلب كود استخراج ملف exe من الريسورس MOSTAFA.KAMEL 4 3,567 20-03-17, 07:25 AM
آخر رد: سعود الشامان
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 3,297 23-12-16, 03:16 PM
آخر رد: silverlight

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


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