Hola a todos

Bien como no consigo en los post ,que se que le vi una ves expongo lo que quiero hacer

Tengo un pc conectado en la parte de arriba de mi casa a Internet con el moden que esta en la planta baja a través de los ( PL )  esos que se enchufan a la corriente eléctrica, funciona bastante bien,bien pero quiero tener wifi en los demas cuartos ya sabeis ,movil table games etc, el wifi abajo va bastante bien ,y se me ocurre usar otro moden de timofonica Home station  .bien lo que quiero saber es como configurarlo para conectarlo al pc y que me retrasmita wifi arriba .he probado algunos metodos que salen en youtube pero na de na

saludos
Luis

Hola jejej a todos vuelvo con una chorrada

tengo varios TextBox y quiero que a partir del sexto no  me acepte números mayores a 45 y que cuando el usuario ponga un numero mayor a 45 no deje continuar el programa hasta poner un numero menor a 45 estoy con este codigo simplón pero deja que siga el programa auqnue le avise al usuario

Private Sub TextBox6_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox6.Validating
        If (Int(TextBox6.Text) < 0 Or Int(TextBox6.Text) > 45) Then
 
            MsgBox("Numero mayor que 45 en casilla 6 introduzca numero correcto")
 
        End If
 
    End Sub  

saludos
Luis

Hola a todos aunque mas bien me la paso por la zona Net ,ahora tengo una duda con la electronica y ando buscando un programa que me sirva para modificar mandos a control remoto y los que saben de mandos de portoneras. estos trabajan sobre los 400Mhz y quiero ver la posibilidad de subir o bajar esa frecuencia atraves de programacion

En esto si estoy de verdad muy nulo y me gustaria saber como andan estos trastos


gracias de antemano

Luis

Hola de nuevo , hoy no vengo con numeros jejejje

me estoy haciendo un programita para ir blokeando las paginas basura que
me saltan de ves en cuando y pense que seria facil cojer un testbox una
variable y ya , la idea es blokear (ahora lo hago a mano ) las direcciones
de estas molestas paginas en el archivo Host .pero me encontre con otros
problemas y despues de mirar y remirar no veo como hacerlo.


Problema 1: escribir en el archivo sin sobreescribir lo ya puesto y que continue en el ultimo registro

problema 2: hay que poner 127.0.0.1 y un margen de tabulacion

problema 3: no se poner tampoco la ruta del archivo  "C:\WINDOWS\system32\drivers\etc\hosts"

problema 4: como este archivo es de sistema lo unico que lo habre es el notepad yo lo hago de esta manera con icono directo

C:\Windows\notepad.exe "C:\WINDOWS\system32\drivers\etc\hosts" por lo tanto no se me ocurre para que no salte el notepad


Formato
a si queda escrito el archivo pero no se como hacer para solo escribir la pagina en el testbox ,
esto es que deberia estar escrito siempre el 127.0.0.1 para solo poner la pagina mala jeje

la salida o el archivo Host debe de quedar asi

127.0.0.1       http//   es aliexpress  com
127.0.0.1       www p wntg2x  com
127.0.0.1       http  activities   aliexpress   com
127.0.0.1       http  n4uzz  super-promo  boundaryspot   biz /
127.0.0.1       http  qjozz    super-promo.boundaryspot biz

esto es lo que llevo hecho hasta el momento

 Imports System.IO
 
Public Class Form1
    Private TextBoxes As TextBox() = {Nothing}
    Private N1 As Int32()
    Private Result1 As Int32()
    Private _textBox As Object
 
    Private Property TextBox(ByVal TextBoxCount As Short) As Object
        Get
            Return _textBox
        End Get
        Set(ByVal value As Object)
            _textBox = value
        End Set
    End Property
    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Result1 = {Num1} _
 
        Dim rutaFichero As String
        Dim i As Integer
        rutaFichero = Path.Combine(Application.StartupPath, "hts.txt")
        Dim fichero As New IO.StreamWriter(rutaFichero)
        fichero.Close()
    End Sub
 
    '--------------------------------
    Private Sub PaginasBlokeadasToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PaginasBlokeadasToolStripMenuItem.Click
        Process.Start(Path.Combine(Application.StartupPath, "C:\WINDOWS\system32\drivers\etc\hosts"))
    End Sub
 
    Private Sub SalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
        If MessageBox.Show("Esta seguro que desea Cerrar ", "Cerrar Stop Spam ", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
 
            Me.Close()
 
        End If
    End Sub
End Class

Saludos
Luis

Hola

Bien gracias a nuestro querido amigo Elektro (que jaleti soy  )  

tengo este codigo o funcion que funciona bien.pero ahora se me ocurre que en ves de un solo digito con los que se combinan ahora lo quiero hacer de dos digitos .

Ahora es con estos

{0, 3, 4, 5, 8}

pero si pongo

{01, 13, 34, 55, 84}


No logro hacer lo mismo que con los digitos solos he modificado trasteado pero nada

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim valuesInt As IEnumerable(Of Integer) =
            {0, 3, 4, 5, 8}
        {01, 13, 34, 55, 84} <---------usar esto ????
 
        Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
            Form1.GetPairs(valuesInt, maxValue:=90)
 
        For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
 
            '  ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
 
        Next pair
 
 
 
Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                    Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
 
        If (col.Max >= 10) Then
            Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")
 
        Else
 
            Return From value As Integer In col
                   Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                          key:=value,
                          value:=From index As Integer In col
                                 Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                 Select CInt(value & index))
 
 
        End If 

Luis

Estoy trabajno este codigo y me da error en cols y no descubro el porque ? ya que lo declaro ??

Error   2   'cols' no está declarado. Puede que esté inaccesible debido a su nivel de protección.


 

Public Class Form1
 
    Dim maxo As Integer = 7
 
    Dim valuesInta As IEnumerable(Of Integer)
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim valuesInt As IEnumerable(Of Integer) =
            {0, 1, 2, 3, 4, 5, 6, 9}
 
        Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
            Form1.GetPairs(valuesInt, maxValue:=80)
 
        For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
 
            ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
 
        Next pair
 
        MsgBox(String.Join(", ", pairs(0).Value))
        MsgBox(String.Join(", ", pairs(1).Value))
        MsgBox(String.Join(", ", pairs(2).Value))
        MsgBox(String.Join(", ", pairs(3).Value))
 
 
        Dim M1 As IEnumerable(Of Integer) = pairs(0).Value.ToList
        Dim juntos2 As List(Of Integer) = M1
        juntos2.Sort()
        Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
 
        Dim M2 As IEnumerable(Of Integer) = pairs(1).Value.ToList
        Dim juntos3 As List(Of Integer) = M2
        juntos3.Sort()
 
 
        'Me.ListBox2.Items.AddRange((From value As Integer In M1).Cast(Of Object).ToArray)
        Dim M3 As IEnumerable(Of Integer) = pairs(2).Value.ToList
        Dim juntos4 As List(Of Integer) = M3
        juntos4.Sort()
 
        Dim M4 As IEnumerable(Of Integer) = pairs(3).Value.ToList
        Dim juntos5 As List(Of Integer) = M4
        juntos5.Sort()
 
    End Sub
 
    Public Shared Function GetPairs(ByVal col As IEnumerable(Of Integer),
                                    Optional ByVal maxValue As Integer = Integer.MaxValue) As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer)))
 
        If (col.Max >= 10) Then
            Throw New ArgumentException(paramName:="col", Message:="El valor máximo de la colección debe ser un valor inferior a 10.")
 
        Else
 
            Return From value As Integer In col
                   Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                          key:=value,
                          value:=From index As Integer In col
                                 Where (index <> value) AndAlso (CInt(value & index) <= maxValue)
                                 Select CInt(value & index))
 
 
        End If
 
 
 
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
         Dim cols As IEnumerable(Of IEnumerable(Of String)) =
      From col As IEnumerable(Of Integer) In {juntos2, juntos3, juntos4, juntos5}.Distinct.ToList Where (col.Count() = maxo)
         Group By String.Join("", col).AsEnumerable
        Into(Group)
        Select From value As Integer In Group.First.Distinct
             Select value.ToString(format:="0#")
 
        Me.ListBox2.Items.AddRange((From cols As IEnumerable(Of String) In cols Select String.Join(", ", col)).ToArray) [color=red]<-----ACA ME DA EL ERROR[/color]
 
        ' MsgBox(cols.Count)
    End Sub
End Class 

se supone que ya lo declaro y en otro codigo si me funciona bien

luis

Hola

Recien resolvi o mejor dicho me resolvieron unas dudas gracias a como siempre elektro jejej ahora vengo de nuevo con algo que lo mejor es una bobera pero ya me volvi loco buscando la solucion

Explico

tengo este codigo

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim valuesInt As IEnumerable(Of Integer) =
    {0, 1, 4, 6, 2, 8, 7}
 
        Dim pairs As IEnumerable(Of KeyValuePair(Of Integer, IEnumerable(Of Integer))) =
            From value As Integer In valuesInt
            Select New KeyValuePair(Of Integer, IEnumerable(Of Integer))(
                   key:=value,
                   value:=From index As Integer In valuesInt
                          Where index <> Integer.Parse(CStr(value).Last)
                          Select CInt(value & index))
 
        For Each pair As KeyValuePair(Of Integer, IEnumerable(Of Integer)) In pairs
 
            ListBox1.Items.Add(String.Format("Key: {0,-4} Values: {1}", pair.Key, String.Join(", ", pair.Value)))
 
        Next pair
    End Sub
End Class 

lo que no puedo hacer una limitacion de los resultados o sea que si los numeros muestran del 01 al 89 y yo quiera mostrar solo desde el 01 al 50 ,no se ya que tampoco he logrado pasar estos resultados a otra variable que yo pueda o conosca manejar ya que con "pair.Key " no tengo ide de como manejar esto .


Luis

Hola a todos de nuevo (tiempo sin preguntar ) seguro alguno me estrañaria jejeje  

Bien quiero formar pares de numeros que tengo en una variable

esta variable tiene longitud que varia pueden ser cualquier cantidad hasta 10 numeros

ejemplo

0,1,2,3,4,5,6,7,8,9

y nesecito formarlos de esta manera

01
02
03
04
05
06
07
08
09

10
12
13
14
15
16
17
18
19  y haci con todos los demas numeros y pasarlos a otra variable

la varaiable que estoy usando es esta

Dim pru As IEnumerable(Of Integer) = 

Saludos
Luis

Hola a todos

como ya mas o menos me defiendo jejej ya casi no pregunto pero no se como hacer que este codigo
em ves de empezar con split(0) empieze con el split(1) me explico

tengo un arreglo de x numeros (1, 2, 3, 4, 5) y si quiero hacer una union o concatenacion de ese arreglo por ejemplo ( 1 2 3 )  tengo que tomar split(0),split(1),split(2)

cuando lo que yo quiero es split(1),split(2),split(3) y no tomar en cuenta el split(0),he provado con Skip(1) pero no me vale ya que me salta el numero inicial


un poco mas claro

arreglo
1, 2, 3, 4, 5

asi es ahora

1 = split(0)
2 = split(1)
3 = split(2)

nesecito de esta forma

1 = split(1)
2 = split(2)
3 = split(3)

 Dim arregloSumasa() As Integer = {1, 2, 3, 4, 5}
 
 
   Dim split As IEnumerable(Of IEnumerable(Of Integer)) =
    SplitIntoParts(collection:=arregloSumasa, amount:=1, fillEmpty:=True)
 
 
 
 
 
 
 
 
Public Shared Function SplitIntoParts(Of T)(ByVal collection As IEnumerable(Of T),
                                              ByVal amount As Integer,
                                              ByVal fillEmpty As Boolean) As IEnumerable(Of IEnumerable(Of T))
 
        Return From index As Integer In Enumerable.Range(0, CInt(Math.Ceiling(collection.Count() / amount)))
               Select If(Not fillEmpty,
                         collection.Skip(index * amount).Take(amount),
                         If((collection.Count() - (index * amount)) >= amount,
                            collection.Skip(index * amount).Take(amount),
                            collection.Skip(index * amount).Take(amount).
                                                            Concat(From i As Integer
                                                                   In Enumerable.Range(0, amount - (collection.Count() - (index * amount)))
                                                                   Select DirectCast(Nothing, T))))
 
    End Function

Saludos

Luis

Hola a todos tengo este error cuando genero un programa en exe y al ejecutarlo me sale la ventanita que me dice  " InvalidCastException " seguir o cancelar,  si sigo el programa se ejecuta normalmente, he compilado muchos exes y es la primera ves que me pasa ,

************** Texto de la excepción **************
System.InvalidCastException: La conversión de la cadena "" en el tipo 'Double' no es válida. ---> System.FormatException: La cadena de entrada no tiene el formato correcto.

************** Depuración JIT **************
Para habilitar la depuración Just In Time (JIT), el archivo de configuración de esta
aplicación o equipo (machine.config) debe tener el
valor jitDebugging establecido en la sección system.windows.forms.
La aplicación también se debe compilar con la depuración
habilitada

Por ejemplo:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

Cuando esté habilitada la depuración JIT, cualquier excepción no controlada
se enviará al depurador JIT registrado en el equipo
en lugar de controlarlo mediante el cuadro de diálogo.

Luis