ayuda en condigo vb6.0 a vb2010

[rikimm]

hola que tal a todos tengo un problemita con este codigo que fue hecho en vb 6.0 y quiero pasarlo a vb2010
Basicamente los errores que me manda son en los print

Código VB2010:

Print("Hombres" & " " & "Mujeres")
        For fila = 0 To 2
            If fila = 0 Then
                Print("<11")
            Else
                If fila = 1 Then
                    Print(">=11y <=21")
                Else
                    Print(">21")
 
                End If
            End If
            Print(arreglo(fila, 0) & " " & arreglo(fila, 1))
 
        Next
 

[CHOSS]

Si te refieres a mostrar los datos en pantalla
Hay dos formas Tipo Consola y tipo grafico. . .
El tipo Consola es asi. . .
1 Abres vb2010 y le das a nuevo proyecto
2 Seleccionas aplicacion de consola
3. Escribes el siguiente codigo. . . dentro del Main

Código:

Console.WriteLine("Hombres" & " " & "Mujeres")
        For fila = 0 To 2
            If fila = 0 Then
                Console.WriteLine("<11")
            Else
                If fila = 1 Then
                    Console.WriteLine(">=11y <=21")
                Else
                    Console.WriteLine(">21")
                End If
            End If
            Console.WriteLine(arreglo(fila, 0) & " " & arreglo(fila, 1))
        Next
        Console.ReadLine()

y Tipo Grafico
1 abres vb2010
2 Nuevo proyecto y seleccionas aplicacion de WindowsForm
3 Buscas el Control Label y lo dibujas en el Form1
4 Dale doble click en el Form1 Cualkier parte gris del Form1
5 y pones el siguiente codigo en el Form1_load

Código:

Label1.Text = "Hombres" & " " & "Mujeres" & vbNewLine
        For fila = 0 To 2
            If fila = 0 Then
                Label1.Text = Label1.Text & "<11" & vbNewLine
            Else
                If fila = 1 Then
                    Label1.Text = Label1.Text & ">=11y <=21" & vbNewLine
                Else
                    Label1.Text = Label1.Text & ">21" & vbNewLine

                End If
            End If
            Label1.Text = Label1.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine
        Next

Aunque puedes usar mas Label o otras herramientas visuales para mostrar los datos

[rikimm]

gracias CHOSS lo necesitaba en forma grefia es que el codigo que puse lo hicimos de forma gravia pero en visual 6.0 pero como yo tengo el 2010 pues no sabia que podria ser lo qkivalente al print y gracias en cuanto de el dia lo probare gracias de nuevo saludos

[CHOSS]

De nada. . . espero que te sirva y aya sido lo que tabas buscando
Saludos

[rikimm]

olle choss tengo una duda en la line donde pones esto

Código vb2010:

abel1.Text = Label1.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine
 

pork no modifica el label pork en la pantalla me aparece asi

label10 0
00
00

como q no modifica la parte del label sera que en propiedades le tengo q quitar el texto

[CHOSS]

Iniciado por rikimm

olle choss tengo una duda en la line donde pones esto

Código vb2010:

abel1.Text = Label1.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine
 

pork no modifica el label pork en la pantalla me aparece asi

label10 0
00
00

como q no modifica la parte del label sera que en propiedades le tengo q quitar el texto

Primero limpia el contenido que hay en la etiqueta y ya haces lo que kieres hacer. .
Codigo :

Label1.text = "" 'Esta linea limpia la etiqueta
Label1.Text = Label1.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine

[rikimm]

ok grax choss lo deje de esta manera

Código VB2010:

Label5.Text = ""
        Label1.Text = ("Hombres" & " " & "Mujeres") & vbNewLine
        For fila = 0 To 2
            If fila = 0 Then
                Label2.Text = ("<11") & vbNewLine
            Else
                If fila = 1 Then
                    Label3.Text = (">=11y <=21") & vbNewLine
                Else
                    Label4.Text = (">21") & vbNewLine
 
                End If
            End If
            Label5.Text = Label5.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine
 
        Next
 

[CHOSS]

Iniciado por rikimm

ok grax choss lo deje de esta manera

Código VB2010:

Label5.Text = ""
        Label1.Text = ("Hombres" & " " & "Mujeres") & vbNewLine
        For fila = 0 To 2
            If fila = 0 Then
                Label2.Text = ("<11") & vbNewLine
            Else
                If fila = 1 Then
                    Label3.Text = (">=11y <=21") & vbNewLine
                Else
                    Label4.Text = (">21") & vbNewLine
 
                End If
            End If
            Label5.Text = Label5.Text & arreglo(fila, 0) & " " & arreglo(fila, 1) & vbNewLine
 
        Next
 

De nada :). .. Xido que haya funcionado. .
y te recomiendo que veas otras maneras de mostrar los datos
puedes usar mas de un label . . o texbox o un listbox o tablas etc. .
y le daras mas presentacion a tus aplicaciones. .

Saludos