Mensajes

No ayuden a este desgraci***(Perdonen por el insulto.) mira sino sabes programar recien enpesas hacer tus primeros programas.Es imposible hacer un bot aca vos estas diciendo que te den el source.Para hacer copy and paste.Esto me parece muy olgazan ya que uno se esfuerza para saber mucho y vos venis aca el foro pidiendo Source.

http://goo.gl/KPhbl   

DoEvents!

Pero porque hay tanta alérgia a Google ? 

http://goo.gl/PPGC5

DoEvents!

Yo aprendi a programar leyendo muchos manuales, viendo muchos ejemplos, preguntando y haciendo amigos...
En unos meses he mejorado bastante gracias a eso, recuerdo mis primeros post en este foro, dan pena!!
No es tan sexy como lo tuyo Marga 

DoEvents!

No se si te mereceria la pena aprender vb6 si ya empezaste con vb.net, a nuestro querido vb6 le queda poco de vida... Aunque me duela el futuro está en los framebooks...

DoEvents!

[Byte]

Byte solo va desde 0 hasta 255, 2 - 58 da un número negativo y eso no es compatible con el tipo de variable Byte, igualas r a el resultado de (aa - bb) siendo este incorrecto y una igualación, los dos lados deben ser coherentes.
La solucion es cambiar de tipo de variable y ya está...

DoEvents!

[Vhn]

.
Vhn puedes utilizar mi clase cCollectionEx.cls; te puede ser útil para comprobar elementos repetidos y demás... (si es que lo necesitas)
Black, creo que ahora te gano

Añadir mi clase cCollectionEx.cls

Pego el codigo :

Código (vb) [Seleccionar] Expandir


'=========================================================
' º Function : Abbreviate_Numeric_Array
' º Author   : Mr. Frog ©
' º Mail     : vbpsyke1@mixmail.com
' º Recommended Websites :
'       http://blog.visual-coders.com.ar/
'       http://InfrAngeluX.Sytes.Net/
'=========================================================
Option Explicit
Option Base 0

Rem Añadir mi clase cCollectionEx.cls

Public Function Abbreviate_Numeric_Array(ByRef vNumberList() As Variant) As cCollectionEx
If (Not vNumberList) = -1 Then Exit Function
Dim cExTemp                                         As New cCollectionEx
Dim lActualNumber                                   As Variant
Dim lToTalNumbers                                   As Long
Dim Q                                               As Long
Dim W                                               As Long
   lToTalNumbers = UBound(vNumberList())
   If lToTalNumbers > 2 Then
       Do While Q <= lToTalNumbers
           lActualNumber = vNumberList(Q)
           W = 0
           If (Q < lToTalNumbers) Then
               Do While (vNumberList(Q) + 1 = vNumberList(Q + 1)) Or _
                        (vNumberList(Q) = vNumberList(Q + 1))
                   Q = Q + 1
                   W = W + 1
               Loop
           End If
           With cExTemp
               If W > 1 Then
                   .Add lActualNumber & "~" & vNumberList(Q)
               Else
                   .Add lActualNumber
               End If
           End With
           If Not (W = 1) Then Q = Q + 1
       Loop
       Set Abbreviate_Numeric_Array = cExTemp
   End If
End Function

Ejemplo:

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Dim Q                                   As Long
Dim dArray()                            As Variant
Dim sResult                             As String

   dArray() = Array(1, 2, 3, 4, 4, 5, 6, 7, 7, 7, 65, 345, 4545, 4546, 4547, 9999999, 9999999999#)
   
   With Abbreviate_Numeric_Array(dArray)
       For Q = 1 To .Count
           sResult = sResult & .Item(Q) & "|"
       Next Q
   End With
   
   Debug.Print sResult
End Sub

Obtengo esto:

1~7|65|345|4545~4547|9999999|9999999999|

Vhn conectate al msn cuando puedas, tengo que hablar contigo...

DoEvents!
.

La verdad esque estas elecciones catalanas son realmente penosas por todos los lados...
No hay por donde cojerlas...

DoEvents!

Ah ahora entiendo!!
tapete = alfombrilla 

DoEvents!

.
El tapete de "conejo de ciudad" viene con el "conejo"?,... por que nesesito uno ( no vayan a enviar un "conejo de ciudad" ).

Traduce a español...

@PsYkE1 maldito Mr Frogs... PsYkE1... FrogCheat... mmm
http://www.i-hacker.info/descanso/se-necesitan-testers-para-cheat-por-favor/msg1612/?topicseen#msg1612

Dulces Lunas!¡.

Jajajajajjajajaja
Yo ya casi lo tengo...
Porque soy maldito?  

DoEvents!

[Black]

Me exprese mal, no digo que no sea bueno para aprender, pero creo que seria mejor plantearlo como (pregunta|busqueda de consejo) que como manual... (solo mi opinion personal)
En cuanto al codigo estoy de acuerdo con Black, a proposito:

Código (vb) [Seleccionar] Expandir

App.TaskVisible = False 
App.Title = ""

La heurística de los AVs lo detectan, mejor encriptarlo...

DoEvents!