Visual Basic - Ordenar números

Life is soft - evento anual de software empresarial
   
Vista:

Ordenar números

Publicado por José Rosario Salazar Ochoa (33 intervenciones) el 16/01/2009 22:37:39
lo que pasa es que quiero imprimir unas 100 veces los número del 1 al 24 en una hoja por vez.... es para hacer planillas para una rifa en el que se destapa el número y el que sacas es lo que pagas. si saco el 1 pago un peso o el 24 pago 24 pesos y asi con cada número. Por lo que se requiere mezclar la posición de los números para que no se sepa donde están en otra planilla. ejemplo:

1 5 6 7 8 9

2 10 13 16 19 20

3 11 14 17 21 22

4 12 15 18 23 24

esto sería una impresión, se moverían de lugar para la proxima impresión, se utilizarìa un label o un textbox por cada número me imagino, no se.... espero verme explicado... gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ordenar números

Publicado por P3L30N2009 (701 intervenciones) el 17/01/2009 12:01:51
De vez en cuando es bueno practicar con algún ejercicio.

Para ejecutar el siguiente ejemplo, coloca el el Form un array de 24 Labels Label1(0) a Label1(23) los ordenas en el form en 6 columnas y 4 filas. También coloca un CommandButton Command1:

Private Sub Command1_Click()
Dim a() As Integer, i As Integer, x As Integer, j As Integer
ReDim a(23)
Randomize
For i = 0 To 23
repetir:
x = Int((24) * Rnd + 1)
For j = 0 To i
If x = a(j) Then GoTo repetir
Next j
a(i) = x
Next i
For i = 0 To UBound(a)
Label1(i).Caption = a(i)
Next i
Erase a
End Sub

Cada vez que pulses el botón generará un array de 24 números aleatorios (del 1 al 24) sin repetición.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ordenar números

Publicado por José Rosario Salazar Ochoa (33 intervenciones) el 19/01/2009 23:30:16
Muchas Garcias, lo voy a checar...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar