Abril 21, 2018, 12:04:27 am

Autor Tema: Biblioteca de Código de Visual Basic .NET  (Leído 25013 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
Convertir a minúsculas una cadena
« Respuesta #15 en: Mayo 02, 2008, 05:09:30 am »
Descripción: Convierte a minú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 minúsculas"
        Button1.Text = "&Convertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Cadena As String = TextBox1.Text
        TextBox1.Text = Cadena.ToLower
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Invertir una cadena
« Respuesta #16 en: Mayo 02, 2008, 05:10:35 am »
Descripción: Invierte 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 = "Invertir una cadena"
        Button1.Text = "&Invertir"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = StrReverse(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
Generar número aleatorio
« Respuesta #17 en: Mayo 02, 2008, 05:11:01 am »
Descripción: Muestra un número aleatorio entre 0 y el número escrito en TextBox1.
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 = "Generar un número aleatorio"
        Button1.Text = "&Generar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Aleatorio As Integer
        Randomize()
        Aleatorio = Rnd() * CInt(TextBox1.Text)
        MessageBox.Show("El número aleatorio es " & CStr(Aleatorio) & ".", "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 dirección IP de tu ordenador
« Respuesta #18 en: Mayo 02, 2008, 05:19:39 am »
Descripción: Averigua la dirección IP de tu ordenador.
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 = "Averiguar IP"
        Button1.Text = "&Averiguar"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Ip As Net.Dns
        Dim NombreHost As String = Ip.GetHostName
        Dim ActualHost As Net.IPHostEntry = Ip.GetHostByName(NombreHost)
        Dim DireccionIp As String = ActualHost.AddressList(0).ToString

        TextBox1.Text = "Tu dirección IP es " & DireccionIp
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Saber si hay conexión a Internet
« Respuesta #19 en: Mayo 02, 2008, 05:20:07 am »
Descripción: Muestra si hay conexión a Internet.
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If My.Computer.Network.IsAvailable = True Then
            TextBox1.Text = "La conexión a Internet está disponible."
        Else
            TextBox1.Text = "La conexión a Internet no está disponible."
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Text = "Saber si hay conexión a Internet"
        Button1.Text = "Conexión"
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Ejecutar cualquier archivo
« Respuesta #20 en: Mayo 08, 2008, 10:46:49 am »
Descripción: Ejecuta cualquier archivo.
Controles: TextBox (1), Button(1).

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

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Proceso As Process = New Process
        Proceso.Start(TextBox1.Text)
    End Sub

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

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Conocer el tiempo que lleva en ejecución el sistema
« Respuesta #21 en: Mayo 08, 2008, 11:06:12 am »
Descripción: Muestra en minutos el tiempo que lleva encendido el ordenador.
Controles: TextBox (1), Button(1).

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

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = "Iniciaste el ordenador hace " & (TickCount / 1000 / 60).ToString & " minutos."
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Tiempo en ejecución del sistema"
        Button1.Text = "&Averiguar"
    End Sub
End Class

Salu2

Desconectado Mace Windu

  • Yo vivo en CPH
  • ***
  • Mensajes: 538
  • Sexo: Masculino
  • May the force be with you
    • Ver Perfil
Suspender la actividad de la aplicación durante x segundos
« Respuesta #22 en: Mayo 08, 2008, 12:25:07 pm »
Descripción: Suspende la actividad de la aplicación durante x segundos (TextBox1).
Controles: TextBox (1), Button(1).

Código: You are not allowed to view links. Register or Login
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        System.Threading.Thread.Sleep(CInt(TextBox1.Text) * 1000)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Suspender la actividad de la aplicación"
        Button1.Text = "&Suspender"
    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 el número de núcleos de tu procesador
« Respuesta #23 en: Junio 09, 2008, 12:37:04 pm »
Descripción: Averigua el número de núcleos de tu procesador.
Controles: TextBox (1), Button(1).

Código:

Código: You are not allowed to view links. Register or Login
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox1.Text = CStr(System.Environment.ProcessorCount)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Averiguar número de núcleos"
        Button1.Text = "&Averiguar"
    End Sub
End Class

Salu2


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

Iniciado por ranefi

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

Iniciado por Paipote

6 Respuestas
1746 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
1171 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
3718 Vistas
Último mensaje Mayo 26, 2007, 10:48:56 am
por ranefi
xx
ver codigo fuente de un .exe escrito en Visual C# / Basic .NET

Iniciado por laz0911

8 Respuestas
6364 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
2180 Vistas
Último mensaje Agosto 07, 2013, 10:46:15 pm
por leovijil
xx
Ayuda con un codigo en Visual Basic 2010!!

Iniciado por Frozen13

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

Iniciado por DarkProgrammer

3 Respuestas
1192 Vistas
Último mensaje Abril 11, 2009, 09:38:11 am
por -Gosw-
exclamation
Diploma de oro al mejor código de Visual Basic [entrega01]

Iniciado por alexmanycool

8 Respuestas
2562 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
8737 Vistas
Último mensaje Abril 28, 2007, 12:20:34 am
por snyx88