Registro do Windows – biblioteca win. (Criando uma chave, subchave e valores)

16 de outubro de 201517 de outubro de 2015 admin

O registro do Windows é o lugar onde ficam gravadas muitas configurações importantes do sistema e também de programas instalados. Neste exemplo você vai ver como é possível manipular as chaves de registro através da biblioteca win em Prisma. Veja: Criando uma chave:

/**
  Exemplo 01
  
  Como criar uma chave e uma subchave. E como gravar um valor string nela.

**
inclua'win' //ante inclua a biblioteca win

k = win.RegCrieChave( 
              HKEY_CURRENT_USER ,  //root hkey uma variável predefinida em win.
              'PrismaInfo', //subchave a ser criada
              REG_OPCAO_NAO_VOLATIL, //opcao = cria uma chave persistente
              KEY_ACESSO_TOTAL     //TIPO DE ABERTURA, PARA CRIACAO DE SUB_CHAVE
              );
imprima(k);
se k entao imprima"sucesso" 

   ret = win.RegDefValor(k , 'valor1' , REG_EXPAND_SZ , '%TEMP% "\\PRISMA\\"' );
   se ret entao imprima'sucesso' fim;

   ret = win.RegDefValor( k , '' , REG_SZ , 'ola mundo');
   se ret entao imprima'sucesso' fim;

   win.RegFecheChave(k);

fim

//criando uma sub chave:

//abrindo a chave criada com o modo de abertura KEY_CRIE_SUB_CHAVE:
//poderia ser: KEY_ACESSO_TOTAL também.
chave = win.RegAbraChave( HKEY_CURRENT_USER , 'PrismaInfo' , KEY_CRIE_SUB_CHAVE );

//criando sua subchave:
/**
a sub chave é uma chave normal dentro de outra, aquelas que no editor de registros
é necessário clicar no + para vê-las.
ex.:
+
|_PrismaInfo+
            |_ Diretorios { prisma.exe = "C:\\Prisma\\1.0\\bin" }

**

/**passando a chave criada para criarmos sua subchave**

subchave = win.RegCrieChave( 
               chave ,  //chave para criarmos sua sub chave
              'Diretorios', //subchave a ser criada
              REG_OPCAO_NAO_VOLATIL, //opcao = cria uma chave persistente
              KEY_ACESSO_TOTAL     //TIPO DE ABERTURA, PARA CRIACAO DE SUB_CHAVE
              );
se subchave entao

//REG_OPCAO_VOLATIL = a chave é apagada ao reiniciar o Windows

ret = win.RegDefValor( subchave , 'prisma.exe' , REG_SZ, 'C:\\Prisma\\1.0\\bin');

se ret entao imprima'valor gravado com sucesso' fim;

win.RegFecheChave( subchave );

senao 
              imprima( conv_c'chave não pôde ser gravada');
fim

/**

Exemplo 01

Como criar uma chave e uma subchave. E como gravar um valor string nela.

inclua'win' //ante inclua a biblioteca win

k = win.RegCrieChave(

HKEY_CURRENT_USER , //root hkey uma variável predefinida em win.

'PrismaInfo', //subchave a ser criada

REG_OPCAO_NAO_VOLATIL, //opcao = cria uma chave persistente

KEY_ACESSO_TOTAL //TIPO DE ABERTURA, PARA CRIACAO DE SUB_CHAVE

);

imprima(k);

se k entao imprima"sucesso"

ret = win.RegDefValor(k , 'valor1' , REG_EXPAND_SZ , '%TEMP% "\\PRISMA\\"' );

se ret entao imprima'sucesso' fim;

ret = win.RegDefValor( k , '' , REG_SZ , 'ola mundo');

se ret entao imprima'sucesso' fim;

win.RegFecheChave(k);

fim

//criando uma sub chave:

//abrindo a chave criada com o modo de abertura KEY_CRIE_SUB_CHAVE:

//poderia ser: KEY_ACESSO_TOTAL também.

chave = win.RegAbraChave( HKEY_CURRENT_USER , 'PrismaInfo' , KEY_CRIE_SUB_CHAVE );

//criando sua subchave:

/**

a sub chave é uma chave normal dentro de outra, aquelas que no editor de registros

é necessário clicar no + para vê-las.

ex.:

|_PrismaInfo+

|_ Diretorios { prisma.exe = "C:\\Prisma\\1.0\\bin" }

/**passando a chave criada para criarmos sua subchave**

subchave = win.RegCrieChave(

chave , //chave para criarmos sua sub chave

'Diretorios', //subchave a ser criada

REG_OPCAO_NAO_VOLATIL, //opcao = cria uma chave persistente

KEY_ACESSO_TOTAL //TIPO DE ABERTURA, PARA CRIACAO DE SUB_CHAVE

);

se subchave entao

//REG_OPCAO_VOLATIL = a chave é apagada ao reiniciar o Windows

ret = win.RegDefValor( subchave , 'prisma.exe' , REG_SZ, 'C:\\Prisma\\1.0\\bin');

se ret entao imprima'valor gravado com sucesso' fim;

win.RegFecheChave( subchave );

senao

imprima( conv_c'chave não pôde ser gravada');

fim

Detalhes: ret = win.RegCrieChave( chave, nome , opcao , tipo_acesso );…

Continue reading →

Baixar arquivo da internet com a biblioteca “igbr”

15 de outubro de 201515 de outubro de 2015 admin

Antes de mais nada, baixa Prisma-1.0.94 – 12/10/2015 ou mais recente. Com o seguinte exemplo você poderá fazer um mini programa de fazer downloads da internet com links absolutos. Só usar a criatividade e fazer a interface gráfica com igbr. Segue o código comentado:

inclua'igbr'
//função callback:
funcao copiando(cur , tot )  
  result = (cur * 100) / tot
  result = mat.separe(result);//pega somente a parte inteira da fracao
  //ex:   imprima( mat.separe(3.409 ) //saida = 3        0.409     
  imprima('porcentagem:', result,'%', mat.separe( cur / 1024 ) ,'de:' , mat.separe( tot / 1024 ) , 'KB' );
  
fim

//carregue o arquivo 'uri' em uma variável com a função ig.arquivo_uri("http://...");
origem = ig.arquivo_uri('http://linguagemprisma.net/music/teste.mp3');
 //carregue um arquivo destino com a função ig.arquivo("arquivo");
destino = ig.arquivo('zz_teste_copy.mp3');
//agora basta chamar a função para copiar passando os arquivos carregados acima:
ig.arquivo_copie( origem , destino , ig.tipo_copia_sobreescrita , 'copiando(%s , %s )' );
//argumentos são:( arquivo_uri, arquivo, tipo, função_callback );
poe'fim copia';
se result < 100 entao poe'falha no download tente de novo' fim

leia();

inclua'igbr'

//função callback:

funcao copiando(cur , tot )

result = (cur * 100) / tot

result = mat.separe(result);//pega somente a parte inteira da fracao

//ex: imprima( mat.separe(3.409 ) //saida = 3 0.409

imprima('porcentagem:', result,'%', mat.separe( cur / 1024 ) ,'de:' , mat.separe( tot / 1024 ) , 'KB' );

fim

//carregue o arquivo 'uri' em uma variável com a função ig.arquivo_uri("http://...");

origem = ig.arquivo_uri('http://linguagemprisma.net/music/teste.mp3');

//carregue um arquivo destino com a função ig.arquivo("arquivo");

destino = ig.arquivo('zz_teste_copy.mp3');

//agora basta chamar a função para copiar passando os arquivos carregados acima:

ig.arquivo_copie( origem , destino , ig.tipo_copia_sobreescrita , 'copiando(%s , %s )' );

//argumentos são:( arquivo_uri, arquivo, tipo, função_callback );

poe'fim copia';

se result < 100 entao poe'falha no download tente de novo' fim

leia();

Obs.: origem é a url da internet sempre completo com…

Continue reading →

Sequência de Fibonacci

15 de outubro de 2015 admin

//série de Fibonacci
funcao fib(n)
      a, b = 0, 1
              enquanto a < n inicio
               es.escreva(a, ' ')
               a, b = b, a+b
            fim
      imprima()
fim

fib(1000)

// 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987

//série de Fibonacci

funcao fib(n)

a, b = 0, 1

enquanto a < n inicio

es.escreva(a, ' ')

a, b = b, a+b

fim

imprima()

fim

fib(1000)

// 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987

Continue reading →

Listar os arquivos e pastas de um diretório – biblioteca igdir

14 de outubro de 201514 de outubro de 2015 admin

**Baixe Prisma mais atual – 12/10/2015 ou mais recente** A biblioteca igdir está em fase inicial e conta com apenas três funções por enquanto: dir.liste_arquivos(“pasta”); – retorna uma tabela Prisma com todos os arquivos e pastas do diretório passado como parâmetro. dir.liste_somente_arquivos(“pasta”); – retorna uma tabela com somente os nomes de arquivos. dir.liste_somente_pastas(“pasta”); – retorna…

Continue reading →

Chamando processos com o win.Execute(…) Biblioteca win.

14 de outubro de 201514 de outubro de 2015 admin

**Antes de mais nada vá à página de downloads e baixe a atualização mais recente de Prisma. (12/10/2015 ou superior).** Obs. outra grande mudança é que a biblioteca win foi desmembrada do interpretador prisma.exe devido a questões de portabilidade, facilidade de compilação, e economia de memória caso não precise usá-la. Basta incluí-la no seu…

Continue reading →

Autointerpretador ( self-interpreter)

25 de setembro de 201528 de setembro de 2015 admin

Imagine que você queira disponibilizar seu programa prisma sem precisar instalar o interpretador, apenas usando um executável do programa. É exatamente para isso que serve o auto interpretador. É um interpretador normal com uma grande diferença, ao ser executado sem passar nenhum argumento ele não irá abrir o console interativo, em vez disso, ele…

Continue reading →

Formatando números e strings (básico)

11 de setembro de 20154 de outubro de 2015 admin

Em algumas vezes você pode querer limitar a quantidade de números depois do ponto decimal, ou a quantidade de zeros à esquerda de um número, ou ainda, colocar aspas internamente em uma string. Para isso vamos usar a função da biblioteca string: string.formate( str_format , … ) Veja o exemplo abaixo comentado:

//exemplo de uso da funcao string.formate:

//determinando o número de casas apos o ponto decimal

nn = 1.123456789

nn3 = string.formate("%.3f" , nn ); 
//para 2 casas mude 3 para 2 ou para qualquer valor válido

imprima( '\n' , nn , nn3 ,  '\n'  );




//colocando uma string entre aspas:

s = "Olá mundo";

ss = string.formate( "%q" , s ); //use %q

imprima( '\n' , conv_c(s) , conv_c(ss) , '\n' ); 
//conv_c para imprimir com acento;  o  \n é para pular linha

//colocando zeros a esquerda:

n , nn = 22 , 100 ; 
//n = 22 e nn = 100 isto se chama multipla atribuicao

nf = string.formate("%05d / %05d", n , nn); //\n é nova linha

imprima( '\n' , nf , '\n' );


//formatando hora:

t = sis.data('*t'); //o *t forca o retorno de uma tabela

h = string.formate("Horário: \n\n %02d:%02d:%02d\n" , t.hora,t.minuto,t.segundo );

imprima( conv_c(h) ); //funcao conv_c faz imprimir acentos no cmd.


//agora vou usar um laco de repeticao para imprimir de 001 até 010

imprima'Agora de 001 a 010 / precione ENTER para continuar'
leia();

para i = 1 , 10 inicio
  imprima( string.formate("%03d" , i ) );
fim

//exemplo de uso da funcao string.formate:

//determinando o número de casas apos o ponto decimal

nn = 1.123456789

nn3 = string.formate("%.3f" , nn );

//para 2 casas mude 3 para 2 ou para qualquer valor válido

imprima( '\n' , nn , nn3 , '\n' );

//colocando uma string entre aspas:

s = "Olá mundo";

ss = string.formate( "%q" , s ); //use %q

imprima( '\n' , conv_c(s) , conv_c(ss) , '\n' );

//conv_c para imprimir com acento; o \n é para pular linha

//colocando zeros a esquerda:

n , nn = 22 , 100 ;

//n = 22 e nn = 100 isto se chama multipla atribuicao

nf = string.formate("%05d / %05d", n , nn); //\n é nova linha

imprima( '\n' , nf , '\n' );

//formatando hora:

t = sis.data('*t'); //o *t forca o retorno de uma tabela

h = string.formate("Horário: \n\n %02d:%02d:%02d\n" , t.hora,t.minuto,t.segundo );

imprima( conv_c(h) ); //funcao conv_c faz imprimir acentos no cmd.

//agora vou usar um laco de repeticao para imprimir de 001 até 010

imprima'Agora de 001 a 010 / precione ENTER para continuar'

leia();

para i = 1 , 10 inicio

imprima( string.formate("%03d" , i ) );

fim

OBS1…

Continue reading →

igEscala – botão deslizante

10 de setembro de 201510 de setembro de 2015 admin

*Antes de executar este exemplo, baixe Prisma ou atualização do dia 07/09/2015 ou superior* Escala é um componente em que um pequeno botão pode ser deslizado na posição vertical ou na horizontal. No estilo de aumentar volume do som no Windows, veja: Ao ser deslizada, a escala retorna um valor que pode ser usado…

Continue reading →

Conectando e desconectando uma função (igbr)

5 de setembro de 20155 de setembro de 2015 admin

Sabemos que não basta criar um botão, ou um menu, ou qualquer outro componente que seja para realizar ações. É preciso dizer o que vai ser executado quando esses componentes forem ativados, clicados etc. é para isso que conectamos uma função ao clique de um botão, por exemplo. Para que quando for clicado a…

Continue reading →

Copiando um arquivo executável

4 de setembro de 20158 de dezembro de 2020 admin

Quero demonstrar um exemplo de como copiar um arquivo usando um comando es.abra(); Vamos copiar um arquivo chamado nome.exe para nome_copia.exe, após a operação abra o arquivo cópia e veja que ele é executado como se fosse o original. veja:

//primeiro abra o arquivo como leitura binária
a = es.abra('nome.exe' , 'leiturabin'); 

//depois leia o arquivo:
se a entao
   tmp = a:leia("*t"); //o *t faz ler o arquivo todo
   a:feche();
senao
   imprima'erro ao tentar abrir arquivo';
fim

//abra um arquivo em modo escrita binária
b = es.abra( 'nome_copia.exe' , 'escritabin');

//agora copie o conteudo tmp para este arquivo:
se b entao
   b:escreva( tmp ); 
   b:feche();
   imprima('arquivo copiado com sucesso!');
senao
   imprima'erro ao tentar abrir arquivo';
fim

//primeiro abra o arquivo como leitura binária

a = es.abra('nome.exe' , 'leiturabin');

//depois leia o arquivo:

se a entao

tmp = a:leia("*t"); //o *t faz ler o arquivo todo

a:feche();

senao

imprima'erro ao tentar abrir arquivo';

fim

//abra um arquivo em modo escrita binária

b = es.abra( 'nome_copia.exe' , 'escritabin');

//agora copie o conteudo tmp para este arquivo:

se b entao

b:escreva( tmp );

b:feche();

imprima('arquivo copiado com sucesso!');

senao

imprima'erro ao tentar abrir arquivo';

fim

Troque ‘nome.exe’ pelo nome do seu arquivo alvo que pode ser um vídeo, uma…

Continue reading →