Ir para conteúdo
Fórum Script Brasil
  • 0

Overflow erro 6


celso joaquim

Pergunta

Oi. Alguém pode me dizer como resolver o erro overflow na linha de comando abaixo indicada com >>>>>>:

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "Digite o diametro do moinho.", , MsgTexto
Text1.SetFocus
Exit Sub
End If
If Text2.Text = "" Then
MsgBox "Digite o comprimento do moinho.", , MsgTexto
Text2.SetFocus
Exit Sub
End If
If Text8(0).Text = "" Then
MsgBox "Digite o percentual de água.", , MsgTexto
Text8(0).SetFocus
Exit Sub
End If
If Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text8(0).Text = "" Or Text9.Text = "" Then
MsgBox "Não deixe nenhum campo" & Chr(13) + Chr(10) & "das informações gerais vazio.", vbOKOnly, MsgTexto
End If
Text23.Text = Format(Pi * ((Val(Text1.Text) / 2) ^ 2) * Val(Text2.Text) * 1000, "###")
Text6.Text = Format(Val(Text23.Text) * Val(Text3.Text) * Val(Text4.Text) * Femp / 100, "###")
Text7.Text = Format(Val(Text23.Text) * Val(Text5.Text) / 100, "###")
Text26.Text = Format(-Val(Text9.Text) / (((1 - Val(Text8(0).Text) / 100) * (Val(Text9.Text) - 1)) - Val(Text9.Text)) * 1000, "####")
Text12.Text = Format(Val(Text7.Text) * Val(Text26.Text) / 1000, "####")

>>>>>>> Text10.Text = Format((Val(Text7.Text) * Val(Text26.Text)) * Val(Text8(0).Text) / 100000, "###")

Text27.Text = Format((100 - (Val(Text8(0).Text))) * 100, "")
Text11.Text = Format(Val(Text7.Text) * Val(Text9.Text) * (Val(Text27.Text) / 10000), "####")
Text18.Text = Format(Val(Text6.Text) * Val(Text13.Text) / 100, "###") & " Kg"
Text19.Text = Format(Val(Text6.Text) * Val(Text14.Text) / 100, "###") & " Kg"
Text20.Text = Format(Val(Text6.Text) * Val(Text15.Text) / 100, "###") & " Kg"
Text21.Text = Format(Val(Text6.Text) * Val(Text16.Text) / 100, "###") & " Kg"
Text22.Text = Format(Val(Text6.Text) * Val(Text17.Text) / 100, "###") & " Kg"
Text24.Text = Format(42.3 * (Val(Text25.Text) / 100) / Sqr(Val(Text1.Text)), "###")
Text1.SetFocus
End Sub

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...