Makeplus

Tras un larga temporada sin realizar un post, desde ya disculpas!...Un seguidor me ha pedido si puedo ayudarle con el tema en cuestion, para eso como ya habia hecho ejemplos relacionados, no fue dificil la peticion!... y si la realice y el codigo se expone a continuación: Primeramente el codigo que usa para coneccion, en un modulo: Module Module1 Public path As String = Form1.lblruta.Text Public conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path) Public cmd As New OleDb.OleDbCommand Public dr As OleDb.OleDbDataReader Public Sql As String = "" Public Sub conectarse() Try conn.Open() MsgBox("Conexion exitosa") Catch ex As Exception MsgBox(ex.ToString()) End Try End Sub Sub LlenarGrid(ByRef grid As DevComponents.DotNetBar.SuperGrid.SuperGridControl) Try ' conectarse() Dim dt As New DataT...

Un saludo a todos mis seguidores de la programación vbnet, hace un tiempo acá esa un poco perdido en esto de los post, pero como Uds saben todos tenemos ocupaciones que a veces nos conllevan al descuido de otras. Pero qui me encuentro con todo el ánimo de seguir compartiendo, eso si códigos importantes que ayuden de forma significativa a los cibernautas. Como dice el tema de este post,"Subir archivos a MEGA desde Visual Basic Net", tratar de subir archivos a mega que bien nos caería para nuestra aplicación sobre todo si quisiéramos respaldar alguna base de datos tipo access, compact, sqlite medianamente conectada y/o archivos como imágenes, videos, etc. Pues bien siguiendo en el desarrollo de este tema y siendo para mi bastante importante me encamine en buscar información relevante al tema y para los que no gustan de otro lenguaje, para vb no había o tal vez no supe buscar bien, en fin... Opte por modificar un ejemplo que ya nos venia. que Uds también pueden chequear y tra...

Un cordial saludo programadores y matemáticos a fin. En esta entrega hacemos mención a la resolución de ecuaciones simultaneas por métodos iterativos y es así que el método de Gauss-Seidel se acopla muy bien como una mejora al método de Jacobi, sin embargo la condicion fundamental  que su diagonal principal debe ser mayor a las demas. Por todo lo expresado aqui presento un poco de teoria tomado de   http://www.jldelafuenteoconnor.es/Clase_itera_2016.pdf  en el cual se expresan algunos métodos más pero para este tema analizaremos solamente el mencionado. La implementación en visual Basic 2015 Module Module1 Dim A(500, 500) As Single Dim B(500, 500) As Single Dim X(500, 500) As Single Dim n, iter As Integer Dim cError, Tol, sum As Double Sub Main() Console.BackgroundColor = ConsoleColor.White Console.Clear() Console.ForegroundColor = ConsoleColor.Black Console.Title = "METODO ITERATIVO GAUSS-SEID...

Saludos programadores, detro de los métodos numéricos para hallar raíces polinomiales tenemos este método "Metodo de Muller".les dejo un estracto de teoria de mi libro y la implementacion del mismo en Visual Basic Aquí les presento la implementación Public Class Form1 Dim imax As Integer, iter As Integer Dim h As Double, xr As Double, eps As Double Sub Muller(ByVal xr, ByVal h, ByVal eps, ByVal maxit, ByVal iter) Dim x0 As Double, x1 As Double, x2 As Double Dim h0 As Double, h1 As Double, d0 As Double, d1 As Double Dim a As Double, b As Double, c As Double Dim den As Double, rad As Double, dxr As Double x2 = xr x1 = xr + h * xr x0 = xr - h * xr Do iter = iter + 1 h0 = x1 - x0 h1 = x2 - x1 d0 = (f(x1) - f(x0)) / h0 d1 = (f(x2) - f(x1)) / h1 a = (d1 - d0) / (h1 + h0) b = a * h1 + d1 c = f(x2) rad = Math.Sqrt(b * b - 4 * a * c) If Math.Abs(b + rad) > Math.Abs(b - rad) Then den = b + rad Else den = b - rad End If dxr = -2 * c / den xr = x2 + dxr If Math.Abs(dxr) ...

Que tal amigos programadores vb, en esta ocasión, les describo como mostrar el tipo Maestro-detalle usando el control supergrid que viene con el paquete de Dotnetbar Devcomponents. Aunque en los ejemplos que trae consigo este paquete, no siempre es fácil tratar de acoplarlo a nuestras necesidades con la mayor sencillez posible, siendo así les muestro como presentarlo de forma muy simple, tomando como base de datos una que yo tengo para mi uso y que la voy a incluir en este ejemplo. Pues bien, le presento el código completo: Dentro del modulo de llamada a la base de datos "CREDIT.sdf" Module Module1 Public path As String = System.AppDomain.CurrentDomain.BaseDirectory + "CREDIT.sdf" Public conn As New SqlServerCe.SqlCeConnection("Data Source=" & path + ";Password=database1;Max Database Size=4091") Public sql As String Public cmd As New SqlServerCe.SqlCeCommand(sql, conn) Public Sub conectarse() Try c...

Un saludos amigos programadores, en esta parte se ha implementado la eliminación de múltiples registros de una datagridview enlazada a datos, como nos referirnos a la base de datos Sql Compact 4.0 por lo tanto tomando la base de Datos "Northwind. sdf "(que incluye sql compact) le hecho unas pequeñas modificaciones que incluyen la eliminación de algunas tablas que estaban referenciadas para que se más practica. En muchos de los casos se desea eliminar masivamente  y no fila a fila, ya que cuando se requiere eliminar mas de un registro este proceso se vuelve engorroso y cansado, en vista de este problema, he creado este algoritmo que sirve para hacer "delete" a todas las filas seleccionadas por el usuario, ya sean estas consecutivas como alternadas. Les dejo el código del proyecto completo: Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click cargar_datos() '...................habilita los bo...

Un saludo programadores y disculpas por la ausencia prolongada en la realización de mis post. En esta vez, me propuse realizar rápidamente un tabla de amortización de crédito mensual, una utilidad para los que usan a menudo. Aunque dignamente les adelanto que lo hice rápidamente y no use todas la reglas de una programación ordenada, uds saben... Entonces comencemos con la parte matemática: Vamos a implementar en vbnet En un modulo colocamos las funciones: Module Calculos Public Function Inte_mensual(ByVal interes_anual As Double) Inte_mensual = ((1 + interes_anual) ^ (1 / 12)) - 1 Return Inte_mensual End Function Public Function Valor_Cuota(ByVal Monto As Double, ByVal interes_mensual As Double, ByVal plazo As Double) Valor_Cuota = Monto * ((interes_mensual * ((1 + interes_mensual) ^ plazo)) / (((1 + interes_mensual) ^ (plazo)) - 1)) Return Valor_Cuota End Function Public Function interes_couta(ByVal saldo_cap...