PROGRAMA N° 1 VISUAL BASIC 6.0 SUMA DE 2 NUMEROS

El presente programa fue elaborado con visual basic, vamos a dedicar un capitulo completo a este programa tan conocido por ser tan amigable con el usuario ademas interactivo, ya que es una plataforma ideal para crear interfaces capaces de recibir datos con los microcontroladores PIc.

Puesto que, los Microcontroladores Pic envían datos por medio de puerto seriales a una PC por medio de USB, RS232, ...etc. estos deben ser interpretados y mostrado a un usuario final.

Recordemos que finalmente estos datos deben ser traducidos a un lenguaje convencional que pueda ser interpretado por cualquier usuario, razón por la cual dedicaremos al dominio de este programa que a pesar de los años se hace mucho mas fuerte su uso en la industria nacional.

Las aplicaciones que podremos hacer van desde un simple programa que registre ingresos y salidas de una farmacia, hasta programas de adquisición de datos mediante un controlador.

Hagamos un programa de prueba para ver lo fácil que es crear un programa que sume dos números.

Primeramente, debemos descargar un programa en la siguiente dirección :

https://www.youtube.com/watch?v=9NKwdWCqcs8

Imagen 1.0

Como podemos ver en la imagen 1.0 el programa cuenta con una presentación básica, con 2 entradas que son los números 1 - 2 y finalmente una salida donde se visualizara la respuesta.

también, tenemos 2 botones uno para limpiar y otro para limpiar.

Lo interesante de programar en Visual basic 6.0 es que podemos programa cada botom, cuadro de texto y personalizar sus funciones de cada uno como explicaremos a continuacion:

/ / el primer programa fue elaborado para el botom de calculo:

Private Sub cmdcalcular_Click()

// si el cuadro esta en blanco se envia un cuadro de dialogo que solicita ingresar un numero

If Txt1.Text = "" Then MsgBox "Ingresar Numero" Txt1.SetFocus

Exit Sub End If

// si el cuadro esta en blanco se envia un cuadro de dialogo que solicita ingresar un numero

If Txt2.Text = "" Then MsgBox "Ingresar Numero" Txt1.SetFocus

Exit Sub End If

Dim n1 As Integer // se declara una variable de 16bits. Dim n2 As Integer // se declara una variable de 16bits. Dim r As Integer // se declara una variable de 16bits. n1 = Val(Txt1.Text) // cuadro de texto se le indica que lo ingresado es un numero n1. n2 = Val(Txt2.Text) // cuadro de texto se le indica que lo ingresado es un numero n2. r = n1 + n2 // sumamos dos latos ingresados es igual a r. Txtresultado.Text = Str(r) // lo visualizamos por el cuadro de dialogo. End Sub