Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: toods en 20 Agosto 2010, 23:01 pm



Título: ayuda comprension del codigo
Publicado por: toods en 20 Agosto 2010, 23:01 pm
Hola, necesito ayuda.
me podrian decir que hacen estas partes de codigo,,

parte1
Código:
Private Sub Command1_Click()
Label1.Caption = cboClubes.Text
End Sub
Combobox(cboClubes) - button - label


parte2
Código:
Dim cambio As Integer

Private Sub Form_Load()
cambio = 250
End Sub

Private Sub tmrReloj_Timer()
imgNube.Left = imgNube.Left + cambio
If imgNube.Left > (Me.ScaleWidth - imgNube.Width) Then cambio = cambio * -1
If imgNube.Left < 0 Then cambio = cambio * -1

End Sub
imgNube es una imagen
Timer

gracias de antemano ...


Título: Re: ayuda comprension del codigo
Publicado por: BlackZeroX en 20 Agosto 2010, 23:07 pm

http://www.recursosvisualbasic.com.ar/htm/tutoriales/tutorial-basico3.htm#variables

Dulces Lunas!¡.


Título: Re: ayuda comprension del codigo
Publicado por: Fitoschido en 20 Agosto 2010, 23:58 pm
Odio las respuestas de la gente que consisten sólo en un enlace y no escriben nada, como si no quisieran molestarse en contestar a los subordinados plebeyos xDDD

Te lo explicaré:

Código
  1. Private Sub Command1_Click()
  2. Label1.Caption = cboClubes.Text
  3. End Sub

En pseudocódigo (http://es.wikipedia.org/wiki/Pseudoc%C3%B3digo), esto dice:

Procedimiento Clic en Command1:
  El Caption de Label1 igual a Texto de cboClubes
Fin Procedimiento

O sea, Indicar que al hacer clic en ese botón se ejecutará el código dentro de ese procedimiento, que en este caso es igualar el caption de Label1 al texto de cboClubes.

Código
  1. Dim cambio As Integer
  2.  
  3. Private Sub Form_Load()
  4. cambio = 250
  5. End Sub
  6.  
  7. Private Sub tmrReloj_Timer()
  8. imgNube.Left = imgNube.Left + cambio
  9. If imgNube.Left > (Me.ScaleWidth - imgNube.Width) Then cambio = cambio * -1
  10. If imgNube.Left < 0 Then cambio = cambio * -1
  11.  
  12. End Sub

Declarar (Dim) el texto "cambio" como Entero (integer)

Procedimiento CargarFormulario:
   "cambio" (declarado como Entero) igual a 250
Fin Procedimiento

Procedimiento Intervalo de Timer:
   Posición Left de imgNube igual a la misma más el valor de "cambio" osea, le suma a Left el valor de cambio, 250.
   Si (If) posición Left de imgNube es mayor que AnchoFormulario (Me se refiere al form actual) menos Ancho de imgNube Entonces (Then) "cambio" será igual a su valor por -1

...

Espero te ayude, leelo literal.

Saludos