Criando um slide show [Resolvido]

Pessoal, boa tarde!

Gostaria de criar uma tela q fica trocando de imagem igual um slide show, será que alguém poderia me ajudar?

Eu criei uma tag “Contador” estou tentando pegar o valor e quando ela chegar a certo valor, troca a imagem de fundo, mas infelizmente não está funcionando.

Bom dia, Rafael!

Onde você criou o Tag Contador? Qual é o Preset dele? Como você está tentando pegar o valor dele? Como você está tentando trocar a imagem de fundo?

1 Like

Bom dia Gustavo!

Fiz a criação no Viewer.
Coloquei 11 para teste.
Fui tentando de várias formas (Value, Preset, Script d true/false)…
Coloquei primeiro para trocar a cor do fundo de tela como teste.

Sugiro criar o Tag Contador na própria Tela. Então você poderá usar o evento OnPreset dele para alterar a cor de fundo dela. Por exemplo:

Sub TagContador1_OnPreset()
	Parent.BackgroundColor = Int(16777216 * Rnd)
End Sub

Bem mais fácil, hahaha… mas Gustavo, e se eu quiser trocar para 3 cores diferentes em um período de tempo? Exemplo: 10 seg para cor preto, 10 segundo para branco e 10 segundos para verde?

Sub TagContador1_OnPreset()
	if Parent.BackgroundColor = RGB(0,0,0) then
		Parent.BackgroundColor = RGB(255,255,255)
	elseif Parent.BackgroundColor = RGB(255,255,255) then
		Parent.BackgroundColor = RGB(0,255,0)
	elseif Parent.BackgroundColor = RGB(0,255,0) then
		Parent.BackgroundColor = RGB(0,0,0)
	end if
End Sub
1 Like

Deu certissimo, muito obrigado!

1 Like