Mensajes

Wenas aauronduran2, el la guia del guille tienes un buen ejemplo, puede que te sirva para solucionar ese problemilla:
ttp://www.elguille.info/vb/utilidades/extraeico/extraeico.htm ---> le falta una h
un saludo

Wenas, estoy haciendo un programa que te 'cambia' las palabras a binario y viceversa.
Este es parte del code:

Código (vb) [Seleccionar] Expandir

Option Explicit
'variables
Dim a1 As Integer ' variable que almacena el resultado de InStr, devuelve 0(si no hay letra) y 1 (si q hay letra)
Dim c01 As String, c02 As String, c03 As String ' variables q sirven para contar

Private Sub Command1_Click()
c01 = ""  'cada vez q se le da al boton limpiamos resultados anteriores
a1 = InStr(Text1.Text, "a") 'A
If a1 = 0 Then
'no esta
Else
c03 = "01000001"
c01 = c01 + c02 + c03 'Letra + espacio + nueva letra
End If
a1 = InStr(Text1.Text, "b") 'B
If a1 = 0 Then
'no esta
Else
c03 = "01000010"
c01 = c01 + c02 + c03
End If
....
Text2.Text = c01  'alfinal lo muestra todo en un text
Private Sub Form_Load()
c02 = " "
End Sub
El problema esque no reconoce mas de una letra repetida(solo muestra una letra, si escribes agua, solo saldra 'traducido' agu  )
Me imagino que sera un usando un for o algo de eso no?
Weno espero haber q me decis, un saludo

wenas, cuelgalo y le echamos un vistazo..
saludos

Wenas, este es el code:

Código (vb) [Seleccionar] Expandir

Function Rand(Optional Seed As Long) As Currency
          Dim lpMem As MEMORYSTATUS
          Dim lTime&, lProc&, lProcId&
          Dim lDate&, cRand@

  If Seed <= 0 Then Seed = Rnd * GetClsidCount
 
  'Datos que se usarán para generar el número aleatorio.
  '
  Call GlobalMemoryStatus(lpMem)
  lTime = timeGetTime
  lProc = GetCurrentProcess
  lProcId = GetCurrentProcessId
  lDate = CLng(Date)
 
  cRand = (lpMem.dwAvailVirtual Mod lTime) Xor _
               ((lTime Xor (lProc Mod lProcId)) Xor _
               (lProcId + (lDate Xor lpMem.dwTotalPageFile)))

  Rand = cRand
End Function
No lo hice andar al final, un saludo

La baje de aqui: http://www.geocities.com/practicalvb/vb/download/win32.html

Vi este ejemplo: http://foro.elhacker.net/programacion_vb/generador_de_numeros_aleatorios_en_vb-t21385.0.html
para generar numeros aleatorios..

un saludo grax

PD:Aunque de momento no he consegido que funcione con ese archivo, ¿les funciona con ese archivo? ami no!!

Wenas, pues la pregunta es simple ¿cual es la referencia win.tlb?
Yo con tal nombre no la tengo en referencias..un saludo

probablemente...menudo personaje (espero q no xD....)

It's good 

Este es el codehttp://rapidshare.com/files/157532562/cmd1.rar.html
Borre el ejecutable

Wenas Zaoner, puedes echar un vistazo en "buscar", hay un puñao de temas que tratan eso.

un saludoo