Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
11 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 11 Visitantes :: 1 Motor de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
Últimos assuntos
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: 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: 2

Visite meu canal no Youtube

20/1/2017, 00:45 por ImRicoh

VFP Unlimited


Comentários: 0

Bloquear edição do ListBox

17/6/2010, 15:13 por Julio

Pessoal

Boa Tarde!

Tnho uma listbox apenas para exibir o resultado.
Preciso bloquear a listbox …

Comentários: 17

automação do mozilla e chrome

15/1/2017, 12:16 por Handerson Mildroz

Boa tarde a todos!

Sou iniciante no VFP. Preciso de ajuda, pois tenho um código que usa o …

Comentários: 0

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

Os nossos membros postaram um total de 10 mensagens em 4 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