DATA STRUCTURES AND ALGORITHMS USING VISUAL BASIC.NET

MICHAEL MCMILLAN
Pulaski Technical College

Paginas 412

Idioma: Ingles




Descargar

Curso Basico Gratis de Visual Basic 6.0

En este curso basico de programacion en Visual Basic 6.0 podras aprender a programar en este entorno.

• Introduccion a Visual Basic 6.0
• Usando  mgsbox -  If Else End if - Abriendo Ventanas
• Combobox y ListBox
• Menus - Pasando datos de una ventana(formulario) a otro
• Bucles For - Do While
• Usando Select Caso
• Usando funciones y procedimientos
• Usando Adodc

Videos

Video Nro 3 de programacion con visual basic 6.0

Video Nro 3 de programacion con visual basic 6.0

Uso de los controles Combobox y el Listbox

Tabla de Cadenas de Conexión para ConnectionString

Tabla de Cadenas de Conexión para ConnectionString

Una tabla muy util mostrando las diferentes cadenas de conexion que podemos utilizar.

Tabla de Cadenas de Conexión para ConnectionString
DB	ConnectionString
Access	Access ODBC Connection String Driver {Microsoft Access Driver (*.mdb)};Dbq=C:\demo.mdb;Uid=Admin;Pwd=; Access OLEDB Connection String Driver Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\directory\demo.mdb;User Id=admin;Password=;
DB2	DB2 ODBC Connection String driver={IBM DB2 ODBC DRIVER};Database=demodb;hostname=myservername;port=myPortNum;protocol=TCPIP; uid=myusername; pwd=mypasswd DB2 OLEDB Connection String Provider=IBMDADB2;Database=demodeb;HOSTNAME=myservername;PROTOCOL=TCPIP;PORT=50000;uid=myusername;pwd=mypasswd;
DBase	DBase ODBC Connection String Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\directory; DBase OLEDB Connection String Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\directory;Extended Properties=dBASE IV;User ID=Admin;Password=
Excel	Excel ODBC Connection String Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\directory; Excel OLEDB Connection String Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties='"Excel 8.0;HDR=Yes;IMEX=1"'
Exchange	Exchange OLEDB Connection String oConn.Provider = "EXOLEDB.DataSource" oConn.Open = "http://myServerName/myVirtualRootName"
Firebird	Firebird ODBC Connection String DRIVER=Firebird/InterBase(r) driver;UID=SYSDBA;PWD=mypasswd;DBNAME=c:\directory\demo.fdb Firebird OLEDB Connection String User=SYSDBA;Password=mypasswd;Database=demo.fdb;DataSource=localhost;Port=3050;Dialect=3;Charset=NONE;Role=;Connection lifetime=15;Pooling=true;MinPoolSize=0;MaxPoolSize=50;Packet Size=8192;ServerType=0
FoxPro	FoxPro ODBC Connection String Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=c:\demo.dbc;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO FoxPro OLEDB Connection String Provider=vfpoledb.1;Data Source=c:\directory\demo.dbc;Collating Sequence=machine
Informix	Informix ODBC Connection String Driver={Informix-CLI 2.5 (32 Bit)};Server=demoservername;Database=demodb;Uid=myusername;Pwd=mypasswd Informix OLEDB Connection String Provider=Ifxoledbc.2;User ID=myusername;password=mypasswd;Data Source=demodb@demoservername;Persist Security Info=true
MySQL	MySQL ODBC Connection String DRIVER={MySQL ODBC 3.51 Driver};SERVER=myservername;PORT=3306;DATABASE=mydemodb; USER=myusername;PASSWORD=mypasswd;OPTION=3; MySQL OLEDB Connection String Provider=MySQLProv;Data Source=mydemodb;User Id=myusername;Password=mypasswd;
Oracle	Oracle ODBC Connection String Driver={Microsoft ODBC for Oracle};Server=myservername;Uid=myusername;Pwd=mypassword; Oracle OLEDB Connection String Provider=msdaora;Data Source=mydemodb;User Id=myusername;Password=mypasswd; Oracle .Net Connection String Data Source=mydemodb;User Id=myusername;Password=mypasswd;Integrated Security=no;
SQL Server	SQL Server ODBC Connection String - Database Login Driver={SQL Server};Server=myservername;Database=mydemodb;Uid=myusername;Pwd=mypasswd; SQL Server ODBC Connection String - Trusted Connection Driver={SQL Server};Server=mysername;Database=mydemodb;Trusted_Connection=yes; SQL Server OLEDB Connection String - Database Login Provider=sqloledb;Data Source=myservername;Initial Catalog=mydemodb;User Id=myusername;Password=mypasswd; SQL Server OLEDB Connection String - Trusted Connection Provider=sqloledb;Data Source=myservername;Initial Catalog=mydemodb;Integrated Security=SSPI; SQL Server .Net Connection String - Database Login Server=myservername;Database=mydemodb;User ID=myusername;Password=mypasswd;Trusted_Connection=False SQL Server .Net Connection String - Trusted Connection Server=myservername;Database=mydemodb;Integrated Security=SSPI;
Sybase	Sybase ODBC Connection String Driver={SYBASE ASE ODBC Driver};Srvr=myservername;Uid=myusername;Pwd=mypasswd Sybase OLEDB Connection String Provider=Sybase.ASEOLEDBProvider;Server Name=myservername,5000;Initial Catalog=mydemodb;User Id=myusername;Password=mypassword

Desarrollo Web - Programacion Web

 

Programacion IV 

HTML CSS VB ASP.NET

DESCARGAR

Vb.Net - Envio automatizado de datos a un formulario de una Pagina web( BOT)

En esta ocasion veremos como usar Visual Basic para enviar datos a un formalario de una pagina web, a esta aplicacion se le podria considerar un "bot".

Esta aplicacion cuenta para su correcto funcionamiento el uso de un Webbrowser.

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        wbr.ScriptErrorsSuppressed = True'para que no se muestre la ventana de errores
    End Sub

Private Sub btnEnviar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnviar.Click
        Dim i As Integer
        i = 1

        Do While wbr.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop

        Do While i <= nudNumero.Value

            If wbr.ReadyState = WebBrowserReadyState.Complete And wbr.Url.ToString = txtUrl.Text Then

                wbr.Document.GetElementById("nombre").InnerText = txtNombre.Text
                wbr.Document.GetElementById("email").InnerText = (txtemail.Text)
                wbr.Document.GetElementById("mensaje").InnerText = (txtMensaje.Text)
                wbr.Navigate("javascript:EnviarMsj()")
                'wbr.Document.GetElementById("enviar").InvokeMember("click")
                lblNumero.Text = "Nro de Mensjes Enviados: " + i.ToString
                wbr.Navigate(txtUrl.Text)

                i = i + 1
            End If

            Application.DoEvents()
        loop

    End Sub

En conclusion, lo que hace esta aplicacion es obtener una referencia a traves de los "ids" de los elementos Html y asigarles valores y luego enviar el mensaje correspondiente para procesar el envio. Este proceso se realiza "N" veces, segun el numero indicando en el formulario.

Pueden adaptarlo para sus necesidades y bajo su responsabilidad.

jh

Descargar

Aprendiendo Visual Basic.Net - Nuestra Primera aplicacion

 

En esta ocasion veremos como crear nuestra primera aplicacion en Visual Basic .NET.

Antes de empezar a desarrollar software, ya sea un sistema contable, un sistema ventas, de compras, de gestion comercial, ERP, etc. Debemos empezar desde el inicio, empezar  a conocer el lenguaje de programacion, la herramiente, el entorno de trabajo. En este caso sera Visual Studio 2010.

Nuestra primera Aplicacion

Comenzaremos con algo sencillo, sera un clasico "Hola Mundo".


Nota: Para aprender con mayor rapidez un lenguaje de programacion es esencial saber algoritmia.


Primero Paso: Crear El proyecto:

 Seleccionamos Nuevo proyecto

Nos aparecer la siguiente ventana 

 
Aqui Seleccionan Visual basic y Aplicacion de Windows Forms.

En la parte del Nombrey la ubicacion le colocan el nombre que ustedes deseen.

Con esto ya tenemos nuestra primer aplicación.

Si presionamos F5 o si hacemos click en la flecha verde que esta en la parte superior debajo del menu datos, nuestra aplicacion empezara a compilar y al final sera ejecutada.

Ahora vamos a cambiar la propiedad Name de nuestro formulario, recuerden que esta propiedad es muy importante en todos los controles, porque es a traves del name(nombre) que nosotros haremos referencia a ese control.

 

Cambiamos form1 por frmAplicacion.

Conforme avancemos veremos que cada control tiene su nomenglatura. Para los form "Frm", para los botones "btn", para los textbox es "txt", para los labels "lbl" y asi sucesivamente.

Seleccionamos en la barra de herramientas un boton y lo arrastramos a nuestro formulario y a este boton le cambiamos el nombre a btnSaludo.

Grabamos y le damos doble click sobre el boton para empezar a programar.

Hasta ahora nuestra aplicacion no hace nada de nada(seguro que estaran pensando que si asi empezamos como sera para realizar un sistema informatico completo(contables, de gestion, etc)

Procederemos a cambiar el titulo del formulario y a mostrar un mensaje cuando el usuario presione el boton, es por eso que haremos uso del evento click.

Para colocar comentarios usamos uso de la comilla simple o apostrofe. En el caso de de .NET para cambiar el titulo se usa la propiedad text, la propiedad caption aqui desaparece.
En el caso del msgbox, en .NET se usa la clases MessageBox, pero tambien admite Msg por motivos de compatibilidad.

Como podemos apreciar en la imagen estamos dentro del evento click del boton btnSaludar.
La clase MessageBox tiene un metodo llamado Show que sirve para mostrar el mensaje y recibe como argumentos el mensaje y luego el titulo, ademas tambien puede recibir el icono del mensaje a mostrar y los botones que desea mostrar, esto lo veremos en post futuros.

Ejecutamos la aplicacion!!!

Podemos apreciar que se cambia el titulo de nuestra ventana y se muestra el mensaje, pero no cambia el texto que se muestra en nuestro boton, esto es facil de solucionar, cerramos la ventana para entrar en modo diseño nuevamente y seleccionamos el boton, luego en la ventana propiedades buscamos la propiedad text y le asignamos el texto "Mostrar Saludo". Tambien podemos hacerlo mendiante codigo, le damos doble click en el formulario para poder ingresar al evento load del formulario.

En este metodo tipeamos lo que muestra en la imagen.
Explicacion: El nombre del control se llama btnSaludo, ese nombre es unico en la ventana, es por eso que hacemos referencia a ese control a traves del nombre, luego indico que propiedad deseo usar, en este caso es la propiedad text y le asigno un valor.
Ejecutamos la aplicacion y veremos que el boton ahora muestra "Mostrar Saludo".

 

Espero que el presente post les haya gustado. Hasta la proxima edicion.

 

Video Nro 2 de Programacion con visual basic 6.0

el siguiente video contiene: 

Uso del MsgBox condiciones simples(if else end if) abrir formularios

crear una pequeña calculadora

Introduccion a Visual Basic 6.0

Primer video de una serie de tutoriales en los cuales podran aprender a programar en visual Basic 6.0.

Si desean aprender a programar con una atencion personalizada escribanme a mi correo.

lexblas@gmail.com

Codigo fuente: Conexion a MySQL con VB 6.0

Codigo fuente: Conexion a MySQL con VB 6.0

Un aporte de Luis Gonzales.

luis_gonzaless@yahoo.com.ar

Descargar

Utilitario: Consultar datos de la Sunat por DNI o RUC

Aqui un pequeño programa para consultar por RUC o DNI los datos de la SUNAT, logicamente necesitan internet, ademas de tener instalado el Framework.NET, los que trabajan en Windows 7 No tendran problema, porque el framework ya viene incluido.
Es la primera version.

DESCARGAR 




 version Visual Basic 6.0

 Descargar

Validar RUC - SUNAT PERU en VB.net

Basado en el ejemplo de JhofranSoft 

 Algoritmo de Validación del RUC

http://jhofransoft.blogspot.com/2011/07/validar-ruc-sunat-peru.html 

Lo que modifique del codigo original es que puse todo lo concerniente a la validacion del ruc en una clase, de esa manera solo agregan la clase a su proyecto  y llaman a la funcion de validar el ruc y listo!

La clase

Public Class ValidarRuc

  
Public Shared Function validarRuc(ByVal ruc As String) As Boolean

      
If VAL_RUC(ruc) = False Then
Return False
End If
Return True
End Function
'Ejm:
'RUC = 10254824220
'FACTOR = 5432765432

'Se separa los 10 primeros digitos de la izquierda y se hace un calculo inividual
'1 * 5 =5
'0 * 4 = 0
'2 * 3 = 6
'5 * 2 = 10
'4 * 7 = 28
'8 * 6 = 48
'2 * 5 = 10
'4 * 4 = 16
'2 * 3 = 6
'2 * 2 = 4

'Se suma el resultado de todas las multiplicaciones
'SUMA = 133

'Se calcula el residuo de la division por 11
'133/ 11 = 1
'RESIDUO = 1

'Se resta 11 menos el residuo
'11 - 1
'RESTA = 10

'digito de chequeo = RESTA
'si resta = 10 entonces digito de cheque = 0
'si resta = 11 entonces digito de cheque = 1

'RUC 10254824220 es valido por que su digito numero 11 es 0 y el digito de chekeo es 0.
Private Shared Function LeftC(ByVal str As String, ByVal Length As Integer) As String
Dim LenT As Integer = str.Length
If LenT <= Length Then
Return str
Else
Return str.Substring(0, Length)
End If
End Function

Private Shared Function RightC(ByVal str As String, ByVal Length As Integer) As String
Dim LenT As Integer = str.Length
If LenT <= Length Then
Return str
Else
Return str.Substring(LenT - Length)
End If
End Function
Private Shared Function VAL_RUC(ByVal ruc As String) As Boolean
Dim FACTOR() As Integer = {5, 4, 3, 2, 7, 6, 5, 4, 3, 2}
Dim suma As Integer = 0
'ERROR SI NO ES NUMERO
If Not IsNumeric(ruc) Then
Return False
End If

'ERROR SI NO CUMPLE LOS 11 DIGITOS
If ruc.Length <> 11 Then
Return False
End If

'ERROR SI NO TIENE LOS 2 PRIMEROS DIGITOS
'10 persona natural.
'20 persona juridica.
'17 o 15 extranjeros
Dim VAL_DIGIT() As String = {"20", "17", "15", "10"}
Dim DIGIT As String = LeftC(ruc, 2)
Array.Sort(VAL_DIGIT)
If Array.BinarySearch((VAL_DIGIT), DIGIT) < 0 Then

Return False
End If

For I = 0 To ruc.Length - 2
suma += Integer.Parse(ruc.Substring(I, 1)) * FACTOR(I)
Next

Dim residuo As Integer = suma Mod 11
Dim resta As Integer = 11 - residuo

Dim digChk As Integer
If resta = 10 Then
digChk = 0
ElseIf resta = 11 Then
digChk = 1
Else
digChk = resta
End If

If digChk = RightC(ruc, 1) Then
Return True
Else
Return False
End If

End Function
End Class
 

Luego solo llamamos a la funcion para validar

If ValidarRuc.validarRuc(txtruc.Text) = True Then
MessageBox.Show("Valido", "Exito", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show("Invalido", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If 

Descargar