tag:blogger.com,1999:blog-2490200967510551262010-07-27T17:47:50.206-07:00VISUAL BASICEjercicios de Visual Basic 6.0Angeles Alanishttp://www.blogger.com/profile/02676322810513721713malanisu@gmail.comBlogger2125tag:blogger.com,1999:blog-249020096751055126.post-20914735781523072010-07-27T16:43:00.000-07:002010-07-27T17:46:27.955-07:00Ejercicios msgbox e inputbox de Visual Basic 6.0<span style="color: #3333ff; font-size: 180%;"><em><strong>Ejercicio 1</strong></em></span><br /><br />1.- Crear un formulario con un botón de comando como se muestra en la figura<br /><br /><a href="http://3.bp.blogspot.com/_MX4J0aulLTU/TE91A4BCQ6I/AAAAAAAAAD8/L92Z6iljQsg/s1600/Imagen+01.bmp"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5498742327939842978" src="http://3.bp.blogspot.com/_MX4J0aulLTU/TE91A4BCQ6I/AAAAAAAAAD8/L92Z6iljQsg/s400/Imagen+01.bmp" style="cursor: hand; height: 195px; width: 303px;" /></a><br /><br />2.- Incluir el el command1 el siguiente codigo en el evento click<br /><br /> <strong> msgbox "Actualización terminada", vbokonly, "Información"</strong><br /><br />3.- Ejecutar la aplicación<br /><br /><span style="color: blue; font-family: inherit; font-size: x-large;"><strong><em>Ejercicio 2</em></strong></span><br /><br />Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código<br /><br /> <strong>msgbox "¿Quieres seguir?", vbYesNo, "Información importante"</strong><br /><br /><br /><span style="color: blue; font-family: inherit; font-size: x-large;"><strong><em>Ejercicio 3</em></strong></span> <br /> <br />Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código <br /> <br /><strong><span style="font-size: x-small;"> Dim intRespuesta As Integer</span></strong> <br /><strong><span style="font-size: x-small;"></span></strong><br /><strong><span style="font-size: x-small;"> intRespuesta = MsgBox("¿Quieres seguir?", vbQuestion + vbYesNo, Información importante")</span></strong><br /><strong><span style="font-size: x-small;"> If intRespuesta = 6 Then</span></strong><br /><strong><span style="font-size: x-small;"> MsgBox"Seguimos"</span></strong><br /><strong><span style="font-size: x-small;"> Else</span></strong><br /><strong><span style="font-size: x-small;"> MsgBox"Terminamos"</span></strong><br /><strong><span style="font-size: x-small;"> End If</span></strong><br /><br /> <br /><strong><em><span style="color: blue; font-family: inherit; font-size: x-large;">Ejercivio 4</span></em></strong> <br /> <br />Reemplaza el código del botón de comando anterior en el evento click e ingresa el siguiente código <br /> <br /><span style="font-size: x-small;"><strong>msgbox "Actualización terminada:" & </strong></span><span style="font-size: x-small;"><strong>vbCrLf & vbCrLf & </strong></span><span style="font-size: x-small;"><strong>"- Importación de datos de venta." & vbCrLf & _</strong></span> <br /><span style="font-size: x-small;"><strong>"- Cálculos de impuestos." & vbCrLf & </strong></span><span style="font-size: x-small;"><strong>"- Venta por proveedor." & vbCrLf </strong></span><span style="font-size: x-small;"><strong>, vbOKOnly, "Actualización terminada."</strong></span><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/249020096751055126-2091473578152307?l=isacpruebas.blogspot.com' alt='' /></div>Angeles Alanishttp://www.blogger.com/profile/02676322810513721713malanisu@gmail.com0tag:blogger.com,1999:blog-249020096751055126.post-19059116225326832172010-02-20T07:18:00.001-08:002010-02-20T07:49:02.079-08:00Sistema Gorditas Doña Tita?Pasos<br /><br /><br /><br /><ol><br /><li>Crear una base de datos, llevará por nombre "Gorditas.mdb".</li><br /><li>Crear 3 tablas con la estructura que se maneja a continuación.</li></ol><br /><br /><ul><br /><li><span style="color:#000099;">Tabla 1 (la llamaran Guisados)</span></li></ul><br /><br /><p>Campos</p><br /><br /><p>IDGuiso Numérico (Clave Principal)</p><br /><br /><p>Guiso Texto</p><p> </p><p>Ingresar la informacion de la liga siguiente</p><a href="http://spreadsheets.google.com/ccc?key=0AgyEZouFjUWqdDVVNnBJWFQyT3VtdV9jOGRYOG5tX1E&hl=es">http://spreadsheets.google.com/ccc?key=0AgyEZouFjUWqdDVVNnBJWFQyT3VtdV9jOGRYOG5tX1E&hl=es</a><br /><br /><p>Precio Numérico</p><br /><br /><ul><li><span style="color:#000099;">Tabla 2 (la llamaran Bebidas)</span></li></ul><br /><br /><p>Campos</p><br /><br /><p>IdBebida (Clave Principal) Numérico</p><br /><br /><p>Bebida Texto</p><br /><br /><p>Precio Numérico</p><br /><br /><ul><li><span style="color:#000099;">Tabla 3 (la llamaran Ventas)</span></li></ul><br /><br /><p>Campos</p><br /><br /><p>NoVenta Numerico</p><br /><br /><p>Fecha Texto</p><br /><br /><p>IdProd Numérico</p><br /><br /><p>Cantidad Numérico</p><br /><br /><p>Pago Numerico</p><br /><br /><p></p><br /><br /><p></p><br /><br /><p></p><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/249020096751055126-1905911622532683217?l=isacpruebas.blogspot.com' alt='' /></div>Angeles Alanishttp://www.blogger.com/profile/02676322810513721713malanisu@gmail.com0