Mensajes

HOLA!!!

Es un problema de logica lo tuyo, como haces el dowhile loop analiza 3 veces lo mismo y se cierra.
Asi te va a funcionar.

Código (vb) [Seleccionar] Expandir

Dim cont As Integer
Private Sub Command1_Click()
    IF CONT = 3 THEN MsgBox "Adios...", vbInformation : END
    If user.Text = "user" And pass.Text = "prueba" Then
        Unload Me
        Form2.Show
    Else
        cont = cont + 1
        MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
       user.Text = ""
        pass.Text = ""
    End If
End Sub

Private Sub Command2_Click()
   Unload Me
End Sub


GRACIAS POR LEER!!!

HOLA!!!

Como despues de las comas? XD

Que yo sepa despues de las comas se escribe igual.

Ya se le agregamos los otros signos de puntuacion como ¿? y ¡! Que luego hay que escribir mayusculas.

GRACIAS POR LEER!!!

[FROG]

HOLA!!!

Este reto consiste en poner mayusculas a las letras que estan delante de un punto , punto y aparte , nueva linea , signo de exclamacion o signo de interrogacion (abiertos o cerrados).

Estructura:

Código (vb) [Seleccionar] Expandir

uCaseCorrect(Txt as String) as String

La funcion debe corregir las mayusculas de la cadena poniendo mayusculas despues de los puntos y en cuanto a los ¡! y ¿?  miren esto : http://goo.gl/z14ab

FROG 

Creo que con eso lo habran entendido...

GRACIAS POR LEER!!!

HOLA!!!

Creo que ya terminamos :

TABLA POSITIVOS Y NEGATIVOS

Código [Seleccionar] Expandir

"******TEST HECHO POR 79137913******"
**PRUEBA CON NUMEROS +/- HASTA EL MAX**
7913: 26,316 msec
BZro: 49,330 msec


Código [Seleccionar] Expandir

Comprobacion de numeros de Fibonacci Positivos:
Ganador    Elemental Code
2do Puesto Mr Frog
3er Puesto 79137913

Comprobacion de numeros de Fibonacci Positivos (trampa):
Ganador    Mr Frog
2do Puesto Ignorante v1.1
3er Puesto BlackZeroX[escala de grises :P]

Comprobacion de numeros de Fibonacci Enteros (+/-):
Ganador 79137913
2do Puesto BlackZeroX[/escala de grises :P]


GRACIAS POR LEER!!!

HOLA!!!

Disculpen si no estan conmigo, pero EXCEL es la bomba.

Esa hoja de calculo es muy dinamica y facil de usar. Es potente para hacer varias cosas.

No lo voy a comparar con una base de datos pero igual EXCEL se la banca.

Aunque tecnicamente es una base de datos...

GRACIAS POR LEER!!!

HOLA!!!

Si quieres estar más seguro de no perder tu W7 simplemente has el particionado desde allí mismo:

Mi Equipo -> (Click Secundario) -> Administrar -> Administración de Discos, y allí puedes realizar el particionado sin miedo alguno.

PD: No estoy seguro si los nombres que di son correctos, ahora no estoy  en Win.

Ahora cunado instales, formateas la partición que has creado a un FS compatible con sistemas GNU/Linux, y seguramente el GRUB se instale de manera automática dejandote elegir al inicio que SO escoger.

Saludos

Me quedo mas tranquilo con esa .

GRACIAS POR LEER!!!

[E_C]

HOLA!!!

Me gusta el segundo

Lo guardo

Gracias E_C

GRACIAS POR LEER!!!

[Black]

HOLA!!!

Black tiene razon, no me habia dado cuenta

GRACIAS POR LEER!!!

HOLA!!!

Mi version (reducida)

Código (vb) [Seleccionar] Expandir

Private Const Titulo As String = "Titulo animado.-·.-·.-·.-·.-·.-·.-·.-·.-·"
Private x As Integer

Private Sub Timer1_Timer()
If x = Len(Titulo) Then x = 0
x = x + 1
Form1.Caption = Mid(Titulo, 1, x)
End Sub

Misma idea Otro efecto (me gusta este):

Código (vb) [Seleccionar] Expandir

Private Const Titulo As String = "Titulo animado.-·.-·.-·.-·.-·.-·.-·.-·.-·"
Private x As Integer

Private Sub Timer1_Timer()
If x = Len(Titulo) Then x = 0
x = x + 1
Form1.Caption = Mid(Titulo, x, Len(Titulo) - x) & Mid(Titulo, 1, x)
End Sub

GRACIAS POR LEER!!!

HOLA!!!

En el mismo ejecutable no se puede, pero:

http://foro.elhacker.net/programacion_visual_basic/rutinas_interesantes-t139883.0.html;msg657075#msg657075

Mmm, talves si se pueda en el mismo ejecutable, cambiando algun valor hex (osea que el mismo programa se modifique) que sea el de la variable caption del label... nose, no me meto XD.

GRACIAS POR LEER!!!