Visual Basic: Ej. de una calculadora
Este es un ejemplo de una calculadora echa en Visual Basic parece un poco difícil pero en realidad es bastante fácil.
Haciendo click AQUÍ lo descargar.
Este es un ejemplo de una calculadora echa en Visual Basic parece un poco difícil pero en realidad es bastante fácil.
Haciendo click AQUÍ lo descargar.
El sábado 24 de Agosto, dos de los integrantes de Tuquito (Nicolás y Cristian) estuvieron presente en
Presentaron También
Para poder verla hace clik aqui y elegí ver
Los siguientes sitios permiten ver por medio del navegador web, películas gratis y de alta calidad:
Stage6: un sitio muy parecido a YouTube pero que permite ver series y películas completas de alta calidad.
Peliculasonline: recopila las mejores películas y series, las mismas se encuentran ordenadas en secciones y por idioma.
Peliculas-ON: las películas se encuentran ordenadas por categorías, además disponemos de un buscador y un top 15 con las películas más vistas.
Lycos Cinema: permite ver películas online y a su vez chatear con todos aquellos que estén viendo una misma película al mismo tiempo.
Graboid: recopila más de 60.000 documentales y películas. Para visualizar los videos, es necesario descargar e instalar un programa que de momento se encuentra disponible sólo para Windows (23 MB). Además, posee un límite de transferencia gratuita de 10 Gb por mes.
La busqueda incremental consiste que cuando el usuario va introduciendo datos se muestre los datos más cercano que cumple las condiciones y que así el usuario no tenga que escribir todos los datos o que el propio textbox lo vaya encontrando.
Ejemplo de un Formulario:En el text de Descripcion escribi los siguiente :
En el InteractiveChange
DO CASE
CASE EMPTY(THISFORM.Text1.VALUE)
SET FILTER TO
CASE THISFORM.combo1.LISTINDEX = 1 && codigo de equipo
SET FILTER TO UPPER(ALLTRIM(THISFORM.Text1.VALUE)) $ STR(codequipo)
CASE THISFORM.combo1.LISTINDEX = 2 && Si esta ordenado por nombre
set filter to trim(thisform.text1.value)=left(apenom,len(trim(thisform.text1.value)))
ENDCASE
GO TOP
THISFORM.REFRESH
En el combo de Buscar por escribi los siguiente ( el ejemplo esta dado para que puedas buscar por un numero Ej: un cogigo o dni. o Bien por un apellido o una descripcion) :
En el InteractiveChange
DO CASE
CASE THIS.LISTINDEX = 1 && por codigo de equipo
SET ORDER TO codequipo ASCENDING
CASE THIS.LISTINDEX = 2 && por nomnre de jugador
SET ORDER TO apenom ASCENDING
ENDCASE
THISFORM.TEXT1.setfocus
THISFORM.Text1.INTERACTIVECHANGE
THISFORM.REFRESH
RETURN 1
Etiquetas:
Visual FoxPro
Publicado por
Gaby
en
22:28
Danos tu comentario
Tublogaqui.blogspot.com | Diseño por Blog and Web