Desafios

vivachapas · 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)

vivachapas · 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

demoniox12 · 22 Diciembre 2007, 19:48 PM

yo intente xD pero como me trabe lo deje

salu2!

invisible_hack · 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...

vivachapas · 22 Diciembre 2007, 20:25 PM

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 [Seleccionar]

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

invisible_hack · 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!!

demoniox12 · 22 Diciembre 2007, 22:13 PM

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

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

PD: me gane algo?

jajaj xD... lo que ingresa es Pedro, favor de responder esta pregunta: (los : activa la accion)

vivachapas · 22 Diciembre 2007, 22:14 PM

jaja mira hagamos esto para q ganes algo jeje

mira en el primer post...

demoniox12 · 22 Diciembre 2007, 22:16 PM

Cita de: vivachapas en 22 Diciembre 2007, 22:14 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

vivachapas · 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