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.
DoEvents es más como para esperar eventos que están a punto de suceder a muy pocos segundos o milisegundos...
If Label1.Text = "1" Then
Navegador.Refresh()
End If
de ensuciar el código de un programa, que puede ser visto a través de un desensamblador o debugger para hacerle la tarea más difícil a la persona que intenta obtener el código del ensamblado o ejecutable. Espero haber aclarado la duda
System.Reflection.Assembly.GetExecutingAssembly.ImageRuntimeVersion Dim Texto As String = String.Format("{1}{0}accionObjeto{0}:{0}post{0},{0}accionTipo{0}:{0}comentario{0},{0}ts{0}:{0}02:48:55{0},{0}nick{0}:{0}seba123neo{0},{0}userId{0}:{0}1180918{0},{0}id{0}:15521634,{0}accion_name{0}:{0}Hola{0},{0}url{0}:{0}titulo{0}:{0}Hola como{0} estas{0}{2}", Convert.ToChar(34), "{", "}")
Dim Expresión As Match = Regex.Match(Texto, "\x22[\w\s]+\x22\}$")
Dim Reemplazar As String = Regex.Replace(Expresión.Value, "^\x22", "")
Texto = Texto.Replace(Expresión.Value, Reemplazar)
Console.WriteLine(Texto)
Console.ReadKey()
Module Module1
Public Class Number
Public Bits As BitArray
Public MaxBits As Integer
''' <summary>
''' Constructor de la clase Number
''' </summary>
''' <param name="N"></param>
''' <remarks>Representa el límite en Bits</remarks>
Public Sub New(ByVal N As Integer)
'Recordemos que la cantidad de valores que puede tomar una variable que'
'soporta N bits es 2^N, de modo que 2^Integer.MaxValue es incalculable,'
'al menos normalmente, así que el límite lo dará la memoria disponible.'
MaxBits = N
Bits = New BitArray(N, False)
End Sub
''' <summary>
''' Representa un arreglo de Bits como String
''' </summary>
''' <returns></returns>
''' <remarks></remarks>
Public Overrides Function ToString() As String
ToString = String.Empty
For Each x As Boolean In Bits
ToString += ValorAbsoluto(x).ToString
Next
End Function
''' <summary>
''' Para un True (-1) Devuelve (1). Para un False (0) Devuelve (0).
''' </summary>
''' <param name="value"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Shared Function ValorAbsoluto(ByVal value As Boolean) As Byte
Return CByte(CInt(value) * (-1))
End Function
Public Shared Operator +(ByVal a As Number, ByVal b As Number) As Number
Dim c As New Number(Math.Max(a.MaxBits, b.MaxBits))
Dim aVA As Byte, bVa As Byte
For N As Integer = 0 To (Math.Min(a.MaxBits, b.MaxBits) - 1)
aVA = ValorAbsoluto(a.Bits(N))
bVa = ValorAbsoluto(b.Bits(N))
If (aVA + bVa) > 1 Then
If (N - 1) < 0 Then
Throw New OverflowException()
Else
c.Bits(N) = False
c.Bits(N - 1) = True
End If
Else
c.Bits(N) = aVA + bVa
End If
Next
Return c
End Operator
End Class
Sub Main()
'Números de 8 Bits (Byte)'
Dim a As New Number(8)
Dim b As New Number(8)
'Está será la suma de Bits que realizaremos'
' 0 0 0 1 0 0 0 0'
'+ 0 0 0 1 0 0 0 0'
'-----------------'
' 0 0 1 0 0 0 0 0'
'Le damos a 'a' y 'b' el valor 1 (True) en el Index 3'
a.Bits.Set(3, True)
b.Bits.Set(3, True)
Dim c As Number = a + b
Console.WriteLine(c)
Console.ReadKey()
End Sub
End Module