valores de txt para lbl

[Emerson santos 0]

então eu comecei a entrar na linguagem agora mais eu estou perdido

o que eu não estou entendendo é o seguinte

eu tenho que fazer com que a variavel integer leia o valor de um txtValor e ao clicar em btnregistrar e depois no btnMostrarValor ele tem que aparecer em um label e eu não to conseguindo fazer isso porfavor me ajudem

 

Public Class Form1
 Dim variavelA As Integer
 Dim variavelB As Integer


 Private Sub btnFechar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFechar.Click
 Close()
 End Sub

 Private Sub btnResgistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResgistrar.Click
 variavelA = txtValorA.Text
 variavelB = txtValorB.Text
 If Not IsNumeric(txtValorA.Text) Then
 MessageBox.Show("Somente 0 ou 1", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Warning)
 Exit Sub
 End If
 If Not IsNumeric(txtValorB.Text) Then
 MessageBox.Show("Somente 0 ou 1", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Warning)
 Exit Sub
 End If
 If txtValorA.Text = "" Then
 MessageBox.Show("Digite 0 ou 1", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Warning)
 Exit Sub
 End If
 If txtValorB.Text = "" Then
 MessageBox.Show("Digite 0 ou 1", "Erro", MessageBoxButtons.OK, MessageBoxIcon.Warning)
 Exit Sub
 End If
 End Sub
 Private Sub btnValorA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnValorA.Click
 variavelA = Val(txtValorA.Text = "")
 lblvalorA.Text = txtValorA.Text
 End Sub
End Class

[scorpio 7]

só isso aqui

lblvalorA.Text = txtValorA.Text

 

já nao funciona ?

[Nilson Cl. 0]

Boa Tarde Emerson

 

segue codigo de exemplo de como você pode obeter o resultado qeu você quer.

 

segue link com o projeto que o codigo esta abaixo

www.ncmd.com.br/download/MostraValor.zip

 

Public Class Form1
    Dim variavelA As Integer
    Dim variavelB As Integer

    Private Sub btnResgistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResgistrar.Click
        If IsNumeric(txtValor.Text) Then
            variavelA = txtValor.Text
        Else
            MsgBox("Valor para registrar, não informado", MsgBoxStyle.Information)
            txtValor.Focus()
        End If
    End Sub

    Private Sub btnMostrarValor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMostrarValor.Click
        'Obs.: 
        'Uma variavel integer sempre é um numero inteiro, não tem decimais
        'Para obeter um valor com casas decimais use a variavel do tipo double.

        lblMostraValor.Text = FormatNumber(variavelA, 2)
    End Sub
End Class

[Emerson santos 0]

Boa Tarde Emerson

 

segue codigo de exemplo de como você pode obeter o resultado qeu você quer.

 

segue link com o projeto que o codigo esta abaixo

www.ncmd.com.br/download/MostraValor.zip

 

Public Class Form1
    Dim variavelA As Integer
    Dim variavelB As Integer

    Private Sub btnResgistrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnResgistrar.Click
        If IsNumeric(txtValor.Text) Then
            variavelA = txtValor.Text
        Else
            MsgBox("Valor para registrar, não informado", MsgBoxStyle.Information)
            txtValor.Focus()
        End If
    End Sub

    Private Sub btnMostrarValor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMostrarValor.Click
        'Obs.: 
        'Uma variavel integer sempre é um numero inteiro, não tem decimais
        'Para obeter um valor com casas decimais use a variavel do tipo double.

        lblMostraValor.Text = FormatNumber(variavelA, 2)
    End Sub
End Class

 

 

 

 

 

---------------------------------

 

então ele funciona sim só que eu queria que label não apareça quando eu der play no programa

quando eu coloco no propreties visible false ele não aparece o numero poderiam me falar porque

[Nilson Cl. 0]

Bom dia Emerson

 

Que esta propriedade ela oculta o objeto.

 

para mostrar o valor alem de você passar o valor, deverar mudar o valor da propriedade para true

 

lblMostraValor.Visible=True 

se você quiser ocultar o objeto muda o valor para false veja abaixo

 

lblMostraValor.Visible=False

deste modo você oculta o objeto e mostra o mesmo, apenas mudando o valor da propriedade Visible para true ou false

 

t+

[Emerson santos 0]

Bom dia Emerson

 

Que esta propriedade ela oculta o objeto.

 

para mostrar o valor alem de você passar o valor, deverar mudar o valor da propriedade para true

 

lblMostraValor.Visible=True 

se você quiser ocultar o objeto muda o valor para false veja abaixo

 

lblMostraValor.Visible=False

deste modo você oculta o objeto e mostra o mesmo, apenas mudando o valor da propriedade Visible para true ou false

 

t+

 

e tipo assim eu digito o numero mas quando eu aperto btn ele mostra o numero mais ,00

exemplo:

txt 12 aperto registrar e mostrar valor de a ai no lbl aparece 12,00 e eu não queria que aparecesse esse ",00"

[Nilson Cl. 0]

Boa tarde Emerson

 

Basta você colocar desta maneira.

 

Codigo no exemplo acima.

lblMostraValor.Text = FormatNumber(variavelA, 2)

Codigo modificado nova maneira.

lblMostraValor.Text = variavelA

[Emerson santos 0]

Boa tarde Emerson

 

Basta você colocar desta maneira.

 

Codigo no exemplo acima.

lblMostraValor.Text = FormatNumber(variavelA, 2)

Codigo modificado nova maneira.

lblMostraValor.Text = variavelA

MUITO OBRIGADO VOCÊS ME AJUDARAM MUITO MAS NA VERDADE EU GOSTARIA DE FAZER TODO ISSO SOZINHO

QUERIA MESMO É TER UMA AULA ONLINE MAS COMO EU NÃO ACHO EU VOU TER QUER IR QUEBRANDO A CABEÇA E PEDINDO AJUDA DE VOCÊS MUITO OBRIGADO

ATÉ +

[Emerson santos 0]

 

Boa tarde Emerson

 

Basta você colocar desta maneira.

 

Codigo no exemplo acima.

lblMostraValor.Text = FormatNumber(variavelA, 2)

Codigo modificado nova maneira.

lblMostraValor.Text = variavelA

MUITO OBRIGADO VOCÊS ME AJUDARAM MUITO MAS NA VERDADE EU GOSTARIA DE FAZER TODO ISSO SOZINHO

QUERIA MESMO É TER UMA AULA ONLINE MAS COMO EU NÃO ACHO EU VOU TER QUER IR QUEBRANDO A CABEÇA E PEDINDO AJUDA DE VOCÊS MUITO OBRIGADO

ATÉ +

 

olha eu aki de novo agora eu tenho um projeto com que tenhe um picturebox e um um lblPainel

essse pictorebox ele faz um movimento vai e vem (da esquerda pra direita) e o lblPainel tem que fazer a mesmo a coisa só que

quando ele for pra esquerda ele vai estar escrito(picachu andando pra esquerda) e para direita (picachu andando para direita)

EU JA CONSEGUI COLOCAR ELE PRA ANDAR PRA ESQUERDA SÓ QUE QUANDO EU COLOCO ELE PRA ANDAR PRA DIREITA ELE DA UM ERRO ASSIM

 

O índice e o comprimento devem se referir a um local dentro da seqüência. Nome do parâmetro: length

 

Public Class Form1

 

 

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

Me.PictureBox1.Image = ImageList1.Images(0)

End Sub

 

Private Sub btnPisca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPisca.Click

Static troca As Boolean

troca = Not troca

If troca Then

btnPisca.Text = "Parar"

tmrPisca.Enabled = True

tmrVai.Enabled = True

Else

btnPisca.Text = "Piscar"

tmrPisca.Enabled = False

End If

 

End Sub

Private Sub tocamusica()

If Not chkSilencio.Checked Then

Dim fluxo As System.IO.Stream

fluxo = System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream("WindowsApplication1.Pikachu.wav")

My.Computer.Audio.Play(fluxo, AudioPlayMode.Background)

End If

End Sub

 

Private Sub tmrPisca_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrPisca.Tick

Static pisca As Boolean

pisca = Not pisca

If pisca Then

PictureBox1.Image = ImageList1.Images(1)

Else

PictureBox1.Image = ImageList1.Images(2)

End If

Static conta As Byte

If conta Mod 3 = 0 Then

tocamusica()

conta = 0

End If

conta = conta + 1

 

End Sub

 

Private Sub trmPainel_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trmPainel.Tick

lblPainel.Text = lblPainel.Text.Substring(1, lblPainel.Text.Length - 1) & lblPainel.Text.Substring(0, 1)

End Sub

 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

PictureBox1.Left = PictureBox1.Left - 20

End Sub

 

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

PictureBox1.Left = PictureBox1.Left + 20

End Sub

 

Private Sub tmrVai_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrVai.Tick

PictureBox1.Image = ImageList1.Images(0)

lblPainel.Text = lblPainel.Text.Substring(1, lblPainel.Text.Length - 1) & lblPainel.Text.Substring(0, 1)

If PictureBox1.Left = 0 Then

PictureBox1.Image = ImageList1.Images(1)

tocamusica()

trmVem.Enabled = True

tmrVai.Enabled = False

Else

PictureBox1.Left = PictureBox1.Left - 1

 

 

End If

End Sub

 

Private Sub trmVem_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles trmVem.Tick

lblPainel.Text = lblPainel.Text.Substring(1, lblPainel.Text.Length - 1) & lblPainel.Text.Substring(lblPainel.Text.Length, 1)

PictureBox1.Image = ImageList1.Images(3)

If PictureBox1.Left = Me.Size.Width - 105 Then

tocamusica()

PictureBox1.Image = ImageList1.Images(1)

trmVem.Enabled = False

tmrVai.Enabled = True

Else

PictureBox1.Left = PictureBox1.Left + 1

End If

End Sub

End Class