• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Sir Pereira

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

9 mensagens neste tópico

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 :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
    If 5 Mod 2 <> 0 Then
      MsgBox("numero impar!")
    Else
      MsgBox("numero par!")
    End If

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 :P

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

Pra checkar uma checkbox é mais fácil fazer

Checkbox1.Enabled = NOT Checkbox1.Enabled

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora