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