DUVIDAS BASICAS E PROBLEMA COM TEXTBOX
Bom dia pessoal,
Sou iniciante no VB, porém tenho lido muito material e as dúvidas sao constantes.
Estou tentando fazer um código simples mas esta dando erro. O que eu quero é fazer um cálculo e que o resultado apareça na textbox3, porém um erro aparece:
- Conversion from string [Ô][Ô] to type [ô]Integer[ô] is not valid.
Aqui vai o código:
####Private Sub btnvalor1_Click(ByVal sender As System.Object, ByVal e As ####System.EventArgs) Handles btnvalor1.Click
Dim valor1, valor2 As Integer
Dim maior As Integer
valor1 = CInt(TextBox1.Text)
valor2 = CInt(TextBox2.Text)
maior = vermaior(valor1, valor2)
maior = CInt(TextBox3.Text)
TextBox3.Text = maior
End Sub
Function vermaior(ByVal val1, ByVal val2)
If val1 > val2 Then
vermaior = val1
Else
vermaior = val2
End If
Não sei o que está havendo... queria q o resultado aparecesse na textbox3.
Antes de mais nada, gostaria de saber se alguem pode me ajudar com dúvidas básicas que não consegui entender das leituras:
- O que significa o simbolo <>?
- porque preciso colocar a extensao .text no textbox?
- O que significa um valor dentro de parenteses? E porque as vezes so coloco os parenteses sem nada dentro ()?
Obrigado pelas respostas e se alguem tiver alguma dica e instrucoes basicas agradeço. Ja li bastante material mas para que ninca programou algumas coisas ficam confusas.
### If TextBox1.Text <> [Ô][Ô] Then
TextBox2.Text = 10 * Val(TextBox1.Text) [ô]10*5 = 50
Sou iniciante no VB, porém tenho lido muito material e as dúvidas sao constantes.
Estou tentando fazer um código simples mas esta dando erro. O que eu quero é fazer um cálculo e que o resultado apareça na textbox3, porém um erro aparece:
- Conversion from string [Ô][Ô] to type [ô]Integer[ô] is not valid.
Aqui vai o código:
####Private Sub btnvalor1_Click(ByVal sender As System.Object, ByVal e As ####System.EventArgs) Handles btnvalor1.Click
Dim valor1, valor2 As Integer
Dim maior As Integer
valor1 = CInt(TextBox1.Text)
valor2 = CInt(TextBox2.Text)
maior = vermaior(valor1, valor2)
maior = CInt(TextBox3.Text)
TextBox3.Text = maior
End Sub
Function vermaior(ByVal val1, ByVal val2)
If val1 > val2 Then
vermaior = val1
Else
vermaior = val2
End If
Não sei o que está havendo... queria q o resultado aparecesse na textbox3.
Antes de mais nada, gostaria de saber se alguem pode me ajudar com dúvidas básicas que não consegui entender das leituras:
- O que significa o simbolo <>?
- porque preciso colocar a extensao .text no textbox?
- O que significa um valor dentro de parenteses? E porque as vezes so coloco os parenteses sem nada dentro ()?
Obrigado pelas respostas e se alguem tiver alguma dica e instrucoes basicas agradeço. Ja li bastante material mas para que ninca programou algumas coisas ficam confusas.
### If TextBox1.Text <> [Ô][Ô] Then
TextBox2.Text = 10 * Val(TextBox1.Text) [ô]10*5 = 50
Function vermaior(ByVal val1, ByVal val2) As Integer
If val1 > val2 Then
vermaior = val1
Else
vermaior = val2
End If
End Function
Private Sub Command1_Click()
Dim valor1, valor2 As Integer
Dim maior As Integer
valor1 = CInt(TextBox1.Text)
valor2 = CInt(TextBox2.Text)
maior = vermaior(valor1, valor2)
[ô]maior = CInt(TextBox3.Text)
TextBox3.Text = maior
End Sub
ta ai, boa sorte
<> Diferente
<= menor ou igual
>= maior ou igual
No vb6, diferente do .net vc não precisa declarar o .text
Significa valores para uma função que exija parametros, se ela não exigir, nada vai dentro.
If val1 > val2 Then
vermaior = val1
Else
vermaior = val2
End If
End Function
Private Sub Command1_Click()
Dim valor1, valor2 As Integer
Dim maior As Integer
valor1 = CInt(TextBox1.Text)
valor2 = CInt(TextBox2.Text)
maior = vermaior(valor1, valor2)
[ô]maior = CInt(TextBox3.Text)
TextBox3.Text = maior
End Sub
ta ai, boa sorte
Citação:- O que significa o simbolo <>?
<> Diferente
<= menor ou igual
>= maior ou igual
Citação:- porque preciso colocar a extensao .text no textbox?
No vb6, diferente do .net vc não precisa declarar o .text
Citação:- O que significa um valor dentro de parenteses? E porque as vezes so coloco os parenteses sem nada dentro ()?
Significa valores para uma função que exija parametros, se ela não exigir, nada vai dentro.
Para evitar o erro.
if TextBox1 = vbnullstring or TextBox2 = vbnullstring then
msgbox [Ô]Informe um valor nos camo para o calculo![Ô]
exit sub
End if
Citação:Conversion from string [Ô][Ô] to type [ô]Integer[ô] is not valid.
if TextBox1 = vbnullstring or TextBox2 = vbnullstring then
msgbox [Ô]Informe um valor nos camo para o calculo![Ô]
exit sub
End if
Minha dica
use CDBl(txtvalor)
o CDBL converte o valor para double, ou seja valores fracionados ex: 10.3, 18.7, etc
você criou uma função que retorna um valor interger e não declarou as variaveis, veja como está
e deveria ser assim
faça as modificações sugeridas e teste
ps: estou levando em conta que você utiliza o vb6 , porém se usar vb.net pode haver alguma pequena alteração
use CDBl(txtvalor)
o CDBL converte o valor para double, ou seja valores fracionados ex: 10.3, 18.7, etc
você criou uma função que retorna um valor interger e não declarou as variaveis, veja como está
Function vermaior(ByVal val1, ByVal val2)e deveria ser assim
Function vermaior(ByVal val1 As Double, ByVal val2 As Double) As Doublefaça as modificações sugeridas e teste
ps: estou levando em conta que você utiliza o vb6 , porém se usar vb.net pode haver alguma pequena alteração
Faça seu login para responder