منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد باقي كود اذا ضغط اللاعب علي الاجابة الصحيحه يظهر له صوت تنبيه واذا اجابة خاطئة صوت اخر

Public Class Form1

    Sub Generate_question()
        'مدى القيم التي تظهر للمستخدم
        Dim a As Integer, b As Integer
        Dim Correct_answer As Integer, First_answer As Integer, Second_answer As Integer
        a = 0 ' بداية الاعداد
        b = 50 ' نهاية الاعداد
        TXT_N1.Text = (CInt(a + VBMath.Rnd() * (b - a) + 1) +
            DatePart(DateInterval.Second, Now)) Mod (b + 1)
        TXT_N2.Text = (CInt(a + VBMath.Rnd() * (b - a) + 1) +
            DatePart(DateInterval.Second, Now)) Mod (b + 1)

        Correct_answer = Val(TXT_N1.Text) + Val(TXT_N2.Text)

        First_answer = (CInt(0 + VBMath.Rnd() * (100 - 0) + 1) +
            DatePart(DateInterval.Second, Now)) Mod (100 + 1)
        While First_answer = Correct_answer
            First_answer = (CInt(0 + VBMath.Rnd() * (100 - 0) + 1) +
            DatePart(DateInterval.Second, Now)) Mod (100 + 1)
        End While

        Second_answer = (CInt(0 + VBMath.Rnd() * (100 - 0) + 1) +
            DatePart(DateInterval.Second, Now)) Mod (100 + 1)
        While Second_answer = Correct_answer Or Second_answer = First_answer
            Second_answer = (CInt(0 + VBMath.Rnd() * (100 - 0) + 1) +
            DatePart(DateInterval.Second, Now)) Mod (100 + 1)
        End While
        TXT_answer1.Text = Correct_answer
        TXT_answer2.Text = Second_answer
        TXT_answer3.Text = First_answer
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Call Generate_question()
    End Sub
End Class