AJUDA URGENTE COM VB
[txt-size=1]Olá pessoal, estou aprendendo a programar, iniciei com o VB. até crie um programa bem simples
e basico mas estou com um problema e queria que vocês me ajudassem
o meu programa funciona da seguinte maneira; tem a area do login onde você ao fazer login vai para uma
area de [Ô] compras [Ô] de uma loja, você coloca o numero do produto ( que está escrito com o nome no proprio programa ) ai ao clicar em calcular aparece o preço.. mas minha duvida é essa:
ao clicar em calcular aparece o preço do produto, mas se eu colocar um novo numero e calcular novamente nao vai aparecer a soma dos dois valores ou mais que coloquei, apenas o dobro do que foi colocado,
abaixo ta o codigo que eu botei no BOTAO do codigo de calcular
Dim toddynho(1) As String
Dim cheetos(2) As String
Dim refrigerante(3) As String
Dim coxinha(4) As String
Dim enroladinho(5) As String
Dim bolointeiro(6) As String
Dim bolofat(7) As String
Dim sorvete(8) As String
Dim picole(9) As String
If produto.Text = 1 Then
valor.Text = [Ô]0,99[Ô]
ElseIf produto.Text = 2 Then
valor.Text = [Ô]1,10[Ô]
ElseIf produto.Text = 3 Then
valor.Text = [Ô]2,50[Ô]
ElseIf produto.Text = 4 Then
valor.Text = [Ô]2,00[Ô]
ElseIf produto.Text = 5 Then
valor.Text = [Ô]2,05[Ô]
ElseIf produto.Text = 6 Then
valor.Text = [Ô]50,00[Ô]
ElseIf produto.Text = 7 Then
valor.Text = [Ô]3,00[Ô]
ElseIf produto.Text = 8 Then
valor.Text = [Ô]0,50[Ô]
ElseIf produto.Text = 9 Then
valor.Text = [Ô]3,50[Ô]
End If
e basico mas estou com um problema e queria que vocês me ajudassem
o meu programa funciona da seguinte maneira; tem a area do login onde você ao fazer login vai para uma
area de [Ô] compras [Ô] de uma loja, você coloca o numero do produto ( que está escrito com o nome no proprio programa ) ai ao clicar em calcular aparece o preço.. mas minha duvida é essa:
ao clicar em calcular aparece o preço do produto, mas se eu colocar um novo numero e calcular novamente nao vai aparecer a soma dos dois valores ou mais que coloquei, apenas o dobro do que foi colocado,
abaixo ta o codigo que eu botei no BOTAO do codigo de calcular
Dim toddynho(1) As String
Dim cheetos(2) As String
Dim refrigerante(3) As String
Dim coxinha(4) As String
Dim enroladinho(5) As String
Dim bolointeiro(6) As String
Dim bolofat(7) As String
Dim sorvete(8) As String
Dim picole(9) As String
If produto.Text = 1 Then
valor.Text = [Ô]0,99[Ô]
ElseIf produto.Text = 2 Then
valor.Text = [Ô]1,10[Ô]
ElseIf produto.Text = 3 Then
valor.Text = [Ô]2,50[Ô]
ElseIf produto.Text = 4 Then
valor.Text = [Ô]2,00[Ô]
ElseIf produto.Text = 5 Then
valor.Text = [Ô]2,05[Ô]
ElseIf produto.Text = 6 Then
valor.Text = [Ô]50,00[Ô]
ElseIf produto.Text = 7 Then
valor.Text = [Ô]3,00[Ô]
ElseIf produto.Text = 8 Then
valor.Text = [Ô]0,50[Ô]
ElseIf produto.Text = 9 Then
valor.Text = [Ô]3,50[Ô]
End If
Cara, o que está acontecendo no seu código está certo para o que está escrito. Para fazer a soma não tem nada que você fez para calcular. Primeiro é preciso armazenar esses valores em um banco ou arquivo onde ele irá ser consultado para pegar os valores o que é mais correto. Mas você pode fazer conforme eu usei no exemplo que fiz.
Private Sub Command1_Click()
Dim toddynho(1) As Integer
Dim cheetos(2) As Integer
Dim refrigerante(3) As Integer
Dim coxinha(4) As String
Dim enroladinho(5) As String
Dim bolointeiro(6) As String
Dim bolofat(7) As String
Dim sorvete(8) As String
Dim picole(9) As String
Dim result As Double
If produto.Text = 1 Then
valor.Text = [Ô]0,99[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 2 Then
valor.Text = [Ô]1,10[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 3 Then
valor.Text = [Ô]2,50[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 4 Then
valor.Text = [Ô]2,00[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 5 Then
valor.Text = [Ô]2,05[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 6 Then
valor.Text = [Ô]50,00[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 7 Then
valor.Text = [Ô]3,00[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 8 Then
valor.Text = [Ô]0,50[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 9 Then
valor.Text = [Ô]3,50[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
End If
End Sub
Espero ter ajudado!!
Private Sub Command1_Click()
Dim toddynho(1) As Integer
Dim cheetos(2) As Integer
Dim refrigerante(3) As Integer
Dim coxinha(4) As String
Dim enroladinho(5) As String
Dim bolointeiro(6) As String
Dim bolofat(7) As String
Dim sorvete(8) As String
Dim picole(9) As String
Dim result As Double
If produto.Text = 1 Then
valor.Text = [Ô]0,99[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 2 Then
valor.Text = [Ô]1,10[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 3 Then
valor.Text = [Ô]2,50[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 4 Then
valor.Text = [Ô]2,00[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 5 Then
valor.Text = [Ô]2,05[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 6 Then
valor.Text = [Ô]50,00[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 7 Then
valor.Text = [Ô]3,00[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 8 Then
valor.Text = [Ô]0,50[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
ElseIf produto.Text = 9 Then
valor.Text = [Ô]3,50[Ô]
result = valor.Text
Resultado.Text = result + Resultado.Text
End If
End Sub
Espero ter ajudado!!
olá amigo, na verdade eu cortei um pedaço do codigo, veja o que estava entre o end if e o end sub:
resultado.Text = Val(valor.Text) + Val(valor.Text)
o ruim é que o que pegava era o numero do produto mais ele mesmo, e se eu colocasse outro numero, nao fazia a soma do produto anterior mais o atual, e sim do produto que eu pegava
resultado.Text = Val(valor.Text) + Val(valor.Text)
o ruim é que o que pegava era o numero do produto mais ele mesmo, e se eu colocasse outro numero, nao fazia a soma do produto anterior mais o atual, e sim do produto que eu pegava
Espero ter ajudado então. Resolveu agora?
olá amigo, obrigado pela ajuda mas ocorre um erro quando eu rodo o programa
ele abre de boa mas na hora de colocar o numero aparece a seguinte menssagem no vb ( eu uso o 2008 )
A first chance exception of type [ô]System.InvalidCastException[ô] occurred in Microsoft.VisualBasic.dll
nao funcionou mas MUITO OBRIGADO, axo que vou deixar assim mesmo
ele abre de boa mas na hora de colocar o numero aparece a seguinte menssagem no vb ( eu uso o 2008 )
A first chance exception of type [ô]System.InvalidCastException[ô] occurred in Microsoft.VisualBasic.dll
nao funcionou mas MUITO OBRIGADO, axo que vou deixar assim mesmo
é que você abriu um forum para VB, mas está usando .VB.NET
Faça a importação no inÃcio do seu código.
Imports Microsoft.VisualBasic
Ou fazer a importação da referência, pode ser que ajude.
Faça a importação no inÃcio do seu código.
Imports Microsoft.VisualBasic
Ou fazer a importação da referência, pode ser que ajude.
Faça seu login para responder