Mensajes

Hola a todos de nuevo al ataque jjejej

Por fin instale de nuevo el Visual y he podido probar el código de Serapis

Codigo

Código (vbnet) [Seleccionar] Expandir

Imports System.Text

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Nums() As String, txt As String
        Dim Valores() As Byte, k As UInt16

        txt = TextBox1.Text.Replace(" ", "")
        Nums = txt.Split(",")
        If (Nums.Length = 6) Then
            ReDim Valores(0 To 5)
            For k = 0 To 5
                Valores(k) = System.Byte.Parse(Nums(k))
            Next
            Call Combinaciones(Valores)
        Else
            MessageBox.Show("No, no no... Debe haber 6 y solo 6 numeros, separados por 1 coma...")
        End If
    End Sub

    Private Sub Combinaciones(ByVal Valores As Byte())
        Dim j, k, max As Byte
        Dim combinacion As String = ""

        ListBox1.Items.Clear()
        max = (49 - Valores.Max)
        For j = 0 To max
            For k = 0 To 5
                combinacion &= ((Valores(k) + j).ToString) & ", "
            Next

            ListBox1.Items.Add(combinacion)
            combinacion = ""
        Next
    End Sub
End Class

Bueno funciona bien dentro lo que cabe pero no hace lo que que quiero al 100 % ya que me hace combinaciones con números que no están dentro de los que introduzco:

Ejemplo

si introduzco  2 , 3 , 5 , 7 , 8 , 9

primero los números que se deben formar son  23 25 27 28 29 después 32 35  37 38 39  y con estos números hacer las combinaciones ya que como vemos no hay  0, 4, 1  en este caso serian 12 números a combinar formando combinaciones de 6 que cumplan la condición mirar (bonoloto primitiva) Si nos hacemos ricos lo haremos entre todos jejejje


NOTA (no se como ostias subir una captura de pantalla )


Saludos  todos
Luis

Pues si, una vez andaba en busca de versiones ligeras de Visual Studio y no hallé un enlace directo oficial del Visual Studio 2010 Express en ISO.

La única manera de obtenerlo original es ir a https://my.visualstudio.com/downloads crear una cuenta o iniciar sesión, luego buscar "Visual Studio 2010 Express", elegir el idioma y darle al botón Download:



---
Es raro porque aún se ofrecen las versiones 2008 y 2005 como enlaces directos:

Microsoft Visual Studio 2008 Express con SP1 en español
-------------------------------------------------------
http://download.microsoft.com/download/9/6/3/9632B28F-8B0B-40E5-98AB-7102BA848165/VS2008ExpressWithSP1ESNx1504732.iso

MSDN Library para Visual Studio 2008 con Service Pack 1
-------------------------------------------------------
http://download.microsoft.com/download/6/E/D/6ED0177E-4B4D-4BC1-B875-4F6BC6A61927/ESNMSDNX1530340.ISO

Microsoft Visual Studio 2008 Profesional en Español
---------------------------------------------------
http://download.microsoft.com/download/0/4/3/0434418f-7f3d-4dd6-9846-13f75353ff80/VS2008ProEdition90DayTrialESNX1435990.iso

Microsoft Visual Studio 2005 Profesional en Español
---------------------------------------------------
http://download.microsoft.com/download/3/0/8/308c4508-30c4-4387-9440-ebe2e63d6693/es_vs_2005_pro_trial.iso


Visual Web Developer 2005 Express Edition (449,848 KB)
http://go.microsoft.com/fwlink/?linkid=57037

Visual Basic 2005 Express Edition (445,282 KB)
http://go.microsoft.com/fwlink/?linkid=57033

Visual C# 2005 Express Edition (445,282 KB)
http://go.microsoft.com/fwlink/?linkid=57035

Visual C++ 2005 Express Edition (474,686 KB)
http://go.microsoft.com/fwlink/?linkid=57034

MUCHASSSSS GRACIAS jejje debo ya con 60 años perdiendo facultades ni me acordaba que tenia cuenta jejejje

gracias gracias
luis

 Por motivos de perdida de pc . necesito si alguien tiene esta versión y me la pueda  ceder ya no encuentro la descarga por ningún lado

de antemano muchas gracias
Luis

 
Gracias de verdad gracias a todos aunque todavía no he probado ninguno de vuestros códigos (no he podido ya que estoy en otro PC ) y no tengo instalado el Visual Net y por ser esclavo (digo que tengo que trabajar ;( ) no he tenido tiempo de probar pero ya lo hare y de verdad que estoy super agradecido con todos

saludos
Luis

Hola a Todos
Tengo algún tiempo sin programar y se me ha olvidado algunas cosas ya muchos me conocéis, como siempre he trabajado sobre la base de dos dígitos, ahora se me ocurre hacerlo con 6 0 8 números y que me haga las combinaciones del 01 al 49 y si claro es para loterías jejej .bien mi idea es la siguiente :

introduzco seis números  ejemplo  1, 4, 5, 7, 8, 9  y que con estos números se me formen resultados de 6 números :

14 15 17 18 19
41 45 47 48 49

como vemos la condición es que no se formen números mayores a 49

Encontre este codigo dentro de mis archivos pero creo es de excel y quiero convertirlo a Net

Código (vbnet) [Seleccionar] Expandir

Sub Combinacion()
i = 1
For b1 = 1 To 61
    For b2 = b1 + 1 To 62
        For b3 = b2 + 1 To 63
            For b4 = b3 + 1 To 64
            Cells(i, 1) = b1
            Cells(i, 2) = b2
            Cells(i, 3) = b3
            Cells(i, 4) = b4
            Range("E1") = i
            i = i + 1
            Next
        Next
    Next
Next
End Sub


A ver quien le echa una mano a este VIEJO jejej y espero para este septiembre 14 me feliciten por mis 61 años 😨

Luis

Doy por hecho que te refieres al OCR, yo también he trabajado un poco con el Reconocimiento Óptico de Caracteres de documentos, fotos, escaneos y documentos.

La herramienta adecuada dependerá mucho de cual sea tu objetivo, por ejemplo de lo mejorcito que hay para hacer OCR de algo de texto en imágenes en pantalla es Abby ScreenShoot Reader, este te permite seleccionar una porción de la pantalla para hacerlo un OCR muy eficiente. Otra alternativa no tan potente es usar OneNote, cualquier imagen que pegues a OneNote te permite hacerle OCR (Copiar texto de imagen)

Si tu objetivo son documentos una buena alternativa es Acrobat Pro, este trabaja con PDF, imágenes, escaneados, etc, tiene muy buen OCR automático y más o menos la edición y corrección.


MUCHAsssssssssss gracias ya estare comentando los resultados
luis



Para cosas más elaboradas está Abby Fine Reader, este ya es un software especializado que permite bastantes opciones, muy bueno si quieres hacer un OCR con correcciones/modificaciones.

Todos los programas son de Pago XD. Pero todos se pueden usar gratuitamente por unos días para probarlos, otra cosa interesante con Acrobat y Abby es que se pueden desinstalar y volver a instalar para tener de nuevo los días de prueba y así indefinidamente, esto para la gente que le gusta comprar sus programas y no le gusta usar "software ilegal"

Por último, también hay opciones gratuitas OnLine, quizá debas empezar a probarlas primero, si vez que te faltan opciones más cómodas o avanzadas ya puedes probar los programa que te recomendé antes.

https://www.onlineocr.net/es/
https://www.newocr.com/
https://lightpdf.com/es/ocr

hace años lei sobre un programa que pasaba a texto lo que habia en las fotos ,tengo un blog de cocina y trascribir las recetas es muy tedioso ,si alguien sabe de esto que me de una mano ,ya he buscado en la red pero na ,o no se buscar bien

saludos
Luis

Hola Dos cuestiones

primero:
cual seria la densidad perfecta de la palabra clave en una web ? tenia un programa para eso pero lo perdi y ni me acuerdo como se llama,(he retomado las webs ) y los que  ya saben de Seo que si te pasas de palabras Np caso Goggle jejje y si te quedas corto tampoco ,

segundo busco intercambiar enlaces cruzados tema  " Utensilios de cocina " gente seria y nada de granjas de enlaces

Saludos
Luis

Una de las razones por las que me compré yo este modelo concreto de teclado mecánico a pesar de su precio es por la posibilidad de ponerle teclas customizadas cuando lo desease. De modo que el otro día me dio por hacerle un cambio de look a mi teclado y pedí un nuevo juego de teclas con esta combinación de colores:





[img
width=1000]https://i.imgur.com/zcZYF1W.jpg[/img]



Como veis si miráis el primer mensaje de este hilo esta nueva combinación de colores es un poco menos colorida que la anterior o primigenia, y en ella abunda mas el blanco. En fin espero que les guste.
Saludos...

Songoku

Jo con el pc que tienes ¿ porque le haces esto ?

saludos

Hola y espero que todos estén bien

Yo como toda España encuevado para frenar el Mega Bicho 

Y claro frente al pc ahora que puedo jejej

Bueno tengo este código que me combina sin error,ni duplicados etc etc, pero me da tres números y necesito aumentar los números de tres a cuatro ,cinco y sucesivamente con solo cambiar la condición ,no se implementar lo de los números  o si se debe hacer un " sele case " o en su defecto por código cada ves que quiera cambiar 


ahora me entrega los resultados de esta forma :

tengo estos números base  {2, 6, 10, 11, 17, 20, 24, 34}  ejecuto y me da :
(solo las 3 primeras)
02.06.10
02.06.11
02.06.20
02.06.24

bien necesito que me forme resultados pero de cuatro números cinco números etc etc donde por supuesto sean números únicos o resultados

Ejemplo:

Bien:
01.05.16.25
01.05.16.26
01.05.16.30

Mal:

01.05.16.16
01.05.05.26
01.01.16.30

Código (vbnet) [Seleccionar] Expandir

Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
        Dim intCol As IEnumerable(Of Integer) = {2, 6, 10, 11, 17, 20, 24, 34}
        Dim pairsCol As IEnumerable(Of String) =
            From value1 As Integer In intCol
            From value2 As Integer In intCol
            Select String.Join(Environment.NewLine, (
                               From value3 As Integer In intCol
                               Where (value1 <> value2) AndAlso
                                     (value1 <> value3) AndAlso
                                     (value2 <> value3) AndAlso
                                     (value3 > value2) AndAlso
                                     (value2 > value1)
                               Select String.Format("{0:00}, {1:00}, {2:00}",
                                                    value1, value2, value3)))


        Dim ClearRep As New List(Of String)

        For Each pairs As String In pairsCol
            For Each line As String In pairs.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
                ListBox4.Items.Add(line)
            Next line
        Next pairs

        MessageBox.Show(ListBox1.Items.Count)



    End Sub


Saludos
LUIS
QUÉDATE EN CASA ENTRE TODOS PODREMOS