Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
25 usuários online :: 1 usuário cadastrado, Nenhum Invisível e 24 Visitantes :: 2 Motores de busca

memarques

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
» Ajuda a direcionar
Hoje à(s) 01:17 por miiiih

» Alterar uma palavra num arquivo de texto
5/12/2016, 12:02 por Teseu

» Buscar endereço por CEP
3/12/2016, 19:59 por pedrossian

» USAR WEBSERVICE NO VFP9
2/12/2016, 09:50 por AJC

» BANIMENTO DE USUARIO
17/11/2016, 08:31 por FAF

» Impressora Ticket
15/11/2016, 09:20 por clima238

» Gráfico
9/11/2016, 10:43 por hidroluz

» TRANSPOR TABELA
9/11/2016, 10:34 por hidroluz

» MUDANÇA DO .DBF PARA POTSGREE
9/11/2016, 09:12 por AJC

» Website com videoaulas sobre linguagens de programação
8/11/2016, 09:56 por JLDR

» Parceria para desenvolvimento de template em Wordpress
7/11/2016, 19:15 por mindix

» Data fica invertida na planilha que é gerada via programa.
27/10/2016, 11:00 por Linghston

» Maximizar report direto do menu
21/10/2016, 20:48 por Rosangela Pires

» Fechar form com tempo
21/10/2016, 10:15 por Rosangela Pires

» URGENTE: Ajuda com impressora ELGIN-L42
14/10/2016, 09:53 por megasoft

» Opções para gerar NF-e
10/10/2016, 09:07 por mavsinfo

» Google Maps
8/10/2016, 15:08 por Rosangela Pires

» Mysql
5/10/2016, 11:22 por Marcos Guedes

» Acessando Banco em MYSQL de um projeto WORDPRESS
3/10/2016, 10:58 por Marcos Guedes

» OPTION SELECT MOSTRAR CAMPOS QUASE PRONTO
26/9/2016, 21:09 por BobKuspe

Alterar uma palavra num arquivo de texto

5/12/2016, 12:02 por Teseu

Olá prezados colegas de programação!

Este é eu primeiro post no fórum e gostaria de poder …

Comentários: 0

Buscar endereço por CEP

3/12/2016, 19:59 por pedrossian

Caros amigos, meu código para buscar endereço pelo CEP não funciona mais.
Alguém pode me …

Comentários: 0

USAR WEBSERVICE NO VFP9

2/12/2016, 09:50 por AJC

Pessoal, preciso de um material ou livro que me traga instruções como
usar a consumação de …

Comentários: 0

BANIMENTO DE USUARIO

13/11/2016, 16:21 por FAF

A usuária ROSANGELA PIRES ao tentar acessar o Forum obtem sempre a mensagem de BANIMENTO.
A mesma …

Comentários: 3

Impressora Ticket

15/11/2016, 09:20 por clima238

Bom dia,
Por favor alguém me explique porque o código abaixo imprime no ecrã em vez do printer: …

Comentários: 0

Estatísticas
Temos 6963 usuários registrados
O último usuário registrado atende pelo nome de miiiih

Os nossos membros postaram um total de 17119 mensagens em 2577 assuntos

Barra de processamento

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Anexo Barra de processamento

Mensagem por hugo em 14/1/2010, 20:20

Galera

umas barrinhas basicas ai

o codigo vai abaixo

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]

Código:

********************************************************
Function BarGraf1
********************************************************
* Written by: Ralph P. Morse Jr.  (c) 1996
*            [Você precisa estar registrado e conectado para ver este link.]
*  Parameter: Character string (Window Title)
*  Platform: FoxPro for Windows
********************************************************
Parameter PCTitleBar
If Type([PCTitleBar]) = [L]
Private JNDrawBar
Store 03.125 + LNPercent * 00.375 To JNDrawBar
@ 01.750, 03.125 Clear To 02.750, JNDrawBar
@ 01.688, 03.000 TO 01.688, JNDrawBar ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 02.750, 03.125 TO 02.750, JNDrawBar ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 01.688, JNDrawBar TO 02.813, JNDrawBar ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 03.500, 20.000 Say LTrim(Str(LNPercent)) + [%]
Return
Endif

Define Window BarGraph ;
    At 00.000, 00.000 ;
    Size 05.000, 43.625 ;
    Title AllTrim(PCTitleBar) ;
    System ;
    Font [MS Sans Serif], 10 Style [B] ;
    Color RGB(000,000,000,192,192,192)
Activate Window BarGraph NoShow
Move Window BarGraph Center
@ 01.625, 02.875 To 02.875, 40.875 ;
    Pen 1 Color RGB(000,000,000,192,192,192)
@ 01.563, 02.750 To 02.938, 41.000 ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 01.563, 02.750 To 01.563, 41.000 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 01.563, 02.750 To 02.938, 02.750 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 01.688, 03.000 Fill To 02.813, 40.750 ;
    Color RGB(000,000,000,255,255,128)
@ 01.688, 03.000 To 02.813, 03.000 ;
    Pen 2 Color RGB(128,128,128,192,192,192)
@ 01.688, 03.000 To 02.750, 03.000 ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 03.500, 20.000 Say [0%]


Código:
********************************************************
Function BarGraf2
********************************************************
* Written by: Ralph P. Morse Jr.  (c) 1996
*            [Você precisa estar registrado e conectado para ver este link.]
*  Parameter: Character string (Window Caption)
*  Platform: FoxPro for Windows
********************************************************

Parameter PCTitleBar
If Type([PCTitleBar]) = [L]
If Mod(LNPercent, 2) = 1
Return
Endif
Private JNLoop
For JNLoop = 1 To LNPercent / 2
@ 02.688, 01.500 + JNLoop Say Space(3) ;
    Color RGB(192,192,192,000,000,128) ;
    Font [Arial], 6 Style [N]
EndFor
Return
Endif

Define Window BarGraph ;
    At 00.000, 00.000 ;
    Size 04.500, 55.000 ;
    Font [MS Sans Serif], 10 Style [B] ;
    System ;
    Color RGB(000,000,000,192,192,192)
Move Window BarGraph Center
Activate Window BarGraph NoShow
@ 02.500, 02.000 To 03.500, 52.750 ;
    Pen 1 Color RGB(255,255,255,192,192,192)
@ 02.500, 02.000 To 02.500, 52.625 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 02.500, 02.000 To 03.438, 02.000 ;
    Pen 1 Color RGB(128,128,128,192,192,192)
@ 00.750, 02.000 Say AllTrim(PCTitleBar)


Código:
********************************************************
Function BarGraf3
********************************************************
* Written by: Ralph P. Morse Jr.  (c) 1996
*            [Você precisa estar registrado e conectado para ver este link.]
*  Parameter: Character string (Window Title)
*  Platform: FoxPro for DOS
********************************************************
Parameter PCTitleBar
If Type("PCTitleBar") = "L"
@ 3, 04 Say Replicate(Chr(219), LNPercent / 2) + ;
    IIf(LNPercent / 2 > Int(LNPercent / 2), ;
    CHR(221), "") Color N+/W
@ 4, 26 Say Str(LNPercent, 3) Color N/W
Return
Endif

Define Window BarGraph ;
    At 0, 0 ;
    Size 5, 56 ;
    Shadow ;
    None ;
    Color W+/W, N/W
Move Window BarGraph Center
Activate Window BarGraph NoShow
@ 0, 01 To 6, 56
@ 0, 56 Say Chr(191) Color N+/W
@ 1, 56 To 6, 56 Color N+/W
@ 6, 56 Say Chr(217) Color N+/W
@ 6, 02 To 6, 55 Color N+/W
@ 2, 03 To 5, 54
@ 2, 03 Say Chr(218) Color N+/W
@ 3, 03 To 5, 03 Color N+/W
@ 5, 03 Say Chr(192) Color N+/W
@ 2, 04 To 2, 53 Color N+/W
@ 1, 03 Say Chr(222) Color B/W
@ 1, 04 Say PadC(AllTrim(PCTitleBar), 50) Color W+/B
@ 1, 54 Say Chr(221) Color B/W
@ 4, 28 Say "0%" Color N/W

espero que possa servir pra alguem

valeu

_________________
"A tristeza é a falta de alegria, mais sem ela eu não poderia entender a alegria do fato de que a felicidade existe!"
Helio Leites - [Você precisa estar registrado e conectado para ver este link.]

hugo
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum