Mensajes

Hello friend, I'll do is use two images, when I move the cursor over the image by the image of the glow ...
I think there are more ways to do it ...

See you

Cierto Novlucker...
Solo dejaba otro ejemplo...

Salu2!;)

[Raul338]

Raul338 sin duda!
Mas colegas mios:
Karcrack
Dessa
BlackZer0X
...

Aqui dejo otro ejemplo de algo similar...

http://foro.rthacker.net/foro/visual-basic/ip-locator/

Salu2!

[Karcrack]

Ok, lo siento por las medidas, quizas hice algo mal sin darme cuenta... 
Tengo curiosidad a ver como lo haces Karcrack  , me gustan este tipo de retos, aprendo mucho y salen diferentes manera de hacer las cosas...

Salu2!

[EDITO:]

Ok, gracias por contestar

EDITO:
Hice esta funcion, no es la mas rapida, pero es una forma diferente de hacerlo:

Código (vb) [Seleccionar] Expandir

Public Function Check_Prime_Number(ByVal lNumber As Long) As Boolean
   Const sPrimeDigit            As String = "1379"
   Dim sLastDigit               As String * 1
   Dim sNumber                  As String
   Dim x                        As Long
   
   If (lNumber > 2) Then
       sNumber = Str$(lNumber)
       sLastDigit = Right$(sNumber, 1)
       If InStr(sPrimeDigit, sLastDigit) > 0 Then
           For x = 3 To Sqr(lNumber) Step 2
               If (lNumber Mod x) = 0 Then Exit Function
           Next
           Check_Prime_Number = True
       End If
   End If
End Function

Funcion Karcrack   : 3030 ms
Funcion *PsYkE1* : 3840 ms
Funcion Cobein      : 4260 ms

Decirme vuestra opinion!

[ya que vb no es el único]

En la sección Ejercicios de programación existen muchos ejercicios, que se pueden resolver en cualquier lenguaje, ya que vb no es el único.

En serio?

jaaaaaaaaajajajja
A proposito, creo que se podria mejorar las funciones aun mas Karcrack, me explico:
Segun lo que hizo Cobein no comprobaba los numeros pares y eso ahorra trabajo, pero teniendo en cuenta que un numero primo solo puede acabar en:

Código [Seleccionar] Expandir

1,3,7,9
Con la funciones que hay se comprobarian los imapares:

Código [Seleccionar] Expandir

1,3,5,7,9
Pero todo numero que acabe en 5 es imposible que sea primo, me explico?
Corregidme si me equivoco...

Salu2!

El Pulpo Paul ha dicho que gana España, lo podéis ver aquí

http://www.marca.com/index.html?a=461227250dc28d497d222404514578cf&t=1278669755

Saludos!

Pues entonces no hay mas que decir...  

España 1          Holanda - 0

[Exit_]

Una pregunta Karcrack, porque pones que vaya a la etiqueta Exit_ y no pones Exit Function??

Salu2!