Se trata de una pequeña aplicacion que permite conectar las webcams de dos ordenadores a traves de Internet (UDP) y tambien un ordenador con un dispositivo Android via Web. No incluye ninguna dll o aplicacion externa. Solo Visual Basic y App Inventor. Tambien permite controlar otro ordenador por voz. Tambien permite la transmision de archivos (TCP) y la deteccion remota. Si teneis alguna duda u os interesa el codigo dejad un comentario.
miércoles, 4 de septiembre de 2013
martes, 27 de agosto de 2013
03-Chat de Video, VideoVigilancia, Deteccion de Movimiento Remoto, (VB.NET). UDP / TCP
Se trata de una pequeña aplicacion que permite conectar las webcams de dos ordenadores a traves de Internet (UDP) y tambien un ordenador con un dispositivo Android via Web. No incluye ninguna dll o aplicacion externa. Solo Visual Basic y App Inventor. Tambien permite controlar otro ordenador por voz. Tambien permite la transmision de archivos (TCP) y la deteccion de movimiento de forma remota. Si teneis alguna duda u os interesa el codigo dejad un comentario.
02-Chat de Video, Comunicacion con Android ( App Inventor ) en Visual Basic . Speech Recognition
Se trata de una pequeña aplicacion que permite conectar las webcams de dos ordenadores a traves de Internet (UDP) y tambien un ordenador con un dispositivo Android via Web. No incluye ninguna dll o aplicacion externa. Solo Visual Basic y App Inventor. Tambien permite controlar otro ordenador por voz. Si teneis alguna duda u os interesa el codigo dejad un comentario.
martes, 30 de julio de 2013
01- Chat de Video, VideoVigilancia, Conexion WebCam de Ordenadores en Visual Basic (VB.NET). UDP
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, 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.
Suscribirse a:
Entradas (Atom)