1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Text7 Text8 Text9 Text10 Nombre TxtSopa Text Nombre TxtPostre Text Nombre TxtVentaTotal Locked Text True Nombre TxtImpuesto Locked True Text Command1 Command2 Command3 Nombre CmdAceptar Caption &Aceptar Nombre CmdLimpiar Caption &Limpiar Nombre CmdSalir Caption &Salir Picture C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Icons\Arrows\Point04.ico Style 1-Graphical Pág. 234
En primer lugar debemos cargar los datos a la cuadrícula. Esto lo vamos a realizar en tiempo de ejecución al momento de cargarse en memoria el formulario. Para ello, haga doble click sobre el formulario y añada el siguiente código: Private Sub Form_Load() GrdMenu.Cols = 2 GrdMenu.Rows = 9 GrdMenu.FixedCols = 0 GrdMenu.FixedRows = 1 GrdMenu.TextArray(0) = “Menú” GrdMenu.TextArray(1) = “Precio” GrdMenu.TextArray(2) = “Hamburguesa” GrdMenu.TextArray(3) = “2.50” GrdMenu.TextArray(4) = “Cerveza” GrdMenu.TextArray(5) = “4.00” GrdMenu.TextArray(6) = “Gaseosa” GrdMenu.TextArray(7) = “3.00” GrdMenu.TextArray(8) = “Ensalada” GrdMenu.TextArray(9) = “1.50” GrdMenu.TextArray(10) = “Salchichas” GrdMenu.TextArray(11) = “2.00” GrdMenu.TextArray(12) = “Refresco” GrdMenu.TextArray(13) = “1.00” GrdMenu.TextArray(14) = “Sopa” GrdMenu.TextArray(15) = “1.50” GrdMenu.TextArray(16) = “Postre” GrdMenu.TextArray(17) = “1.50” End Sub Luego debemos añadir el código que se encargará de realizar los cálculos. Para tal fin haga doble click sobre el botón Aceptar y proceda a ingresar lo siguiente: Pág. 235
- Page 183 and 184: End Sub POSICION = Loc(N1) + 1 If P
- Page 185 and 186: End Sub Open “C:\DATA\TEMPO.DAT
- Page 187 and 188: Permite grabar en un archivo binari
- Page 189 and 190: Por ejemplo si ingresa el mensaje
- Page 191 and 192: Como ejemplo considere los siguient
- Page 193 and 194: El ejemplo inicial (código hexadec
- Page 195 and 196: Por ejemplo, las instrucciones sigu
- Page 197 and 198: A manera de ejemplo considere la es
- Page 199 and 200: Para el dibujo de puntos se usará
- Page 201 and 202: En el ejemplo anterior se utiliza l
- Page 203 and 204: Para este ejemplo crear una nueva a
- Page 205 and 206: Para el desarrollo de la presente a
- Page 207 and 208: Control Line Line es un control gr
- Page 209 and 210: Como ejemplo de este tipo de gráfi
- Page 211 and 212: Para realizar nuestra aplicación d
- Page 213 and 214: Para el caso de las gráficas de ec
- Page 215 and 216: Luego proceda a ingresar el código
- Page 217 and 218: La matemática fractal es producto
- Page 219 and 220: Para el desarrollo de la presente a
- Page 221 and 222: En este capítulo, debido a las lim
- Page 223 and 224: La presente Guía de Laboratorio de
- Page 225 and 226: Para el desarrollo de esta aplicaci
- Page 227 and 228: Text1 Text2 Text3 Text4 Text5 Text6
- Page 229 and 230: Luego, haga doble click sobre el bo
- Page 231 and 232: A continuación active la casilla d
- Page 233: Label10 Nombre LblImpuesto Caption
- Page 237 and 238: A continuación haga doble click so
- Page 239 and 240: Private Sub CmdAceptar_Click() Dim
- Page 241 and 242: Los descuentos a aplicar son sobre
- Page 243 and 244: Label4 Label5 Text1 Text2 Text3 Tex
- Page 245 and 246: Check3 Command1 Command2 Command3 N
- Page 247 and 248: Cuatro notas entre 0 y 20 represent
- Page 249 and 250: Label6 Label7 Text1 Text2 Text3 Tex
- Page 251 and 252: N3 = Val(TxtN3) : N4 = Val(TxtN4) P
- Page 253 and 254: Form1 Label1 Label2 Label3 Label4 T
- Page 255 and 256: Case 10: CadMes = “Octubre” Cas
- Page 257 and 258: Para el desarrollo de esta aplicaci
- Page 259 and 260: El diseño de la interfaz debe ser
- Page 261 and 262: Para el desarrollo de esta aplicaci
- Page 263 and 264: Label5 Label6 Label7 Text1 Text2 Te
- Page 265 and 266: Una vez establecidas las propiedade
- Page 267 and 268: Un centro numérico es un número q
- Page 269 and 270: Para el desarrollo de esta aplicaci
- Page 271 and 272: Private Sub CmdAceptar_Click() If I
- Page 273 and 274: figura: El diseño de la interfaz d
- Page 275 and 276: Combo1 Text1 Text2 Option1 Option2
- Page 277 and 278: Private Sub CboArticulo_Click() Dim
- Page 279 and 280: Form1 Frame1 Frame2 Frame3 Frame4 L
- Page 281 and 282: Text3 Text4 Text5 Command1 Command2
- Page 283 and 284: LstDistrito.AddItem “La Victoria
Text7<br />
Text8<br />
Text9<br />
Text10<br />
Nombre TxtSopa<br />
Text<br />
Nombre TxtPostre<br />
Text<br />
Nombre TxtVentaTotal<br />
Locked<br />
Text<br />
True<br />
Nombre TxtImpuesto<br />
Locked True<br />
Text<br />
Command1<br />
Command2<br />
Command3<br />
Nombre CmdAceptar<br />
Caption &Aceptar<br />
Nombre CmdLimpiar<br />
Caption &Limpiar<br />
Nombre CmdSalir<br />
Caption &Salir<br />
Picture C:\Archivos de programa\Microsoft <strong>Visual</strong><br />
Studio\Common\Graphics\Icons\Arrows\Point04.ico<br />
Style 1-Graphical<br />
Pág. 234
Change language