[سعود]

الصراحة لقيت نفسي مجهز المثال هذا من غير اصرار

الصور وملفات الصوت في الريسورس

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.thanks, AudioPlayMode.Background)
                    PictureBox1.Image = My.Resources.tru
                Else
                    My.Computer.Audio.Play(My.Resources.wrong, AudioPlayMode.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.thanks, AudioPlayMode.Background)
                    PictureBox1.Image = My.Resources.tru
                Else
                    My.Computer.Audio.Play(My.Resources.wrong, AudioPlayMode.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.thanks, AudioPlayMode.Background)
                    PictureBox1.Image = My.Resources.tru
                Else
                    My.Computer.Audio.Play(My.Resources.wrong, AudioPlayMode.Background)
                    PictureBox1.Image = My.Resources.fal
                End If



        End Select
    End Sub


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles 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 Object, e As EventArgs) Handles Button1.Click
        If lblsec.Text.Length > 2 Then
            res()
        End If


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