PROPIEDADES DEL CONTROL LISTBOX EN VISUAL BASIC 6.0
*propiedad backcolor: establece el color de fondo del control
*propiedad enabled: permite habilitar o des habilitar el control ListBox - valores true y false
*propiedad font: establece el tipo de fuente, tamaño, estilo, etc... de los elementos
*propiedad forecolor: establece el color de la fuente de los elementos
*propiedad height y width: establece el alto y ancho del control
*propiedad multiselect: permite indicar si el ListBox se podrá seleccionar mas de un elemento
*propiedad visible: si esta en true el control sera visible se esta en false estara oculto
*propiedad appearance: esta propiedad permite poner la apariencia de 3 dimensiones en nuestra componente
*propiedad datafield: permite en lazar el componente con un campo de una base de datos de forma que pueda coger o almacenar el valor seleccionado en la base de datos
*propiedad left: esta propiedad indica la posición del componente respecto al borde izquierdo del form
NÚMEROS ALEATORIOS O RANDOMICOS EN VISUAL BASIC 6.0
conviene recordar que "aleatorio" no puede confundirse con "cualquier cosa", "descontrol","incierto","impredecible", etc. usaremos aleatorio mas en el sentido de no predeterminado que en el de no predecible, ya que en general vamos a definir que tipo de resultado queremos obtener a en que rango de valores debe estar.
un numero aleatorio es aquel obtenido al azar, es decir, que todo número tenga la misma probabilidad de ser elegido y que la elección de uno no dependa de la elección del otro. El ejemplo clásico más utilizado para generarlos es el lanzamiento repetitivo de una moneda o dado ideal no trucado.
EJEMPLO DE NÚMEROS ALEATORIOS
crear el código de un programa en el que se declaran tres variables tipo single A, B, C cuyo valor se muestra en pantalla debe estar comprendido entre cero y 10, excluido el diez
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
Dim A, B, C As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
A = Rnd() * 10
B = Rnd() * 10
C = Rnd() * 10
MsgBox("A vale " & A & " ;B vale " & B & " ; C vale " & C)
End Sub
End Class
Option Explicit On
Public Class Form1
Dim A, B, C As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
A = Rnd() * 10
B = Rnd() * 10
C = Rnd() * 10
MsgBox("A vale " & A & " ;B vale " & B & " ; C vale " & C)
End Sub
End Class
Comentarios
Publicar un comentario