Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.

Mensajes - dav2k6

Páginas: [1]

C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Re:Mover los datos de una Array (Matriz)

« en: 11 de Julio 2019, 11:50 »

Entender lo entiendo, pero me faltan nociones. A ver..

For i = 0 To MiArray.GetUpperBound(0)
If MiArray(i) > (i) Then
MiArray(i) = MiArray(i + 1)
End If
Next
MiArray(10) = MiArray(i)

El unico problema que tengo que siempre me dice que indice fuera de la matriz ya que me hace una vuelta de mas.....

de esta manera me recorre toda la array uno a uno...

Eso si... lo he hecho al reves.. de como dije...

C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Mover los datos de un Array o Arreglo Unidimensional (Matriz random corrimiento)

« en: 10 de Julio 2019, 15:37 »

Hola, vengo con otra duda; se nota que soy nuevo en esto de programación...

Tengo una Matriz y tengo que cambiar el último valor, ponerlo en primer lugar y que todos los demas bajen una posición. Lo puedo hacer con randomize o asignando yo los valores a la matriz. Tengo como generar la matriz en forma random pero no sé como hacer el cambiar de posición...

De esto:

4 8 6 2 5 8 9 1 3 7

a esto:

7 4 8 6 2 5 8 9 1 3

¿Alguna sugerencia?

C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Re:Algoritmo no hace nada....

« en: 10 de Julio 2019, 09:00 »

Y tanto...

A ver, el ejercicio me pide un numero de inicio y otro de fin.... uno tiene que ser correlativo, con un incremento y decrecimiento....

-En el correlativo por ejemplo de 5 a 10....

Código: [Seleccionar]

VInicial = CInt(Txtnum.Text)
        VFinal = CInt(Txtnum2.Text)
        VIncre = CInt(Txtincre.Text)

        If IsNumeric(VInicial) And IsNumeric(VFinal) And (VIncre) Then

            cont = VInicial

            For i = VInicial To VFinal

                TxtArray.Text = TxtArray.Text & "-" & i

            Next

        Else
            MsgBox("no son numeros")

        End If

-De 5 a 20 con incremento de 5 en 5 .. 5,10,15,20

Código: [Seleccionar]

If IsNumeric(VInicialPosi) And IsNumeric(VFinalPosi) And (VIncrePosi) Then
            contPosi = VInicialPosi

            For i = VInicialPosi To VFinalPosi Step VIncrePosi
                if conposi > VfinalPosi
                TxtArray.Text = TxtArray.Text & "-" & contPosi
                contPosi = contPosi + VIncrePosi
                Else
           Msgbox("fin")
           Next

        Else
            MsgBox("no son numeros")

        End If

-De 20 a 5 con decrecimiento negativo de 5 en 5, 20, 15, 10, 5....

Código: [Seleccionar]

If IsNumeric(VInicialNega) And IsNumeric(VfinalNega) And (VincrNega) Then
            contnega = VInicialNega

            For i = VfinalNega To VInicialNega Step VincrNega

                if contnega > VfinalNega

                TxtArray.Text = TxtArray.Text & "-" & contnega
                contnega = contnega - VincrNega

                else
                Msgbox("fin")
 
                 end if
            Next

        Else
            MsgBox("no son numeros")

        End If

Un saludo.

C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Re:Algoritmo no hace nada....

« en: 09 de Julio 2019, 17:24 »

ya esta solucionado....

C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Re:Algoritmo no hace nada....

« en: 08 de Julio 2019, 09:13 »

Gracias por la explicacion..... El tema es que tengo que hacerlo con ciclo for, next
Muchas gracias por los links voy a echarles un vistazo a ver si encuentro como mas y explican como hacerlo.

Con este código:

If cont > VFinal Then
TextBox1.Text = TextBox1.Text & "-" & cont & i

no entiendo bien qué es lo que pretendes hacer.

Lo que pretendia hacer era mostrar el valor de i y el contador....

O sea, si fuese de 2 de a 10 con intervalo de 2....

mostrar...

2-2-4-2-6-2-8-2-10.....

C, C++, C#, Java, Visual Basic, HTML, PHP, CSS, Javascript, Ajax, Joomla, MySql y más / Algoritmo Contar a intervalos (saltos) hacia delante y hacia detrás incremento

« en: 05 de Julio 2019, 13:03 »

Hola, estoy pasando un algoritmo a visual basic... y no logro sacarlo.. A ver si me pueden echar un cable.. he ido probando pero no lo tengo muy claro..

Contar a intervalos hacia delante y hacia detrás

Código: [Seleccionar]

 VInicial = Val(TextBox2.Text)
        VFinal = Val(TextBox3.Text)
        VIncre = Val(TextBox4.Text)
        cont = 0

        If IsNumeric(VInicial) And IsNumeric(VFinal) And IsNumeric(VIncre) Then

            cont = VInicial

            For i = VInicial To VFinal Step VIncre

                If cont > VFinal Then

                    TextBox1.Text = TextBox1.Text & "-" & cont & i

                Else

                    cont = cont + VIncre

                End If

            Next

        Else

            MsgBox("los datos no son numeros")
        End If

donde me estoy equivocando? (Uso Visual Basic 2010)

Páginas: [1]

Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

Noticias: