Temas

Hola ya cuando pregunto es que me come el coco

Tengo un lixbox y me muestra los resultados en vertical y por probar quiero saber si se puede en horizontal

ahora me los muestra a si

25
45
68
75
78
79
80
88
99

y quiero saber si se puede mostrar de esta forma ?

25 45 68 75 78 79 80 88 99

la funcion que uso es esta

Código [Seleccionar] Expandir

Select Case Results.Where(Function(n) n = Results(X)).Skip(1).Any

                Case False ' El número no está repetido en ninguna "linea"
                    ' Así que colocamos el número en el Textbox
                    Try
                        ListBox1.Items.Add(CStr(Results(X)))


                        ' TextBoxes(TextBoxCount).Text = CStr(Results(X))
                    Catch ex As Exception
                        Throw New Exception(ex.Message & ex.StackTrace)
                    End Try

                    ' Case True ' El número está repetido en alguna de las "lineas"
                    ' Así que escribimos el número "máximo" en el textbox
                    ' TextBoxes(TextBoxCount).Text = -CStr(maximum)

            End Select
            ' TextBoxCount += 1

        Next X


Saludos

Luis

Trasteando un poco por la red y super aburrido con los texboxes he probado a ver si en ves de estar mostrando los resultados en los texboxes los muestro en un listbox ?

quiero mostrar el resultado de   Result1 ,Result2, Result3 lo unico que logro es cuando introdusco en los primeros texboxes

Código [Seleccionar] Expandir

Private Sub TextBox_Leave(ByVal sender As System.Object, ByVal e As  _
System.EventArgs) Handles TextBox7.Leave, TextBox8.Leave, TextBox9.Leave
        ListBox1.Items.Add(sender.text)
    End Sub


Luis

Bien gracias a Elketro jejej que me da una buena mano a pesar que estoy injertado con visual y net. bueno a lo mejor y nace un lenguaje de programacion nuevo jejeje.

Bien como veran en el codigo en que los resultados van entrando en los texboxes segun se hagan los calculos y estan numerados consecutivamente y estos texbosex los muestro en el formu en lineas de 4 en cuatro.


Texboses mostrados de esta forma
1   2  3  4
5   6  7  8
9 10 11 12

Bien mi problema es que no quiero que se repitan números en las lineas ??? y como estos se van llenando segun el calculo o suma he probado a intercalar los texboxes pero menuda chapuza jejeje.

Bueno el codigo

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim MIN As Integer = 0
   Dim MAX As Integer = 99

   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub



   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Dim Sep As Object
   Dim texbox7 As Object
   Dim o As Object
   Private _val As Object
   Private _val1 As Integer
   Dim TextBox As TextBox()

   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property


Private Property KeyAscii As Integer

   Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
       Get
           Return _val
       End Get
       Set(ByVal value As Object)
           _val = value
       End Set
   End Property

   Private Property Val(ByVal p1 As Object) As Integer
       Get
           Return _val1
       End Get
       Set(ByVal value As Integer)
           _val1 = value
       End Set
   End Property

   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Calcular.Click

       Dim TextBoxCount As Short = -1

       TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}

       Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items

       ' funcion
       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result3
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next


End Class


Luis

Hola bien mi idea no es hacer un trial ni demo solo nesecito una rutina simple que me detenga el programa sin mesagebox ni nada solo que no funcione ni haga nada al ejecutarlo,

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
   Dim MIN As Integer = 0
   Dim MAX As Integer = 99

   Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Me.ControlBox = False ' Elimino todos los controles del formulario
   End Sub

 

   Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
   Dim Sep As Object
   Dim texbox7 As Object
   Dim o As Object
   Private _val As Object
   Private _val1 As Integer
   Dim TextBox As TextBox()

   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property
   ReadOnly Property Num3 As Int32
       Get
           Return CInt(TextBox3.Text)
       End Get
   End Property


Private Property KeyAscii As Integer

   Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
       Get
           Return _val
       End Get
       Set(ByVal value As Object)
           _val = value
       End Set
   End Property

   Private Property Val(ByVal p1 As Object) As Integer
       Get
           Return _val1
       End Get
       Set(ByVal value As Integer)
           _val1 = value
       End Set
   End Property

   Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
   Handles Calcular.Click

       Dim TextBoxCount As Short = -1

       TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}

       Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
                 .Distinct().ToArray ' Elimino duplicados

       Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
                 .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,

Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items

       ' funcion
       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result3
           TextBoxCount += 1
           TextBox(TextBoxCount).Text = Number
       Next


End Class


gracias de antemano

Luis

Donde puedo conseguir una rutina de tiempo para que pasado tres meses o dias se bloquee el programa y saque un mesagebox diciendo lo que sea ?

gracias

Luis

Bien tengo un P4 8 gigas ram disco 500 gigas y demas patrañas jejej uso wify desde casa a casa de mama con wifisky 2000 y a veces uso una cuenta con la rural del pueblo full señal ( todas las barritas ) uso el antivirus  "  Microsoft Secuirity Essentila " pero mi pc va como un 286 de principio de siglo Lento muyyyyyyy lento que da dolor de Hue... abrir el face jejje pero solo va lento el internet cuando lo uso para programar o abrir cualquier cosa va como un tiro ?????

Alguna idea ?

Luis

Uso el VB 2010 y cuando quiero cambiar el icono en propiedades del proyecto aunque tenga bien ubicados los iconos cuando los busco con el editor no se ven ?? por lo tanto no los puedo cambiar me gustaría cambiar los de los formularios y el del ejecutable.

tengo de 16 y de 32 por si....

luis

Hago unos calculos matematicos donde envio estos resultados a unos texboxes que estan ordenados de forma consecutiva, como podria evitar resultados repetidos cada cuatro teboxes

Código [Seleccionar] Expandir

Dim TextBoxCount As Short = -1

TextBoxes = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox29, TextBox30....}





pense en esta forma pero no encuentro la logica

Código [Seleccionar] Expandir

cadacuatro = {TextBox7, TextBox8, TextBox9, TextBox10,} _
                  .Distinct().ToArray  Eliminar duplicados


Luis

Hola quiero mostrar números dentro de un rango establecido (00 al 99 )

Necesito hacer una función que me elimine lo números que se pasen de 99 ? pero que no me deje los texboxes vacíos ? poniendo el ultimo numero del rango si este se pasa del mismo

Código [Seleccionar] Expandir

Result1 = {Num1 + 10, Num1 + 20, Num1 + 30} _
                  .Distinct().ToArray '

        Array.Sort(Result1)


For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next


Luis

Bien aunque no lo crean me da pena preguntar ya varias veces lo mismo  no logro hacer que en unos resultados de unas simples cuentas no me muestren en los texboxes. dentro de un rango establecido  ( mi rango es 00 al 99 )  y todo lo que se pase de 99 no lo debe mostrar pero si debe de mostrar el 99, bien he gogleado y buscado por este mismo foro pero na,,,estoy probando con esta rutina pero na tampoco....AUXILIO

Código [Seleccionar] Expandir

Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox48.TextChanged
        If Val(TextBox7.Text) >= 99 Then
            TextBox7.Text = ""
        End If
    End Sub


Luis

Hola vuelvo al ataque

Estoy tratando que los texbox que reciben los resultados de unas ecuaciones matematicas no permitan mostrar numeros que no esten dentro de determinado rango y probando con este pedazo de codigo me salta este error  " no se controlo nulreferenceExection "


Tambien me gustaria saber como no dejar el texbox vacio  mostrando el ultimo numero dentro del rango establecido

Código [Seleccionar] Expandir

  Private Sub TextBox7_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        If Val(Me.texbox7.tex) < o Or Val(Me.texbox7.tex) > 20 Then
        End If
    End Sub 

Luis

Como puedo limitar dentro de un rango de números los resultados de un calculo matemático sea suma o resta.

Es que si la suma da como resultado 100 pero mi rango es 99 que no me muestre 100 pero ponga  el  99 para no dejar el texbox vació 

Mi idea es crear una variable con los números que tengo como validos para que el resultado compare y si esta dentro de este rango los valide y los muestre en los texbox ,y si esto no es a si que me muestre el máximo que en este caso es el 99

Código [Seleccionar] Expandir

Public Class Form1

    Private TextBoxes As TextBox() = {Nothing}

    Private Result1 As Int32(), Result2 As Int32()

    ReadOnly Property Num1 As Int32
        Get
            Return CInt(TextBox1.Text)
        End Get
    End Property

    ReadOnly Property Num2 As Int32
        Get
            Return CInt(TextBox2.Text)
        End Get
    End Property

    Private Sub Sumar(sender As Object, e As EventArgs) _
    Handles Button_Sum.Click

        Dim TextBoxCount As Short = -1

        TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}

        Result1 = {Num1 + 15, Num1 + 25} _
                  .Distinct().ToArray ' Elimino duplicados

        Result2 = {Num2 + 30, Num2 + 20} _
                  .Distinct().ToArray ' Elimino duplicados

        Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items

        For Each Number As Int32 In Result1
            TextBoxCount += 1
            TextBoxes(TextBoxCount).Text = Number
        Next

        For Each Number As Int32 In Result2
            TextBoxCount += 1
         


Gracias de antemano

Luis

Hola tengo un código cedido amablemente por Elektro Ha@cker pero no logro que funcione después de googlear bastante  no me aclaro con este error..

" La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base "

No se si es porque hago el form pongo los controles pero pongo el codigo despues ?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private TextBoxes As TextBox() = {Nothing}

   Private Result1 As Int32(), Result2 As Int32()

   ReadOnly Property Num1 As Int32
       Get
           Return CInt(TextBox1.Text)
       End Get
   End Property

   ReadOnly Property Num2 As Int32
       Get
           Return CInt(TextBox2.Text)
       End Get
   End Property

   Private Sub Sumar(sender As Object, e As EventArgs) _
   Handles Button_Sum.Click

       Dim TextBoxCount As Short = -1

       TextBoxes = {TextBox3, TextBox4, TextBox5, TextBox6}

       Result1 = {Num1 + 15, Num1 + 25} _
                 .Distinct().ToArray ' Elimino duplicados

       Result2 = {Num2 + 30, Num2 + 20} _
                 .Distinct().ToArray ' Elimino duplicados

       Array.Sort(Result1) : Array.Sort(Result2) ' Ordeno los Items

       For Each Number As Int32 In Result1
           TextBoxCount += 1
           TextBoxes(TextBoxCount).Text = Number
       Next

       For Each Number As Int32 In Result2
           TextBoxCount += 1
           TextBoxes(TextBoxCount).Text = Number
       Next

   End Sub

End Class


Luis

Como podría ordenar de menor a mayor en este bloque de texbox ,ya que mando directo los datos ? se podría hacer con variables sin tener que usar matrices ?
y que no se repitan los números en los texbox y que si hay un repetido me lo supla con otro numero dentro de un rango de números ya establecido.

Pd: los números son aleatorios y no gobierno los resultados enviados a los texbox

Código [Seleccionar] Expandir

TextBox27.Text = r5
        TextBox28.Text = r5
        TextBox29.Text = r5
        TextBox30.Text = r5


Luis

Haciendo caso de los expertos en estos en un post anterior comentaba que usaba dos antenas yagis para conectar casa de madre vía wify con mi casa a mas de 5 kilómetros bien andaba a trompicones subia bajaba la señal, bien en ese post me recomendaron lo siguiente : casa mama retransmitir con una yagi, fácil solo sacar antena por el moden y en mi casa una planar o parabolica bien me compre una  wifisky 2000mW y aumento la señal y la estabilidad de la misma, pero porque cuando llueve aparece desaparece la señal y conecta y desconecta a cada rato,tengo otras señales con mayor fuerza y estas también le pasa lo mismo, están super fijas las dos antenas para no tener problemas de movimiento.

Alguna idea ?

Luis

Ya mareado de googlear jejejej tengo otra pregunta si es posible 

tengo varios texbox donde envió los resultados de una ecuación matemática introduzco datos en unos texbox estos pasan por la función y los resultados me los envía a estos 20 texbox. el problema es, que aunque le he puesto que solo acepte números lo cual funciona hay una pega es que cuando los números son negativos me muestra el signo  negativo  " - " lo cual no he podido eliminar. he puesto esta funcion pero sigue igual.

Código [Seleccionar] Expandir

If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then 
        e.KeyChar = "" 
    End If 


De antemano gracias

Luis

Pd alguna direccion de algun tuto de solo texbox jejeje

Bueno tengo un bloke de 12 texbox que reciben los datos que son numeros y para
guardar esos datos tendrían que ser de lineas de tres

datos de;
texbox1  texbox2, texbox3
texbox4  texbox5, texbox6
texbox7  texbox8, texbox9 ....

con esta rutina tengo solventado lo del txt pero solo escribe una linea

Código [Seleccionar] Expandir

Private Sub Button2_Click(ByVal sender As System.Object, _
                      ByVal e As System.EventArgs) _
                      Handles Button2.Click
        ' Crea el archivo 
        FileOpen(1, "C:\Users\Acuario\documents\visual studio 2010\Projects\texto.txt", OpenMode.Output)
        ' escribe el contenido 
        Write(1, TextBox8.Text, TextBox9.Text, TextBox10.Text)

        FileClose(1) ' lo cierra 
    End Sub



Luis

hola

Tengo dos formularios uno es del login funciona pero no se como hacer para que cuando este logeado se cierre ya que me queda siempre visible ???

Código (vbnet) [Seleccionar] Expandir

Public Class Login

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "jose123" Then
            MsgBox("Entraste")
            Form2.Show()
        Else
            MsgBox("seguro eres tu ?")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        End

    End Sub
   
End Class

Hola como recien comienzo en esto de Visual aunque se parece un poco al Viejo fOX
estoy haciendo un programa que en los texbox me gustaria limitar la entrada de numeros desde 00 al 99,ya he logrado hacer que me capte solo numeros y no carapteres y que tambien no pasen de dos pero como no entiendo mucho de string

Código [Seleccionar] Expandir

Public Class Form1
    Dim Sep As Char
    Dim Número As Double

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If Not (Char.IsNumber(e.KeyChar) Or e.KeyChar.Equals(Sep) Or Char.IsControl(e.KeyChar)) Then e.Handled = True
    End Sub

End Class


Luis

Hola a todos

Bueno por problemas personales estuve alejado de los pc y  a la red

Ahora me dio por programar (aprender jejj en androide ) y nesecito convertir algunos codigos a bv habra algun programa para eso ?

gracias de antemano

Luis

No conozco mucho de este lenguaje pero no se porque no me va esto tan simple alguien me echa un cable

La idea es que introdusco un numero y le sume 1 2 y 3 ejemplo

introdusco el 45 y deberia mostrarme  46 47 48


Primero creo una formulario agrego un boton y un textbox
y al boton le agrego el evento click

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
Dim num As Integer

num=CInt(Text1.Text)
Text1.Text=num & " " & (num+1) & " " & (num+2)

End Sub
Gracias

Luis

Hola a todos

Entre la casa de mi hermana y la mia hay 5 kilometros distancia y nos pasa esto.

el Internet esta en la casa de ella en el pueblo ok , compramos dos antenas  ANTENA YAGI DIRECCIONAL WIFI 2,4GHz 18dBi. EXTERIOR,  una la puse en su casa a la salida del router y mirando hacia mi casa con una tarjeta teplinck y por supuesto la otra en el tejado de la mía.

bien la cuestión es que la pillo pero me varia mucho la potencia a veces una raya y otra con full y a veces no la veo y me gustaría saber que puedo hacer para que la potencia sea estable ? o me falta equipo ?

Saludos

Luis

Hola tengo esta función que lo que hace es ordenar o digamos combinar una serie de números que introduzco.

y estoy buscando como hacer que no me combine mas de dos numeros de la misma serie ejemplo

12 17 21 24 25 26 < eliminar todo registro que tenga esta forma 21 24 25 26

12 18 22 84 85 86< como se ve que no permita tener mas de dos registros dentro de su rango

Con if se podria creo yo pero no encuentro la logica

Código [Seleccionar] Expandir

j=0;
    for (i=0;i<=n-2*ver+1  ;i++){
       //if (j>total) break;
      for (j=10+i;j<n ;j+=2){
        combi++;
        if (numeros_no_repe[0+i]>0 && numeros_no_repe[j]<100 ){
            cout<< numeros_no_repe[0+i] <<" " << numeros_no_repe[1+i] <<" "<< numeros_no_repe[5+i]<<" "  << numeros_no_repe[8+i] <<" " << numeros_no_repe[9+i] <<" "<< numeros_no_repe[j]<< endl;
              fs<< numeros_no_repe[0+i] <<" " << numeros_no_repe[1+i] <<" "<< numeros_no_repe[5+i]<<" "  << numeros_no_repe[8+i] <<" " << numeros_no_repe[9+i] <<" "<< numeros_no_repe[j]<< endl;
        //
            cout<< numeros_no_repe[0+i] <<" " << numeros_no_repe[2+i]  <<" "<< numeros_no_repe[6+i]<<" "  << numeros_no_repe[8+i] <<" " << numeros_no_repe[9+i] <<" "<< numeros_no_repe[j]<< endl;
              fs<< numeros_no_repe[0+i] <<" " << numeros_no_repe[2+i]  <<" "<< numeros_no_repe[6+i]<<" "  << numeros_no_repe[8+i] <<" " << numeros_no_repe[9+i] <<" "<< numeros_no_repe[j]<< endl;
       
             
       
        //
        }
      }
      cout<<endl;
      fs<<endl;
    }
  cout<<endl<<"Combinaciones totales: "<<combi<<endl;
  fs<<endl<<"Combinaciones totales: "<<combi<<endl;
  fs.close();
  system("pause");
  return EXIT_SUCCESS;
}


luis

Hola

Convertir este codigo a c++ que hace que caduque el programa a la fecha programada

Código [Seleccionar] Expandir

private void Form1_Load(object sender, EventArgs e)
        {
            System.DateTime fechaR = new System.DateTime();
            fechaR = (System.DateTime.Now);
            String fechaF = "13-04-2012";
            if (fechaF.Equals(fechaR.ToString("dd-MM-yyyy")))
            {
                MessageBox.Show("Esta versión ha finalizado: " + fechaR.ToString("dd-MM-yyyy"));
                Application.Exit();
                return;
            }
            fechaF = "13/04/2012";
            if (fechaF.Equals(fechaR.ToString("dd-MM-yyyy")))
            {
                MessageBox.Show("Esta versión ha finalizado: " + fechaR.ToString("dd-MM-yyyy"));
                Application.Exit();
                return;
            }
        }

Luis

Bueno a veces es un fastido cuando estoy probando un codigo, ya que se cierra y volver a ejecutarlo cada ves. hay forma de evitar que se se cierre y que lo haga cuando uno quiera ?

Código [Seleccionar] Expandir

system("pause");
  return EXIT_SUCCESS;


luis

Hola a todos

Cojo wifi con una antena yagi de 25DBI con una tplin 150mBPS y tengo otra tarjeta TWL541U usb inalambrica , mi pregunta es puedo retrasmitir la señal con la otra usb desde el mismo pc con mas potencia ? ahora uso el Winhostop pero solo me da una raya dentro de casa

Gracias Luis

Hola a todos

Me gustaria saber si es posible hacer que este codigo que suma 1 a cada numero pero de uno en uno.

01 32 34 38 41 44 <-- registro original en variable

02 32 34 38 41 44 sumamos 1 al primero
01 33 34 38 41 44 sumamos 1 al segundo
01 32 35 38 41 44 sumamos 1 al tercero
01 32 34 39 41 44 sumamos 1 al cuarto
01 32 34 38 42 44 sumamos 1 al quinto
01 32 34 38 41 45 sumamos 1 al sexto

Se podria hacer que tome de un txt varios registros y le aplique el codigo uno por uno ? no importando que sean muchos

esto es lo que llevaria el txt por decir algo.

01 32 34 38 41 44
03 06 19 32 47 49
08 12 20 34 47 49

la idea es que lea el primer registro aplique la funcion y siga con el segundo y cuando se acaben los registros guardarlos
en otro Txt,

*************************

Código [Seleccionar] Expandir

#include <iostream>
using namespace std;

    int main() {
    int v[6]={1 ,32, 34, 38, 41, 44};
    int i,j,a[6][6];
    for (i=0;i<6;i++)
        for (j=0;j<6;j++){
            if (i!=j)
                a[i][j]=v[j];
            else
              a[i][j]=v[i]+1;
        }

    for (i=0;i<6;i++){
        for (j=0;j<6;j++){
        cout << a[i][j]<<"   ";
        }cout << endl;
    }
    return 0;
}


Gracias de antemano

Luis

Código [Seleccionar] Expandir

En este codigo que saca los numeros primos ,se podria hacerlo pero que el usuario ponga la cantidad de numeros y sin importar el orden de los mismos ?

que se ponga ejemplo 1 3 5 48 99 75 65 88  77  a lo bestia por decir algo y que el programa diga cuales son los primos y los muestre ahora si en orden ?


[code#include<iostream>
using namespace std;

int main()
{
  int n=0,c=0,c2=0,res=0,nc=0;
  cout<<"Introduce el limite de numeros: "; cin>>n;
  for(c=1;c<=n;c++)
  {
    for(c2=1;c2<=c;c2++)
    {
      res=c%c2;
      if(res==0)
      {
        nc=nc+1;
      }
    }
    if(nc==2)
    {
      cout<<" "<<c;
    }
    nc=0;
  }
  system("pause");//Damos una pausa antes de finalizar el programa
return 0;
}]


Luis

Como nuevo en este lenguaje me gusta ir aprendiendo desde abajo y quiero saber si se puede hacer que desde el mismo codigo c++ cambiar o poner un icono al ejecutable y poner una foto de fondo a l mismo,

se que se puede hacer cuando haces el proyecto en propiedades pero lo quiero por codigo

AAA y feliz año nuevo a todos

Luis

Bien pregunta sencilla

Comparto con mi madre conexión Internet  de esta forma, de pueblo a pueblo distancia 4 kilómetros con dos yagi direccionales de 18Dbi conexión de p**a madre jeje después de muchas horas de orientarlas adecuadamente.bien ahora recibo en una de las casas  la señal a través de un usb tplink . en donde esta el modem o router de la famosa compañía    la señal se recibe en toda la casa,

Como coño hago para que en la otra casa se pueda distribuir la señal desde el pc que recibe la señal a través de la antena yagi ,me serviría poner un router de la famosa a a través de un cable rg45 desde el pc hasta el router ???'

Algunas ideas plis


Luis

Hola de nuevo

Tengo un código y necesito que se caduque a cada cierto tiempo sea por fecha o por uso algo simple ya que es para regalarlo y que lo crakeen no es problema,pero por fastidiar jejej.

pensé en esto ( pero es fox )

if date == 12/12/2012
exit
endif

claro esto es en fox pro y no se como hacerlo en c++ ya que en  fox no hay que declarar el time

gracias

Luis

Hola y Feliz navidad a todos

Bien tengo que limitar que los resultados a ordenar y mostrar en esta funcion sea algo como que " resultado no sea mayor que 80 x ejemplo "

parte del codigo que me ordena es este pero npi

Código [Seleccionar] Expandir

//ORDENAMIENTO MEDIANTE EL METODO DE BURBUJA
for(int i = 0; i < contador - 1; i++){
for(int j = i + 1; j < contador; j++){
if(resultados[i] > resultados[j]){//Si resultados[i] es mayor a resultados[j] ordenamiento ascendente
//ACA HACEMOS EL INTERCAMBIO DE VALORES DE resultados[i] a resultados[j] y viceversa
auxiliar = resultados[i];
resultados[i] = resultados[j];
resultados[j] = auxiliar;
// filtra = contador ;
}
}
}
//MOSTRAMOS LOS NUMEROS ORDENADOS///////////////aca puse esto mientras
cout<<"\nRESULTADOS EN ORDEN\n";


Luis

Hola seguro que ya lo habrán preguntado pero no lo encuentro me gustaría saber como puedo hacer con if que al llegar determinado día me muestre un messagebox ?


he estado probando con esto...

Código [Seleccionar] Expandir

#include <time>
using namespace std;
int main () {
int variable
variable= 25/10/2012
if (variable= date);

mesagebox " hola"

else;

continue

}

Tengo este codigo que me combina los numeros que yo pida (gracias a leo ) que me  ayudo a hacerlo, bien estoy tratando de que estos resultados me los guarde en un txt pero estoy trabado logro hacer el archivo pero solo me guarda lo que esta en ese momento ? pongo el codigo a ver que hago o que no hago

Código [Seleccionar] Expandir

///programa de combinaciones numericas
#include <iostream>
#include <cstdlib>
#include <stdlib.h>//Libreria para usar la funcion al final del codigo system();
#include <fstream>
using namespace std;

int main () {
    int total,i,j,k=0,l=0,ver=0,ver_=0,p;
    cout<<"Cuantos numeros desea ingresar?: ";
    cin>>total;
    int numeros[total],n_par[total],n_impar[total];
    cout<<"Cuantos numeros desea ver cada vez?: ";
    cin>>ver;
    int num[ver];
    ver_=ver;
    for( i = 0; i < total; i++){
        cout<<"Ingrese el "<<i+1<<" numero: ";
        cin >> numeros[i];
        for( j = i-1; j >=0 ; j--){
            if(numeros[i] == numeros[j]){
                cout<<"El numero esta repetido ingrese otro\n";
                i--;
                break;
               
            }
        }
    }
   
    p=total-ver;
    for( k = 0; k <=total-ver; k++){
    l=0;
    inicio:
        ver_=ver;
        do{
            cout<< numeros[k]<<"  ";
            for( i = 1+k+l; i < ver-1+k+l; i++){
            cout<< numeros[i]<<"  ";
        }
        cout<< numeros[ver_-1+k+l]<<"  ";
        if (ver_-1+k+l==total-1  ) {
            cout<< "entro  "<< endl;;
            l++;p--;
            if (p<0) {
                l=0;break;
            }
            else goto inicio;

        }
        ver_++;system("pause");
        cout<< endl;
        }while (ver_+k<=total);
    }
     //aca estoy tratando de guadar los resultados
     string fichero ("lista.txt");//---ok
     ofstream f_lista (fichero.c_str()); //--ok
     if (!f_lista) { //---ok
     cout << "El fichero " << fichero << " no existe."; //--ok
     exit (0);//----ok
   }
    ///ya aca no se como hacerle para ir guardando cada uno de los resultados como me los muestra la consola
    f_lista <<ver_<< endl;
    //f_lista <<numeros[i] << endl;
   
    /////
    system("pause");
    return 0;
}

Funciona bien tomando los datos y compila bien pero no logro que me combine ? ya como dije recien tomo esto de c++ y me frusta pero quiero saber como funciona y la unica manera para mi es el ensayo y error y viendo despues de matarme el coco cual fue la solucion. No se si me entienden jejeje

Código [Seleccionar] Expandir

#include <iostream>
#include <algorithm>
#include <cmath>
using namespace std;

int main () {
int *numeros, total, p, temp ;
cout<<"Cuantos numeros desea ingresar?: ";
cin>>total; //LEO LA CANTIDAD DE NUMEROS
numeros = new int[total];//CREO EL ARRAY CON LA CANTIDAD DE NUMEROS QUE LE INGRESAMOS
for(int i = 0; i < total; i++){
cout<<"Ingrese el "<<i+1<<" numero: ";
cin>>numeros[i];//CAPTURO NUMERO POR NUMERO EN EL ARRAY
for(int j = i-1; j >=0 ; j--){ //COMPRUEBO RECORRIENDO LOS ANTERIORES NUMEROS QUE CAPTURE SI EL NUEVO NUMERO ESTA REPETIDO
if(numeros[i] == numeros[j]){
cout<<"El numero esta repetido ingrese otro\n";
i--;
break;
// aca es que me come el coco no logro hacer la combinaciones de los numeros introducidos
int total=numeros[j], i,p=0;
while (total)
                {
                for (i = 1; i <= 6; i++) {
                p=p+1;
                if(p==1){printf("1");}
                temp+=2; //-------------------> aca le doy el salto
                printf(" %d ",total);
                   }
                   printf("\n");
                  }

}
}
}
cout<<"\nResultado\n";
system("pause");
return 0;
}

Aca traigo otro código incompleto reto para Leosansan jeje es broma estoy haciendo que este código me combine ( no que permute que no es lo mismo ) cualquier cantidad de numeros que le introduzca desde 00 hasta el 999, sin repeticiones de numeros en los resultados.pero en los resultados que le pida al programa desde pedir que los valla mostrando en combinaciones de tres de cuatro cinco etec. no puede repetir como esto.

pero veran que la combinacion tiene una forma de tres en tres la funcion combinar

1   2   4  4   5
10 11 11 22 24

#include <iostream>
#include <algorithm>
using namespace std;

int main () {
   int *numeros, total;
   cout<<"Cuantos numeros desea ingresar?: ";
   cin>>total; //LEO LA CANTIDAD DE NUMEROS
   numeros = new int[total];//CREO EL ARRAY CON LA CANTIDAD DE NUMEROS QUE LE INGRESAMOS
   for(int i = 0; i < total; i++){
      cout<<"Ingrese el "<<i+1<<" numero: ";      
      cin>>numeros;//CAPTURO NUMERO POR NUMERO EN EL ARRAY
      for(int j = i-1; j >=0 ; j--){ //COMPRUEBO RECORRIENDO LOS ANTERIORES NUMEROS QUE CAPTURE SI EL NUEVO NUMERO ESTA REPETIDO
         if(numeros == numeros[j]){
            cout<<"El numero esta repetido ingrese otro\n";
            i--;
            break;
         }
      }
   }
   cout<<"\nResultado\n";
   do {
      //INFORMO DE A TRES NUMEROS <-------esta es la clave de combinar
      cout << numeros[1] << " " << numeros[2] << " " << numeros[3] << " " << endl; ///aca esta la jugada y estoy trancado ya que me repite los numeros
        // en los resulatdos lo deje en tres pero tiene que seguir cuatro cinco y los que le pida que muestre en las combinaciones
      
   } while ( next_permutation (numeros,numeros+total) );//SIGO INTERCAMBIANDO NUMEROS PARA LA PROXIMA MUESTRA
   delete numeros;
   system("pause");
   return 0;
}


Luis

Hola a todos me llamo Luis y seguro que seré el mas viejo de estos lares jeje tengo 52 años y soy super fanático de todo lo que escrito este, se trasforme en algo,bueno aprendí a programar en Fox pro pero se volvió viejo como yo ,ahora me dio por seguir aprendiendo c++. a demás lo que mas me gusta son las mate y estadísticas por eso mis programas se basan en ello,muchos para hacer claves y cosas de esas.

tengo este código no es mio pero me gustaría saber como modificarlo para que me entregue los resultados como yo le pida al programa de tres de cuatro hasta 6 resultados.

ejemplo yo le meto digamos estos numeros 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15....lo otro es que pueden ser numeros no correlativos y deberá saber cuales son pares o impares,por lo tando recorrer la cadena entre dos no vale jeje

y me entregue los resultados impares ordenados de menor a mayor en el orden que le pedí al principio en este caso en resultados de 6

esto me daría:

impares
1 3 5 7 9 11
1 3 5 7 9 13
1 3 5 7 9 15---> como no hay mas impares aca lo deja y sigue con los pares

2 4 6 8 10 12
2 4 6 8 10 14


el codigo es este



#include <iostream>
#include <algorithm>
using namespace std;

int main () {
   int *numeros, total;
   cout<<"Cuantos numeros desea ingresar?: ";
   cin>>total;
   numeros = new int[total];
   for(int i = 0; i < total; i++){
      cout<<"Ingrese el "<<i+1<<" numero: ";      
      cin>>numeros;
      for(int j = i-1; j >=0 ; j--){
         if(numeros == numeros[j]){
            cout<<"El numero esta repetido ingrese otro\n";
            i--;
            break;
         }
      }
   }
   cout<<"\nResultado\n";
   do {
      
      cout << numeros[1] << " " << numeros[2] << " " << numeros[3] << " " << endl;
              
   } while ( next_permutation (numeros,numeros+total) );
   delete numeros;
   system("pause");
   return 0;
}




De antemano gracias
Luis