Clique abaixo para nos ajudar
Login

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
13 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 13 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
» Ajuda a direcionar
8/12/2016, 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 6964 usuários registrados
O último usuário registrado atende pelo nome de Ricardo Cassolatto

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

WAIT NO CENTRO NÃO FUNCIONA

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

Resolvido WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 28/9/2012, 19:04

OLÁ AMIGOS.

MINHAS MENSÁGENS WAIT SÓ APARECEM NO CENTRO DA TELA QUANDO
EXECUTADA DENTRO DO VFP.
NO EXE APARECE NO INÍCIO UMA TELA MENOR QUE ACABA ESTRAGANDO
O CALCULO PARA CENTRALIZAR.
NO PRG DE INICIALIZAÇÃO EU JÁ COLOQUEI:

_SCREEN.VISIBLE=.T.
_SCREEN.windowstate=2

CONTINUA NÃO FUNCIONANDO!
ALGUEM ME AJUDA ?

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Sub-Zero em 30/9/2012, 20:57

Um jeito de manipulala no centro do form seria

WAIT WINDOW 'Atualizando Base de Dados' NOWAIT ;
AT WROWS([screen])/2, (WCOLS([screen]))/2

Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Sub-Zero em 30/9/2012, 21:00

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

Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido obrigado SUB; mas veja só

Mensagem por pedrossian em 30/9/2012, 22:40

MEU CÓDIGO ERA ASSIM.

m.coluna = (LEN(ALLTRIM(m.texto))/2)
m.linha = ( SROWS()/ 2 )
m.coluna = ( SCOLS() / 2 ) - m.coluna
WAIT m.texto WINDOW AT m.linha, m.coluna TIMEOUT 3

? SROWS() = 170.667

FICOU ASSIM
m.linha = WROWS([screen])/2
m.coluna = ((WCOLS([screen]))/2) - m.coluna
WAIT m.texto WINDOW AT m.linha, m.coluna TIMEOUT 3

? WROWS([screen]) = 43.625


CONTINUA NÃO FUNCIONADO!
E AGORA?

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido VOU TENTAR A FUNÇÃO FUNÇÃO WaitWindowsCentrado()

Mensagem por pedrossian em 30/9/2012, 22:47

OBRIGADO MESMO!!!!!!!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Julio em 1/10/2012, 11:55

Veja este postado pelo Marcos Guedes em funções interessantes:

Código:
PROCEDURE waitCenter as VOID
*********************************

LPARAMETERS pctext as String, pntimeout as Integer
LOCAL lnyy as Integer, lnxx as Integer

* Calcula o número total de linhas
m.lnxx = 1
FOR m.lnyy = 1 TO MEMLINES( m.pctext )
  m.lnxx = MAX( m.lnxx, LEN( ALLTRIM( MLINE(m.pctext, m.lnxx) ) ) )
NEXT

* Calcula a posição central da tela
m.lnyy = ( SROWS()/ 2 ) - ( (m.lnyy-1) / 2 )
m.lnxx = ( SCOLS() / 2 ) - ( m.lnxx / 2 )

* Limpa buffer de teclado e janela wait window
CLEAR TYPEAHEAD
WAIT CLEAR

* Se for especificado o timeout
IF VARTYPE( m.pntimeout ) = "N"
  *!* ---> Para ambiente de teste
  WAIT WINDOW m.pctext TIMEOUT m.pntimeout AT m.lnyy, m.lnxx-5
  *!* ---> Para ambiente de produção
  *!*WAIT WINDOW m.pctext TIMEOUT m.pntimeout AT m.lnyy+INT((SYSMETRIC(2)*3)/600), m.lnxx+INT((SYSMETRIC(1)*40)/800)
ELSE
  *!* ---> Para ambiente de teste
  WAIT WINDOW m.pctext NOWAIT NOCLEAR AT m.lnyy, m.lnxx-5
  *!* ---> Para ambiente de produção
  *!*WAIT WINDOW m.pctext NOWAIT NOCLEAR AT m.lnyy+INT((SYSMETRIC(2)*3)/600), m.lnxx+INT((SYSMETRIC(1)*40)/800)
ENDIF
ENDPROC



Link aqui no proprio forum

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 1/10/2012, 12:53

Obrigado julio!

vou tentar com esta tambem.
ABÇ.

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Marcos Guedes em 1/10/2012, 17:11

Pedro, estamos aguardando seu retorno para saber se funcionou.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido DEI UMA SIMPLIFICADA; DEVO TER FEITO ALGO ERRADO

Mensagem por pedrossian em 1/10/2012, 19:15

_SCREEN.VISIBLE=.T.
_SCREEN.windowstate=2

public m.texto as String, m.tempo as Integer
public m.linha as Integer, m.coluna as Integer
m.linha=0
m.coluna=0
m.tempo=3
m.texto="Testando mensagem WAIT centralizado !"
m.coluna = (LEN(ALLTRIM(m.texto))/2)
m.linha = WROWS([screen])/2
m.coluna = ((WCOLS([screen]))/2) - m.coluna

CLEAR TYPEAHEAD
WAIT CLEAR
* *!* ---> Para ambiente de teste
WAIT WINDOW m.texto TIMEOUT m.tempo AT m.linha+INT((SYSMETRIC(2)*3)/600), m.coluna+INT((SYSMETRIC(1)*40)/800)

* Esta funciona dentro do VFP
WAIT m.texto WINDOW AT m.linha, m.coluna TIMEOUT 3

return[code]

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 1/10/2012, 19:20

o LINK do SUB-ZERO ainda não concegui testar.
tem codigo que ainda não entendi; estou brigando!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 2/10/2012, 20:13

Pessoal.

Estoum fazendo um algoritmo todo calculado em pixels,
porque cada tela pode trabalhar com tamanho de fontes diferentes !

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Julio em 3/10/2012, 16:07

Pedro

Testei esse seu codigo em meu projeto, compilei e funcionou quando utilizando o executavel.
[code]_SCREEN.VISIBLE=.T.
_SCREEN.windowstate=2

public m.texto as String, m.tempo as Integer
public m.linha as Integer, m.coluna as Integer
m.linha=0
m.coluna=0
m.tempo=3
m.texto="Testando mensagem WAIT centralizado !"
m.coluna = (LEN(ALLTRIM(m.texto))/2)
m.linha = WROWS([screen])/2
m.coluna = ((WCOLS([screen]))/2) - m.coluna

CLEAR TYPEAHEAD
WAIT CLEAR
* *!* ---> Para ambiente de teste
WAIT WINDOW m.texto TIMEOUT m.tempo AT m.linha+INT((SYSMETRIC(2)*3)/600), m.coluna+INT((SYSMETRIC(1)*40)/800)

* Esta funciona dentro do VFP
WAIT m.texto WINDOW AT m.linha, m.coluna TIMEOUT 3

return[code][/code]

Julio
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido ja testei essa, e não da certo; não sei que confoguração de tela que meu exe pega. fis mais treis maneiras, veja só.

Mensagem por pedrossian em 4/10/2012, 00:25

CLEAR
public m.texto as String, m.tempo,m.coluna,m.linha1 as Integer
m.texto="WAIT WINDOW no centro da tela...!"
m.linha=0
m.coluna=0
m.tempo=3
_SCREEN.VISIBLE=.T.
_SCREEN.windowstate=2
CLEAR TYPEAHEAD
WAIT CLEAR

****************** outro tipo de mensagem *************************
@ WROWS()/2,(WCOLS( )-TXTWIDTH(m.texto,'Courier ',24)* ;
FONTMETRIC(6,'Courier ',24)/FONTMETRIC(6))/2 ;
SAY m.texto FONT 'Courier ',24

****************** totalmente em pixels **************************
m.coluna=(SYSMETRIC(1)/FONTMETRIC(6 , WFONT(1,_SCREEN.Name), WFONT(2,_SCREEN.Name) , WFONT(3,_SCREEN.Name))/2);
-TXTWIDTH(m.texto , WFONT(1,_SCREEN.Name), WFONT(2,_SCREEN.Name) , WFONT(3,_SCREEN.Name))/2

WAIT m.texto WINDOW AT (WROWS([SCREEN])/2), m.coluna TIMEOUT 3

************* usando funções sem especificar a origem das telas *********
m.linha=WROWS()/2
m.coluna= (WCOLS()/2)-TXTWIDTH(m.texto , WFONT(1,_SCREEN.Name), WFONT(2,_SCREEN.Name) , WFONT(3,_SCREEN.Name))/2

WAIT m.texto WINDOW AT m.linha , m.coluna TIMEOUT m.tempo
return

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 4/10/2012, 01:21

MUITO DOS PROBLEMAS DOS CALCULOS ESTÁ NA FUNÇÃO FONTMETRIC(6)
PORQUE ELA PEGA A MÉDIA DE PIXELS DO CARACTER DA FONTE.

A LETRA "I" É MENOR QUE QUALQUER OUTRA LETRA.
O MAIOR PROBLEMA ESTÁ NOS TEXTOS GRANDES !!!!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Marcos Guedes em 6/10/2012, 00:40

Meu povo, vocês já testaram a solução abaixo que temos em nosso fórum?

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

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 6/10/2012, 11:30

MARCOS.
A FUNÇÃO MEMLINES() É PARA CAMPO MEMO.
EU já USEI ESTE CALCULO SUBSTITUINDO MEMLINES() POR LEN(),
TXTWIDTH().
ESTE LINK QUE VC ME PASSOU, O JULIO já TINHA ME MOSTRADO
NO INICIO DO TOPICO !!!!!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Sub-Zero em 6/10/2012, 11:49

Impossivel que isso nao funcionou no meio da tela , provavel que da certo pra todas resolucoes

WAIT WINDOW 'Atualizando Base de Dados' NOWAIT ;
AT WROWS([screen])/2, (WCOLS([screen]))/2

Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 6/10/2012, 12:02

EU JÁ TESTEI ESTE CALCULO SÓ QUE SUBSTITUINDO A FUNÇÃO MEMLINES()
QUE É PARA CAMPOS TIPO "MEMO".

USEI A FUNÇAÕ LEN() E DEPOIS, A FUNÇÃO TXTWIDTH()

NO TOPICO "WAIT NO CENTRO NÃO FUNCIONA" EU MOSTREI TODAS AS TENTATIVAS QUE USEI SEM EXITO!!!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido EU ESPLICO O RESULTADO.

Mensagem por pedrossian em 6/10/2012, 12:10

EU FIZ APARECER UMA MENSAGEM NA TELA ME INFORMANDO QUAL A
QUANTIDADE DE LINHAS E DE COLUNAS QUE NAQUELE MOMENTO
QUE A MENSAGEM "WAIT" ESTAVA APARECENDO.
AÍ EU DESCOBRI QUE QUANDO EXECUTAVA:

DENTRO DO VFP (DESENVOLVIMENTO)
QTD DE COLUNAS ERA "171"

NO EXE FORA DO VFP
QTD DE COLUNAS ERA "128"

O COMANDO ERA ESTE
=MESSAGEBOX(STR(WROWS([SCREEN]))+" "+STR(WCOLS([SCREEN]))+" "+STR(SYSMETRIC(1)))


pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Marcos Guedes em 8/10/2012, 08:50

[Você precisa estar registrado e conectado para ver este link.] escreveu:Meu povo, vocês já testaram a solução abaixo que temos em nosso fórum?

[Você precisa estar registrado e conectado para ver este link.]
Pedro, você testou esta solução SEM modificações?
Já utilizei esta rotina em aplicações passadas e nunca tive problemas.

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido SERVE MAS NÃO ESTÁ PERFEITO !!!

Mensagem por pedrossian em 8/10/2012, 17:51

AGORA INVERTEU.
A MENSAGEM NO .EXE PICOU MAIS CENTRADA, MAS NÃO ESTÁ PERFEITO.
PARA FICA MELHOR, ACHO QEU TENHO QUE CRIAR UM FORM COM UM TEXTBOX :

AUTOCENTER= .T.
ALIGNMENT= 2 - CENTER

COM UM TIMER
ENTERVAL= N.TEMPO
E NO EVENTO
TIMER - THISFORM.RELEASE

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 12/10/2012, 01:49

FIZ UM NOVO TÓPICO SOBRE WAIT NO CENTRO COM FORM.
VEJAM.
PARECE BOM!!!!
A LÓGICA DO PROCEDIMENTO TEM UM ERRO DE REPETIÇÃO;
PORQUE O PROGRAMA QUE INTERPRETA A VOZ TEM QUE SER ACENTUADA
QUANDO SE DIS "C" É MELHOR ESCREVER "CÊ"
EXE:loSpeak.SPEAK("Raça do animal não autorizada pela ABCZ")
MELHOR.
loSpeak.SPEAK("Raça do animal não autorizada pela ABÊCÊZÊ !")
O SOM FICA MELHOR!!!

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por pedrossian em 12/10/2012, 02:05

FIZ UM FORM QUE RESOLVE TUDO!!!!!
VEJAN O TOPICO.

pedrossian
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Sub-Zero em 12/10/2012, 12:50

isso eu já sabia
alias tem como chamar um Form ...... abaixo na janela perto do relogio q ficaria tb legal

a questao é que abrir um form poderia ter que emular a saida .... mais um relogio teria como . abrir o form dar mensagem e fecha-lo novamente pelo timer se fez isso entao ficou otimo

Sub-Zero
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: WAIT NO CENTRO NÃO FUNCIONA

Mensagem por Conteúdo patrocinado Hoje à(s) 17:24


Conteúdo patrocinado


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