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)
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
yo intente xD pero como me trabe lo deje :P
salu2!
Yo apenas sé nada de VB, pero la idea me encantó...se podría hacer esta propuesta tambien en otros lenguajes...
Saludos... ;D
: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"
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
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!!
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)
jaja mira hagamos esto para q ganes algo jeje
mira en el primer post...
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
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
Una pregunta sobre esto de los desafios...
Aunque no se vaya a participar en estos duelos de VB.... ¿se pueden dar ideas de softs para crear su version en este lenguaje?
Porque hay varios programas que me estan viniendo a la mente ahora y que seria muy interesante que hubiese su version en VB, y quien sabe, alomejor incluso se haria mas famoso el programa hecho en VB que el original...y lo mejor de todo es que serian programas hechos por usuarios de Elhacker.net ;D
Saludos...
jaja siiii
mi idea era esa, q cada uno aporte un programa y todos intenten hacer un code q cumpla la misma funcion q el programa...
este yo ya lo termine... le agregue todas las cositas q faltaban (menos eso de irse borrando la ultima palabra cuando ya se completo la frase pero uno notermino de escribir la respuesta) ni las respuestas automaticas... (eso es mas faicl de hacer pero no tuve ganas de ponerme xD)
asi q si sabes de algun programa... facil (nada del otro mundo xD xq no me va a salir) q quieras q hagamos postealo... x lo menos yo voy a tratar ;)
Pues...mira, para empezar se me estan ocurriendo dos bonitos softs...
El Dizzy Nick Creator (no se si lo conocerás, pero esta wapo ese soft, aunque lo cierto eske no se en que lenguaje sta programado) y...estaria excelente (si lo consigues) que hubiese una especie de compresor en VB, algo asi como un Winrar o un Winzip exo en VB...
Bueno, esas son mis dos ideas...aver lo que se puede llegar a hacer...
P.D. ah por cierto, aunque no me dedique a VB, intentaré aportar codigos que encuentre por Google etc para hacer este par de programas que he dicho...
Un saludo!!
lo del nick creator debe ser facil... reemplazar una letra x una cadena de texto... eso lo hice pero para guardar informacion cifrada...
lo del un compresor :huh: ni idea...
creo q lo q hacen es algo asi... x ejemplo q el codigo hexagesimal del archivo a comprimir es:
ABAGDBADA
lo q hace es poner esto:
A1379B26G4D58
algo ais... como q busca las A y pone una sola y luego el lugar donde tendria q estar repetida...
la verdad no me acuerdo de donde saque esa idea... xD pero de algun lado tengo q es algo asi
He estado pensando mas programas wapos para crear y recuerdo que hace tiempo tuve uno que se llamaba Msn Discovery, era como un añadido del msn con alguna que otra funcion extra...y habia una funcion muy xula para imitar a tus contactos, es decir, escribir algo y hacer como que lo habia escrito tu contacto...con su nick...su mismo tipo de letra y todo....bueno pues pensé que tambien se podria hacer algo asi en VB, supongo que usando la API de msn....
Saludos!!
Soy re nuevo en VB, por eso exactamente me anoto para poner en practica algo...
yo prefiero el nick creator creo q es mas facil :P
No se por qué pero tengo la impresion de que el Dizzy Nick Creator ya esta en VB...bueno me informaré sobre el soft aver si saco el lenguaje en que fue programado...
Saludos...
nah ta bien...
Pero yo digo crear un nick creator a ver :P
No debe ser complicado, seria poner dos textbox (uno para que el usuario ponga el texto que quiere transformar, y el otro para que salga el nick generado) y un botón que diga "Generar" y pues...poco más...
Lo que si que no se me ocurre como hacer es para que cada vez que le des a Generar, se generen las letras en Ascii de tipo distinto...pero weno...supongo que habra gente aqui que tendra mucho mas conocimientos que yo en VB y seguro sabrán como hacerlo ::)
Saludos...
es facil :) para cambiar las letras haces un bucle con el len de las letras y reemplaza cada letra... entonces dpue le agregas las boludeces de los costados y ponele que esas boludeces a los costados le pones una variable que diga que ya fue puesto tal boludes.. entonces pasa a la siguiente.. y asi...
salu2!
PD: no se como llamarle a lo de los costados asi que les digo boludeces nomas :P:P
Ok, pues manos a la obra :xD
Saludos...
mmmm
se me hara dificil porq no entendi lo q dijo demonioxx
eso lo del bucle :S
Cita de: youungest en 24 Diciembre 2007, 01:32 AM
mmmm
se me hara dificil porq no entendi lo q dijo demonioxx
eso lo del bucle :S
For i = 0 To Len(Text1.Text)
'aca pones lo que se repetira tantas veces x letras osea lo que buskara la letra y la reemplazara..
Next i
Salu2!
Entendi un poco mas... mas o menos jeje :P
tratare de hacerlo :D
Hoy estaba muy aburrido asi que hice el nick generator xD
http://www.mediafire.com/?89vm47kyx0n
salu2!
PD: volvi a ganar! pero esta vez que gano? xDDD jaja :P
volviii perdonen mi ausencia... pero estaba de viaje jeje...
me perdi de hacer el nick generator! gano de nuevo demoniox xD
FELICES FIESTAS! un poco tarde pero... mejor tarde q nuca
Vaya!! me alegra muxo ver que esto de los desafios no ha quedado en el olvido, excelente trabajo Demoniox....
Bueno y ahora...¿os atreveis a poneros con el otro proyecto que dije? (Un compresor tipo Winrar/Winzip) ??? :P
Yo buscaré tambien sobre el tema, porsupuesto, no penseis que solo vengo a dar ideas de programas :xD
Saludos!!
yo tb ya estuve viendo como era su "forma" ...
me gustaria q alguien con mayores conocimientos... tb se interese en el tema ya q nos podrian guiar mas...
yo tb estuve pensando en hacer algun juego... x ejemplo un TA-TE-TI o la "vivorita"... yo hice algunos juegos en VB... otra sino seria q cada uno haga un juego, libre eleccion, y luego posteen el code... si les gusta esta ultima idea yo postearia un par de codigos ;)
SALUDOS
Citar
un TA-TE-TI o la "vivorita"
No se si sera lo mismo que yo estoy pensando, pero....¿te refieres al juego ese que es como una serpiente que tiene que ir cogiendo manzanas para conseguir puntos, y se va estirando y tienes que intentar que no choque con su propio cuerpo?
Saludos...
sii a ese juego jeje... y el TA TE TI saben cual es no?
__|__|__
__|__|__
__|__|__
donde pones...
_O_|_X_|_ _
_ _|_X_|_O_
_ _|_X_|_O_
lo pongo x si dodnde viven utds se le llama distinto jejej
TaTeTi
http://www.mediafire.com/?bjxgmbm9z4m
By Demoniox
Salu2!
muy bueno! ya lo probe...
me gustaria agregarle un par de cositas... x ej poder cambiar el numero de quien empiesa, contar las victorias de X e O y hacer q se pueda jugar contra la computadora... jje x el momento me falta hacer q la pc juege sola xD
Excelente programa amigo ;D
P.D. el Tateti aqui lo llaman el tres en raya :xD
Saludos
Cita de: vivachapas en 28 Diciembre 2007, 17:55 PM
muy bueno! ya lo probe...
me gustaria agregarle un par de cositas... x ej poder cambiar el numero de quien empiesa, contar las victorias de X e O y hacer q se pueda jugar contra la computadora... jje x el momento me falta hacer q la pc juege sola xD
okas! yo ahora mismo estaba haciendo lo de vs la pc solo que me tengo que ir a una kinta asi que lo dejo para mañana :P
salu2!
jaja a mi no se me ocurre como... exepto usando muchos If
pero como ahora toy con otro proyecto... no tengo ni ganas ni tiempo xDjeje
Bueno amigos, moviendo mis neuronas se me ha ocurrido otro proyectito que estaria muy wapo que se convirtiese en realidad, porque ademas a mas de uno le seria util...
Se trata de un mataprocesos, es decir, un textobox en el que el usuario pudiese escribir el nombre del proceso, y al lado un boton que ponga "Matar" y que haga un tskill al proceso...(no se como se hace en VB, perdonen pero eske estoy acostumbrado a Batch :xD ) o mejor aun, se podria hacer que se reflejasen todos los procesos activos en el Pc, y que el propio usuario pudiese seleccionar los que quiera matar...
Esto vendria muy bien para dar caza a algunos virus cabroncetes que se meten a veces y que dan mucha lata...
Saludos...
Bueno, voy a probar aver, creo que es facil de hacer..... ;D
salu2
lo de matar procesos.. no se para q lo queres... se com ose hace xq lo usaba en mis troyanos... pero vos q queres matar procesos de tu pc? Ctrl + Alt + Supr es mas facil :P a menos q quieras q sea remoto
Ya se que se puede hacer con Cntrol y eso, pero mi idea era hacer como un Admin de tareas en VB....
Saludos...
Cita de: invisible_hack en 29 Diciembre 2007, 17:20 PM
Ya se que se puede hacer con Cntrol y eso, pero mi idea era hacer como un Admin de tareas en VB....
Saludos...
hmm no le veo la utilidad...
Bueno vale, si alguien consigue hacer un soft para esto que lo publique, mientras tanto el resto, sigamos dando ideas para más softs :xD
Saludos....
aka dejo el tateti que se puede jugar contra la pc.. solo que le faltan algunos ifs.. el que kiera que lo siga.. yo ya me canse y me aburri xD
http://www.mediafire.com/?fedcekggmgl
salu2!
ola , aki esta lo de los procesos www.usuarios.lycos.es/mono437/matador.rar