Mensajes

Te respondi aca

http://leandroascierto.com/foro/index.php?topic=3252.0

Como es sin codigo amigo, por que el codigo que hace esto no los tengo por eso posteo a ver si me pueden ayudar

[SIEMPRE]

Hola tengo un sistema de bingo es el de 75 Bolillas

El Bingo a 75 bolas se juega con cartones que tienen una cuadrícula de 5 filas y 5 columnas. Cada fila tiene 5 números y no hay casillas en blanco como en el bingo de 90 bolas. Los números se reparten de la siguiente forma:


http://snag.gy/dvzzh.jpg

La primera columna contiene números del 1 al 15,
la segunda, del 16 al 30,
la tercera del 31 al 45,
la cuarta del 46 al 60,
y la quinta del 61 al 75.

El primero que complete los 25 aciertos gana el premio.

Ejemplo de algunos cartones que yo genere y me han funcionado perfectamente.


http://snag.gy/ZygAU.jpg

Bueno el problema que tengo es quiero Generar la matriz de los cartones pero que SOLO AYA UN GANADOR SIEMPRE con 25 aciertos

Por que con los numero que yo genero a VECES hay mas de 1 ganador, el problema surge cuando el premio no es en EFECTIVO, por ejemplo si es un auto no puede ser divisible.

Tengo conectado el celular por medio de USB utilizo el puerto COM19 para enviar el SMS con este código.
Ahora como hago para leer lo recibido en el Celular

Código (vbnet) [Seleccionar] Expandir


Imports System.IO.Ports
Imports System.Threading

Public Class Form1

   Sub enviarSMS(ByVal numero As String, ByVal mensaje As String, ByVal puerto As String)

       Dim serialport As IO.Ports.SerialPort

       Try
           serialport = New IO.Ports.SerialPort

           With serialport
               .PortName = puerto ' Puerto de comunicaciones COM1, COM2...
               .BaudRate = 9600 ' velocidad del puerto
               .Parity = Parity.None ' Paridad
               .StopBits = StopBits.One ' Bit de para
               .DataBits = 8 ' Bits de datos

               If .IsOpen = False Then ' Si el puerto no esta abierto
                   .Open() ' Abrir el puerto
               End If

               .Write("ATZ0" & vbCr)
               .WriteLine("AT+CMGF=1" & vbCr) ' Configurando envio de SMS modo texto
               Thread.Sleep(1000) ' Esperar 1 segundo
               .Write("AT+CMGS=" & Chr(34) & numero & Chr(34) & vbCr) ' Numero al que se envia el SMS
               .Write(mensaje & Chr(26) & vbCr)
               Thread.Sleep(1000) ' Esperar 1 segundo

               .Close()
               MsgBox("Mensaje enviado")

           End With

       Catch Ex As IO.IOException
           Console.WriteLine(Ex.Message)
       End Try

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       enviarSMS("+595971888222", "Mensaje de prueba", "COM19")
   End Sub

End Class

[frmReportes]

Uso vb.net 2010

Estoy usando un MDI. desde el MDI llamo a un form (frmReportes) desde frmReportes llamo a otro form (frmAlta) lo llamo como frmArticuloAlta.ShowDialog(). Como puedo hacer para que no me bloquee el MDI por que quiero abrir otro formulario mientras esta el frmReporte y frmAlta.

Ejemplo.


PROYECTO
https://dl.dropbox.com/s/gquvd3a55edx1i1/EjemploMDI.rar?token_hash=AAHqYaEv5oKP6FchnmQlpEGgMIbsqSej47IBAh66f1ighw&dl=1

Ya pille cual es el error seba el ejemplo que me pasaste acá para guardar el contenido del picturebox sin tener el path:

Código (vbnet) [Seleccionar] Expandir

    Sub xSave()
       
        '-------------------ESTE ES EL PROBLEMA-------------------------------------------------------
        Dim xStream As New MemoryStream
        PictureBox1.Image.Save(xStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim breader As New BinaryReader(xStream)
        Dim imgbuffer(xStream.Length) As Byte
        breader.Read(imgbuffer, 0, xStream.Length)
        xStream.Close()
        '----------------------------------------------------------------------------------------------------

        strSQL = "INSERT INTO juegos (titulo,imagen) VALUES (@titulo,@imagen)"
        strComando.CommandText = strSQL
        strComando.Connection = strConexion

        strComando.Parameters.AddWithValue("@titulo", txtTitulo.Text)
        strComando.Parameters.AddWithValue("@imagen", imgbuffer)
        strComando.ExecuteNonQuery()
        strComando.Dispose()
        MsgBox("Saved")

    End Sub

Creo que guarda mal el archivo y al querer abrir ahi se genera el error de este:

Código (vbnet) [Seleccionar] Expandir

ImageList1.Images.Add(dtEmp.Rows(i)("id").ToString(), New Bitmap(img_stream))

Ahora si guardo de esta forma funciona de lujo.

Código (vbnet) [Seleccionar] Expandir

        Dim fsreader As New FileStream("c:\xxx\4zm.jpg", FileMode.Open, FileAccess.Read)
        Dim breader As New BinaryReader(fsreader)
        Dim imgbuffer(fsreader.Length) As Byte
        breader.Read(imgbuffer, 0, fsreader.Length)
        fsreader.Close()


[New Bitmap(img_stream))]

Hice asi y funciona no es el campo id el que esta fallando

Código (vbnet) [Seleccionar] Expandir

imglist.Images.Add(dtEmp.Rows(i)("id").ToString(), Image.FromFile("c:\xxx\4zm.jpg"))

Este es el que falla New Bitmap(img_stream)) alguna idea?

Gracias, Seba funciono de lujo

Saludos...

Tengo este código para recuperar imágenes de una bd access.

Código (vbnet) [Seleccionar] Expandir

    Sub RECUPERAR()
        ImageList1 = New ImageList
        ImageList1.ImageSize = New Size(100, 100)
        ImageList1.ColorDepth = ColorDepth.Depth32Bit

        LF.LargeImageList = ImageList1
        LF.Items.Clear()

        strSQL = "SELECT * FROM juegos"
        Dim daEmp As New OleDbDataAdapter(strSQL, strConexion)
        Dim dtEmp As New DataTable
        daEmp.Fill(dtEmp)

        For i = 0 To dtEmp.Rows.Count - 1

            Dim img_buffer As Byte()
            img_buffer = DirectCast(dtEmp.Rows(i)("imagen"), Byte())
            Dim img_stream As New MemoryStream(img_buffer, True)

            img_stream.Write(img_buffer, 0, img_buffer.Length)
            ImageList1.Images.Add(dtEmp.Rows(i)("id").ToString(), New Bitmap(img_stream))
            img_stream.Close()

            Dim item As New ListViewItem(Strings.Left(dtEmp.Rows(i)("titulo").ToString, xTitulo))
            item.SubItems.Add(dtEmp.Rows(i)("plataforma").ToString)

            item.ImageKey = dtEmp.Rows(i)("id").ToString
            LF.Items.Add(item)
        Next i

    End Sub

Pero me tira este error:

Utilizo este método para guardar una imagen una base datos access. me guarda perfectamente.

Código (vbnet) [Seleccionar] Expandir

Dim fsreader As New FileStream("c:\carpeta\foto1.jpg", FileMode.Open, FileAccess.Read)
Dim breader As New BinaryReader(fsreader)
Dim imgbuffer(fsreader.Length) As Byte
breader.Read(imgbuffer, 0, fsreader.Length)
fsreader.Close()
'closes the current stream and releases any resources

strSQL = "INSERT INTO juegos (titulo,imagen) values (@titulo,@imagen)"
strComando.CommandText = strSQL
strComando.Connection = strConexion

strComando.Parameters.AddWithValue("@titulo", "nuevo metodo")
strComando.Parameters.AddWithValue("@imagen", imgbuffer)
strComando.ExecuteNonQuery()
strComando.Dispose()
MsgBox("Saved")

Pero ahora surgió un problemita. tengo un PictureBox en donde le pego el contenido del Clipboard.

Código (vbnet) [Seleccionar] Expandir

If Clipboard.GetDataObject.GetDataPresent("Bitmap") Then
PictureBox1.Image = CType(Clipboard.GetDataObject.GetData("Bitmap"), Bitmap)
End If

y no se como decirle aca en que ruta esta el archivo por que no esta en el disco.

Código (vbnet) [Seleccionar] Expandir

Dim fsreader As New FileStream("el-problema-esta-aca-que-poner", FileMode.Open, FileAccess.Read)