Se trata de una pequeña aplicacion que permite conectar las webcams de dos ordenadores, a traves de Internet (UDP). No incluye ninguna dll o aplicacion externa. Solo Visual Basic. Si teneis alguna duda u os interesa el codigo dejad un comentario.
martes, 30 de julio de 2013
martes, 23 de julio de 2013
Cambio de Tamaño de Imagenes Ajustable en Visual Basic
Se trata de una pequeña aplicacion que permite cambiar el tamaño de una imagen reduciendola o aumentandola en un 25, 50 o 75%.
Public Class Form1
Dim BM As Bitmap
Dim BM2 As Bitmap
Dim DIBUJO As Graphics
Dim REDUCCION As Single
Dim AUMENTO As Single
Private Sub ButtonIMPORTAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonIMPORTAR.Click
OpenFileDialog1.ShowDialog()
BM = System.Drawing.Bitmap.FromFile(OpenFileDialog1.FileName)
PictureBox1.Image = BM
End Sub
Private Sub ButtonREDUCIR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonREDUCIR.Click
BM2 = New Bitmap(Convert.ToInt32(BM.Width * REDUCCION), Convert.ToInt32(BM.Height * REDUCCION))
DIBUJO = Graphics.FromImage(BM2)
DIBUJO.DrawImage(BM, 0, 0, BM2.Width, BM2.Height)
MsgBox("SE HA CREADO LA IMAGEN CON UNA REDUCCION DEL: " & ((1 - REDUCCION) * 100) & "%")
End Sub
Private Sub ButtonGUARDAR2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonGUARDAR2.Click
SaveFileDialog1.Filter = "BMP|*.bmp|JPG|*.jpg|PNG|*.png"
If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
If SaveFileDialog1.FileName.Contains(".bmp") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Bmp)
End If
If SaveFileDialog1.FileName.Contains(".jpg") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Jpeg)
End If
If SaveFileDialog1.FileName.Contains(".png") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Png)
End If
End If
End Sub
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
REDUCCION = 0.75
End Sub
Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
REDUCCION = 0.5
End Sub
Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged
REDUCCION = 0.25
End Sub
Private Sub RadioButton6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged
AUMENTO = 1.25
End Sub
Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged
AUMENTO = 1.5
End Sub
Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged
AUMENTO = 1.75
End Sub
Private Sub ButtonAUMENTAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAUMENTAR.Click
BM2 = New Bitmap(Convert.ToInt32(BM.Width * AUMENTO), Convert.ToInt32(BM.Height * AUMENTO))
DIBUJO = Graphics.FromImage(BM2)
DIBUJO.DrawImage(BM, 0, 0, BM2.Width, BM2.Height)
MsgBox("SE HA CREADO LA IMAGEN CON UN AUMENTO DEL: " & ((AUMENTO - 1) * 100) & "%")
End Sub
Private Sub ButtonGUARDAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonGUARDAR.Click
SaveFileDialog1.Filter = "BMP|*.bmp|JPG|*.jpg|PNG|*.png"
If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
If SaveFileDialog1.FileName.Contains(".bmp") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Bmp)
End If
If SaveFileDialog1.FileName.Contains(".jpg") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Jpeg)
End If
If SaveFileDialog1.FileName.Contains(".png") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Png)
End If
End If
End Sub
End Class
El PictureBox esta en modo Zoom.
CODIGO:
Imports System.Drawing.Imaging
Public Class Form1
Dim BM As Bitmap
Dim BM2 As Bitmap
Dim DIBUJO As Graphics
Dim REDUCCION As Single
Dim AUMENTO As Single
Private Sub ButtonIMPORTAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonIMPORTAR.Click
OpenFileDialog1.ShowDialog()
BM = System.Drawing.Bitmap.FromFile(OpenFileDialog1.FileName)
PictureBox1.Image = BM
End Sub
Private Sub ButtonREDUCIR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonREDUCIR.Click
BM2 = New Bitmap(Convert.ToInt32(BM.Width * REDUCCION), Convert.ToInt32(BM.Height * REDUCCION))
DIBUJO = Graphics.FromImage(BM2)
DIBUJO.DrawImage(BM, 0, 0, BM2.Width, BM2.Height)
MsgBox("SE HA CREADO LA IMAGEN CON UNA REDUCCION DEL: " & ((1 - REDUCCION) * 100) & "%")
End Sub
Private Sub ButtonGUARDAR2_Click(sender As System.Object, e As System.EventArgs) Handles ButtonGUARDAR2.Click
SaveFileDialog1.Filter = "BMP|*.bmp|JPG|*.jpg|PNG|*.png"
If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
If SaveFileDialog1.FileName.Contains(".bmp") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Bmp)
End If
If SaveFileDialog1.FileName.Contains(".jpg") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Jpeg)
End If
If SaveFileDialog1.FileName.Contains(".png") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Png)
End If
End If
End Sub
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
REDUCCION = 0.75
End Sub
Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
REDUCCION = 0.5
End Sub
Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged
REDUCCION = 0.25
End Sub
Private Sub RadioButton6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged
AUMENTO = 1.25
End Sub
Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged
AUMENTO = 1.5
End Sub
Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged
AUMENTO = 1.75
End Sub
Private Sub ButtonAUMENTAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonAUMENTAR.Click
BM2 = New Bitmap(Convert.ToInt32(BM.Width * AUMENTO), Convert.ToInt32(BM.Height * AUMENTO))
DIBUJO = Graphics.FromImage(BM2)
DIBUJO.DrawImage(BM, 0, 0, BM2.Width, BM2.Height)
MsgBox("SE HA CREADO LA IMAGEN CON UN AUMENTO DEL: " & ((AUMENTO - 1) * 100) & "%")
End Sub
Private Sub ButtonGUARDAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonGUARDAR.Click
SaveFileDialog1.Filter = "BMP|*.bmp|JPG|*.jpg|PNG|*.png"
If (SaveFileDialog1.ShowDialog() = DialogResult.OK) Then
If SaveFileDialog1.FileName.Contains(".bmp") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Bmp)
End If
If SaveFileDialog1.FileName.Contains(".jpg") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Jpeg)
End If
If SaveFileDialog1.FileName.Contains(".png") Then
BM2.Save(SaveFileDialog1.FileName, ImageFormat.Png)
End If
End If
End Sub
End Class
sábado, 20 de julio de 2013
Generador de Pila de Numeros Aleatorios (Random)
Se trata de una pequeña aplicacion creada para resolver una cuestion planteada por un usuario de este blog.
Esta aplicacion genera numeros aleatorios y los añade a una pila, asegurandose de que no hay dos numeros iguales. Cuando ha terminado envia un mensaje de "La pila esta completa". Opcionalmente puede pararse cada vez que se repite un numero, mostrando de que numero se trata.
Interfaz de Usuario:
Codigo y Detalles...
Esta aplicacion genera numeros aleatorios y los añade a una pila, asegurandose de que no hay dos numeros iguales. Cuando ha terminado envia un mensaje de "La pila esta completa". Opcionalmente puede pararse cada vez que se repite un numero, mostrando de que numero se trata.
Interfaz de Usuario:
Codigo y Detalles...
miércoles, 10 de julio de 2013
Otra Animacion en Visual Basic (VB.NET).Mediaplayer, y Daz Studio.
Se trata de una pequeña animacion realizada en Visual Basic con la ayuda de Daz Studio.
Otra Animacion en Visual Basic (VB.NET). Picturebox, y Daz Studio
Se trata de una pequeña animacion realizada en Visual Basic con la ayuda de Daz Studio.
lunes, 8 de julio de 2013
06- Dibujo y Graficos, Imprimir, Visual Basic (VB.NET). Drawing & Graphics, Print
Sexto video de la serie sobre las propiedades basicas de Dibujo y Graficos. En este video se ve la aplicacion de Impresion del objeto Graphics.
05- Dibujo y Graficos, Cambio Tamaño de Imagen,Visual Basic (VB.NET),Graphics. Daz Studio
Quinto video de una serie sobre las propiedades basicas de Drawing y Graphics. En este video se ven aplicaciones basicas del objeto Graphics. Si teneis alguna duda u os interesa el codigo dejad un comentario.
04- Dibujo y Graficos, Cambio de Color de Pixeles,Visual Basic (VB.NET),Graphics. Daz Studio
Cuarto video de una serie sobre las propiedades basicas de Drawing y Graphics. En este video se ven aplicaciones basicas del objeto Graphics. Si teneis alguna duda u os interesa el codigo dejad un comentario.
03- Dibujo y Graficos, Captura de Pantalla con Sonido, Graphics,Visual Basic (VB.NET)
Tercer video de una serie sobre las propiedades basicas de Drawing y Graphics. En este video se ven aplicaciones basicas del objeto Graphics. En proximos videos se veran propiedades mas avanzadas. Si teneis alguna duda u os interesa el codigo dejad un comentario.
miércoles, 3 de julio de 2013
02- Dibujo y Graficos, Modificacion Imagen, Drawing & Graphics,Visual Basic (VB.NET)
Segundo video de una serie sobre las propiedades basicas de Drawing y Graphics. En este video se ven aplicaciones basicas del objeto Graphics. En proximos videos se veran propiedades mas avanzadas. Si teneis alguna duda u os interesa el codigo dejad un comentario.
Codigo y Detalles...
Codigo y Detalles...
01- Dibujo y Graficos, Rotacion, Drawing & Graphics, Rotating, Visual Basic (VB.NET)
Primer video de una serie sobre las propiedades basicas de Drawing y Graphics. En este video se ven aplicaciones basicas del objeto Graphics. En proximos videos se veran propiedades mas avanzadas. Si teneis alguna duda u os interesa el codigo dejad un comentario.
Descarga del Proyecto Completo
Descarga del Proyecto Completo
Suscribirse a:
Entradas (Atom)