Mensajes

Lo que sucede es que el evento Tick realiza lo que tienes en tu Sub y no es asincrono, eso quere decir que los ticks no continuan hasta que termina de hacer lo que tienes en tu evento:

Código (vbnet) [Seleccionar] Expandir


        Milisegundos = Milisegundos + 1

        LblTiempoTot.Text = Round(Milisegundos / 100, 3).ToString
        'LblTiempoTot.Text = Milisegundos.ToString


Asi que esto es lo que te podria generar la inecrtidumbre, y si tu maquina es lenta o esta cargada de transacciones pues los procedimientos pueden tardar mas, asi que yo te sugeriria que utilizaras un Stopwatch que es un simple objeto cronometro, te dejo un ejemplo con dos botones y un label:

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

    Private stopw As New Stopwatch 'Creo mi nuevo stopwatch

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = 1 'declaro intervalo en 1
        Timer1.Start() 'inicio el timer
        stopw.Start() 'Inicio el stopwatch, aqui es donde empieza a contar el tiempo
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Aqui imprimo el valor de los minutos,segundos y milisegundos del stopwatch
        'mientras este sigue avanzando sin interrupciones
        Label1.Text = stopw.Elapsed.Minutes.ToString & " : " _
        & stopw.Elapsed.Seconds.ToString & " : " _
        & stopw.Elapsed.Milliseconds.ToString
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Con este boton detengo el timer y el stopwatch
        stopw.Stop()
        Timer1.Stop()
    End Sub

End Class


Bueno, pues espero que esto te sirva para tu proyecto, Suerte

Bueno amigos ya me habia desconectado de esta comunidad, pero ahora que tuve tiempo libre desarrolle 2 aplicaciones que me gustaria que me ayudaran a testear, una ya la tenia desde hace tiempo y la otra recien la termine.

Sticky Notes: Esta echo en wpf y VB.net simula los famosos post its en pantalla, tiene algunas opciones que se me ocurrio agregar para que no fuera un programa comun con solo este fin, tiene algunas utilidades implementando algunas APIs de google y evalua expresiones matematicas, les dejo una captura, en realidad me tomo un rato ya que es lo primero que hago con wpf:



No USB: Simple programa que deshabilita el motado de unidades usb, util por si no les agrada que esten introduciendo memorias con "regalitos" en su equipo, un compañero que tiene un Cyber Cafe dice que le resulto bastante funcional, y pues lo comparto por si a alguien le sirve

Ambos estan aqui: http://atrumsoft.blogspot.com/

Ahi esta detallado su funcionamiento

Y bueno si alguien amablemente me compartiera su opinion seria genial

Gracias, Saludos.

hmm bueno pues no se si resuelva tu problema pero esto:

for(int i=33;i<10;i++)

Esta incoherente ya que si inicializas i en 33 y lo incrementas de 1 en 1 hasta que i sea menor que 10, es un ciclo infinito.

Como es tu funcion Numero?

ok ahi te va una pequeña correccion esto es un fragmento (las primeras lineas) de tu Form1

Código (vbnet) [Seleccionar] Expandir


Public Class Form1

    'Aqui declaras tu objeto publico
    Public ob As New Deportista


    Private Sub btnaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnaceptar.Click
        Try
            If (txtname.Text = "" And txtapellido.Text = "" And txtdeporte.Text = "" And txtedad.Text = "") Then
                MsgBox("No lleno los datos..")
            Else

                'Quitas esta declaracion local por que tu objeto necesita ser
                'publico para llamarlo desde otra clase

                'Dim ob As New Deportista(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)

                'Dim ob As New Deportista()
                ob.insertar(txtname.Text, txtapellido.Text, txtdeporte.Text, txtedad.Text)
                MsgBox("Llenado exitoso")
            End If
        Catch ex As Exception

        End Try
    End Sub


Tu objeto debe de ser publico, y haces referencia a el asi en mostrar2

Código (vbnet) [Seleccionar] Expandir


Public Class mostrar2

    Dim i As Integer
    Private Sub btnmostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmostrar.Click
        Dim obj As New Deportista

        'creaste una nueva instsncia vacia, y el objeto donde estas guardando los datos
        'esta en otra clase, asi que necesitas hacer referencia a el, es por eso que
        'tiene que ser Public
        obj = Form1.ob

        'aqui no te entendi, para que usas esta variable ¿por que esta inicializada
        'como "---"?
        txtrp.Text += obj.mostrartext

        'Aqui solo estas mostrando el nombre necesitas hacer recursividad en todos tus arrays
        For i = 0 To obj.arrayNombre.Count() - 1
            txtrp.Text += "nombre:" & obj.arrayNombre.Item(i) & vbCrLf
            txtrp.Text += "apellido:" & obj.arrayApellido.Item(i) & vbCrLf
            txtrp.Text += "deporte:" & obj.arrayDeporte.Item(i) & vbCrLf
            txtrp.Text += "Edad:" & obj.arrayEdad.Item(i) & vbCrLf & vbCrLf
        Next

    End Sub


Espero te ayude amigo

Bueno compañeros, pues aqui les traigo un pequeño aporte, esta pensado para ser lo mas detallado,y de la forma mas sencilla posible, esta enfocado a la metodologia de programacion en 3 capas, en el tutorial esta desglosado paso a paso y desde cero como crear una aplicacion de administración de bases de datos SQL

Espero les agrade, cualquier opinion, critica o comentario por favor haganmelo saber 

Bueno aqui les dejo el enlace
esta en PDF

http://www.easy-share.com/1908108750/Tutorial-Enlazar-Bases-de-datos-desde-Cero-3-capas.pdf

NOTA:Esta muy basico, asi que para aquellos que ya tengan experiencia en el tema, pues les agradeceria que comentaran en caso de que existan otros metodos mas simples.

Bueno pues suerte y saludos a todos 

A modo de complemento en VB.net una forma facil seria:

Código (vbnet) [Seleccionar] Expandir

If numero.ToString() = Strings.StrReverse(numero.ToString()) Then
            MessageBox.Show("Es palindromico")
        End If

creo que C# no maneja las funciones de Strings pero si alguien sabe como llamarlas pues que comparta la info 

Ok aqui esta un proyecto ejemplo sin tanto enrredo 

http://www.easy-share.com/1907937724/testVectores.zip

Que es lo que quieres imprimir, el contenido de tus campos??

Se puede utilizar cualquier operador comparativo en un while y tambien operadores logicos(OR , AND, NOT)  ya que la condicion que evalua es un booleano, asi que el problema estuvo en la condicion:

Código (vbnet) [Seleccionar] Expandir

While (respuesta <> "S" Or respuesta <> "N")

esta condicion siempre va a devolver un TRUE ya que el OR siempre va a tomar por verdadera si una de las condiciones se cumple
asi que

si respuesta = "A"
respuesta es diferente de S y respuesta es diferente de N por tanto devuelve TRUE

si respuesta = "S"
respuesta no es diferente de y respuesta si es diferente de N por tanto tambien devuelve TRUE

si respuesta = "N"
repuesta es diferente de S y respuesta no es diferente de N por tanto devuelve TRUE

en conclusion, no importa que contenga la variable respuesta la condicion siempre sera true y el bucle sera infinito.

Esto lo digo solo a modo de comentario, ya que como dijeron antes este bucle es inecesario.

Ok amigo entonces si me permites sugerirte por donde empezar , primero investiga algo sobre los arreglos en VB, otra cosa que te hara este ejercicio mas facil es utilizar un ciclo For, y por ultimo pues los condicionales para obtener el numero mayor tendras que ir comparando cada posicion del arreglo dentro de otro ciclo y almacenarlo en alguna variable.

Aqui te pongo una referencia rapida:

Declarar un arreglo en VB

Código (vbnet) [Seleccionar] Expandir

Dim A as Integer() = { 2, 7, 3, 2}

ahora de acuerdo a lo que te puse arriba con respecto a las posiciones si utilizaramos la instruccion:

Código (vbnet) [Seleccionar] Expandir

Dim ElementoDeA as integer = A(1)

El dato guardado en la variable ElementoDeA seria 7 por que esta en la posicion 1 del arreglo A

Ciclo For

Código (vbnet) [Seleccionar] Expandir

For i = 0 to 15

Next

Aqui la variable "i" va a ir tomando valores desde 0 hasta 15, eso quiere decir que lo que este dentro de este ciclo se realizara 15 veces, imaginate que quisieras calcular el total de la suma de todos loa elementos del Vector A

Código (vbnet) [Seleccionar] Expandir

Dim total as integer =0
Dim i as integer
Dim A as Integer() = { 2, 7, 3, 2}

For i=0 to 3
total = A(i)
Next


Entonces de esta forma ya se quedaria el total de la suma 2+7+3+2  en la variable total entonces total tendria el valor de 14

espero eso te sirva de algo, cualquier otra duda aqui estamos