[RESOLVIDO] [VB.Net] Detectar números pares/ímpares

[Ivo Pereira]

Gostaria se é um possível descobrir se um número é par ou ímpar...

por exemplo queria fazer uma coisa com os if's, qualquer coisa como:

if numero=impar then
msgbox , , "numero impar!"
else
msgbox , , "numero par!"
end if

era qualquer coisa deste género, mesmo se o código tiver mal (não me admiro), ficaram com a ideia do que queria 🙂

[Asgorath]

Boas.

Usa o operador Mod

[seesharptec]

    If 5 Mod 2 <> 0 Then
      MsgBox("numero impar!")
    Else
      MsgBox("numero par!")
    End If

[Ivo Pereira]

bom eu vou dizer o proposito disto, ou já agora exprimo aqui o problema:

tenho uma checkbox, e por baixo uma (texbox.enabled = false), e queria que quando a checkbox tivesse checkada ficasse (textbox.enabled = true)... e o que eu tava a tentar fazer era um 'jogo' com um integer e depois cada vez que clicava na checkbox adiciona +1, logo se fosse valor par a checkbox tava checkada, caso contrário não estava... penso que haja uma maneira mais fácil de fazer isto....

sugestões?

[hma]

Podes interceptar o evento de mudança de estado da checkbox.

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

if me.checkbox1.checked then
me.textbox1.enabled = true
else
me.textbo1.enabled = false
end if

End Sub

ou, na forma resumida:

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

Me.Textbox1.Enabled = Me.Checkbox1.Checked

End Sub

[Ivo Pereira]

thanks 🙂 eu não acredito que andei todo atrapalhado com uma coisinha do + simples ?

tenho a impressão que até já tinha feito uma coisa muito semelhante, isso senão igual 😛

[Joca]

Public Class Form1

   'Não percebi a parte da tua dúvida que coloquei entre aspas
   'em baixo... Achei muito confuso... 
   'No entanto, se usas a checkbox para tornar enabled a TextBox1, 
   'para quê clicar nela para adicionar +1?
   'Dá a entender que se a mensagem fosse "impar" a CheckBox 
   'já não poderia estar checkada. Será isso?
   ' "e depois cada vez que clicava na checkbox adiciona +1, logo 
   'se fosse valor par a checkbox tava checkada, caso contrário 
   'não estava..."


   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       TextBox1.Enabled = False


   End Sub


   Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

       If CheckBox1.Checked Then

           TextBox1.Enabled = True

       End If

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       If Val(TextBox1.Text) Mod 2 <> 0 Then

           MessageBox.Show("Número impar!")

       Else
           MessageBox.Show("Número par!")

       End If



   End Sub

   
   
   
End Class

[Ivo Pereira]

Joca isso mesmo 🙂

[Cybernavigator]

Ok, já está resolvido, mas deixo aqui uma tip:

Pra checkar uma checkbox é mais fácil fazer

Checkbox1.Enabled = NOT Checkbox1.Enabled