Quiero aclarar que con la última actualización que salió (6.0.472.55) ya no hay ningún problema, se solucionó tanto en Windows XP como en Windows 7
Pueden dar por cerrado el tema
Pueden dar por cerrado el tema
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Tokes en 4 Septiembre 2010, 21:45 PM
Hola a todos:
No sé si esto es lo que se pedía y como se pedía, pero de igual manera lo dejo:Option Explicit
Private Sub Command1_Click()
Dim x As Long
Dim i As Long
Dim aparecido(0 To 30) As Boolean
Dim matriz(0 To 24) As Long
'Carga matriz
While i < 25
Randomize
x = CLng((30 - 1) * Rnd + 1)
If Not aparecido(x) Then
matriz(i) = x
aparecido(x) = True
i = i + 1
End If
Wend
'Ordena matriz
Dim li As Long, ls As Long, lsaux As Long
li = 0
ls = 24
While ls > li
lsaux = li
For i = 0 To ls - 1
If matriz(i + 1) < matriz(i) Then
x = matriz(i + 1)
matriz(i + 1) = matriz(i)
matriz(i) = x
lsaux = i
End If
Next
ls = lsaux
Wend
'Visualiza diagonales
x = 4
For i = 0 To 24 Step 6
Label1(i).Caption = matriz(i)
Label1(i + x).Caption = matriz(i + x)
x = x - 2
Next
End Sub
Se necesita un arreglo de 25 labels en el Form.
Saludos.
Cita de: Carloswaldo en 4 Septiembre 2010, 08:25 AM
Jaja, me acaba de pasar, me actualicé a Chrome 6 y es que pasa como que si los links en realidad estuvieran desplazados y no se puede hacer clic donde realmente están. Ni idea de que sea, tendré que volver a Firefox XD
Cita de: Karcrack en 4 Septiembre 2010, 04:29 AM
No entiendo a que te refieres con lo de los numeros.. La matriz se rellena con valores aleatorios no repetidos ordenados numericamente...
OFFTOPIC: Aun no voy a la uni, me alaga tu comentario
For i=0 to 24
Matriz(i\5,i mod 5)=i
Next i
For i=0 to 24
Matriz(i\5,i mod 5)=Int((30 - 1 + 1) * Rnd + 1)
Next i
Cita de: Nakp en 4 Septiembre 2010, 01:02 AM
agrego... horrible la forma de expresarse de los usuarios, encima es culpa de los admins x'D
disculpa si no te gusta la forma pero... has culpado al foro y eso para mi (desarrollador web xD) es imperdonable jajajajajaja
Cita de: Nakp en 3 Septiembre 2010, 21:08 PM
horrible funcionamiento del foro??? LOL horrible la forma en la que los usuarios se quejan por todo
tengo actualizado chrome a la misma version tambien y el foro va perfecto
Cita de: *PsYkE1* en 2 Septiembre 2010, 16:04 PM
.
No entiendo mucho la logica de este reto, pero bueno...
Porque tenermos que generar una matriz entera si solo vamos a mostrarlas diagonales?¿
DoEvents¡!