Capturar webcam con VB.NET

¿Que haremos? Crearemos una aplicación en Visual Studio, la cual hará uso de una webcam para capturar el video en frames independientes y depositarlos en memoria para despues mostralos al usuario a través de un picturebox y un Timer para crear la ilusión de movimiento. ¿Porque lo haremos? Porque es justo y necesario ¿Que necesitamos? [...]

Envío de correo con JavaMail/Netbeans

JavaMail es una expansión de Java que facilita el envío y recepción de e-mail desde código java. JavaMail implementa el protocolo SMTP (Simple Mail Transfer Protocol) así como los distintos tipos de conexión con servidores de correo -TLS, SSL, autentificación con usuario y password, etc [Según SantaWikipedia] ¿Qué necesitamos? JavaMail 1.4.5 Java y Netbeans 6.9 [...]

Proyecto de base de datos Firebird VB

En este proyecto realizaremos una aplicación de base de datos Firebird con el lenguaje de programación de Visual Basic de Microsoft, este proyecto tendrá las funciones básicas de gestión INSERT, DELETE, UPDATE y una interfaz de usuario para utilizarlas. ¿Que necesitamos? Visual Studio 2008 o superior Firebird última versión Firebird ADO.NET Data Provider. Conocimientos básicos [...]

Imprimir imagen con Print

La siguiente clase hace uso de PRINT para imprimir una imagen que se encuentra en un variable de tipo FileInputStream, esta clase a su vez es implementada desde una interfaz que hace fácil su uso, la clase así como todo el proyecto esta comentado. import java.io.File; import javax.print.Doc; import java.io.IOException; import javax.print.DocFlavor; import javax.print.SimpleDoc; import java.io.FileInputStream; [...]

Code Army Bolivia

11/11/09

Conversor de colores HEXADECIMALES para CSS

JAN29

En un anterior post, se programo un pequeño software para poder visualizar mejor los colores en hexadecimal (#FFFFFF = Blanco) para luego colocarlo en el codigo CSS, pero le falta, ese programa funciona pero esta incompleto. Ahora modifique el codigo un poco para que no solamente se pueda crear colores moviendo los Slider, sino que a la ves, ahora admite la introduccion de un color en Hexadecimal y presionando un boton este te muestra a cual corresponde.

Crea un nuevo proyecto en VB y añade los controles que se ven a continuacion, cambia su nombre por los nombres colocados en rojo en la ventana propiedades.


En el editor de codigo pega el siguiente codigo

Option Explicit
Dim r, v, a As String
Dim val1, val2, val3 As String
Dim inversa As Boolean
Const Num_Hexa = "0123456789ABCDEFabcdef"

'procedimiento que muestra el valor RGB en el control picture
Sub MostrarValor()
    picColor.BackColor = RGB(sRojo.Value, sVerde.Value, sAzul.Value)
End Sub

'procedimiento que transforma los valores de los Slider a valores Hexadecimales
Sub Valores()
    r = HEX$(sRojo.Value)
    v = HEX$(sVerde.Value)
    a = HEX$(sAzul.Value)
    If sRojo.Value = 255 Then val1 = "0" Else val1 = r
    If sVerde.Value = 255 Then val2 = "0" Else val2 = v
    If sAzul.Value = 255 Then val3 = "0" Else val3 = a
    Valor.Text = "#" + val1 + val2 + val3
End Sub

Private Sub cmd_converter_Click()
    Convertir
End Sub

' procedimiento que convierte valores hexadecimales introducidos por teclado
' a valores hexadecimales y los muestra en el control picture
Sub Convertir()
Dim s As String
    s = Valor.Text
    If (Mid(s, 1, 1)) = "#" Then
        If verifica(s) = True Then
            r = Val("&H" & (Mid(s, 2, 2)))
            v = Val("&H" & (Mid(s, 4, 2)))
            a = Val("&H" & (Mid(s, 6, 2)))
            inversa = True
            sRojo.Value = CInt(r)
            inversa = True
            sVerde.Value = CInt(v)
            inversa = True
            sAzul.Value = CInt(a)
            picRojo.BackColor = RGB(CInt(r), 0, 0)
            picVerde.BackColor = RGB(0, CInt(v), 0)
            picAzul.BackColor = RGB(0, 0, CInt(a))
            picColor.BackColor = RGB(CInt(r), CInt(v), CInt(a))
        Else
            MsgBox "No es un color valido", vbInformation, "Importante"
        End If
    Else
        MsgBox "El formato de entrada es incorrecto", vbInformation, "Importante"
    End If
End Sub

' funciona auxiliar que verifica si la cadena  de texto introducida
' corresponde a una cadena valida hexadecimal
Function verifica(cadena) As Boolean
Dim i As Integer
Dim valido As Boolean
valido = False
For i = 2 To Len(cadena)
    If InStr(1, Num_Hexa, Mid(cadena, i, 1)) <> 0 Then
        valido = True
    Else
        valido = False
        Exit For
    End If
Next
verifica = valido
End Function

Private Sub Form_Load()
'inicio a valores
    Valor.Text = "#FFFFFF"
    Valor.MaxLength = 7
    r = "FF"
    v = "FF"
    a = "FF"
    inversa = False
    Convertir
    MostrarValor
End Sub

Private Sub sAzul_Change()
    If inversa = False Then
        Valores
        picAzul.BackColor = RGB(0, 0, sAzul.Value)
        MostrarValor
    End If
    inversa = False
End Sub

Private Sub sRojo_Change()
    If inversa = False Then
        Valores
        picRojo.BackColor = RGB(sRojo.Value, 0, 0)
        MostrarValor
    End If
    inversa = False
End Sub

Private Sub sVerde_Change()
    If inversa = False Then
    Valores
    picVerde.BackColor = RGB(0, sVerde.Value, 0)
    MostrarValor
    End If
    inversa = False
End Sub

para compilar el codigo presiona CTRL + F5 si todo esta bien, crea el ejecutable


El codigo fuente consta con sus respectivos comentarios asi que no hay pierde

0 comentarios:

Post recomendado