If Val(TextBox1.Text) >= 1000 And Val(TextBox1.Text) <= 3054 Then If Val(TextBox2.Text) >= 7460 And Val(TextBox2.Text) <= 9000 Then If Val(TextBox3.Text) >= 6148 And Val(TextBox3.Text) <= 7614 Then If Val(TextBox4.Text) >= 3152 And Val(TextBox4.Text) <= 4867 Then 'ACTION A EXECUTER SI LA CLE EST BONNE Else 'ACTION SI ELLE EST FAUSSE End If End If End If End If
If Val(TextBox1.Text) > 999 And _ Val(TextBox1.Text) < 3055 And _ Val(TextBox2.Text) > 7459 And _ Val(TextBox2.Text) < 9001 And _ Val(TextBox3.Text) > 6147 And _ Val(TextBox3.Text) < 7615 And _ Val(TextBox4.Text) > 3151 And _ Val(TextBox4.Text) < 4868 Then 'ACTION A EXECUTER SI LA CLE EST BONNE Else 'ACTION SI ELLE EST FAUSSE End If
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click if textbox1.text >= 1175 and <= 4686 then msgbox("oui") else msgbox("non") end if End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click if textbox1.text >= 1175 <= 4686 then msgbox("oui") else msgbox("non") end if End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionif textbox1.text >= 1175n'est pas correcte
Private Sub Button1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick Dim num As Integer If Integer.TryParse(TextBox1.Text, num) Then If (num >= 1200) And (num <= 2400) Then MessageBox.Show("oui") Else MessageBox.Show("non") End If End If End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim num As Integer Dim num2 As Integer Dim num3 As Integer Dim num4 As Integer If Integer.TryParse(TextBox1.Text, num) And Integer.TryParse(TextBox2.Text, num2) And Integer.TryParse(TextBox3.Text, num3) And Integer.TryParse(TextBox4.Text, num3) Then If (num >= 1200) And (num <= 2400) Then ElseIf (num2 >= 2862) And (num <= 7354) Then ElseIf (num3 >= 3548) And (num <= 6843) Then ElseIf (num4 >= 1074) And (num <= 5467) Then MsgBox("ok") Else MsgBox("non") End If End If End Sub
Par contre, comment l'intrerpéter autrement ?
Mais alors comment pourrais-je faire mon programme ?
Dim num As Integer Dim num2 As Integer Dim num3 As Integer Dim num4 As Integer If Integer.TryParse(TextBox1.Text, num) And Integer.TryParse(TextBox2.Text, num2) And Integer.TryParse(TextBox3.Text, num3) And Integer.TryParse(TextBox4.Text, num3) Then If (num >= 1200) And (num <= 2400) Then If (num2 >= 2862) And (num <= 7354) Then If (num3 >= 3548) And (num <= 6843) Then If (num4 >= 1074) And (num <= 5467) Then MsgBox("ok") Else MsgBox("non") End If End If End If End If End If
Dim num As Integer Dim num2 As Integer Dim num3 As Integer Dim num4 As Integer If Integer.TryParse(TextBox1.Text, num) And Integer.TryParse(TextBox2.Text, num2) And Integer.TryParse(TextBox3.Text, num3) And Integer.TryParse(TextBox4.Text, num3) Then If (num >= 1200) And (num <= 2400) And If(num2 >= 2862) And (num <= 7354) And If(num3 >= 3548) And (num <= 6843) And If(num4 >= 1074) And (num <= 5467) Then MsgBox("ok") Else MsgBox("non") End If End If
Si la valeur de la textbox1 est entre 60 et 70 et que la valeur de la textbox2 est entre 10 et 30 et que la valeur de la textbox3 est entre 60 et 70 et que la valeur de la textbox4 est entre 100 et 200 alors
OUI
sinon
NON
Si la valeur de la textbox1 est entre 60 et 70 et que la valeur de la textbox2 est entre 10 et 30 et que la valeur de la textbox3 est entre 60 et 70 et que la valeur de la textbox4 est entre 100 et 200 alors
OUI
sinon
NON