Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
18 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 18 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Erro de compatibilidade de cores

28/3/2017, 10:59 por Clebervfp

Boa dia, estou com um problema com vfp9, se alguém poder me ajudar fico agradecido!

Tenho um …

Comentários: 0

Espessura do cursor intermitente

7/3/2017, 09:08 por Jefferson Matakas

Bom dia a todos !!

Existe uma opcao no windows que pode ser acessada atraves da 'central da …

Comentários: 0

DESENVOLVIMENTO EM REDES

4/3/2017, 18:45 por AJC

Pessoal tem ou conhece livros ou material para programação em
redes usando banco de dados nativo …

Comentários: 0

USAR REPORT FORM

30/12/2016, 09:06 por AJC

Pessoal bom dia,
Estou com um grande problema, já pesquisei muita coisa sobre report form, mas o …

Comentários: 4

Como preencher campos vazios

9/2/2017, 11:55 por Linghston

Pessoal boa tarde,

É o seguinte, eu preciso preencher os campos de uma coluna da tabela DBF que …

Comentários: 2

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

Os nossos membros postaram um total de 32 mensagens em 18 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.]
avatar
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