Buscar en el Blog

Mostrando entradas con la etiqueta visual Basic. Mostrar todas las entradas
Mostrando entradas con la etiqueta visual Basic. Mostrar todas las entradas

domingo, 1 de febrero de 2015

DATA STRUCTURES AND ALGORITHMS USING VISUAL BASIC.NET




MICHAEL MCMILLAN
Pulaski Technical College

Paginas 412
Idioma: Ingles




Descargar

sábado, 27 de diciembre de 2014

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

lunes, 4 de agosto de 2014

domingo, 29 de junio de 2014

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

domingo, 9 de febrero de 2014

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





miércoles, 5 de febrero de 2014

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.
 

lunes, 3 de febrero de 2014

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


sábado, 25 de enero de 2014

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


viernes, 6 de enero de 2012

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

miércoles, 7 de diciembre de 2011

Validar RUC - SUNAT PERU en VB.net

Basado en el ejemplo de JhofranSoft 
 Algoritmo de Validación del RUC


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
  1. Public Class ValidarRuc
  2. Public Shared Function validarRuc(ByVal ruc As String) As Boolean
  3. If VAL_RUC(ruc) = False Then
  4. Return False
  5. End If
  6. Return True
  7. End Function
  8. 'Ejm:
  9. 'RUC = 10254824220
  10. 'FACTOR = 5432765432
  11. 'Se separa los 10 primeros digitos de la izquierda y se hace un calculo inividual
  12. '1 * 5 =5
  13. '0 * 4 = 0
  14. '2 * 3 = 6
  15. '5 * 2 = 10
  16. '4 * 7 = 28
  17. '8 * 6 = 48
  18. '2 * 5 = 10
  19. '4 * 4 = 16
  20. '2 * 3 = 6
  21. '2 * 2 = 4
  22. 'Se suma el resultado de todas las multiplicaciones
  23. 'SUMA = 133
  24. 'Se calcula el residuo de la division por 11
  25. '133/ 11 = 1
  26. 'RESIDUO = 1
  27. 'Se resta 11 menos el residuo
  28. '11 - 1
  29. 'RESTA = 10
  30. 'digito de chequeo = RESTA
  31. 'si resta = 10 entonces digito de cheque = 0
  32. 'si resta = 11 entonces digito de cheque = 1
  33. 'RUC 10254824220 es valido por que su digito numero 11 es 0 y el digito de chekeo es 0.
  34. Private Shared Function LeftC(ByVal str As String, ByVal Length As Integer) As String
  35. Dim LenT As Integer = str.Length
  36. If LenT <= Length Then
  37. Return str
  38. Else
  39. Return str.Substring(0, Length)
  40. End If
  41. End Function
  42. Private Shared Function RightC(ByVal str As String, ByVal Length As Integer) As String
  43. Dim LenT As Integer = str.Length
  44. If LenT <= Length Then
  45. Return str
  46. Else
  47. Return str.Substring(LenT - Length)
  48. End If
  49. End Function
  50. Private Shared Function VAL_RUC(ByVal ruc As String) As Boolean
  51. Dim FACTOR() As Integer = {5, 4, 3, 2, 7, 6, 5, 4, 3, 2}
  52. Dim suma As Integer = 0
  53. 'ERROR SI NO ES NUMERO
  54. If Not IsNumeric(ruc) Then
  55. Return False
  56. End If
  57. 'ERROR SI NO CUMPLE LOS 11 DIGITOS
  58. If ruc.Length <> 11 Then
  59. Return False
  60. End If
  61. 'ERROR SI NO TIENE LOS 2 PRIMEROS DIGITOS
  62. '10 persona natural.
  63. '20 persona juridica.
  64. '17 o 15 extranjeros
  65. Dim VAL_DIGIT() As String = {"20", "17", "15", "10"}
  66. Dim DIGIT As String = LeftC(ruc, 2)
  67. Array.Sort(VAL_DIGIT)
  68. If Array.BinarySearch((VAL_DIGIT), DIGIT) < 0 Then
  69. Return False
  70. End If
  71. For I = 0 To ruc.Length - 2
  72. suma += Integer.Parse(ruc.Substring(I, 1)) * FACTOR(I)
  73. Next
  74. Dim residuo As Integer = suma Mod 11
  75. Dim resta As Integer = 11 - residuo
  76. Dim digChk As Integer
  77. If resta = 10 Then
  78. digChk = 0
  79. ElseIf resta = 11 Then
  80. digChk = 1
  81. Else
  82. digChk = resta
  83. End If
  84. If digChk = RightC(ruc, 1) Then
  85. Return True
  86. Else
  87. Return False
  88. End If
  89. End Function
  90. End Class

Luego solo llamamos a la funcion para validar

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