 |
 |
 |
| Autor |
Mensagem |
yuri
Usuário
Registrado: 07/07/14
Mensagens: 162
Localização: Santarem PA |
|
| Tempo para troca de script ??? |
|
Como fazer uma contagem regressiva de troca de scripts ou seja eu coloco um script do tipo
Setlabeltext('Label','Frase');
Depois de 5 segundos ele troca pra esse script
Setlabeltext('Label','label sem nada');
Alguem sabe...
_________________
Metallica
the unforgiven |
|
| Qua Set 24, 2014 11:10 pm |
 |
|
welgomes
Usuário
Registrado: 10/07/11
Mensagens: 827
Localização: São Paulo - Capital |
|
|
|
No menu acesse Script Builder > Tempo > Exibir contagem regressiva
Acredito que você consiga adaptar o código para o que você quer.
|
|
| Qua Set 24, 2014 11:43 pm |
|
|
yuri
Usuário
Registrado: 07/07/14
Mensagens: 162
Localização: Santarem PA |
|
|
|
Eu tento mais quando eu clicko em contagem regressiva aparece a mensagem de erro e nao o script
_________________
Metallica
the unforgiven |
|
| Qui Set 25, 2014 4:20 pm |
|
|
welgomes
Usuário
Registrado: 10/07/11
Mensagens: 827
Localização: São Paulo - Capital |
|
|
|
 | | mapa->OnCreate
WriteGlobalVar('hora_mensagem', Time());
WriteGlobalVar('mostrar', 'N');
mapa->MainLoop
var mostrar:String;
var hora_mensagem:DateTime;
var hora:Integer;
var minuto:Integer;
var segundo:Integer;
var milisegundo:Integer;
mostrar := ReadGlobalVar('mostrar');
if mostrar = 'S' then
begin
SetLabelText('Label0', 'Sumindo em 5 segundos!');
DecodeTime(Time(), hora, minuto, segundo, milisegundo);
segundo := segundo + 5;
hora_mensagem := EncodeTime(hora, minuto, segundo, milisegundo);
WriteGlobalVar('hora_mensagem', hora_mensagem);
WriteGlobalVar('mostrar', 'N');
end;
hora_mensagem := ReadGlobalVar('hora_mensagem');
if hora_mensagem < Time() then
begin
SetLabelText('Label0', '');
end;
Button0->OnInteract
WriteGlobalVar('mostrar', 'S');
|
|
|
| Sex Set 26, 2014 12:53 am |
|
|
welgomes
Usuário
Registrado: 10/07/11
Mensagens: 827
Localização: São Paulo - Capital |
|
|
|
Deixando mais simples.
No MainLoop, use o código abaixo:
| |
if ReadGlobalVar('mostrar') = 'S' then
begin
SetLabelText('Label0', 'Sumindo em 5 segundos!');
WriteGlobalVar('hora_mensagem', (Time() + EncodeTime(0,0,5,0)));
WriteGlobalVar('mostrar', 'N');
end;
if ReadGlobalVar('hora_mensagem') < Time() then
begin
SetLabelText('Label0', '');
end;
|
|
|
| Sex Set 26, 2014 1:07 pm |
|
|
welgomes
Usuário
Registrado: 10/07/11
Mensagens: 827
Localização: São Paulo - Capital |
|
|
| Sex Set 26, 2014 1:13 pm |
|
|
yuri
Usuário
Registrado: 07/07/14
Mensagens: 162
Localização: Santarem PA |
|
|
|
Valeu cara!!! 
_________________
Metallica
the unforgiven |
|
| Sáb Set 27, 2014 3:47 pm |
|
|
|
|
|
 |
 |
|
