[Duvida]Visual basic codigo

[lcs]

Bom pessoal na minha facul estou começando a mexer com VB e o professor pediu que fizessemos um programa que calculase o valor do financiamento de um carro, tinhamos que levar em consideração se ele é "usado" ou "novo" e tb o tempo de "financianciamento" que  no caso interferiria no Taxa  de  juros do mesmo, ai fiz o codigo com o "Case Select" ai funfo normal , so que quando apliquei a validação de campos numericos(isnumeric) o barato paro geral os campos so ficam com o Zero. .num sei mais o que faze por isso peço a ajuda de vcs.. fallow

Private Sub ch_novo_Click()
Dim vcarro
Dim parcelamento 'qtdparcela
Dim juro As Integer
Dim financiamento As Integer
Dim vparcela As Single
Dim vfinanciado As Single
   
     ' validação do check box
     If ch_novo = 1 Then
     ch_usado = 0
     End If
   
    ' validação dos campos numericos
    If IsNumeric(txt_vcarro.Text) Then
    vcarro = Val(txt_vcarro.Text)
    Else
    If IsNumeric(txt_parcelamento.Text) Then
    parcelamento = Val(txt_parcelamento.Text)
    Else
    MsgBox "Por favor digite um valor númerico para este campo", vbCritical, "Erro de digitação"
    txt_vcarro.Text = ""
    txt_parcelamento.Text = ""
    txt_vcarro.SetFocus
    ch_novo = 0
    Exit Sub
    End If
    End If
 
    ' inclusão do conteudo das variaveis
    vcarro = Val(txt_vcarro.Text)
    parcelamento = Val(txt_parcelamento.Text)
    txt_vparcela.Text = vparcela
    lbl_vfinanciado.Caption = (vparcela * parcelamento)
   
   
   ' claculo conforma o tempo de financiamento
   Select Case parcelamento
   Case 1 To 12
   txt_txjuros = "1"
   financiamento = vcarro
   juro = (vcarro * 1 * parcelamento) / 100
   vparcela = (financiamento + juro) / parcelamento
   Case 13 To 24
    txt_txjuros = "2"
   financiamento = vcarro
   juro = (vcarro * 2 * parcelamento) / 100
   vparcela = (financiamento + juro) / parcelamento
   Case 25 To 60
    txt_txjuros = "3"
   financiamento = vcarro
   juro = (vcarro * 3 * parcelamento) / 100
   vparcela = (financiamento + juro) / parcelamento
   End Select
Exit Sub


End Sub

Private Sub ch_usado_Click()
    ' validação do check box
    If ch_usado = 1 Then
    ch_novo = 0
    End If
   
End Sub

Private Sub txt_parcelamento_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmd_calcular.SetFocus
End If
End Sub

Private Sub txt_txjuros_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt_parcelamento.SetFocus
End If
End Sub

Private Sub txt_vcarro_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt_txjuros.SetFocus
End If

End Sub

[lcs]

Caros amigos do Darkers eu humildemende vos lhes  apresento o meu primeiro projeto em VB .Não se surpreendam com a simplicidade dele, mais claro que pra mim é um grande avanço. ushuaaa. :o

http://198.65.56.36/

È o link de Agencia de Carros.

fallow

[Wuefez]

Agencia de Carros cara?

"J & M 
        MASSOTERAPIA

 Gostaria inicialmente de lhe dar  os parabéns  pela iniciativa de procurar efetivamente alternativas de melhorar sua saúde e sua qualidade de vida.

               Em nosso web site você poderá encontrar valiosas  informações sobre Massoterapia e dicas para deixar sua vida melhor e mais agradável.

                 Estamos aguardando ansiosamente seu contato.

                                                                               Jadir e Mauro

FUMO CÔCÔ?
ou
Mandou o IP do vhost errado?

[lcs]

ushuaa, foi mals galera esse é um site que estou desenvolvendo para um cliente,  ai ests o link corretoo

http://198.65.56.36/a.exe

[Alucard]

Ola nao sei se chegei a tempo, mas acho que ta acontecendo isso porque vc esta
fazendo o teste diretamente no text.
Tente criar uma variavel do tipo mais adequado como pro exemplo.

Dim valor as Integer
Valor = txt_vcarro.Text

Ai voce testaria

If IsNumeric(valor) then

Espero ter ajudado.

[lcs]

Bom agradeço a sua ajuda, é sempre bom conhecimento, mais esse problema especificamente ja resolvi conto com vc para os posteriores.. valleww