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:
este para el form2Private 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
'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
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
'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