| Arquivo: teste.prg |
| /* EXEMPLO DE PROGRAMA UTILIZANDO ACHOICE( ) AUTOR: GORKI STARLIN */ CLEAR // limpa a tela PUBLIC ITEM [4], SELECAO [4] ITEM [1] := "CADASTRAR" // atribui os valores do vetor ITEM [2] := "PESQUISAR" ITEM [3] := "ALTERAR" ITEM [4] := "EXCLUIR" ESCOLHA := ACHOICE (12,12,14,20,ITEM) ? ESCOLHA // mostra a escolha do usuário DO CASE CASE ESCOLHA = 1 //DO CADASTRA CASE ESCOLHA = 2 //DO PESQUISA CASE ESCOLHA = 3 //DO ALTERA CASE ESCOLHA = 4 //DO ELIMINA CASE ESCOLHA = 0 CANCEL ENDCASE |