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

belinelectronic

Criar um push-button

Recommended Posts

belinelectronic

ola amigos queria saber  como criar  push-button (botao de pressao) no  visual basic, em faça uma funçao e outra precebem tipo executar a funçao quando tiver a clicar  e desligar a funçao quando nao tiver a clicar ???  :thumbsup: :( :(obrigada..

JPAULINO: Titulo modificado


Carlos

Share this post


Link to post
Share on other sites
M@KO

vê lá se é isto:

  Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        TextBox1.Text = "down"
    End Sub

    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        TextBox1.Text = "up"

    End Sub

Share this post


Link to post
Share on other sites
black_Day

vê lá se é isto:

  Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        TextBox1.Text = "down"
    End Sub

    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        TextBox1.Text = "up"

    End Sub

M@KO, isto so muda o texto do button...


"O melhor Hacker e aquele que você não conhece..."

Share this post


Link to post
Share on other sites
jpaulino

M@KO, isto so muda o texto do button...

Sim, é verdade, mas quando o botão está em baixo pode executar uma função.

Não entendo bem qual é a ideia, mas certamente o belinelectronic vai dizer qualquer coisa :thumbsup:

Share this post


Link to post
Share on other sites
asworm

(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp

Esta parte não é desnecessária?


Got it?

Share this post


Link to post
Share on other sites
jpaulino

(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp

Esta parte não é desnecessária?

Se for .NET não!

Share this post


Link to post
Share on other sites
anolsi

Se for .NET não!

Mas estamos na secção de VB, não do VB.NET


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Share this post


Link to post
Share on other sites
belinelectronic

ola amigos obrigado por responderem a minha pergunta, vou experementar esses codigos depois digo se consegui o q queria..A minha ideia é enviar um certo byte em decimal pra a porta serie qundo tiver a clicar no botao e enviar outro byte  qundo nao tiver a carregar no botao, esses codigos ja tenho ja consigo ligar o led num botao e desligar o led noutro botao eu quero um só botao para as duas coisas. Isto tudo com o max232 e o pic 16f84. Sim é no visual basic é mais no 2008. Obrigado bom ano. :thumbsup: :(


Carlos

Share this post


Link to post
Share on other sites
belinelectronic

obrigado a todos amigos ja consegui o que queria ..parabens ao forum. Feliz ano novo para todos.. :cheesygrin: :cheesygrin:


Carlos

Share this post


Link to post
Share on other sites
M@KO

  Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        'aqui é o codigo pra ligar o led
    End Sub

    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        'aqui o codigo pra desligar

    End Sub

Com isto o led fica ligado enquanto tiveres o rato carregado e assim que largares o rato o led apaga. digo eu...:(

mas se nao te importares poe aqui o que fizes te com o max232 e o pic 16f84, gostava de ver.

:thumbsup:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.