17-11-19, 01:40 AM
اريد باقي كود اذا ضغط اللاعب علي الاجابة الصحيحه يظهر له صوت تنبيه واذا اجابة خاطئة صوت اخر
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
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