Visual Basic 6.0 - Tecnun

More documents

Recommendations

Info

ESIISS: Aprenda Visual Basic 6.0 como si estuviera en Primero página 82texto, modificarán y visualizarán las coordenadas del punto a dibujar.La Tabla 6.5 muestra los objetos y las propiedades a considerar en este ejemplo.Control Propiedad Valor Control Propiedad ValorHscrollbar Name HScroll1 TextBox Name txtCaja2LargeChange 5 Text 0Max 100 TextBox Name txtCaja3Min 0 Text 0SmallChange 1 PictureBox Name PctBoxVScrollbar Name VScroll1 BackColor &H00FFFFFF&LargeChange 5 CommandButton Name Command1Max 100 Caption SalirMin 0SmallChange 1Tabla 6.5. Controles y propiedades del Ejemplo 6.2.Se presenta a continuación el código del programa:Private Sub cmdSalir_Click()EndEnd SubPrivate Sub Form_Load()pctBox.Scale (0, 0)-(100, 100)End SubPrivate Sub hsbX_Change()txtCaja3.Text = Format(hsbX.Value)pctBox.PSet (hsbX.Value, vsbY.Value), vbRedEnd SubPrivate Sub txtCaja2_KeyPress(KeyAscii As Integer)Dim valor As Integervalor = Val(txtCaja2.Text)If KeyAscii = 13 ThenIf valor = vsbY.Min ThenvsbY.Value = valorElseIf valor > vsbY.Max ThenvsbY.Value = vsbY.MaxElsevsbY.Value = vsbY.MinEnd IfEnd IfEnd SubPrivate Sub txtCaja3_KeyPress(KeyAscii As Integer)Dim valor As Integervalor = Val(txtCaja3.Text)If KeyAscii = 13 ThenIf valor = hsbX.Min ThenhsbX.Value = valorElseIf valor > hsbX.Max ThenhsbX.Value = hsbX.MaxElsehsbX.Value = hsbX.MinEnd IfEnd IfEnd Sub
Capítulo 6: Gráficos en Visual Basic 6.0 página 83Private Sub vsbY_Change()txtCaja2.Text = Format(vsbY.Value)pctBox.PSet (hsbX.Value, vsbY.Value), vbRedEnd Sub6.7.2 Ejemplo 6.2: Representación gráfica de la solución de la ecuación de segundo gradoEn este segundo ejemplo, cuyo formulario semuestra en la Figura 6.10, se representa el lugar deraíces de la ecuación de segundo grado en función delos coeficientes, o más en concreto en función de loscocientes B/A y C/A. El valor de estas relaciones secambia interactivamente por medio de dos barras dedesplazamiento.El programa permite además la posibilidad demantener dibujadas las soluciones anteriores de laecuación, o borrarlas y dibujar sólo las últimas raícescalculadas borrando las anteriores. Para finalizar elFigura 6.10. Raíces de una ecuación de 2º grado.programa basta presionar el botón Salir.La Tabla 6.6 muestra los nombres y los valores de las principales propiedades de los objetosque aparecen en la Figura 6.10.Control Propiedad Valor Control Propiedad ValorFrame Name fraDib Label NameCaptionLabel2C/ACaption Dibujo Label NameCaptionLabel3BFrame Name fraEjes Label NameCaptionLabel4CCaption Divisiones Ejes Label NameCaptionLabel5X1/XRHScrollBar Name hsbBA Label NameCaptionLabel6X2/XILargeChange 10 CommandButton Name CmdSalirMax 1000 Caption SalirMin -1000 Label Name lblBA, lblCA,lblX1, lblB2SmallChange 1 BackColor &H00C0FFFF&HScrollBar Name hsbCA Option Name optD1LargeChange 10 Caption BorrarMax 100 Option Name optD2Min -100 Caption MantenerSmallChange 1 Option Name OptNoPictureBox Name pctBox Caption NoBackColor &H00FFFFFF& Option Name OptSiLabelNameCaptionLabel1B/ACaption SiTabla 6.6. Controles y propiedades del Ejemplo 6.3.Todas las labels que aparecen tienen la propiedad BorderStyle igual a 1- Fixed Single.El código del programa es el siguiente:
Page 1 and 2:
Escuela Superior de Ingenieros Indu
Page 3 and 4:
Índicepágina iÍNDICE1. Introducc
Page 5:
Índicepágina iii6.1.3 Función RG
Page 8 and 9:
ESIISS: Aprenda Visual Basic 6.0 co
Page 10 and 11:
Page 12 and 13:
Page 14 and 15:
Page 16 and 17:
Page 18 and 19:
Page 20 and 21:
Page 22 and 23:
Page 24 and 25:
Page 26 and 27:
Page 28 and 29:
Page 30 and 31:
Page 32 and 33:
Page 34 and 35:
Page 36 and 37:
Page 38 and 39: ESIISS: Aprenda Visual Basic 6.0 co
show all

Visual Basic 6.0 - Tecnun

Create successful ePaper yourself

Delete template?

Save as template?