|
Mostrar Temas
|
Páginas: [1]
|
1
|
Programación / Programación Visual Basic / No Puedo poner los for que me da la gana
|
en: 12 Junio 2010, 00:51 am
|
Cuando llega el codigo al algoritmo de la burbuja, no me ordena los vaores de la matriz, no puedo poner muchos for, esa es la pregunta.
Un salduo Gracias
Private Sub Command1_Click() Dim numescaños As Double numescaños = Val(Text3.Text - 1) Dim temp, n As Double Dim hasta As Double Dim m As Double n = Val(4 * (numescaños + 1))
Dim i, j As Double
ReDim matriz(numescaños, 3) ReDim vector(n) Dim votos(3) As Long m = 0
matriz(0, 0) = Text1(0).Text matriz(0, 1) = Text1(1).Text matriz(0, 2) = Text1(2).Text matriz(0, 3) = Text1(3).Text
vector(0) = Text1(0).Text
vector(1) = Text1(1).Text vector(2) = Text1(2).Text vector(3) = Text1(3).Text
minimo = -3
For i = 1 To numescaños minimo = minimo + 3
For j = 0 To 3 dimension = Val(i + j + minimo + 3) matriz(i, j) = Val(matriz(0, j) / (i + 1)) vector(dimension) = Val(matriz(0, j) / (i + 1))
'MsgBox (matriz(i, j))
Next Next
For z = 0 To n - 1
For x = 0 To n
If vector(x) > vector(x + 1) Then temp = vector(x)
vector(x + 1) = vector(x) vector(x) = temp End If
Next x
Next z
For a = 0 To n - 1
MsgBox (vector(a))
Next
hasta = vector(numescaños) MsgBox (hasta)
MsgBox (hasta) For t = 0 To 3 votos(t) = 0 Next
For x = 0 To numescaños
For j = 0 To 3 If matriz(x, j) > hasta Then votos(j) = Val(votos(j) + 1)
k = k + 1 Else
End If
Next Next MsgBox (k) For z = 0 To 3 MsgBox (votos(z)) Next
End Sub
|
|
|
2
|
Programación / .NET (C#, VB.NET, ASP) / Matrices bidimensionales
|
en: 1 Mayo 2010, 12:41 pm
|
Como se trabaja con ellas, por ejemplo en el siguiente ejericio, pedir al usuario el número de filas y de columnsas de una matriz bidimensional y asignar a cada posición el valor resultante de sumar la fila y columna en la que se encuentran.
por ejemplo una matriz 3 de alto y 2 de ancho, 3x2 0 1
0 - 0+0 =0 - 0+1=1 1 - 1+0 =1 - 1+1 =2 2 - 2+0 =2 - 2+1=3
como se trabaja con esta clase de matrices. Quizas asi: dim ancho as string= inputbox("ancho") dim alto as string= inputbox("alto") dim matriz(,) as long redim matriz(largo-1, ancho-1) ' trabajo con basic 8 y las matrices comienzan por 0 dim i as inter for i= 0 to ((alto-1) * (ancho-1))
next
¿Que se trabajaria de esta manera usando despues, bucles del tipo variable= variable + 1?
Un saludo Gracias
|
|
|
3
|
Programación / Programación Visual Basic / Soy novato quisiera ayuda
|
en: 26 Abril 2010, 23:10 pm
|
Hola. buenas tardes, llevo un año en esto de la programación y quisiera que me resolvieran algunas dudas. En primer lugar como puedo operar en visual basic 08.net, con horas min y sg, imagínense este ejemplo. Recorro 3 km en 15 min y quisiera saber la media min/km, por lo tanto tendría que dividir, 15:3 dandome esa operación 5:00 min/km, sin embargo, en basic al realizarla me da error de depuración, pese a transformar la variable tipo date a string de las horas.
Otra duda, que me surge curiosidad resolver, es la siguiente, como puedo hacer para resolver ecuaciones de primer grado, pero no con espacio delimitado, como una ecuación de segundo grado eso es muy facil. Sería asi, yo tengo un textbox y digo 3x + 6x + 9x + 20= 40x + 90 + 15x + 3x, y que me lo resuelva, que escriba los valores que quiera, como si es hasta el infinito, y que interpreta el ordendar, las x y el térmmino independiente, y el = sabiendo que hay que pasar las x para un lado y el término independiente para el otro.
Muchas Gracias A todo esto, cuanto tiempo lleva aprender a programar decentemente en basic, para realizar programas complejos.
Un saludo y gracias de nuevi.
|
|
|
|
|
|
|