Logo Hardware.com.br
Daniel Parreira
Daniel Parre... Novo Membro Registrado
2 Mensagens 0 Curtidas

[Resolvido] Criar um menu no visualg

#1 Por Daniel Parre... 26/10/2017 - 22:06
ola!
nao sei se aqui é o lugar correto mas pelo titulo axo que sim .
estou com um problema em pseudocodigo para criar um menu no visualg, eu criei no menu mas nao funcina direito podem me ajudar .

Algoritmo "Menu"
Var
op:Inteiro
inicio

Repita
Limpatela
escreval ("1.Vatapá ")
escreval ("2.Pizza ")
escreval ("3.Macarronada ")
escreval ("4.Feijoada ")
escreval ("5.Sair ")

escreval ("Escolha uma opção de 1 a 5 ): ")
leia (op)
ESCOLHA (op)
Caso 1
escreval ("Vatapa ----------- $28,00 ")
Caso 2
escreval ("Pizza ------------ $36,00 ")
Caso 3
escreval ("Macarronada ------ $32,50 ")
Caso 4
escreval ("Feijoada --------- $40,00 ")
Caso 5
escreval ("Agradecemos a preferencia, Volte Sempre! ")
OUTROCASO
escreval ("Opção invalida")
FIMESCOLHA
ate (op) = 5
fimalgoritmo

ele mostra o menu e so funciona a opção 5 que sair.
Olavo França
Olavo França Ubbergeek Registrado
2.7K Mensagens 559 Curtidas
#3 Por Olavo França
27/10/2017 - 11:28
Bom dia Daniel...
Falta você inserir um comando para quando escolher uma das opções diferente de 5 ele dá uma pausa. Do jeito que está ele mostra a resposta e logo em seguida ele mostra o menu, ou seja, não da para ver o valor correspondente da opção escolhida.
Espero ter ajudado.
Mobo Gigabyte B660M DS3H DDR4 - CPU Core i7 - 12700F 2.1 GHz - RAM 2x8GB + 2x16GB = 48GB 3200MHz DDR4 -
Corsair CX650M - 650 Watts -  GTX 1660 Super OC 6GB GDDR6
, SSD Sata de 500GB, NVMe de 1TB e HD de 2TB - Windows 11 Pro - 64 bits.
Não acreditar em Deus, é duvidar da própria existência de tudo....bom_trabalho.gifi
Daniel Parreira
Daniel Parre... Novo Membro Registrado
2 Mensagens 0 Curtidas
#4 Por Daniel Parre...
27/10/2017 - 12:40
Olavo França disse:
Bom dia Daniel...
Falta você inserir um comando para quando escolher uma das opções diferente de 5 ele dá uma pausa. Do jeito que está ele mostra a resposta e logo em seguida ele mostra o menu, ou seja, não da para ver o valor correspondente da opção escolhida.
Espero ter ajudado.

Ola !
Que comando seria esse?
eu tentei o ( esperar 10 segundos) depois do (fimescolha ) que eu uso no apk do celular e funciona mas no visualg nao funciona ele passa direto.
mesmo assim obrigado por responder.smile.png

Edit:
Ola!
Bom dia a todos
Problema resolvido com o comando ( timer on/off )
agora ta rodando 100%

Algoritmo "Menu"
Var
op:Inteiro
inicio

Repita
Limpatela
escreval ("1.Vatapá ")
escreval ("2.Pizza ")
escreval ("3.Macarronada ")
escreval ("4.Feijoada ")
escreval ("5.Sair ")

escreval ("Escolha uma opção de 1 a 5 ): ")
leia (op)
ESCOLHA (op)
Caso 1
escreval ("Vatapa ----------- $28,00 ")
Caso 2
escreval ("Pizza ------------ $36,00 ")
Caso 3
escreval ("Macarronada ------ $32,50 ")
Caso 4
escreval ("Feijoada --------- $40,00 ")
Caso 5
escreval ("Agradecemos a preferencia, Volte Sempre! ")
OUTROCASO
escreval ("Opção invalida")
FIMESCOLHA
timer ( 8000 ) on
timer ( 0 ) off
ate (op) = 5
fimalgoritmo
Olavo França
Olavo França Ubbergeek Registrado
2.7K Mensagens 559 Curtidas
#5 Por Olavo França
27/10/2017 - 13:28
Boa tarde Daniel...
Uma maneira é esta:

Algoritmo "Menu"
Var
op, op2:Inteiro
inicio

Repita
Limpatela
escreval ("1.Vatapá &quot
escreval ("2.Pizza &quot
escreval ("3.Macarronada &quot
escreval ("4.Feijoada &quot
escreval ("5.Sair &quot

escreval ("Escolha uma opção de 1 a 5 ): &quot
leia (op)
ESCOLHA (op)
Caso 1
escreval ("Vatapa ----------- $28,00 &quot
Caso 2
escreval ("Pizza ------------ $36,00 &quot
Caso 3
escreval ("Macarronada ------ $32,50 &quot
Caso 4
escreval ("Feijoada --------- $40,00 &quot
Caso 5
escreval ("Agradecemos a preferencia, Volte Sempre! &quot
OUTROCASO
escreval ("Opção invalida&quot
FIMESCOLHA
leia (op2)
ate (op) = 5
fimalgoritmo
Mobo Gigabyte B660M DS3H DDR4 - CPU Core i7 - 12700F 2.1 GHz - RAM 2x8GB + 2x16GB = 48GB 3200MHz DDR4 -
Corsair CX650M - 650 Watts -  GTX 1660 Super OC 6GB GDDR6
, SSD Sata de 500GB, NVMe de 1TB e HD de 2TB - Windows 11 Pro - 64 bits.
Não acreditar em Deus, é duvidar da própria existência de tudo....bom_trabalho.gifi
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal