allen

Sim mas não esta funcionando, quando tem sinal na frente ele não interpreta .... tem como alguém me mostrar um simples trecho lógico de como ia se comportar nos laços?Acho que facilitaria,pois não estou copnseguindo encontrar uma lógica funcional para o problema abraços

Opa Fórum Beleza ! Estou tendo uma cadeira na faculdade e o trabalho posto pelo professor foi de desenvolver um código que resolva expressões matemáticas. Ainda estou na parte que eu recebo os dados,guardo eles em um vetor ,porém acredito que está errado.Como sou iniciante em programação estou tendo bastante dificuldade Private Sub Resolve_expressao() Dim guarda_sinais(1000) Dim guarda_numeros(1000) valor_inserido = InputBox("Digite o Cálculo") contador1 = 1 contador2 = 1 For laco1 = 1 To Len(valor_inserido) If Mid$(valor_inserido, laco1, 1) = "+" Or Mid$(valor_inserido, laco1, 1) = "-" Or Mid$(valor_inserido, laco1, 1) = "*" Or Mid$(valor_inserido, laco1, 1) = "/" Then guarda_numeros(contador1) = Val(Mid$(valor_inserido, 1 + k, laco1 - 1)) guarda_sinais(contador2) = Mid$(valor_inserido, laco1, 1) k = laco1 contador1 = contador1 + 1 contador2 = contador2 + 1 End If Next laco1 MsgBox (guarda_numeros(1)) MsgBox (guarda_sinais(2)) MsgBox (guarda_numeros(2)) End Sub Os msgbox são apenas para mostrar como está indo. Então o vetor tem que armazenar o que for número e letra para assim depois resolver os cálculos.Também não tenho idéia de como resolver os cálculos Grato pela atenção abraços

Por favor,moderadores, podem apagar este tópico abraço Allen

FUNCIONOU !!! Obrigado Kuroi , estava a tempos tentando resolver este problema Ah okay vou colocar os Code agora :P abraços vlw mais uma vez os "-" devem estar dentro da variavel total.

Opa obrigado Kuroi, deu uma melhorada no código,também consegui entender aonde você quer chegar olha só como ta: ---------------------------- ---------------------------- ---------------------- ---------------------- Agora, quando digito por exemplo 'casa" e tento acertar, quando coloco o "a" ele me acusa como " caa" . Como faço para inserir os "-" junto ao else que me resolve as letras? obrigadão !!!

Opa pessoal beleza? Venho aqui pedir uma jauda a vocês. Sou novo em programação, e estou fazendo uma cadeira na faculdade de visual basic. Nossa meta e desenvolver um jogo da forca propriamente. Podemos usar apenas os comandos LEN , for , if , Mid , & ... enfim,apenas as comandos básicos. Tem ocmo voces me ajudarem no problema abaixo? não sei como fazer :S ----------------------------- ----------------------------- Sub jogo() frase = InputBox(" pala ") Dim t(20) For chances = 1 To 3 'Vai rodar as 3 chances de acertar ' tentativa = InputBox("3 cha") For x = 1 To Len(frase) Next x For B = 1 To Len(frase) total = total & t(B) Next B MsgBox (total) Next chances --------------------------- --------------------------- Se vocês rodarem o arquivo , entenderão bem o problema. Não sei como inserir o valor dentro do primeiro total, e a cada laço ele agrega mais vezes a palavra,isto é, entre as tentativas ele não usa o mesmo jogo de palavras. Aff não sei como explicar hehehe , mas é bem intendível se vocês rodarem o programa, pelo menos ele roda hehe abraços forum espero que me ajudem Allen End Sub