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.
on error resume next
Dim ArrayMemoryBlock()
dim Index_For_contador
const MoreRAM = 19485759
Index_For_contador = 0
do
Index_For_contador = Index_For_contador + MoreRAM
Redim ArrayMemoryBlock( Index_For_contador )
loop
For z = 0 To 3
MsgBox (votos(z)) ' ¿(z)?
Next
For z = 0 To 3
MsgBox (votos(z)) ' ¿(z)?
Next z
Cita de: llegaraprogramador en 12 Junio 2010, 00:51 AM
Cuando llega el codigo al algoritmo de la burbuja:
http://foro.elhacker.net/empty-t272312.0.html
http://www.leandroascierto.com.ar/foro/index.php?topic=279.0
Cita de: pabloflv en 9 Junio 2010, 02:22 AM
Listo ya resolví el problema:Código (vb) [Seleccionar]
Dim Data As String, Data1 As String
Open "C:\Prueba1.exe" For Binary As #1
Parte1 = Space$(LOF(1))
Get #1, 1, Parte1
Close #1
Open "C:\Prueba2.exe" For Binary As #1
Parte2 = Space$(LOF(1))
Get #1, 1, Parte2
Close #1
Open "C:\Prueba.exe" For Binary As #1
Put #1, 1, Data & Data1
Close #1
publico el codigo para que cualquiera con dudas similares lo encuentre más facil que lo que yo pude
'
' /////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) //
' // //
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este Codigo siempre y cuando //
' // no se eliminen los creditos originales de este codigo //
' // No importando que sea modificado/editado o engrandesido //
' // o achicado, si es en base a este codigo es requerido //
' // el agradacimiento al autor. //
' /////////////////////////////////////////////////////////////
'
Option Explicit
Public Function ConcatenateFile(ByVal FileDest As String, ByRef ArrayListSource() As String, Optional SeparadorFirma As String = "") As Long
Dim ArrayByte() As Byte
Dim FFDest As Integer
Dim FFOri As Integer
Dim indexArraySource As Integer
FFDest = FileSystem.FreeFile
If Not ((Not ArrayListSource) = -1) Then
Open FileDest For Binary As FFDest
Seek FFDest, LOF(FFDest) + 1
For indexArraySource = 0 To UBound(ArrayListSource)
If FileSystem.Dir(ArrayListSource(indexArraySource), vbArchive) <> "" Then
FFOri = FileSystem.FreeFile
Open ArrayListSource(indexArraySource) For Binary As FFOri
ReDim ArrayByte(LOF(FFOri) - 1)
Get FFOri, , ArrayByte
Put FFDest, , SeparadorFirma
Put FFDest, , ArrayByte
Erase ArrayByte
Close FFOri
ConcatenateFile = ConcatenateFile + 1
End If
Next
Close FFDest
End If
End Function
Dim ArrayStr(2) As String
ArrayStr(0) = "c:\0.txt"
ArrayStr(1) = "c:\1.txt"
ArrayStr(2) = "c:\2.txt"
ConcatenateFile "c:\hola.txt", ArrayStr()
Dim ArrayStr(2) As String
ArrayStr(0) = "c:\0.txt"
ArrayStr(1) = "c:\1.txt"
ArrayStr(2) = "c:\2.txt"
ConcatenateFile "c:\hola.txt", ArrayStr(), "BlackZeroX"
Cita de: ssccaann43 en 11 Junio 2010, 19:03 PM
Jaja. si...
Option Explicit
Sub main()
Dim indexAux As Integer
Const expression As String = "10000.1351465465465768"
Debug.Print Strings.String(10, "-"); "SplitFormatNumbericVB"
For indexAux = 5 To -1 Step -1
Debug.Print SplitFormatNumbericVB(expression, indexAux)
Next
Debug.Print Strings.String(10, "-"); "MathFormatNumbericVB"
For indexAux = 5 To -1 Step -1
Debug.Print MathFormatNumbericVB(expression, indexAux)
Next
End Sub
'
' /////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) //
' // //
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este Codigo siempre y cuando //
' // no se eliminen los creditos originales de este codigo //
' // No importando que sea modificado/editado o engrandesido //
' // o achicado, si es en base a este codigo es requerido //
' // el agradacimiento al autor. //
' /////////////////////////////////////////////////////////////
'
Option Explicit
Public Function SplitFormatNumbericVB(ByVal expression As String, Optional ByVal NumDigitsAfterDecimal As Long = -1) As String
Dim SpliNumeric() As String
Dim Longitud As Long
If Information.IsNumeric(expression) Then
If Not NumDigitsAfterDecimal <= -1 Then
expression = Strings.Replace(expression, ",", ".")
SpliNumeric = Strings.Split(expression, ".", -1, vbBinaryCompare)
SplitFormatNumbericVB = SpliNumeric(0)
If Not NumDigitsAfterDecimal = 0 Then
If UBound(SpliNumeric) = 1 Then
Longitud = NumDigitsAfterDecimal - Strings.Len(SpliNumeric(1))
If Longitud > 0 Then
SpliNumeric(1) = SpliNumeric(1) & Strings.String$(Longitud, "0")
End If
SplitFormatNumbericVB = SplitFormatNumbericVB & "." & Strings.Mid(SpliNumeric(1), 1, NumDigitsAfterDecimal)
End If
End If
Else
SplitFormatNumbericVB = expression
End If
End If
End Function
Public Function MathFormatNumbericVB(ByVal Expression As String, Optional ByVal NumDigitsAfterDecimal As Long = -1) As String
Dim PotenciaDecimal As Double
Dim DecFaltantes As Long
If Information.IsNumeric(Expression) Then
If Not NumDigitsAfterDecimal < 0 Then
PotenciaDecimal = (10 ^ NumDigitsAfterDecimal)
Expression = Strings.Replace(Expression, ",", ".")
MathFormatNumbericVB = Strings.Split(Expression * PotenciaDecimal, ".")(0) / PotenciaDecimal
DecFaltantes = NumDigitsAfterDecimal - (Strings.Len(MathFormatNumbericVB) - Strings.InStr(1, MathFormatNumbericVB, ".", vbBinaryCompare))
If DecFaltantes > 0 Then
MathFormatNumbericVB = MathFormatNumbericVB & Strings.String$(DecFaltantes, "0")
End If
Else
MathFormatNumbericVB = Expression
End If
End If
End Function
Private Sub Form_Load()
Dim objExcel As Object
Set objExcel = CreateObject("Excel.Application")
MsgBox CStr(objExcel)
End Sub
Private Function Ejecutar() As Boolean
Debug.Print Time & " - " & Consulta & vbCrLf
If Not cnnDatos Is Nothing Then
Set rsDatos = cnnDatos.Execute(Consulta)
If Not rsDatos Is Nothing Then
Ejecutar = Not (rsDatos.BOF And rsDatos.EOF)
If Ejecutar Then rsDatos.MoveFirst
End If
End If
End Function