Mensajes

Gracias, funciona sin el randomize() te lo agradezco

Hola necesito un numero random entre 1 y 10... si mal no recuerdo seria algo asi como:

Text1.Text = Rnd * 10

o (Rnd * 10) pero el problema es que text1 me tira numeros decimales, en random claro xD pero en decimales ¬¬

Yo necesito como dije hacer que me de un numero entre 1 y 10, por cierto recuerdo que lo hice una vez en la escuela cuando hicimos este programa a modo de juego pero perdi el source xD no ocupabamos ni variables ni constantes era algo como lo que expuse

http://www.sendspace.com/file/a1byul este es el programa era un juego... veanlo los 3 numeros que estan salen en los text del medio estan con la funcion Rnd

Saludos y gracias de antemano

Ja ja ja... El romance en privado lean las reglas

se hara la propuesta en el foro de colaboradores, en 3 meses que nos pongamos de acuerdo les avisamos si se decidio hacer el post.

Podrian pensar en hacer un post para halloween xDDDDD para que les alcance el tiempo

El código de seguridad en los nokia por defecto no es 0000 sino 12345, sí no te resulta por ahí yogourt te pasa el master code de tu celular

Sería una bonita "sorpresa" para nosotros.

Gracias xD

Otra sugerencia es que podrías precargar un mp3 o un video, algo como lo que hace winamp para que el usuario lo pruebe apenas lo abra por primera vez

Muy bueno el reproductor!

Esta excelente, una sugerencia es que limpies los archivos .IMS de la carpeta data del programa subido ya que estan los datos de tua archivos xDD y cuesta bastante borrarlos desde el programa...

Otra cosa cuando no hay elementos cargados en las listas abajo dice:

"Elementos cargados: Error"

Me gusto bastante felicidades por el trabajo!

mmm
4 caracteres ok

mmm no se si te entendi pero te pongo dos codigos haber cual tesirve

Código (vb) [Seleccionar] Expandir


Dim buffer4 As String * 4' esta variable puede llamarse como desee
Open "c:\aa.txt" For Binary As 1
Get 1, , buffer4' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
Close 1
MsgBox buffer4


Código (vb) [Seleccionar] Expandir


Dim buffer5 As String * 5' esta variable puede llamarse como desee
Open "c:\aa.txt" For Binary As 1
Get 1, , buffer5 ' donde vez ", ," es el bit de donde empesara a leer al archivo vb si se deja vasio sera desde el prinicipio
Close 1
letra=mid(buffer5,len(buffer5),1)
MsgBox letra'solo faltaria hacer la comparacion xP


SOLO UNA COSA USA FREEFILE para asigna rel numero de identificación cuando abras el archivo ya que si no puedes causar un error, al tratar de abrir y o escribir (no lo use en el source de arriba  ya que no estoy abriendo varios archivos a la vez ok)

ommm igual con la funcion

Código (vb) [Seleccionar] Expandir


Mid(texto,1,4)
Mid(texto,len(texto),1)

mmm con

Código (vb) [Seleccionar] Expandir


left(texto,4)
right(texto,1)


mm como mmm otra no se cual,... Lo demas te lo dejo atí.

Saludos

Muchas gracias si me resulta lo que trato de hacer posteo aqui el source xDDDD
Te lo agradezco de nuevo! 

Hola estoy tratando de hacer un programa que compare los 4 primeros caracteres de un text contra un archivo txt...

Por ejemplo:

         __________
text1 |123456789|
         -----------

y en el archivo txt tengo por ejemplo:

1234A
4567B
8901C
2345D

Osea comparado seria 1234A osea corresponderia a A


Algo como:

Si (en el txt es A = True) Then
Label1.Caption = "Es A"
Else
Label1.Caption = "Es otro"
End if

Alguien me puede ayudar a pensar?

estaba pensando recien para omitir los numeros restantes ya que solo necesito el 1234 poner un Text2.Visible = False con la propiedad MaxLength en 4 y trabajar con el text2 para no complicarme no? que piensan?

Saludos y gracias de antemano!