Foros del Web » Programación para mayores de 30 ;) » Programación General »

codificacion en visual basic 6.0

Estas en el tema de codificacion en visual basic 6.0 en el foro de Programación General en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 19/05/2011, 15:06
Avatar de psalm23  
Fecha de Ingreso: mayo-2011
Mensajes: 36
Antigüedad: 12 años, 11 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
  #2 (permalink)  
Antiguo 25/05/2011, 12:07
Avatar de psalm23  
Fecha de Ingreso: mayo-2011
Mensajes: 36
Antigüedad: 12 años, 11 meses
Puntos: 1
Respuesta: codificacion en visual basic 6.0

tema cerrado gracias a todos los que trataron de ayudar
saludos

Etiquetas: basic, codificacion, visual
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas




La zona horaria es GMT -6. Ahora son las 12:28.