Mensajes

HOLA!!!

Bueno, mejoraste el largo del codigo y un poco la velocidad esta bien, pero mira el mio y tu codigo.

Podras observar que en mi codigo funciona haciendo sumas de los casos positivos dentro de el campo muestral (1-999) y quitando al final las superposiciones mientras que el tuyo lo que hace es analizar una por una todas las probabilidades y extraer de ellas las que cumplen las condiciones. la cantidad de vueltas del primer bucle es de 200 , el segundo 133 y el tercero 66, dando un total de 399 vueltas muchas menos que en tu codigo de 999.

En definitiva tu codigo hace prueba y error, el mio une los 2 grupos de multiplos y quita los repetidos.

P.d: Eso que hago de ct + ct + ct es lo mismo que ct *3 pero es mas rapido para que lo tengas en cuenta.

GRACIAS POR LEER!!!

Claro pero si te fijas en tu código haciendo tantas sumas pierdes velocidad. si te fijas en el tiempo aun mi función con 999 repeticiones es un 30% o 40%  mas rápida que la tuya.

Edito: un 20% o 10%

HOLA!!!
Dany, yo que vos busco sobre optimizacion de codigo.

gracias por el Consejo.

Codigo optimizado:

Código (vb) [Seleccionar] Expandir

Function mul_3_5() As Long
Dim i As Integer
For i = 1 To 999
If (i Mod 3) < 1 Or (i Mod 5) < 1 Then
mul_3_5 = mul_3_5 + i
End If
Next i
End Function

Saludos

[If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.Find the sum of all the multiples of 3 or 5 below 1000.]

me parece excelente.  
Aqui tienes a un participante. Por cierto pésimo en matemáticas. jajajaja

EDITO:

segun el problema dice esto.

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.

Find the sum of all the multiples of 3 or 5 below 1000.

según lo que se 10 es divisible entre 5.

entonces la suma seria 33. o no ?


EDITO. 1


Si esta bien no leí la palabra below.

saludos


EDITO: 2

Aquí esta el mio.

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim resultado As Long
Dim i As Integer
Dim d1, d2 As Boolean
For i = 1 To 999
d1 = CBool((i / 3) = Int(i / 3))
d2 = CBool((i / 5) = Int(i / 5))
If d1 Or d2 Then
resultado = resultado + i
End If
Next i
MsgBox (resultado)
End Sub


Como Funcion para un Numero dado.

Código (vb) [Seleccionar] Expandir

Function mul_3_5(Numero As Long) As Long
Dim resultado As Long
Dim i As Integer
Dim d1, d2 As Boolean
For i = 1 To Numero
d1 = CBool((i / 3) = Int(i / 3))
d2 = CBool((i / 5) = Int(i / 5))
If d1 Or d2 Then
resultado = resultado + i
End If
Next i
mul_3_5 = (resultado)
End Function

saludos

no es necesario poner Me.Form1.Height,  así esta bien Me.Height

width =ancho

Height= alto

saludos

Podrías  acoplarlo a tu formulario en las propiedades.

o hacer algo así.

Código (vbnet) [Seleccionar] Expandir

Me.WebBrowser1.Width = Me.Width
        Me.WebBrowser1.Height = Me.Height


saludos

Algunos usuarios a veces no entienden por que se le ayuda mas a uno que a otro, o se crean preferencias como han dicho, realmente es porque sabemos (saben) a quien vale la pena ayudarlo.

Idem con esto. 

Hace varios días te recomendé dos libros pensé que ya los habías leido 

saludos

a yaaaaaaaaa gracias.

Código (vb) [Seleccionar] Expandir

Dim aleatorio As String
aleatorio = Str(Int(Rnd(1000) * 1000))
Open aleatorio & ".bat" For Append As #1

saludos

No entiendo   

[r7pyrred]

xD concuerdo lamentablemente

pero bueno, nose porque si yo tarde meses documentandome la gente no lo hace tamb

claro tardaste documentandote pero seguro has aprendido? y querias aprender.

y estoy seguro que tu actitud no era ni un poquito parecida a la de r7pyrred

Bueno ya no me salgo mas del tema, lastima que aya gente de este tipo. 

pero seguro con el tiempo se va amoldando 

saludos