elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Introducción a la Factorización De Semiprimos (RSA)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Desafios
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] 2 3 4 5 Ir Abajo Respuesta Imprimir
Autor Tema: Desafios  (Leído 7,670 veces)
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Desafios
« en: 22 Diciembre 2007, 01:10 am »

bueno esto se me acaba de ocurrir... y queria saber q opinaba el foro...

la idea era buscar un programa sencillo y ver quien lo puede copiar haciendolo en VB (obvio) de la forma mas sencilla...

para empezar yo ya busque uno se llama "Pedro Responde" muchos lo conoceran, sino pueden ir a la pag oficial

http://www.pedroresponde.com.ar/

de ahi lo pueden bajar o ver su funcion...

bueno la idea era q el q ya tenga le programa q haga lo mismo q "Pedro Responde" suba el code.. y asi cada uno q logre hacerlo y desp veemos quien lo logro de la forma mas facil, o en menos tiempo.


yo ya empese! aunque estoy un poquito trabado en una parte...!!

suerte a todos!

denmen sus opiniones sobre esta idea!


Ganadores:
Demoniox12 (code base de vivachapas)


« Última modificación: 22 Diciembre 2007, 22:35 pm por vivachapas » En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Desafios
« Respuesta #1 en: 22 Diciembre 2007, 19:19 pm »

a nadie le intereso?? :(

me gustaria q si hay alguien haciendo el code me diga, yo ayer en menos de una hora casi lo termine... me trabe es una parte... haora estoy viendo como solucionarlo...

pero quisiera q me digan si hay laguien haciendolo o si a nadie le intereso... xD
xq si no ni me gasto en terminar el code xD


En línea

demoniox12

Desconectado Desconectado

Mensajes: 204


El conocimiento es poder


Ver Perfil WWW
Re: Desafios
« Respuesta #2 en: 22 Diciembre 2007, 19:48 pm »

yo intente xD pero como me trabe lo deje :P

salu2!
En línea

By Demoniox
invisible_hack


Desconectado Desconectado

Mensajes: 978


Invisible_Hack™ Nick Registrado ^^


Ver Perfil WWW
Re: Desafios
« Respuesta #3 en: 22 Diciembre 2007, 20:21 pm »

Yo apenas sé nada de VB, pero la idea me encantó...se podría hacer esta propuesta tambien en otros lenguajes...

Saludos... ;D
En línea

"Si no visitas mi blog, Chuck te dará una patada giratoria"
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Desafios
« Respuesta #4 en: 22 Diciembre 2007, 20:25 pm »

:D bueno viendo q lagunos por lo menos lo intentaron posteo lo q yo hice...

(no esta terminado) pero a lo mejro le serve de ayuda a unos o alguno me dice errores q tenga xD

form1
label1 = dice como en el programa "ingrese la peticion"
label2 = dice "ingrese la Pregunta"
label3 = esta invisible, se pone visible cuando pones "?" en la preg (eso me falta hacer me acabo de dar cuenta)
text1 = al lado de la label1 "ingrese peticion"
text2 = al lado de la label2 "ingrese preg"
command1 = caption "nueva pregunta"
command2 = caption "Salir"


Código:
Dim Punto As Boolean

Private Sub Form_Load()
MsgBox "Bla bla bla oracion..."
MsgBox "Más bla bla bla de la oración..."
Punto = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then
    If Len(Text1.Text) = 0 Then
    Punto = False
    End If
Exit Sub
End If

If KeyAscii = 46 Then
   
    If Punto = False Then
    Punto = True
    Else
    Punto = False
    End If
   
    If Len(Text1.Text) = 0 Then
    Text1.Text = "P"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 1 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 2 Then
    Text1.Text = Text1.Text & "d"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 3 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 4 Then
    Text1.Text = Text1.Text & "o"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 5 Then
    Text1.Text = Text1.Text & ","
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 6 Then
    Text1.Text = Text1.Text & " "
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 7 Then
    Text1.Text = Text1.Text & "h"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 8 Then
    Text1.Text = Text1.Text & "a"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 9 Then
    Text1.Text = Text1.Text & "c"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 10 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 11 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
End If

If Punto = True Then

    If Len(Text1.Text) = 0 Then
    Text1.Text = "P"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 1 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 2 Then
    Text1.Text = Text1.Text & "d"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 3 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 4 Then
    Text1.Text = Text1.Text & "o"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 5 Then
    Text1.Text = Text1.Text & ","
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 6 Then
    Text1.Text = Text1.Text & " "
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 7 Then
    Text1.Text = Text1.Text & "h"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 8 Then
    Text1.Text = Text1.Text & "a"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 9 Then
    Text1.Text = Text1.Text & "c"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 10 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 11 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    End If

End If

Exit Sub

Respuesta:
Select Case KeyAscii
Case 48
Label3.Caption = Label3.Caption & "0"
Case 49
Label3.Caption = Label3.Caption & "1"
Case 50
Label3.Caption = Label3.Caption & "2"
Case 51
Label3.Caption = Label3.Caption & "3"
Case 52
Label3.Caption = Label3.Caption & "4"
End Select

KeyAscii = 0
End Sub
En línea

invisible_hack


Desconectado Desconectado

Mensajes: 978


Invisible_Hack™ Nick Registrado ^^


Ver Perfil WWW
Re: Desafios
« Respuesta #5 en: 22 Diciembre 2007, 20:51 pm »

Oye, a medida que la gente fuese haciendo los softwares en este post de desafios, podrian ir siendo subidos para que nos los pudiesemos descargar y probarlos....por ejemplo a MediaFire...

Saludos!!
En línea

"Si no visitas mi blog, Chuck te dará una patada giratoria"
demoniox12

Desconectado Desconectado

Mensajes: 204


El conocimiento es poder


Ver Perfil WWW
Re: Desafios
« Respuesta #6 en: 22 Diciembre 2007, 22:13 pm »

Aca lo termine.. en base al de vivachapas...

http://www.mediafire.com/?dtnjn2gwyik

PD: me gane algo? :P jajaj xD... lo que ingresa es Pedro, favor de responder esta pregunta: (los : activa la accion)
« Última modificación: 22 Diciembre 2007, 22:14 pm por demoniox12 » En línea

By Demoniox
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Desafios
« Respuesta #7 en: 22 Diciembre 2007, 22:14 pm »

jaja mira hagamos esto para q ganes algo jeje


mira en el primer post...
En línea

demoniox12

Desconectado Desconectado

Mensajes: 204


El conocimiento es poder


Ver Perfil WWW
Re: Desafios
« Respuesta #8 en: 22 Diciembre 2007, 22:16 pm »

jaja mira hagamos esto para q ganes algo jeje


mira en el primer post...

Me estan estafando T_T "vivachapas con Demonixx" io hice mas cosass xDD
En línea

By Demoniox
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: Desafios
« Respuesta #9 en: 22 Diciembre 2007, 22:40 pm »

pero solamente terminaste lo q yo habia hecho xD

no le agregaste mas nada... a mi lo q no me salia era q si llegaba al final de la oracion "Pedro, favor de responder esta pregunta" y todavia no se habia tipeado el "." borre la ultima palabra y la vuelva a escribir hasta q se toque el "."

desp faltan todavia de hacer los menus, q cuando apretes el command1 ponga el foco en el text1, y esas cosas...

osea lo unico q hiciste fue completar el mio, cosa q yo no habia hecho xq sino me salia lo otro, no queria perder tiempo en escribir todas esas cosas xD
En línea

Páginas: [1] 2 3 4 5 Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
¿Desafios de Programacion?
Programación General
capsulasinformaticas 3 3,361 Último mensaje 27 Mayo 2013, 00:36 am
por Kenkox
La informática en el vestir, los desafíos de la moda inteligente
Noticias
wolfbcn 0 681 Último mensaje 9 Enero 2014, 21:37 pm
por wolfbcn
Los desafíos a los que se enfrenta The Guardian para cumplir el derecho al ...
Noticias
wolfbcn 0 618 Último mensaje 11 Julio 2014, 21:43 pm
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines