DESAFIO: PROMPT OU INTERPRETADOR DE COMANDO ?

XAVIER 04/08/2012 13:01:56
#407194
Joinha Pessoal !

Preciso construir uma prompt de comandos no vb6. O qual por sua vez, interagirá com um ambiente de desenho. Este ambiente de desenho já tem umas 200 funções nativas e bem conheciadas, porém preciso acessá-las via prompt de comandos. Então eu tenho este ambiente de desenho num form e preciso que esta prompt fique logo abaixo, onde digitarei os comandos e então na tela gráfica, ele executará os elementos de desenho.
Alguém tem uma idéia, dica ou ainda um exemplo para me nortear?
Desde já agradeço.
FILMAN 04/08/2012 14:49:26
#407200
Resposta escolhida
Cara uma ideia seria o seguinte

Carregar um vetor com os nomes das funções

Ai no Change do TextBox você colocaria a busca assim

For i = 0 to UBound(Vetor)
Select Case UCase(Vetor(i))
Case [Ô]TESTE[Ô]
Call TESTE
End Select
Next



é apenas uma ideia!
XAVIER 04/08/2012 16:55:24
#407205
Ok FILMAN, obrigado pela atenção. Já é um início...
Valeu !
XAVIER 06/08/2012 09:46:33
#407240
FILMAN, por gentileza, comente este código: Eu sou meio tapado sabe como

For i = 0 to UBound(Vetor)
Select Case UCase(Vetor(i))
Case [Ô]TESTE[Ô]
Call TESTE
End Select
Next

Desde já agadeço.
KERPLUNK 06/08/2012 09:48:47
#407241
Você está falando de algo parecido com o Logo
XAVIER 06/08/2012 10:20:53
#407243
Obrigado pela atenção...
Você conhece a prompt de comandos do autocad ?
é [Ô]c[Ô] interpretado, ou seja Lisp.
Porém preciso de algo mais simples. Por exemplo:

Comando: Nome + enter então me retornará com as opções abaixo para seleção e preenchimento.
>(Opções: 1- Nome completo / 2 - Idade / 3 - altura / 4 - Peso [Esc:Sair]): < aquí entra a opção + enter... Por exemplo digitei a opção 1 + enter, então,
Entre com o nome completo: Fulano de Tal

+/- isso KERPLUNK
FILMAN 06/08/2012 10:41:58
#407248
Caro Xavier seguinte

For i = 0 to UBound(Vetor)
Select Case UCase(Vetor(i))
Case [Ô]TESTE[Ô]
Call TESTE
End Select
Next

For i = 0 To Ubound(Vetor)
[ô]Esse For inicia o loop do zero até o tamanho maximo do vetor
Next

Select Case UCase(Vetor(i))
Case [Ô]TESTE[Ô]
Call TESTE
End Select
[ô]A cada loop do For pergunta se o conteúdo que esta dentro do Vetor na posição de i é Igual ao nome digitado
[ô]O Case [Ô]TESTE[Ô] é onde esta comparando o nome digitado com a função dentro
[ô]CALL TESTE é para chamar a função
Tópico encerrado , respostas não são mais permitidas