[Tópico Único] - Dicas e Truques

[Marcos Guedes]

Relembrando a primeira mensagem :

Manipulando Formulários:

Código:

DO FORM "seuForm.scx" NAME formAberto

formAberto.WindowState = 1 && Minimza a janela
formAberto.WindowState = 0 && Restaura a janela
formAberto.show() && Traz para frente
formAberto.Release() && Fecha o Form

[Marcos Guedes]

Mais um pontinho pra tu!

[hugo]

muita coisa interessante

valeu mfelis

[Você precisa estar registrado e conectado para ver este link.]

[amaury]

boa noite amigo marcio, quero te avisar que este link esta quebrado.

abraços

amaury

Olá caros amigos.

Encontrei na net algo que possa ser interessante para muitos aqui. Vários vídeos sobre VFP, além do Service Pack 2 para a versão 9.0.

Segue o link:

[Você precisa estar registrado e conectado para ver este link.]

Abraços

Márcio

[Marcos Guedes]

Obrigado, por comunicar, Amaury!
Como o link possui direitos autorais, não tínhamos como postá-lo aqui.
Mas já que está quebrado, então removeremos a mensagem.


Porém, você poderá consultar mais vídeos no seguinte link:
[Você precisa estar registrado e conectado para ver este link.]

[Marcos Guedes]

Pessoal... quase enlouqueci tentando lembrar desta simples função, então estou postando aqui caso interesse a mais alguém:

Retorna um número sempre positivo:

Código:

?ABS(-3)
?ABS(-3.5)
?ABS(3.5)

[alceu11]

Caracteres de impressao nos relatorios por tipo de Impressao
Dica do Julio e Hugo.
So vou deixar documentado para que os proximos achem aqui.
link
[Você precisa estar registrado e conectado para ver este link.]

codigos

Código:


 
Canon BJ-200 = Citizen 200 GX = Emília PC = Rima 180/220
Imprimir normal    CHR(18)
Imprimir Comprimido    CHR(27)+CHR(15)
Imprimir Super Comprimido    CHR(30)+'5'

 
Deskjet HP 500C
Imprimir normal    CHR(27)+CHR(40)+CHR(115)+"8"+CHR(72)+CHR(27)+CHR(38)+ CHR(108)+"5"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"66"+CHR(80)
Imprimir Comprimido    CHR(27)+CHR(40)+CHR(115)+"16.67"+CHR(72)+CHR(27)+ CHR(38)+CHR(108)+"8"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)
Imprimir Super Comprimido    CHR(27)+CHR(40)+CHR(115)+"23"+CHR(72)+CHR(27)+CHR(38)+ CHR(108)+"10"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)

 
Epson FX/MX/LQ = Epson 2000
Imprimir normal    CHR(18)
Imprimir Comprimido    CHR(27)+CHR(15)
Imprimir Super Comprimido    CHR(15)+CHR(27)+'M'

 
Epson Stylus (Esc/P2)
Imprimir normal    CHR(18)
Imprimir Comprimido    CHR(27)+CHR(15)
Imprimir Super Comprimido    CHR(27)+CHR(15)+""+CHR(27)+CHR(77)

 
ExecJet - Lexmark
Imprimir normal    CHR(27)+CHR(38)+CHR(107)+CHR(52)+CHR(83)+CHR(27)+CHR(38)+ CHR(108)+"5"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"66"+CHR(80)
Imprimir Comprimido    CHR(27)+CHR(38)+CHR(107)+CHR(50)+CHR(83)+CHR(27)+CHR(38)+ CHR(108)+"8"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)
Imprimir Super Comprimido    CHR(27)+CHR(40)+CHR(115)+"23"+CHR(72)+CHR(27)+CHR(38)+CHR(108)+ "10"+CHR(68)+CHR(27)+CHR(38)+CHR(108)+"90"+CHR(80)

 
Deskjet HP = Laserjet II = Laserjet III
Imprimir normal    CHR(27)+CHR(40)+CHR(115)+"8"+CHR(72)
Imprimir Comprimido    CHR(27)+CHR(40)+CHR(115)+"16.67"+CHR(72)
Imprimir Super Comprimido    CHR(27)+CHR(40)+CHR(115)+"23"+CHR(72)

 
Comandos Especiais - Matricial Epson Compatível - Quase todos os comandos!

Atenção: Estes comandos fazem distinção de case (maiúsc./minúsc.), devem ser enviados assim como aparecem nesta página.
Espaçamento de linha
1/8"    CHR(27)+"0"
7/72"    CHR(27)+"1"
1/6"    CHR(27)+"2"
n/216"    CHR(27)+"3"+n
n/72"    CHR(27)+"A"+n
Tamanho dos Caracteres
10 cpi    CHR(27)+"P"
12 cpi    CHR(27)+"M"
Ativar Condensado    CHR(27)+CHR(15)
Desativar Condensado    CHR(18)
Tamanho Duplo (uma linha)    CHR(27)+CHR(14)
Cancelar Tamanho Duplo (uma linha)    CHR(20)
Ativar tamanho Duplo    CHR(27)+"W"+"1"
Destivar tamanho Duplo    CHR(27)+"W"+"0"
Melhoramento de Impressão
Ativar Negrito    CHR(27)+"E"
Desativar Negrito    CHR(27)+"F"
Ativar passada dupla    CHR(27)+"G"
Desativar passada dupla    CHR(27)+"H"
Ativar Sobre-Escrito    CHR(27)+CHR(83)+"0"
Ativar Sub-Escrito    CHR(27)+CHR(83)+"1"
Desativar Sobre/Sub-Escrito    CHR(27)+"T"
Ativar Itálico    CHR(27)+"4"
Desativar Itálico    CHR(27)+"5"
Ativar sublinhado    CHR(27)+CHR(45)+"1"
Desativar sublinhado    CHR(27)+CHR(45)+"0"
Sobreposição dos estilos de impressão
Impressão em Draft (+rápida)    CHR(27)+"x0"
Impressão em NLQ (+Trabalhada)    CHR(27)+"x1"
Seleciona a fonte Roman (Só NLQ)    CHR(27)+"k0"
Seleciona a fonte Sans Serif (Só NLQ)    CHR(27)+"k1"
Seleção Master (combo)    CHR(27)+CHR(33)+"n"
_O valor de n é a soma dos valores correspondentes ao efeito da combinação desejada, os valores que você deve somar para obter o efeito combo são os seguintes:

    *

      10 cpi = 0
    *

      12 cpi = 1
    *

      Condensado = 4
    *

      Negrito = 8
    *

      Duplo-passe = 16
    *

      Tamanho duplo = 32
    *

      Itálico = 64
    *

      Sublinhado = 128


topico relacionado.
[Você precisa estar registrado e conectado para ver este link.]

dica do julio
Estes comandos determinam o espaçamento entre as linhas.

Código:

Código:


  1/8"    CHR(27)+"0"
    7/72"    CHR(27)+"1"
    1/6"    CHR(27)+"2"
    n/216"  CHR(27)+"3"+n
    n/72"  CHR(27)+"A"+n





Eu utilizo sempre depois do comando "SET DEVI TO PRINT"

Código:

Código:


 SET DEVI TO PRINT
    @ 0,0 SAY CHR(27)+CHR(67)+CHR(06)



[Marcos Guedes]

Boa, Alceu!

[alceu11]

marcos poderia por este topico em dicas e truques os meritos de do Julio.
So que ai fica documentado sobre este assunto

[Marcos Guedes]

marcos poderia por este topico em dicas e truques os meritos de do Julio.
So que ai fica documentado sobre este assunto

Movido.

[halisson]

-
Gostaria de compartilhar esse código ( não testei! ).

Código:


lcFile = FiletoStr("C:\music\a.mp3")
lnFileLen = Len(lcFile)
lnSizePerSec = lnFileLen / 200 && 3.20 Tiempo total de la canción, en segundos.
lcNewFile = Substr(lcFile, lnSizePerSec * 20, lnSizePerSec * 15)
? StrToFile(lcNewFile, "c:\music\new.mp3")


Fonte: link

abraço.
-

[Marcos Guedes]

-
Gostaria de compartilhar esse código ( não testei! ).

Código:


lcFile = FiletoStr("C:\music\a.mp3")
lnFileLen = Len(lcFile)
lnSizePerSec = lnFileLen / 200 && 3.20 Tiempo total de la canción, en segundos.
lcNewFile = Substr(lcFile, lnSizePerSec * 20, lnSizePerSec * 15)
? StrToFile(lcNewFile, "c:\music\new.mp3")


Fonte: link

abraço.
-

Este código apenas está copiando um arquivo de música para outro diretório, correto?

[halisson]

-
Não marcos!

Este código "recorta" um trecho da música e salva
como um novo arquivo mp3.
Simples assim!
Perfeito para toques de celular ou outras aplicações.

Obs. Testado!

Abraço.
-

[Marcos Guedes]

-
Não marcos!

Este código "recorta" um trecho da música e salva
como um novo arquivo mp3.
Simples assim!
Perfeito para toques de celular ou outras aplicações.

Obs. Testado!

Abraço.
-

Legal!


Reputado!