my problem is that I need for ex.
L1Q1 + L2Q1 = numUpDowm1 + L4Q1 where the LQ are random
I added the code for easier understanding
Any help will be greatly appreciated
This work is being doe for a school in the Dominican Republic
Public Class frmBalanciarEcuaciones
Private Sub frmBalanciarEcuaciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private mezclador As New Random
Private L1Q1 As Integer
Private L2Q1 As Integer
Private L4Q1 As Integer
Private L1Q2 As Integer
Private L3Q2 As Integer
Private L4Q2 As Integer
Private L1Q3 As Integer
Private L3Q3 As Integer
Private L4Q3 As Integer
Private L1Q4 As Integer
Private L2Q4 As Integer
Private L4Q4 As Integer
Private L1Q5 As Integer
Private L2Q5 As Integer
Private L4Q5 As Integer
Private tiempo As Integer
Private terminasoundplayer = New System.Media.SoundPlayer("c:\Windows\Media\tada.wav")
Private tiemposoundplayer = New System.Media.SoundPlayer("c:\Windows\Media\chord.wav")
Public Sub StartQuiz()
'.... Darle los numero a los ? labels
L1Q1 = mezclador.Next(2, 30)
L2Q1 = mezclador.Next(20, 30)
L4Q1 = mezclador.Next(35)
lbl1Ques1.Text = L1Q1.ToString
lbl2Ques1.Text = L2Q1.ToString
lbl4Ques1.Text = L4Q1.ToString
numQues1.Value = 0
L1Q2 = mezclador.Next(35)
L3Q2 = mezclador.Next(2, 30)
L4Q2 = mezclador.Next(20, 30)
lbl1Ques2.Text = L1Q2.ToString
lbl3Ques2.Text = L3Q2.ToString
lbl4Ques2.Text = L4Q2.ToString
numQues2.Value = 0
L1Q3 = mezclador.Next(35)
L3Q3 = mezclador.Next(2, 30)
L4Q3 = mezclador.Next(20, 30)
lbl1Ques3.Text = L1Q3.ToString
lbl3Ques3.Text = L3Q3.ToString
lbl4Ques3.Text = L4Q3.ToString
numQues3.Value = 0
L1Q4 = mezclador.Next(2, 30)
L2Q4 = mezclador.Next(20, 30)
L4Q4 = mezclador.Next(35)
lbl1Ques4.Text = L1Q4.ToString
lbl2Ques4.Text = L2Q4.ToString
lbl4Ques4.Text = L4Q4.ToString
numQues4.Value = 0
L1Q5 = mezclador.Next(2, 20)
L2Q5 = mezclador.Next(20, 30)
L4Q5 = mezclador.Next(35)
lbl1Ques5.Text = L1Q5.ToString
lbl2Ques5.Text = L2Q5.ToString
lbl4Ques5.Text = L4Q5.ToString
numQues5.Value = 0
'.... Empezar el reloj
tiempo = 60
lblTiempo.Text = "60 Segundos"
Timer3.Start()
End Sub
Public Function RevisarRespuesta() As Boolean
Dim Answer1 As Integer
Dim Answer2 As Integer
Dim Answer3 As Integer
Dim Answer4 As Integer
Dim Answer5 As Integer
Dim Answer6 As Integer
Dim Answer7 As Integer
Dim Answer8 As Integer
Dim Answer9 As Integer
Dim Answer10 As Integer
Answer1 = L1Q1 + L2Q1
Answer2 = numQues1.Value + L4Q1
Answer3 = L1Q2 + numQues2.Value
Answer4 = L3Q2 + L4Q2
Answer5 = L1Q3 + numQues3.Value
Answer6 = L3Q3 + L4Q3
Answer7 = L1Q4 + L2Q4
Answer8 = numQues4.Value + L4Q4
Answer9 = L1Q5 + L2Q5
Answer10 = numQues5.Value + L4Q5
If Val(Answer1) = Val(Answer2) _
AndAlso Val(Answer3) = Val(Answer4) _
AndAlso Val(Answer5) = Val(Answer6) _
AndAlso Val(Answer7) = Val(Answer8) _
AndAlso Val(Answer9) = Val(Answer10) Then
Return True
Else
Return False
End If
End Function
Private Sub lblTiempo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTiempo.Click
End Sub
Private Sub lblTiempoRestante_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTiempoRestante.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
Me.Close()
frmInicio.Show()
End Sub
Private Sub btnIniciar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciar.Click
StartQuiz()
btnIniciar.Enabled = False
End Sub
Private Sub Timer3_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If RevisarRespuesta() Then
Timer3.Stop()
terminasoundplayer.Play()
MsgBox(" Esta bien hecho, ahora otro mas !!!")
btnIniciar.Enabled = True
ElseIf tiempo > 0 Then
tiempo -= 1
lblTiempo.Text = tiempo & " Segundos"
Else
Timer3.Stop()
tiemposoundplayer.play()
lblTiempo.Text = "Tiempo!"
MessageBox.Show("Usted no termino a tiempo.", "Sorry")
numQues1.Value = (L1Q1 + L2Q1) - L4Q1
numQues2.Value = (L3Q2 + L4Q2) - L1Q2
numQues3.Value = (L3Q3 + L4Q3) - L1Q3
numQues4.Value = (L1Q4 + L2Q4) - L4Q4
numQues5.Value = (L1Q5 + L2Q5) - L4Q5
btnIniciar.Enabled = True
End If
End Sub
Private Sub answer_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles numQues1.Enter, numQues2.Enter, _
numQues3.Enter, numQues4.Enter, numQues5.Enter
'.....Select the whole answer in the NumericcUpDown control.
Dim answerBox = TryCast(sender, NumericUpDown)
If answerBox IsNot Nothing Then
Dim lenghtOfAnswer = answerBox.Value.ToString().Length
answerBox.Select(0, lenghtOfAnswer)
End If
End Sub
End Class