Enero 16, 2018, 01:52:41 pm

Autor Tema: Biblioteca de Código de Visual Basic .NET  (Leído 23985 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Biblioteca de Código de Visual Basic .NET
« en: Mayo 02, 2008, 04:57:41 am »
Biblioteca de código de Visual Basic .NET

Creo este tema para ir publicando nuestros códigos. Iré actualizando el Índice para mejorar la organización del tema.
Se podría seguir el siguiente modelo:

Citar
Descripción: lo que hace el código.
Controles: ControlTipo1 (Cantidad), ControlTipo2 (Cantidad), etc.
Código: You are not allowed to view links. Register or Login
Código entre las etiquetas code.

Salu2
« Última modificación: Julio 15, 2008, 02:43:33 pm por Mace Windu »

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Índice
« Respuesta #1 en: Mayo 02, 2008, 04:58:21 am »
Índice

1. Trabajo con archivos


2. Bases de numeración


3. Trabajo con cadenas


4. Cálculo


5. Network


6. Otros


Salu2
« Última modificación: Julio 15, 2008, 02:43:53 pm por Mace Windu »

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Averiguar tamaño de un archivo
« Respuesta #2 en: Mayo 02, 2008, 04:58:56 am »
Descripción: Averigua el tamaño en bytes que tiene un archivo.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Averiguar tamaño"
        Button1.Text = "&Averiguar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As New FileInfo(TextBox1.Text)
        MessageBox.Show("El archivo ocupa " & Archivo.Length.ToString + " bytes.")
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Crear directorio.
« Respuesta #3 en: Mayo 02, 2008, 04:59:25 am »
Descripción: Crea el directorio especificado.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Crear"
        Me.Text = "Crear directorio"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.CreateDirectory(TextBox1.Text)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Elimina directorio
« Respuesta #4 en: Mayo 02, 2008, 04:59:57 am »
Descripción: Elimina el directorio especificado.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Eliminar"
        Me.Text = "Eliminar directorio"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Directory.Delete(TextBox1.Text)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Copiar archivo
« Respuesta #5 en: Mayo 02, 2008, 05:00:32 am »
Descripción: Copia el archivo especificado (TextBox1) en el lugar indicado(TextBox2).
Controles: TextBox (2), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Copiar"
        Me.Text = "Copiar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Copy(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Eliminar archivo
« Respuesta #6 en: Mayo 02, 2008, 05:01:06 am »
Descripción: Elimina el archivo especificado.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Eliminar"
        Me.Text = "Eliminar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Delete(TextBox1.Text)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Mover un archivo
« Respuesta #7 en: Mayo 02, 2008, 05:01:37 am »
Descripción: Mueve el archivo especificado (TextBox1) en el lugar indicado (TextBox2).
Controles: TextBox (2), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Mover"
        Me.Text = "Mover archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        File.Move(TextBox1.Text, TextBox2.Text)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Leer el contenido de un archivo
« Respuesta #8 en: Mayo 02, 2008, 05:02:16 am »
Descripción: Leer el contenido de un archivo (TextBox1) y lo muestra en el TextBox2.
Controles: TextBox (2), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Abrir"
        Me.Text = "Abrir archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As StreamReader = File.OpenText(TextBox1.Text)
        TextBox2.SelectedText = Archivo.ReadToEnd()
        Archivo.Close()
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Averiguar la fecha de creación de un archivo
« Respuesta #9 en: Mayo 02, 2008, 05:02:49 am »
Descripción: Averigua la fecha de creación de un archivo.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Averiguar"
        Me.Text = "Averiguar fecha creación archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("El archivo fue creado el " & File.GetCreationTime(TextBox1.Text).ToString, "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Averiguar la versión y la descripción de un archivo
« Respuesta #10 en: Mayo 02, 2008, 05:03:40 am »
Descripción: Averigua la versión y la descripción de un archivo.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.Diagnostics

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Averiguar"
        Me.Text = "Averiguar versión y descripción archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Informacion As FileVersionInfo = FileVersionInfo.GetVersionInfo(TextBox1.Text)
        MessageBox.Show("Versión del archivo: " & Informacion.FileVersion & vbCrLf _
                        & "Descripción: " & Informacion.FileDescription, "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Guarda texto en el archivo especificado
« Respuesta #11 en: Mayo 02, 2008, 05:04:23 am »
Descripción: Guarda el contenido del TextBox2 en el archivo especificado (TextBox1).
Controles: TextBox (2), Button(1).

Código: You are not allowed to view links. Register or Login
Imports System
Imports System.IO

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "&Guardar"
        Me.Text = "Guardar archivo"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Archivo As StreamWriter = File.CreateText(TextBox1.Text)
        Archivo.WriteLine(TextBox2.Text)
        Archivo.Flush()
        Archivo.Close()
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Convertir número binario a decimal
« Respuesta #12 en: Mayo 02, 2008, 05:05:02 am »
Descripción: Muestra un número binario en decimal.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Cambiar de binario a decimal"
        Button1.Text = "&Cambiar"
    End Sub

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("Número decimal: " & CStr(BinarioDecimal(TextBox1.Text)), "Al habla Mace Windu", MessageBoxButtons.OK)
    End Sub

    Private Function BinarioDecimal(ByVal Binario As String) As Long
        Dim N As Integer = 1, LongitudInicial As Integer = 0, Longitud As Integer = 0

        BinarioDecimal = 0
        Longitud = Len(Binario)
        LongitudInicial = Longitud

        While N <= LongitudInicial
            If Strings.Left(Binario, 1) = "1" Then
                BinarioDecimal = BinarioDecimal + (2 ^ (LongitudInicial - N))
            End If
            N = N + 1
            Binario = Strings.Right(Binario, Longitud - 1)
            Longitud = Longitud - 1
        End While
    End Function
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Eliminar espacios duplicados
« Respuesta #13 en: Mayo 02, 2008, 05:05:39 am »
Descripción: Elimina espacios duplicados en un texto.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Eliminar espacios duplicados"
        Button1.Text = "&Eliminar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const EspacioDuplicado As String = "  "
        Dim PosicionInicial As Integer, CadenaAuxiliar As String
        Dim Texto As String = Strings.Trim(TextBox1.Text)

        PosicionInicial = InStr(1, Texto, EspacioDuplicado, vbBinaryCompare)

        Do While PosicionInicial > 0
            CadenaAuxiliar = Mid(Texto, PosicionInicial + 1).TrimStart
            Texto = Strings.Left(Texto, PosicionInicial) & CadenaAuxiliar
            PosicionInicial = InStr(1, Texto, EspacioDuplicado, vbBinaryCompare)
        Loop

        TextBox1.Text = Texto
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Convertir a mayúsculas
« Respuesta #14 en: Mayo 02, 2008, 05:06:09 am »
Descripción: Convierte a mayúsculas una cadena.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Convertir a mayúsculas"
        Button1.Text = "&Convertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = Strings.UCase(TextBox1.Text)
    End Sub
End Class

Salu2


exclamation
Biblioteca de Código de Visual C# .NET

Iniciado por ranefi

9 Respuestas
24233 Vistas
Último mensaje Junio 12, 2008, 01:27:27 am
por ranefi
xx
Codigo en Visual basic

Iniciado por Paipote

6 Respuestas
1715 Vistas
Último mensaje Diciembre 24, 2007, 12:06:12 pm
por seth
xx
hacer codigo en visual basic de un bat

Iniciado por raifo77

0 Respuestas
1150 Vistas
Último mensaje Mayo 25, 2007, 12:56:20 pm
por raifo77
xx
hacer codigo en visual basic de un .bat

Iniciado por raifo77

2 Respuestas
3680 Vistas
Último mensaje Mayo 26, 2007, 10:48:56 am
por ranefi
xx
Ayuda con un codigo en Visual Basic 2010!!

Iniciado por Frozen13

3 Respuestas
2432 Vistas
Último mensaje Julio 10, 2011, 12:44:16 am
por Ironbound
question
pasar este codigo a visual basic

Iniciado por DarkProgrammer

3 Respuestas
1171 Vistas
Último mensaje Abril 11, 2009, 09:38:11 am
por -Gosw-
xx
ver codigo fuente de un .exe escrito en Visual C# / Basic .NET

Iniciado por laz0911

8 Respuestas
6306 Vistas
Último mensaje Agosto 16, 2011, 03:14:44 am
por cibergolen
resuelto
Leer codigo de barras en visual basic

Iniciado por leovijil

2 Respuestas
2138 Vistas
Último mensaje Agosto 07, 2013, 10:46:15 pm
por leovijil
exclamation
Diploma de oro al mejor código de Visual Basic [entrega01]

Iniciado por alexmanycool

8 Respuestas
2504 Vistas
Último mensaje Febrero 11, 2010, 08:39:56 pm
por alexmanycool
xx
codigo de activacion de Microsoft Visual Basic 2005 Express

Iniciado por lkajjin

2 Respuestas
8681 Vistas
Último mensaje Abril 28, 2007, 12:20:34 am
por snyx88