Busco en google skin de programas? o que jejej perdona mi ignorancia
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úPrivate Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)
End Sub
Private Sub cmdordenar_Click()
Dim i As Long
Dim arreglo() As Long
ReDim arreglo(List1.ListCount - 1)
For i = 0 To List1.ListCount - 1
arreglo(i) = Int(List1.List(i))
Next
For i = 0 To UBound(arreglo)
Next
Call BubbleSort(arreglo(), True)
List1.Clear
For i = 0 To UBound(arreglo)
List1.AddItem arreglo(i)
Next
End Sub
'true ascendente, false descendente
Public Sub BubbleSort(ByRef iaArray() As Long, Optional ByVal tipo As Boolean = True)
Dim n As Integer, i As Integer, j As Integer
n = UBound(iaArray)
For i = (n - 1) To 0 Step -1
For j = 0 To i
If tipo = True Then
If iaArray(j) > iaArray(j + 1) Then
Swap iaArray(j), iaArray(j + 1)
End If
Else
If iaArray(j) < iaArray(j + 1) Then
Swap iaArray(j), iaArray(j + 1)
End If
End If
Next j
Next i
End Sub
Private Sub Swap(ByRef xArg1, ByRef xArg2)
Dim xTmp
xTmp = xArg2
xArg2 = xArg1
xArg1 = xTmp
End Sub
Private Sub cmdañadir_Click()
lstnumero.AddItem (txtnumero)
End Sub
Private Sub cmdordenar_Click()
Public Sub BubbleSort(ByRef iaArray() As Long, Optional ByVal tipo As Boolean = True)
Dim n As Integer, i As Integer, j As Integer
n = UBound(iaArray)
For i = (n - 1) To 0 Step -1
For j = 0 To i
If tipo = True Then
If iaArray(j) > iaArray(j + 1) Then
Swap iaArray(j), iaArray(j + 1)
End If
Else
If iaArray(j) < iaArray(j + 1) Then
Swap iaArray(j), iaArray(j + 1)
End If
End If
Next j
Next i
End Sub