Control de LED´s
Timbre
Motor a pasos
miércoles, 29 de abril de 2015
AGENDA PERSONAL
Objetivo:
Crear una agenda personal con base de datos en Access,
mediante el uso de Visual Basic 6.0.
Desarrollo:
1. Agregar
TextBox, CommandButton, Data y Labels para crear nuestro Form1 de la siguiente
manera:
2. Nuestro
código para los botones de comando será:
3. Para crear la base de datos en Access damos clic
en Complementos, luego en Administrador visual de datos.
4. Aparecerá
una pantalla llamada VisData, damos clic en Archivo, Nuevo, Microsoft Access,
MDB de la Versión 7.0 como se muestra en la imagen:
5.
Guardar
la base de datos que creamos con el nombre que deseemos en una carpeta ya
definida.
6. Aparecerá la siguiente pantalla. En ella damos clic
derecho para crear una nueva tabla.
7. Damos clic en ”Agregar capo”, y tecleamos los
campos que tiene nuestro formulario como Nombre, Edad, Sexo, Dirección, etc.
Damos clic en “Aceptar” y automáticamente se inserta en la Lista de Campos.
8. Una vez
que insertamos todos los campos damos clic en “Generar tabla”
9. Se seleccionamos
la Data1 y el la propiedad DatabaseName buscamos en donde guardamos nuestra
base de datos y la seleccionamos, después en la propiedad RecorSource
seleccionamos el nombre que le pusimos a la base de datos.
10.
A cada
objeto del Form1 lo vamos a enlazar con Data1y con los datos especificados con
sus nombres, por ejemplo:
Y así con cada objeto.
11. Con el botón de NUEVO
podemos agregar un nuevo contacto, con GUARDAR
se salva el contacto una vez que hemos rellenado los campos, con ELIMINAR borramos el contacto
seleccionado y con SALIR damos fin a
la aplicación.
12. Con Data1 llamada “Nombres registrados” avanzamos o retrocedemos para ver todos los contactos que tenemos en la agenda
ECUACIÓN CUADRÁTICA
1. Poner usuario y contraseña
La contraseña es “1111”
2. Dar clic en ingresar y aparece el mensaje de BIENVENIDO A ECUACIÓN CUADRÁTICA.
3. Dar clic en OK y aparecerá la siguiente ventana.
4. Teclear las variables y presionar calcular.
CÓDIGO DEL CALCULADOR
* Aquí se muestran las condiciones del programa, las formulas y errores que pudieran existir por parte del usuario.
CÓDIGO DEL INICIO
La contraseña es “1111”
3. Dar clic en OK y aparecerá la siguiente ventana.
CÓDIGO DEL CALCULADOR
* Aquí se muestran las condiciones del programa, las formulas y errores que pudieran existir por parte del usuario.
CÓDIGO DEL INICIO
* Se muestran cajas de error en caso de que el
usuario no introduzca su nombre o contraseña, así como un mensaje de bienvenida
al capturar ambos campos.
CONVERSION A EUROS
Form
Desarrollo
Inicia
Visual Basic y elije crear un proyecto EXE estandar.
Añade
al formulario del proyecto las etiquetas que ves en la imagen:
Conversión
a euros
Pesetas
Euros
Label2
y el CommandButton con el campo
Caption cambiado a: CONVERTIR A EUROSPara cambiar los colores y el fondo de
un control Label debes cambiar los campos BackColor y ForeColor (color del
fondo y del primer plano) de estos objetos.
Igualmente
puedes cambiar el tipo de letra, seleccionándola en el campo Font de la
ventana Propiedades del control.
En este
ejemplo tienes que modificar TAMBIEN el nombre de los controles:
Llama
al control TextBox Pesetas y a la etiqueta Label2: Euros, modificando el
campo (Nombre) de estos controles.
|
Al
botón de comando ponle como nombre Convertir y en su campo Caption escribe:
CONVERTIR A EUROS.
Ahora
podemos introducir código de programa en el botón, para que al pulsarlo
ejecute nuestras instrucciones.
Haz
doble click sobre el botón y Visual Basic te mostrará el comienzo y el final
de la subrutina correspondiente a Hacer Click.
Añade
el código siguiente:
|
Euros.Caption
= Pesetas.Text / 165
Esta
instrucción se encargará de dividir el contenido del control de texto por 165
para obtener el resultado en euros.
Para ir
a la ventana de código, en caso de que quede oculta por otra, puedes pulsar
el icono Ver código que hay en la parte superior de la ventana Proyecto.
Ya
puedes ejecutar el programa.
|
Ley de Ohm
ley de ohm
DESARROLLO
Agregamos una imagen para
comprender mejor como funciona la dicha ley, incluimos también en nuestro Form
llamado LEY DE OHM cuatro CommandButton que serán los que calculen VOLTAJE,
CORRIENTE Y RESISTENCIA, el ultimo sera solo para salir del Programa.
También agregamos tres TextBox en donde introduciremos los valores de cada opción y uno
para mostrar el resultado que deseamos.
En la
siguiente imagen se muestra como quedara nuestro Form:
Como primer
ejemplo del funcionamiento de nuestro programa calcularemos la corriente, con
ayuda de la imagen vemos que necesitamos agregar el valor del voltaje y la
resistencia para obtener la corriente, en este caso V=10 y R=5, damos clic enCORRIENTE y entonces I=V/R : I=10/5=2 Amperes.
Este
es nuestro código:
CALCULADORA DE RESISTENCIAS
1 Tenemos 4 Frame, los primeros tres tienen diez OptionButton
que seleccionan los diferentes colores con
disponibles en el código de colores de resistencias oficial.
El primero
selecciona el color deseado que equivale a la primera cifra de la resistencia y
su valor, el segundo es el valor y color de la segunda cifra, el tercero es el
multiplicador (numero por el cual se multiplican las dos primeras cifras y el
ultimo es la tolerancia, donde solo disponemos de tres colores (OptionButton ).
Código:
Private Sub Command1_Click()
End
End Sub
Private Sub Option1_Click()
If Option1.Value = True Then
Label1.Caption = 0
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = True Then
Label1.Caption = 1
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = True Then
Label1.Caption = 2
End If
End Sub
Private Sub Option4_Click()
If Option4.Value = True Then
Label1.Caption = 3
End If
End Sub
Private Sub Option5_Click()
If Option5.Value = True Then
Label1.Caption = 4
End If
End Sub
Private Sub Option6_Click()
If Option6.Value = True Then
Label1.Caption = 5
End If
End Sub
Private Sub Option7_Click()
If Option7.Value = True Then
Label1.Caption = 6
End If
End Sub
Private Sub Option8_Click()
If Option8.Value = True Then
Label1.Caption = 7
End If
End Sub
Private Sub Option9_Click()
If Option9.Value = True Then
Label1.Caption = 8
End If
End Sub
Private Sub Option10_Click()
If Option10.Value = True Then
Label1.Caption = 9
End If
End Sub
Private Sub Option11_Click()
If Option11.Value = True Then
Label2.Caption = 0
End If
End Sub
Private Sub Option12_Click()
If Option12.Value = True Then
Label2.Caption = 1
End If
End Sub
Private Sub Option13_Click()
If Option13.Value = True Then
Label2.Caption = 2
End If
End Sub
Private Sub Option14_Click()
If Option14.Value = True Then
Label2.Caption = 3
End If
End Sub
Private Sub Option15_Click()
If Option15.Value = True Then
Label2.Caption = 4
End If
End Sub
Private Sub Option16_Click()
If Option16.Value = True Then
Label2.Caption = 5
End If
End Sub
Private Sub Option17_Click()
If Option17.Value = True Then
Label2.Caption = 6
End If
End Sub
Private Sub Option18_Click()
If Option18.Value = True Then
Label2.Caption = 7
End If
End Sub
Private Sub Option19_Click()
If Option19.Value = True Then
Label2.Caption = 8
End If
End Sub
Private Sub Option20_Click()
If Option20.Value = True Then
Label2.Caption = 9
End If
End Sub
Private Sub Option21_Click()
If Option21.Value = True Then
Label3.Caption = "x 1"
End If
End Sub
Private Sub Option22_Click()
If Option22.Value = True Then
Label3.Caption = "x 10"
End If
End Sub
Private Sub Option23_Click()
If Option23.Value = True Then
Label3.Caption = "x 100"
End If
End Sub
Private Sub Option24_Click()
If Option24.Value = True Then
Label3.Caption = "x 1,000"
End If
End Sub
Private Sub Option25_Click()
If Option25.Value = True Then
Label3.Caption = "x 10,000"
End If
End Sub
Private Sub Option26_Click()
If Option26.Value = True Then
Label3.Caption = "x 100,000"
End If
End Sub
Private Sub Option27_Click()
If Option27.Value = True Then
Label3.Caption = "x 1,000,000"
End If
End Sub
Private Sub Option28_Click()
If Option28.Value = True Then
Label3.Caption = "x 10,000,000"
End If
End Sub
Private Sub Option29_Click()
If Option29.Value = True Then
Label3.Caption = "x 0.01"
End If
End Sub
Private Sub Option30_Click()
If Option30.Value = True Then
Label3.Caption = "x 0,1"
End If
End Sub
Private Sub Option31_Click()
If Option31 = True Then
Label4.Caption = "± 10%"
End If
End Sub
Private Sub Option32_Click()
If Option32.Value = True Then
Label4.Caption = "± 5%"
End If
End Sub
Private Sub Option33_Click()
If Option33.Value = True Then
Label4.Caption = "± 20%"
End If
End Sub
Lenguajes de Programación
A continuación vamos a ver los lenguajes de programación que mayormente son recomendados para iniciarse en programación, teniendo en cuenta el punto de vista del aprendizaje. Los lenguajes de programación que podemos utilizar Delphi/Pascal Una buena solución, los compiladores y entornos de desarrollo se encuentra gratuitamente (bajo ciertas condiciones).
El lenguaje es relativamente intuitivo y riguroso, la creación de interfaz gráfica es simple, rápidamente podemos sentirnos a gusto. Java Lenguaje orientado a objetos, muy portable, sintaxis utilizada también para los scripts de Internet (la sintaxis, no el lenguaje…).
Existen gran cantidad de entornos de desarrollo gratuitos en la web: no hay más que elegir en función de nuestros gustos, sin embargo, no tiene la facilidad de Delphi en lo que respecta a la interfaz gráfica. Este es un lenguaje de “última generación” que dará una experiencia interesante a los que deseen trabajar en informática. Python Simple, rápido, crea buenas costumbres de programación, ligero (tanto así que pasar a otro lenguaje después se hace pesado), abierto, gran cantidad de documentación en Internet. Este nos permite rápidamente entrar en acción, ya sea creando scripts potentes (gracias a la programación orientada a objetos) u otras cosas. Es también de “ultima generación” y portable.
.Net
Es el futuro según Microsoft, hay cosas buenas y malas en esta plataforma pero permite programar aplicaciones gráficas de manera simple, sólo corre en Windows y con algunas adaptaciones en Linux. Yo recomendaría C# que es el lenguaje “nativo” de esta plataforma: su sintaxis muy similar a la de C y Java, no hay punteros, todo se hace en un nivel de abstracción superior a los antiguos lenguajes de Microsoft. Se compara a Java y a Python, excepto que no es libre. Smalltalk Para mí el lenguaje orientado a objetos por excelencia. Gratuito, sintaxis simple, impone un rigor sin igual en la programación orientada a objetos. Desgraciadamente no es muy utilizado, es raro encontrar un empleo con éste, pero da una referencia solida, y con cosas como Squeak permiten hacer gran cantidad de cosa con él.
C/C++
Estos son buenos lenguajes, pero con una sintaxis complicada que no facilita su aprendizaje. Además el uso de punteros hace que su uso, incluso para los profesionales, sea complicado. La ventaja es que estos lenguajes pueden ser utilizados en diversas plataformas (después de compilación) y que, una vez dominados, hacen que los otros parezcan simples. Estos lenguajes son aún muy utilizados en el mundo profesional.Utilízalo si se deseas hacer de la informática tu profesión. PHP Un lenguaje inicialmente previsto para el desarrollo de páginas web dinámicas. Su sintaxis es muy similar a la de C++. PHP es bastante simple de abordar y permite conectarse fácilmente a una base de datos. Para desarrollar páginas web dinámicas, se requiere también un buen conocimiento de Html y eventualmente de Sql si se necesita una base de datos.
PHP
Un lenguaje inicialmente previsto para el desarrollo de páginas web dinámicas. Su sintaxis es muy similar a la de C++. PHP es bastante simple de abordar y permite conectarse fácilmente a una base de datos. Para desarrollar páginas web dinámicas, se requiere también un buen conocimiento de Html y eventualmente de Sql si se necesita una base de datos.
Ada
Lenguaje aún utilizado en la programación de sistemas de tiempo real. Es fácil de aprender pero es recomendado sobretodo para los futuros informáticos, si no, no hay mucho interés. Es mejor pasar a Ada solamente con el objetivo del “tiempo real” ya que tiende a desaparecer. HTML/CSS Voy a ser breve, escribir una página web o un sitio web en HTML es a la programación lo que beber un vaso de agua es al alcoholismo. Aquí se trata de presentar un documento, no de programar, y no porque se agregan algunos scripts esto cambia gran cosa.
Perl Seamos claros, este lenguaje aparentemente simple no es en lo absoluto adaptado al aprendizaje de la programación. Su flexibilidad y potencia pueden hacer que adquieras malas costumbres de programación e incluso te pueden desalentar por los errores que se están autorizados a cometer. Es mejor comenzar aprendiendo un lenguaje riguroso, para luego explotar al máximo Perl.
HTML/CSS
Voy a ser breve, escribir una página web o un sitio web en HTML es a la programación lo que beber un vaso de agua es al alcoholismo. Aquí se trata de presentar un documento, no de programar, y no porque se agregan algunos scripts esto cambia gran cosa.
Perl Seamos claros, este lenguaje aparentemente simple no es en lo absoluto adaptado al aprendizaje de la programación. Su flexibilidad y potencia pueden hacer que adquieras malas costumbres de programación e incluso te pueden desalentar por los errores que se están autorizados a cometer. Es mejor comenzar aprendiendo un lenguaje riguroso, para luego explotar al máximo Perl.
Visual Basic/Basic
Los profesionales que han trabajado con él lo desaconsejan. Este crea malas costumbres de programación (no es necesaria la declaración de variables, ninguna noción de valor/referencia, tentativa fracasada de programar con objetos,…), y además Microsoft (se trata de un lenguaje propietario) lo ha abandonado para privilegiar a Framework.Net. Para terminar, no existe ninguna versión gratuita, por lo tanto necesariamente hay que pagar. El sólo punto positivo que le reconocería es su lado lúdico y la facilidad de hacer interfaces gráficas para Windows (algo que olvidaba, tampoco es portable…), pero no es el único, si es el que te interesa, más bien inclínate hacia Delphi o .Net. El caso de Basic es más o menos el mismo, existen compiladores gratuitos, pero se trata de un lenguaje obsoleto que no es ni rápido, ni portable, ni orientado a objetos, ni riguroso. Inclínate por Pascal que te permitirá luego evolucionar hacia Delphi.
COMBOBOX
Desarrollo:
1. Como objetivo principal tenemos agregar el Combobox que
llamamos “cb” para efectos del programa o codigo, con la opcion LIST agregamos
la lista que deseemos, es este caso diferentes frutas.
2. Agregamos 4 etiquetas diferentes: la primera es la que
usaremos en el codigo para que nos diga cual fruta seleccionamos en el combobox
y esta no tiene Caption, la segunda es “Seleccione una fruta”, la tercera
”Usted seleccionó”, y por ultimo el titulo que es “Variedad de frutas”
3. Tambien agregamos una imagen como ambiente de la ventana.
Nuestro Form se llama “Frutas”.
4.
Nosotros como usuarios
variamos el tipo y tamaño de la letra de las etiquetas, del combobox y el
commandbutton.
5. Una vez que seleccionamos la fruta en el combobox en la
primera etiqueta Label1 aparecerá la fruta que elegimos anteriormente como se
muestra en la siguiente imagen:
6. Para salir o dar fin a nuestro porgrama se agrego un
CommandButton con el Caption SALIR y en su codigo End.
Por
ultimo se muestra el codigo simple y sencillo de lo explicado anteriormente.
domingo, 26 de abril de 2015
Barras de Desplazamiento
barras de desplazamiento
PROGRAMACIÓN VISUAL
DESARROLLO
1. Es un ejemplo sencillo
que permite utilizar algunas de las herramientas gráficas de Visual Basic. Para
ello se han utilizado dos barras de desplazamiento que, junto a otras dos cajas
de texto, modificarán y visualizarán las coordenadas del punto a dibujar.
2.
La siguiente tabla muestra los objetos y las propiedades a considerar en este ejemplo.
1. Se presenta a
continuación el código del programa:
1.
Finalmente se muestra la ventana con los objetos seleccionados y mencionados anteriormente.
Finalmente se muestra la ventana con los objetos seleccionados y mencionados anteriormente.
lunes, 20 de abril de 2015
Suscribirse a:
Entradas (Atom)