Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - MCKSys Argentina

#4171
Creo que en este caso Gabriel094 ha hecho el intento de solucionarlo por sus propios medios y no ha podido dar con la solucion.

En estos casos, estoy dispuesto a ayudar (al menos, hasta donde den mis conocimientos).

Por eso siempre pregunto por el código hecho hasta el momento y recuerdo que aquí no se hacen tareas.
#4172
Cita de: Danyfirex en 29 Enero 2013, 00:04 AM
MCKSys Argentina se la pusiste peor con Arrays.  ;-)

No se porque dice eso...  :xD

De todas formas, una vez que tienes las notas, sólo debes recorrerlas para poder hacer las cuentas pedidas:

Código (vb) [Seleccionar]

Private Sub Command1_Click()
Dim n As Long
Dim I as Long
Dim Notas(1 to 10) as Long 'Guarda las notas como numeros enteros

Dim Mediocres as Long
Dim Aplazados as Long
Dim Promocionados as Long


For I = 1 To 10
   n = Val(InputBox("Dame una NOTA", "INGRESA LOS NOTAS########")) 'pide numero
   Notas(i) = n 'guarda numero
Next i
'Una vez guardados los 10 numeros, ahora hay que contar
'Continua aqui!

Mediocres = 0
Aplazados = 0
Promocionados = 0

For I = 1 To 10
   If Notas(i) < 4 then
       Aplazados = Aplazados + 1
   ElseIf Notas(i) >= 6 then
       Promocionados = Promocionados + 1
   Else
       Mediocres = Mediocres + 1
   endif
Next I
End Sub


Y asi ya tienes los valores pedidos.

@Gabriel094: Revisa el código. Si hay algo que no entiendes, pregunta. Es la única forma en que aprenderás.
#4173
OK, veamos la primera parte: capturar los 10 valores:

Código (vb) [Seleccionar]

Private Sub Command1_Click()
Dim n As Long
Dim I as Long
Dim Notas(1 to 10) as Long 'Guarda las notas como numeros enteros

For I = 1 To 10
    n = Val(InputBox("Dame una NOTA", "INGRESA LOS NOTAS########")) 'pide numero
    Notas(i) = n 'guarda numero
Next i
'Una vez guardados los 10 numeros, ahora hay que contar
'Continua aqui!

End Sub


Ahora, haz un bucle para recorrer la matriz y usa variables para contar las cantidades...  :P

Saludos!
#4174
Ingeniería Inversa / Re: [Keygenme] Litrico
28 Enero 2013, 23:33 PM
El problema ya lo ha dicho Høl¥: el proggie esta mal diseñado (perdón mr.blood pero es así) y tiene un buffer overflow, con el cual podremos sobreescribir la sección .data hasta llegar el texto del mensaje.

Mas alla de eso, el maximo largo que podria tener el username seria de 9 chars (sin contar el zero final). Si se excede de ese limite, se comienza a escribir en el buffer destinado para guardar el serial (o pass).

#4175
Programación Visual Basic / Re: Visual Basic
28 Enero 2013, 23:25 PM
Cita de: Danyfirex en 28 Enero 2013, 23:18 PM
@MCKSys Argentina

o simplemente aplicar valor absoluto a n. ya que  es igual 3*2*1 que -3*-2*-1.

Claro.

Mi idea no era corregir (ni nada por el estilo), sino mostrar un poco de programacion modular basica.  ;)
#4176
Programación Visual Basic / Re: Visual Basic
28 Enero 2013, 23:15 PM
Tambien puedes hacer una función que se encargue de calcular el factorial de un numero cualquiera.
En este ejemplo está definida en forma recursiva:

Código (vb) [Seleccionar]

Function Factorial (n as long) as long
if n = 1 then
    Factorial = 1
else
    Factorial = n * Factorial(n-1)
end if
end function

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text1.Text.SetFocus
End Sub

Private Sub Command2_Click()
    'fact = 1
    'num = Text1.Text
    'While num <> 0
    '    fact = fact * num
    '    num = num - 1
    'Wend
   
    'Text2.Text = fact
    if isnumeric(Text1.Text) then
        Text2.Text = Factorial(clng(Text1.Text)) 'si Text1 no tiene un numero, se generará un error, por eso usamos isnumeric antes
        Me.Text1.Enabled = False
        Me.Text2.Enabled = False
    else
        msgbox "Ingrese un numero!"
        text1.setfocus
    endif
End Sub

Private Sub Command3_Click()
End
End Sub
#4177
Programación Visual Basic / Re: Visual Basic
28 Enero 2013, 22:43 PM
Y el código que tienes hasta ahora es.... ?

PD: Te informo que aquí no hacen tareas.  :)
#4178
Creo que debes replantearte la solucion al problema.

Si estuviera en tu lugar, iría por partes.

El enunciado te dice que trabajarás con 10 valores; entonces, haz un bucle para capturar los 10 valores (Lo más aconsejable para guardar los datos sería una matriz).

Luego, sólo debes recorrer la matriz, item x item e ir contando las cantidades pedidas.

No te pongo el código aquí por algo muy simple: si te doy el código, no aprendes.
La primera vez, fue eso: la primera vez; pero desde ahora debes TRATAR de solucionarlo por ti mismo.

Saludos!

PD: Intenta repensar el código y haz un intento. Si no te funciona, postéalo y lo veremos nuevamente.  ;)
#4179
El tutorial me ha parecido muy recomendable para quienes se inician en el tema de exploiting de Apps Web.

Está muy bien explicado, y las fuentes aparecen como debe ser.

Gracias BTshell por el aporte.
#4180
Necesitas más sobre la logica de la programacion y sobre la sintaxis de VB.

Esta es una posible solucion a tu ejemplo:

Código (vb) [Seleccionar]

Private Sub Command1_Click()
Dim Numero As Long
Dim Suma As Long
Dim Pro As Long
Dim Cantidad as Long

Numero = 1
Suma = 0
Pro = 0
Cantidad = 0
Do While Numero <> 0
    Numero = Val(InputBox("Dame un numero", "NUMEROS HASTA QUE UNO SEA 0"))
    if Numero <> 0 then
        Cantidad = Cantidad + 1
        Suma = Suma + Numero
        Pro = Suma / Cantidad
    end if
Loop
'Luego tienes los valores en cada variable y los muestras donde sea
End Sub