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
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/ (http://198.65.56.36/)
È o link de Agencia de Carros.
fallow
Agencia de Carros cara?
Quote"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?
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 (http://198.65.56.36/a.exe)
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.
QuoteDim valor as Integer
Valor = txt_vcarro.Text
Ai voce testaria
QuoteIf IsNumeric(valor) then
Espero ter ajudado.
Bom agradeço a sua ajuda, é sempre bom conhecimento, mais esse problema especificamente ja resolvi conto com vc para os posteriores.. valleww