Dúvida sobre "Visual basic control timer"

[Tony_Soprano]

Olá Karkov.
Estou a escrever pois não percebi bem a seguinte instrução:
imagens.GetLength(valorAleatorio.Next(2)).ToString().

Estou também um pouco perdido depois das instruções que me deste não sei que é que é suposto fazer a seguir.

Bem por agora é tudo espero ter-me feito compreender 1 abc fica bem.

[karkov]

(07-05-2012 22:20)Tony_Soprano Escreveu:  Olá Karkov.
Estou a escrever pois não percebi bem a seguinte instrução:
imagens.GetLength(valorAleatorio.Next(2)).ToString().

Estou também um pouco perdido depois das instruções que me deste não sei que é que é suposto fazer a seguir.

Bem por agora é tudo espero ter-me feito compreender 1 abc fica bem.

Olá,
O que é que não percebeste naquela instrução?

abc.

[Tony_Soprano]

Ola Karkov.
Quanto ao post anterior onde disse que não compreendia a instrução imagens.GetLength(valorAleatorio.Next(2)).ToString().
Não comprendo a instrução completa ou seja qual a sua função no programa.
Espero desta vez ter sido mais claro, e que me possas ajudar.

[karkov]

ah... a instrução fica assim

Código:

PictureBox1.ImageLocation = imagens.GetLength(valorAleatorio.Next(2)).ToString

ou seja:
Tens uma PictureBox que vai receber a string do caminho (imagens.GetLength().ToString) de uma imagem aleatória (valorAleatorio.Next(2))

melhor explicado só enviando o código.... lol

---

CORREÇÃO:

Só depois de ver o código reparei num erro my bad... sorry...

o código é:

Código:

PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString

em vez de:

Código:

PictureBox1.ImageLocation = imagens.GetLength(valorAleatorio.Next(2)).ToString

[Tony_Soprano]

Olá Karkov.
Bem o meu programa tem o seguinte código e mesmo assim não funciona:

Public Class Form1
Dim i As Integer
Dim imagens() As String = {"C:\Vb10sbs\chap07\face01", "C:\Vb10sbs\chap07\face02", "C:\Vb10sbs\chap07\face03"}
Dim valorAleatorio As New Random()
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles lblrelogio.Click

End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
i = i - 1
lblrelogio.Text = TimeString
PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
i = 30
End Sub
End Class


Agradecia que desses uma vista de olhos e me ajudasses a descobrir o erro.
Além disso continuo mesmo com a instrução nova sem perceber o que faz.
Não consegues mesmo trocar esta instrução por miudos.. PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString ou seja esmiusala de forma a isolares as propriedades e identificar o que cada instrução separada faz. Gostava mesmo de perceber se não for pedir de mais.

Muito obrigado por tudo.
Tony_Soprano.

[karkov]

(10-05-2012 00:01)Tony_Soprano Escreveu:  Olá Karkov.
Bem o meu programa tem o seguinte código e mesmo assim não funciona:

Public Class Form1
Dim i As Integer
Dim imagens() As String = {"C:\Vb10sbs\chap07\face01", "C:\Vb10sbs\chap07\face02", "C:\Vb10sbs\chap07\face03"}
Dim valorAleatorio As New Random()
Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles lblrelogio.Click

End Sub
Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
i = i - 1
lblrelogio.Text = TimeString
PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
i = 30
End Sub
End Class


Agradecia que desses uma vista de olhos e me ajudasses a descobrir o erro.
Além disso continuo mesmo com a instrução nova sem perceber o que faz.
Não consegues mesmo trocar esta instrução por miudos.. PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString ou seja esmiusala de forma a isolares as propriedades e identificar o que cada instrução separada faz. Gostava mesmo de perceber se não for pedir de mais.

Muito obrigado por tudo.
Tony_Soprano.

muito bem....
só te falta 2 coisas para funcionar:

1. onde tens ( C:\Vb10sbs\chap07\face01 ... ) tens que ter paths para imagens (.jpg ou .gif ...)
2. onde tens ( PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString ) tens que substituir por:
   
   Código:
   

   If (i = 0) Then
   PictureBox1.ImageLocation = imagens(valorAleatorio.Next(0, 3)).ToString
   i = 30
End If
   ou seja: se o teu contador for igual a 0 então mostra uma imagem e volta a reiniciar o contador.
   

ainda não te vou trocar aquilo por miudos... vou antes dizer-te para fazeres o seguinte:

1. comenta a seguinte linha de codigo lblrelogio.Text = TimeString
2. cria esta linha de código lblrelogio.Text = imagens(valorAleatorio.Next(0, 3)).ToString e vê o que retorna, pode ser que compreendas
   

cumps.

[Tony_Soprano]

Ola Karkov.
Finalmente ficou o programa a funcionar.
Quanto a linha que me pediste para fazer o coment ca vai.
lblrelogio.Text = TimeString 'Esta linha de código permite mostrar o relogio com recurso ao relogio de sistema'.

Depois de ter visto a instrução: lblrelogio.Text = imagens(valorAleatorio.Next(0, 3)).ToString
Quanto ao que faz a esta linha de código, gera aleatoriamente uma string com o caminho de uma das imagens e imprime-o no ecra.
A diferença desta para a outra instrução que tenho a correr no programa é que esta mostra o resultado (ou seja o caminho) do que gerou e a que esta a correr mostra a imagem.

Bem espero ter acertado..

Agora corrige-me se eu estiver errado..

Obrigado por tudo cumprimentos Tony_Soprano.

[karkov]

quando te disse para comentares a linha de código lblrelogio.Text = TimeString não era para me dizeres o que ela faz... o que ela faz sei eu... eu tinha dito para comentares a linha no teu programa e colocares a outra instrução que te tinha dado para ver se percebias o que é que o imagens(valorAleatorio.Next(0, 3)).ToString fazia ...

mas pronto tudo ok. Então a aplicação está a correr certo? se precisares de mais alguma coisa apita.