Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/05/2011, 15:06
Avatar de psalm23
psalm23
 
Fecha de Ingreso: mayo-2011
Mensajes: 36
Antigüedad: 12 años, 10 meses
Puntos: 1
Exclamación codificacion en visual basic 6.0

Hola buen dia!!
pues soy nuevo en el foro y ojala me puedan ayudar
tengo una tarea de pregamar en visual basic, el programa no esta terminado pero estoy atascado en lo siguiente.
tengo 4 formularios

-en el 1er formulario se tiene que ingresar el num de vertices con un textbox y escoger mediante option boton (2 options bottons) que metodo elegir, 1 para ingresar coordenadas u otro para ingresar rumbos, deesto depende q formulario mostrar ya q el form2 es para las coordenadas y el form3 para el rumbo

el problema lo tengo al escoger ingresar coordenadas pues en el form2 solo tengo
2 textbox 1 para las coordenada x y otro para la coodenada y
y un boton

quiero que al presionar el boton los datos de los textbox se guarden en una matriz de (n,6) siendo "n" el num de vertices ingresado por el usuario en el form1

pero al parecer cada vez que oprimo el boton me crea una matriz por cada ingreso de datos x y y en vez de guardarlos en la misma matriz aqui dejo el codigo

este para el form1
Cita:
Private Sub nombre_Change()
'definimos el nombre del proyecto
Dim nombreproyecto As Single
nombreproyecto = nombre.Text
End Sub

Private Sub vertice_Click()
If coord.Value = True Then Form2.Show
If coord.Value = False Then Form3.Show
Hide
End Sub
este para el form2
Cita:
Private Sub sig_c_Click()
'definimos variables a ocupar
Static c As Integer
Dim x As Single
Dim y As Single
Dim numv As Integer
Dim n As Integer

' proceso ingreso de datos
numv = Form1.numvertice.Text
n = numv + 1
ReDim matriz(n, 6) As Single

x = coor_x.Text
y = coor_y.Text
c = c + 1
matriz(c, 3) = x
matriz(c, 4) = y
coor_x = Clear
coor_y = Clear
If c = numv Then
matriz(n, 3) = matriz(1, 3)
matriz(n, 4) = matriz(1, 4)
Form4.Show
End If
If c = numv Then
For i = 1 To n
Form4.registro.AddItem matriz(i, 1) & " " & matriz(i, 2) & " " & matriz(i, 3) & " " & matriz(i, 4) & " " & matriz(i, 5) & " " & matriz(i, 6)
Next i
Form4.Show
End If

End Sub


al parecer el error ocurre porque despues de dar clic en el boton me crea otra matriz porque toma como nuevo el valor de n de el form 1 pero no se como arreglarlo


gracias anticipadas por todo