|
Título: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 9 Agosto 2017, 22:15 pm Hola, vereis, el caso es que quisiera abrir este tema para proponer una cosa, y, obviamente, considerando hasta que punto podria o no ser viable.
Entonces, el caso es el siguiente; dado que varios miembros tenemos experiencia en uno y/o mas campos de la informatica, quisiera proponer la posibilidad de hacer un proyecto entre varios usuarios/mods de este foro, o, almenos, mirar hasta que punto podria ser posible. Obviamente, es una idea/posibilidad que, bueno, he pensado que podria ser interesante, o, almenos, hasta cierto punto, y, bueno, creo que podria servir para compartir y aprender cosas nuevas, aunque tambien depende del tiempo que cada uno le pueda dedicar, ademas de los miembros que puedan y/o quieran colaborar, entre otras cosas. No se, ¿que opinais?. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: engel lex en 9 Agosto 2017, 22:28 pm podríamos hacer algo, yo podría ayudar en varios campos... podemos usar git para centralizar los avances
Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: #!drvy en 9 Agosto 2017, 22:31 pm Y el proyecto de que iría ? xD
Saludos Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Randomize en 9 Agosto 2017, 23:20 pm Y el proyecto de que iría ? xD Saludos Conociendo a crazykenny va a ser un proyecto muy largo de explicar... "Y ahora me reportas al moderador :-* ". Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Shell Root en 9 Agosto 2017, 23:26 pm Conociendo a crazykenny va a ser un proyecto muy largo de explicar... ajjajajajajjajaa Dificil, auque siguiendo los pasos de las auditorias. Si es posible, Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 10:24 am Y el proyecto de que iría ? xD Saludos Bueno, viendo otros proyectos quizas mas simples que ya se han hecho con una Raspberry Pi (como cosas relacionadas con control de motores/servos, o servidores ftp, entre otros), esta ha sido mi primera opcion para, bueno, aprovechar lo que se ha ido haciendo para probar a hacer cosas nuevas. Aunque, por otra parte, tambien quisiera plantear el añadir mas cosas sobre otros temas y/o campos relacionados, ya sea con mejoras relacionadas con programacion, servidores y/o seguridad, entre otros. Y, bueno, esto que seria mi idea inicial a modo de esbozo y ir ampliando. Conociendo a crazykenny va a ser un proyecto muy largo de explicar... "Y ahora me reportas al moderador :-* ". Puede a lo primero; dudo de lo segundo., ya que ahora no seria el caso. :P Que haya paz. :-* Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: engel lex en 10 Agosto 2017, 15:24 pm ¡Hagamos un
Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: warcry. en 10 Agosto 2017, 16:12 pm vamos que no tiene ni una puñeter.a idea.
propone realizar un proyecto, que la idea la tengan otros, que el trabajo lo hagan otros y obviamente SALIR EN LOS CRÉDITOS. yo eso lo defino como un CARA DURA EN TODA REGLA. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: engel lex en 10 Agosto 2017, 16:23 pm vamos que no tiene ni una puñeter.a idea. propone realizar un proyecto, que la idea la tengan otros, que el trabajo lo hagan otros y obviamente SALIR EN LOS CRÉDITOS. yo eso lo defino como un CARA DURA EN TODA REGLA. hombre... calma nadie ha dicho nada! no es obvio, la acritud está de más... a demás los que estén en el proyecto vela por los creditos del mismo... pero no estaría mal un proyecto usando las posibilidades de esta comunidad!!! por otro lado, para eso exíste el git donde se ven los participantes y el porcentaje de participación Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 17:19 pm vamos que no tiene ni una puñeter.a idea. propone realizar un proyecto, que la idea la tengan otros, que el trabajo lo hagan otros y obviamente SALIR EN LOS CRÉDITOS. yo eso lo defino como un CARA DURA EN TODA REGLA. Por entender, se entiende tu punto de vista, ahora bien; Simplemente es una idea que he querido plantear en el foro, y sobre lo que he puesto sobre la Raspberry Pi, es porque es algo que he ido buscando informacion para hacer cosas con la Raspberry Pi y motores, tal y como puedes comprobar en el codigo: Código: from time import sleep #Importamos time para poder usar time.sleep import RPi.GPIO as GPIO GPIO.setmode(GPIO.BOARD) #Ponemos la Raspberry en modo BOARD print ("Board Listo") pin_set=21 mot_01=11 mot_11=13 GPIO.setup(pin_set,GPIO.OUT) GPIO.setup(mot_01,GPIO.OUT) GPIO.setup(mot_11,GPIO.OUT) p = GPIO.PWM(pin_set,50) p.start(7.5) print ("Pin listo") y = "11" try: while True: print ("Opciones: ") print ("1) Reset (Poner servos y motores a 0.") print ("2) Probar servos.") print ("3) Probar motores.") print ("4) Centrar servos.") print ("5) Detener motor.") print ("q) Girar servo a la izquierda.") print ("e) Girar servo a la derecha.") print ("w) mover motores hacia adelante.") print ("s) mover motor hacia atras.") y = raw_input('selecciona una opcion') if y == "1": p.ChangeDutyCycle(7.5) GPIO.output(mot_01,LOW) GPIO.output(mot_11,LOW) sleep(0.5) if y == "2": p.ChangeDutyCycle(7.5) sleep(0.5) p.ChangeDutyCycle(10.5) sleep(0.5) p.ChangeDutyCycle(7.5) sleep(0.5) p.ChangeDutyCycle(4.5) sleep(0.5) p.ChangeDutyCycle(7.5) sleep(0.5) if y == "3": GPIO.output(mot_01,HIGH) GPIO.output(mot_11,LOW) sleep(1.5) GPIO.output(mot_01,LOW) GPIO.output(mot_11,LOW) sleep(1.0) GPIO.output(mot_01,LOW) GPIO.output(mot_11,HIGH) sleep(1.5) GPIO.output(mot_01,LOW) GPIO.output(mot_11,LOW) sleep(1.0) if y == "4": p.ChangeDutyCycle(7.5) sleep(0.01) if y == "5": GPIO.output(mot_01,LOW) GPIO.output(mot_11,LOW) if y == "q": p.ChangeDutyCycle(4.5) sleep(0.01) if y == "e": p.ChangeDutyCycle(10.5) sleep(0.01) if y == "w": GPIO.output(mot_01,HIGH) GPIO.output(mot_11,LOW) if y == "s": GPIO.output(mot_01,LOW) GPIO.output(mot_11,HIGH) except KeyboardInterrupt: p.stop() GPIO.cleanup() Entonces, solo quisiera añadir una cosa, a fin de cuentas; mi idea con el tema de Raspberry Pi y arduino y/o motores (entre otras cosas), es ir haciendo cosas poco a poco, y ir avanzando, tal y como creo que se deberia hacer. Por otra parte, y, volviendo a la idea que he puesto en este tema, no es mi intencion hacer lo que ha comentado warcry en su mensaje; ¿que la idea que he propuesto podria ser mas elaborada?, no lo discuto, pero lo que tampoco es plan de hacer es presentar una idea super-desarrollada-y-genial tipo, digamos, preguntar en un foro de programación de videojuegos que busco gente para desarrollar un MMO (o, como pasa "a veces" en este foro, preguntar como hackear tal correo), cuando lo unico que uno sabe hacer es: Código: .inicio print "hola mundo." goto inicio Y, bueno, lo comento porque nadie nace sabiendolo todo. hagamos una lluvia de ideas y veamos que puede salir Creo que seria la mejor opcion, dado el caso, y, bueno, tambien por lo que he comentado. Aun asi, insisto en que espero no molestar demasiado con este tema, ni causar demasiados problemas. PD: Por ultimo, quisiera añadir un "ultimo codigo", sobre varios programas que he hecho hace algun tiempo (aunque alguno pueda mantener algun pequeño error) en Blitz3D: https://es.wikipedia.org/wiki/Blitz_BASIC (https://es.wikipedia.org/wiki/Blitz_BASIC) Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 17:23 pm Código: Function BD_objetos() Cls Locate 0,0 dir_base$=CurrentDir()+"BD_objetos\" If FileType(dir_base$)=0 CreateDir dir_base$ EndIf .lista_BD Cls Locate 0,0 Print "Inserte el nombre de la base de datos." dat$=Input() If dat$="" .salida_inicial Cls Locate 0,0 Print "Ha insertado un nombre no valido." Print "¿Desea salir del programa?. (S/N)" dat$=Input() If dat$="S" Or dat$="s" Goto fin_funcion EndIf If dat$="N" Or dat$="n" Goto lista_BD EndIf Goto salida_inicial EndIf file_base_b$=dir_base$+dat$ database_reg$=dat$ If FileType(file_base_b$)=1 Cls Locate 0,0 Print "Ya existe un archivo con el nombre indicado." Print "Pulse una tecla para cargar los datos." WaitKey() fileout=ReadFile(file_base_b$) num_objetos#=ReadFloat(fileout) If num_objetos#=0 Goto fin_actualizacion_00 EndIf num_objetos#=num_objetos#-1 Dim lista_objetos$(num_objetos#) Dim lista_creacion_objetos#(num_objetos#,num_objetos#) For tr#=0 To num_objetos# daty$=ReadString(fileout) lista_objetos$(tr#)=daty$ For trr#=0 To num_objetos# opciones#=ReadFloat(fileout) lista_creacion_objetos#(tr#,trr#)=opciones# Next Next num_objetos#=num_objetos#+1 .fin_actualizacion_00 vendedores#=ReadFloat(fileout) If vendedores#=0 Goto fin_actualizacion_11 EndIf vendedores#=vendedores#-1 num_objetos#=num_objetos#-1 Dim listas_vendedores$(vendedores#) Dim objetos_vendedores#(vendedores#,num_objetos#) Dim objetos_cambio_vendedores#(vendedores#,num_objetos#,num_objetos#) Dim objetos_cambio_vendedores#(vendedores#,num_objetos#,num_objetos#) For tr#=0 To vendedores# dat$=ReadString(fileout) listas_vendedores$(tr#)=dat$ For trr#=0 To num_objetos# opciones#=ReadFloat(fileout) objetos_vendedores#(tr#,trr#)=opciones# For trrr#=0 To num_objetos# opciones#=ReadFloat(fileout) objetos_cambio_vendedores#(tr#,trr#,trrr#)=opciones# Next Next Next vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 .fin_actualizacion_11 CloseFile(fileout) Cls Locate 0,0 Print "La base de datos se ha cargado." Print "Pulse una tecla para continuar al menu principal." WaitKey() Goto inicio EndIf Cls Locate 0,0 Print "No existe ninguna base de datos con el nombre indicado." Print "Pulse una tecla para crearla y seguir." WaitKey() .inicio seeker_database#=0 Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Añadir un nuevo objeto a la BD, o bien" Print " modificar el nombre de un objeto existente." Print "2) Añadir/quitar objetos para crear un" Print " objeto especifico." Print "3) Ver todos los objetos." Print "4) Ver todos los objetos con los objetos" Print " necesarios para crearlos. Print "5) Buscar un objeto con los objetos" Print " necesarios para crearlo." Print "6) Ver una lista de objetos que se pueden" Print " crear con uno o mas objetos." Print "7) Crear vendedor." Print "8) Añadir objetos a un vendedor." Print "9) Ver todos los vendedores." Print "10) Ver los objetos disponibles de todos los vendedores." Print "11) Ver los objetos disponibles de un vendedor." Print "12) Buscar que vendedores venden un determinado objeto." Print "13) Añadir un objeto de cambio a un vendedor." Print "14) Ver todos los objetos de cambio de cada vendedor." Print "15) Ver todos los objetos de cambio de un vendedor." Print "16) Buscar que objeto es cambiado por uno o mas vendedor." Print "17) Acceder a las opciones de base de datos de usuarios." Print "18) Salir del programa." opciones#=Input() If opciones#=1 Cls Locate 0,0 Print "Inserte el nombre del nuevo objeto:" dat$=Input() If dat$="" Cls Locate 0,0 Print "No ha insertado ningun nombre." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf trx#=0 If num_objetos#=0 Dim lista_objetos$(num_objetos#) Dim lista_creacion_objetos#(num_objetos#,num_objetos#) lista_objetos$(num_objetos#)=dat$ num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "Se ha añadido el objeto a la base de datos." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If num_objetos#>0 num_objetos#=num_objetos#-1 For tr#=0 To num_objetos# If dat$=lista_objetos$(tr#) Cls Locate 0,0 Print "El objeto indicado ya existe." Print "Inserte el nuevo nombre para el objeto actual:" Print "(No inserte nada para descartar los datos y" Print " volver al menu inicial)." dat$=Input() If dat$="" num_objetos#=num_objetos#+1 Goto inicio EndIf For txz#=0 To num_objetos# If dat$=lista_objetos$(txz#) Cls Locate 0,0 Print "El nombre indicado no se puede añadir," Print "ya esta en uso." Print "Pulse una tecla para volver al menu inicial." num_objetos#=num_objetos#+1 WaitKey() Goto inicio EndIf Next lista_objetos$(tr#)=dat$ num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "El nombre del objeto se ha modificado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Next Dim lista_objetos_b$(num_objetos#) Dim lista_creacion_objetos_b#(num_objetos#,num_objetos#) For tr#=0 To num_objetos# dat_b$=lista_objetos$(tr#) lista_objetos_b$(tr#)=dat_b$ For trr#=0 To num_objetos# dat_b$=lista_creacion_objetos#(tr#,trr#) lista_creacion_objetos_b#(tr#,trr#)=dat_b$ Next Next num_objetos#=num_objetos#+1 Dim lista_objetos$(num_objetos#) Dim lista_creacion_objetos#(num_objetos#,num_objetos#) num_objetos#=num_objetos#-1 For tr#=0 To num_objetos# dat_b$=lista_objetos_b$(tr#) lista_objetos$(tr#)=dat_b$ For trr#=0 To num_objetos# dat_b$=lista_creacion_objetos_b#(tr#,trr#) lista_creacion_objetos#(tr#,trr#)=dat_b$ Next Next If vendedores#>0 vendedores#=vendedores#-1 Dim objetos_vendedores_b#(vendedores#,num_objetos#) Dim objetos_cambio_vendedores_b#(vendedores#,num_objetos#,num_objetos#) For tr#=0 To vendedores# For trr#=0 To num_objetos# opciones#=objetos_vendedores#(tr#,trr#) objetos_vendedores_b#(tr#,trr#)=opciones# For trrr#=0 To num_objetos# opciones#=objetos_cambio_vendedores#(tr#,trr#,trrr#) objetos_cambio_vendedores_b#(tr#,trr#,trrr#)=opciones# Next Next Next num_objetos#=num_objetos#+1 Dim objetos_vendedores#(vendedores#,num_objetos#) Dim objetos_cambio_vendedores#(vendedores#,num_objetos#,num_objetos#) num_objetos#=num_objetos#-1 For tr#=0 To vendedores# For trr#=0 To num_objetos# opciones#=objetos_vendedores_b#(tr#,trr#) objetos_vendedores#(tr#,trr#)=opciones# For trrr#=0 To num_objetos# opciones#=objetos_cambio_vendedores_b#(tr#,trr#,trrr#) objetos_cambio_vendedores#(tr#,trr#,trrr#)=opciones# Next Next Next vendedores#=vendedores#+1 EndIf num_objetos#=num_objetos#+1 lista_objetos$(num_objetos#)=dat$ num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "Se ha añadido el objeto a la base de datos." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf EndIf If opciones#=2 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear 2 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If num_objetos#<2 Print "Ha creado menos de 2 objeto." Print "Debe crear 2 o mas antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Print "Inserte el nombre del objeto principal:" dat$=Input() If dat$="" Cls Locate 0,0 Print "No ha insertado ningun nombre." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf num_objetos#=num_objetos#-1 For tr#=0 To num_objetos# If dat$=lista_objetos$(tr#) Cls Locate 0,0 Print "Se ha encontrado el objeto indicado." Print "Pulse una tecla para seguir." Dim lista_objetos_temp#(num_objetos#) For trn#=0 To num_objetos# val#=lista_creacion_objetos#(tr#,trn#) lista_objetos_temp#(trn#)=val# Next WaitKey() .add_quit_object Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Ver una lista de todos los objetos." Print "2) Ver la lista inicial de objetos necesarios para" Print " poder crear el objeto principal." Print "3) Ver la lista actual de objetos necesarios para" Print " poder crear el objeto principal." Print "4) Modificar la cantidad de un objeto para poder" Print " crear el objeto principal." Print "5) Volver al menu inicial descartando los datos. Print "6) Volver al menu inicial guardando los datos. opciones#=Input() If opciones#=1 Cls Locate 0,0 trx#=0 For trn#=0 To num_objetos# num_objetosx#=trn#+1 Print "Objeto no. " + num_objetosx# Print lista_objetos$(trn#) trx#=trx#+1 If trx#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" Goto add_quit_object EndIf Cls Locate 0,0 trx#=0 EndIf Next Print "" Print "Ya se han mostrado todos los objetos." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf If opciones#=2 Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" trx#=0 For trn#=0 To num_objetos# val#=lista_creacion_objetos#(tr#,trn#) If val#>1 num_objetosx#=trn#+1 Print lista_objetos$(trn#) Print "Cantidad necesaria de este objeto:" Print val# trx#=trx#+1 If trx#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" Goto add_quit_object EndIf Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" trx#=0 EndIf EndIf Next Print "" Print "Ya se han mostrado todos los objetos." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf If opciones#=3 Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" trx#=0 For trn#=0 To num_objetos# val#=lista_objetos_temp#(trn#) If val#>0 num_objetosx#=trn#+1 Print lista_objetos$(trn#) Print "Cantidad necesaria de este objeto:" Print val# trx#=trx#+1 If trx#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" Goto add_quit_object EndIf Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" trx#=0 EndIf EndIf Next Print "" Print "Ya se han mostrado todos los objetos." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf If opciones#=4 Cls Locate 0,0 Print "Inserte el nombre del objeto que desea añadir/quitar" Print "para crear el objeto principal:" daty$=Input() For trn#=0 To num_objetos# If tr#=trn# Cls Locate 0,0 Print "Ha insertado un nombre no valido, ya que es" Print "el nombre del objeto principal." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf If daty$=lista_objetos$(trn#) val#=lista_objetos_temp#(trn#) .select_add_or_quit Cls Locate 0,0 Print "Cantidad del necesaria del objeto indicado" Print "para crear el objeto principal:" + val# Print "¿Que cantidad del objeto indicado se necesita Print " para crear el objeto principal?." Print "(Inserte un valor menor a 0 para volver al" Print " menu anterior descartando el cambio actual)." val#=Input() Cls Locate 0,0 If val#<0 Print "Cantidad no modificada." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf lista_objetos_temp#(trn#)=val# Cls Locate 0,0 Print "Cantidad modificada." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf Next Cls Locate 0,0 Print "No se ha encontrado el objeto indicado." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto add_quit_object EndIf If opciones#=5 .return_without_saving Cls Locate 0,0 Print "¿Realmente desea volver al menu inicial guardando los cambios? (S/N)." dat$=Input() If dat$="S" Or dat$="s" num_objetos#=num_objetos#+1 Goto inicio EndIf If dat$="N" Or dat$="n" Goto add_quit_object EndIf Goto return_without_saving EndIf If opciones#=6 .return_saving Cls Locate 0,0 Print "¿Realmente desea volver al menu inicial guardando los cambios? (S/N)." dat$=Input() If dat$="S" Or dat$="s" For trn#=0 To num_objetos# val#=lista_objetos_temp#(trn#) lista_creacion_objetos#(tr#,trn#)=val# Next Cls Locate 0,0 Print "Se han aplicado los cambios." Print "Pulse una tecla para volver al menu inicial." num_objetos#=num_objetos#+1 WaitKey() Goto inicio EndIf If dat$="N" Or dat$="n" Goto add_quit_object EndIf Goto return_saving EndIf Goto add_quit_object EndIf Next num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "No se ha encontrado ningun objeto con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If opciones#=3 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear uno antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf trx#=0 num_objetos#=num_objetos#-1 For trn#=0 To num_objetos# num_objetosx#=trn#+1 Print "Objeto no. " + num_objetosx# Print lista_objetos$(trn#) trx#=trx#+1 If trx#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" num_objetos#=num_objetos#+1 Goto inicio EndIf Cls Locate 0,0 trx#=0 EndIf Next num_objetos#=num_objetos#+1 Print "" Print "Ya se han mostrado todos los objetos." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf If opciones#=4 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear uno antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf trx#=0 num_objetos#=num_objetos#-1 For tr#=0 To num_objetos# num_objetosx#=trn#+1 Print "Objeto no. " + num_objetosx# Print lista_objetos$(tr#) Print "" trx#=trx#+1 Print "Objetos necesarios para crear este objeto:" For trn#=0 To num_objetos# val#=lista_creacion_objetos#(tr#,trn#) If val#>1 num_objetosx#=trn#+1 Print lista_objetos$(trn#) Print "Cantidad de este objeto para crear el objeto principal:" Print val# Print "" trx#=trx#+1 If trx#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" num_objetos#=num_objetos#+1 Goto inicio EndIf Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" Cls Locate 0,0 trx#=0 EndIf EndIf Next Print "" Print "Inserte R o r para volver al menu anterior y" Print "dejar de ver mas objetos." daty$=Input() If daty$="R" Or daty$="r" num_objetos#=num_objetos#+1 Goto inicio EndIf Cls Locate 0,0 Next num_objetos#=num_objetos#+1 Print "Ya se han mostrado todos los objetos." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf .seeker_base If opciones#=5 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear uno antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Print "Inserte el nombre del objeto a buscar:" dat$=Input() Cls Locate 0,0 If dat$="" Cls Locate 0,0 Print "Ha insertado un nombre no valido." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf num_objetos#=num_objetos#-1 For tr#=0 To num_objetos# If dat$=lista_objetos$(tr#) Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" For trn#=0 To num_objetos# val#=lista_creacion_objetos#(tr#,trn#) If val#>0 num_objetosx#=trn#+1 Print lista_objetos$(trn#) Print "Cantidad de este objeto para crear el objeto principal:" Print val# Print "" trx#=trx#+1 If trx#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" num_objetos#=num_objetos#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Cls Locate 0,0 Print "Nombre del objeto principal:" Print lista_objetos$(tr#) Print "Objetos necesarios para crear este objeto:" Cls Locate 0,0 trx#=0 EndIf EndIf Next Print "" Print "Ya se ha mostrado el objeto junto a todos" Print "los objetos necesarios para crearlo." Print "Pulse una tecla para volver al menu inicial." num_objetos#=num_objetos#+1 WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Next Cls Locate 0,0 Print "No se ha encontrado ningun objeto con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." num_objetos#=num_objetos#+1 WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If opciones#=6 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear 2 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If num_objetos#<2 Print "Ha creado menos de 2 objeto." Print "Debe crear 2 o mas antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf num_objetos#=num_objetos#-1 Dim lista_objetos_c#(num_objetos#) .obj_base Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Añadir/quitar un objeto base de la lista" Print " para crear otro objeto. Print "2) Buscar objetos que se puedan crear con" Print " todos los objetos indicados." Print "3) Volver al menu inicial." opciones#=Input() If opciones#=1 Cls Locate 0,0 Print "Inserte el objeto que desea añadir/eliminar" Print "para crear otro objeto:" dat$=Input() For tr#=0 To num_objetos# If dat$=lista_objetos$(tr#) .i_o_object Cls Locate 0,0 If lista_objetos_c#(tr#)=0 Print "¿Realmente desea añadir el objeto indicado de la" Print " lista para crear otro objeto? (S/N)." EndIf If lista_objetos_c#(tr#)=1 Print "¿Realmente desea eliminar el objeto indicado de la" Print " lista para crear otro objeto? (S/N)." EndIf dat$=Input() If dat$="S" Or dat$="s" If lista_objetos_c#(tr#)=1 lista_objetos_c#(tr#)=0 Cls Locate 0,0 Print "Objeto eliminado." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto obj_base EndIf If lista_objetos_c#(tr#)=0 lista_objetos_c#(tr#)=1 Cls Locate 0,0 Print "Objeto añadido." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto obj_base EndIf EndIf If dat$="N" Or dat$="n" Goto obj_base EndIf Goto i_o_object EndIf Next Cls Locate 0,0 Print "No se ha encontrado el objeto indicado." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto obj_base EndIf If opciones#=2 .total_objs Cls Locate 0,0 Print "¿Los objetos que se van a mostrar deben incluir" Print " todos los objetos que se acaban de añadir? (S/N)." daty$=Input() vary#=0 var_03#=0 If daty$="S" Or daty$="s" For tr#=0 To num_objetos# vary#=0 varz#=0 For trr#=0 To num_objetos# If lista_objetos_c#(trr#)=1 vary#=vary#+1 EndIf Next For trr#=0 To num_objetos# If lista_objetos_c#(trr#)=1 If lista_creacion_objetos#(tr#,trr#)=1 varz#=varz#+1 EndIf EndIf Next If vary#=varz# var_03#=1 Cls Locate 0,0 Print "Nombre del objeto encontrado:" Print "" Print lista_objetos$(tr#) Print "" Print "Lista de objetos necesitados para crear este objeto:" var_02#=0 For trn#=0 To num_objetos# var_00#=lista_objetos_c#(trn#) var_01#=lista_creacion_objetos#(tr#,trn#) If var_01#>0 If var_00#=1 Print lista_objetos$(trn#) + " (Objeto indicado en la busqueda)" EndIf If var_00#=0 Print lista_objetos$(trn#) + " (Objeto no indicado en la busqueda)" EndIf Print "Cantidad de este objeto para crear el objeto principal:" Print var_01# Print "" EndIf var_02#=var_02#+1 If var_02#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" Goto obj_base EndIf var_02#=0 Cls Locate 0,0 Print "Nombre del objeto encontrado:" Print "" Print lista_objetos$(tr#) Print "" Print "Lista de objetos necesitados para crear este objeto:" EndIf Next Print "" Print "No hay mas datos que mostrar de este objeto." Print "Inserte R o r para volver al menu anterior, o bien" Print "otra cosa para seguir." daty$=Input() If daty$="R" Or daty$="r" Goto obj_base EndIf EndIf Next Goto mensaje_fin_busquedas_0x0 EndIf If daty$="N" Or daty$="n" For tr#=0 To num_objetos# For trr#=0 To num_objetos# var_00#=lista_objetos_c#(trr#) var_01#=lista_creacion_objetos#(tr#,trr#) If var_00#=1 If var_01#>1 var_03#=1 Cls Locate 0,0 Print "Nombre del objeto encontrado:" Print "" Print lista_objetos$(tr#) Print "" Print "Lista de objetos necesitados para crear este objeto:" var_02#=0 For trn#=0 To num_objetos# var_00#=lista_objetos_c#(trn#) var_01#=lista_creacion_objetos#(tr#,trn#) If var_01#>0 If var_00#=1 Print lista_objetos$(trn#) + " (Objeto indicado en la busqueda)" EndIf If var_00#=0 Print lista_objetos$(trn#) + " (Objeto no indicado en la busqueda)" EndIf Print "Cantidad de este objeto para crear el objeto principal:" Print var_01# Print "" EndIf var_02#=var_02#+1 If var_02#=10 Print "" Print "Inserte R o r para volver al menu anterior." daty$=Input() If daty$="R" Or daty$="r" Goto obj_base EndIf var_02#=0 Cls Locate 0,0 Print "Nombre del objeto encontrado:" Print "" Print lista_objetos$(tr#) Print "" Print "Lista de objetos necesitados para crear este objeto:" EndIf Next Print "" Print "No hay mas datos que mostrar de este objeto." Print "Inserte R o r para volver al menu anterior, o bien" Print "otra cosa para seguir." daty$=Input() If daty$="R" Or daty$="r" Goto obj_base EndIf Goto obj_base_nn EndIf EndIf Next .obj_base_nn Next .mensaje_fin_busquedas_0x0 If var_03#=1 Cls Locate 0,0 Print "Ya se han mostrado todos los objetos que se" Print "pueden crear con los objetos indicados." Print "Pulse una tecla para volver al menu anterior." EndIf If var_03#=0 Print "No se puede crear ningun objeto con los que" Print "se han indicado." Print "Pulse una tecla para volver al menu anterior." EndIf WaitKey() Goto obj_base EndIf Goto total_objs EndIf If opciones#=3 .return_op_05 Cls Locate 0,0 If seeker_database#=1 Print "¿Realmente desea volver al menu anterior? (S/N)." EndIf If seeker_database#=0 Print "¿Realmente desea volver al menu inicial? (S/N)." EndIf dat$=Input() If dat$="S" Or dat$="s" num_objetos#=num_objetos#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If dat$="N" Or dat$="n" Goto obj_base EndIf Goto return_op_05 EndIf Goto obj_base EndIf If opciones#=7 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear 2 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Print "Inserte el nombre del nuevo vendedor:" dat$=Input() If dat$="" Cls Locate 0,0 Print "Ha insertado un nombre no valido." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf If vendedores#=0 num_objetos#=num_objetos#-1 Dim listas_vendedores$(vendedores#) Dim objetos_vendedores#(vendedores#,num_objetos#) Dim objetos_cambio_vendedores#(vendedores#,num_objetos#,num_objetos#) listas_vendedores$(vendedores#)=dat$ vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "Vendedor creado." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf If vendedores#>0 vendedores#=vendedores#-1 For tr#=0 To vendedores# If dat$=listas_vendedores$(tr#) Cls Locate 0,0 Print "Ya existe un vendedor con el nombre indicado." Print "Inserte el nuevo nombre para este vendedor:" dat$=Input() If dat$="" Cls Locate 0,0 Print "Ha insertado un nombre no valido." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf For trr#=0 To vendedores# If dat$=listas_vendedores$(trr#) Cls Locate 0,0 vendedores#=vendedores#+1 Print "El nombre indicado ya esta en uso." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Next vendedores#=vendedores#+1 listas_vendedores$(tr#)=dat$ Cls Locate 0,0 Print "Se ha modificado el nombre del vendedor." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Next num_objetos#=num_objetos#-1 Dim listas_vendedores_b$(vendedores#) Dim objetos_vendedores_b#(vendedores#,num_objetos#) Dim objetos_cambio_vendedores_b#(vendedores#,num_objetos#,num_objetos#) For tr#=0 To vendedores# dat_b$=listas_vendedores$(tr#) listas_vendedores_b$(tr#)=dat_b$ For trr#=0 To num_objetos# opciones#=objetos_vendedores#(tr#,trr#) objetos_vendedores_b#(tr#,trr#)=opciones# For trrr#=0 To num_objetos# opciones#=objetos_cambio_vendedores#(tr#,trr#,trrr#) objetos_cambio_vendedores_b#(tr#,trr#,trrr#)=opciones# Next Next Next vendedores#=vendedores#+1 Dim listas_vendedores$(vendedores#) Dim objetos_vendedores#(vendedores#,num_objetos#) Dim objetos_cambio_vendedores#(vendedores#,num_objetos#,num_objetos#) vendedores#=vendedores#-1 For tr#=0 To vendedores# dat_b$=listas_vendedores_b$(tr#) listas_vendedores$(tr#)=dat_b$ For trr#=0 To num_objetos# opciones#=objetos_vendedores_b#(tr#,trr#) objetos_vendedores#(tr#,trr#)=opciones# For trrr#=0 To num_objetos# opciones#=objetos_cambio_vendedores#(tr#,trr#,trrr#) objetos_cambio_vendedores_b#(tr#,trr#,trrr#)=opciones# Next Next Next num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 listas_vendedores$(vendedores#)=dat$ vendedores#=vendedores#+1 Cls Locate 0,0 Print "Se ha creado un vendedor con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf EndIf If opciones#=8 Cls Locate 0,0 Print "Inserte el nombre del vendedor para incluir" Print "los objetos que vende:" dat$=Input() vendedores#=vendedores#-1 num_objetos#=num_objetos#-1 For tr#=0 To vendedores# Dim objetos_vendedores_b#(0,num_objetos#) For trr#=0 To num_objetos# opciones#=objetos_vendedores#(tr#,trr#) objetos_vendedores_b#(0,trr#)=opciones# Next If dat$=listas_vendedores$(tr#) .incluir_obj_vendedor Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Ver la lista inicial de objetos incluidos." Print "2) Ver la lista actual de objetos incluidos." Print "3) Añadir/quitar un objeto a este vendedor." Print "4) Volver al menu inicial aplicando los cambios." Print "5) Volver al menu inicial descartando los cambios." opciones#=Input() If opciones#=1 trr#=0 Cls Locate 0,0 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" For trr#=0 To num_objetos# trx#=trx#+1 opciones#=objetos_vendedores#(tr#,trr#) If opciones#>0 Print lista_objetos$(trr#) + " :" + opciones# EndIf If trx#=10 trx#=0 Print "" Print "Inserte R o r para volver al menu incial." dat$=Input() If dat$="R" Or dat$="r" Goto incluir_obj_vendedor EndIf Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" EndIf Next Print "Ya no hay mas datos que mostrar." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto incluir_obj_vendedor EndIf If opciones#=2 trr#=0 Cls Locate 0,0 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" For trr#=0 To num_objetos# trx#=trx#+1 opciones#=objetos_vendedores_b#(0,trr#) If opciones#>0 Print lista_objetos$(trr#) + " :" + opciones# EndIf If trx#=10 trx#=0 Print "" Print "Inserte R o r para volver al menu incial." dat$=Input() If dat$="R" Or dat$="r" Goto incluir_obj_vendedor EndIf Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" EndIf Next Print "Ya no hay mas datos que mostrar." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto incluir_obj_vendedor EndIf If opciones#=3 Cls Locate 0,0 Print "Inserte el nombre del objeto que desea" Print "añadir/eliminar al vendedor actual:" dat$=Input() For trr#=0 To num_objetos# If dat$=lista_objetos$(trr#) Cls Locate 0,0 opciones#=objetos_vendedores_b#(0,trr#) Print "Nombre del objeto: " + dat$ Print "Precio del objeto: " + objetos_vendedores_b#(0,trr#) Print "" Print "Inserte el nuevo precio del objeto:" Print "(Inserte 0 para eliminar el objeto de la" Print " lista del vendedor)." Print "(Inserte un valor menor a 0 para no" Print " realizar ningun cambio)." opciones#=Input() If opciones#<0 Print "" Print "No se a aplicado el cambio." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto incluir_obj_vendedor EndIf objetos_vendedores_b#(0,trr#)=opciones# Print "" Print "Se a aplicado el cambio." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto incluir_obj_vendedor EndIf Next Cls Locate 0,0 Print "No se ha encontrado ningun objeto con el nombre indicado." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto incluir_obj_vendedor EndIf If opciones#=4 .vuelta_menu_ant_0000 Cls Locate 0,0 Print "¿Realmente desea volver al menu anterior" Print " aplicando todos los cambios? (S/N)." dat$=Input() If dat$="N" Or dat$="n" Goto incluir_obj_vendedor EndIf If dat$="S" Or dat$="s" For trr#=0 To num_objetos# opciones#=objetos_vendedores_b#(0,trr#) objetos_vendedores#(tr#,trr#)=opciones# Next vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "Se han aplicado los cambios." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf Goto vuelta_menu_ant_0000 EndIf If opciones#=5 .vuelta_menu_ant_0011 Cls Locate 0,0 Print "¿Realmente desea volver al menu anterior" Print " descartando todos los cambios? (S/N)." dat$=Input() If dat$="N" Or dat$="n" Goto incluir_obj_vendedor EndIf If dat$="S" Or dat$="s" vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 Goto inicio EndIf Goto vuelta_menu_ant_0011 EndIf Goto incluir_obj_vendedor EndIf Next vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "No existe ningun vendedor con el nombre indicado." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf If opciones#=9 Cls Locate 0,0 If vendedores#=0 Print "No ha creado ningun vendedor." Print "Debe crear almenos 1 antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf trx#=0 vendedores#=vendedores#-1 For tr#=0 To vendedores# trr#=tr#+1 Print "Vendedor no. " + trr# + ": " Print listas_vendedores$(tr#) trx#=trx#+1 If trx#=10 trx#=0 Print "" Print "Inserte R o r para volver al menu inicial." dat$=Input() Cls Locate 0,0 If dat$="R" Or dat$="r" vendedores#=vendedores#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf EndIf Next vendedores#=vendedores#+1 Print "No hay mas vendedores a mostrar." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If opciones#=10 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear almenos 1 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If vendedores#=0 Print "No ha creado ningun vendedor." Print "Debe crear almenos 1 antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf num_objetos#=num_objetos#-1 vendedores#=vendedores#-1 For tr#=0 To vendedores# Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" For trr#=0 To num_objetos# trx#=trx#+1 opciones#=objetos_vendedores#(tr#,trr#) If opciones#>0 Print lista_objetos$(trr#) + " : " + opciones# If trx#=10 trx#=0 Print "" Print "Inserte R o r para volver al menu incial." dat$=Input() Cls Locate 0,0 If dat$="R" Or dat$="r" num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" EndIf EndIf Next Print "" Print "Se han monstrado todos los objetos que" Print "ofrece este vendedor." trx#=0 Print "" Print "Inserte R o r para volver al menu incial." dat$=Input() Cls Locate 0,0 If dat$="R" Or dat$="r" num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" Next num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 Print "Ya no hay mas datos que mostrar." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If opciones#=11 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear almenos 1 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If vendedores#=0 Print "No ha creado ningun vendedor." Print "Debe crear almenos 1 antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf trx#=0 Print "Indique el nombre del vendedor para ver los" Print "objetos que vende:" Print "(No inserte nada para ver los objetos que" Print " tienen disponibles todos los vendedores)." dat$=Input() If dat$="" Cls Locate 0,0 Print "No ha insertado ningun nombre/valor." Print "Debe insertar almenos uno para acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf vendedores#=vendedores#-1 num_objetos#=num_objetos#-1 For tr#=0 To vendedores# If dat$=listas_vendedores$(tr#) Cls Locate 0,0 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" For trr#=0 To num_objetos# trx#=trx#+1 opciones#=objetos_vendedores#(tr#,trr#) If opciones#>0 Print lista_objetos$(trr#) + " :" + opciones# EndIf If trx#=10 trx#=0 Print "" Print "Inserte R o r para volver al menu incial." dat$=Input() If dat$="R" Or dat$="r" num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "" Print "Objetos disponibles / precio:" EndIf Next num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 Print "Ya no hay mas datos que mostrar." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Next num_objetos#=num_objetos#+1 vendedores#=vendedores#+1 Cls Locate 0,0 Print "No se ha encontrado ningun vendedor con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If opciones#=12 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear almenos 1 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If vendedores#=0 Print "No ha creado ningun vendedor." Print "Debe crear almenos 1 antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Cls Locate 0,0 Print "Indique el objeto en cuestion:" dat$=Input() vendedores#=vendedores#-1 num_objetos#=num_objetos#-1 For tr#=0 To num_objetos# If dat$=lista_objetos$(tr#) Cls Locate 0,0 tx#=0 Print "Nombre del objeto:" Print lista_objetos$(tr#) Print "" Print "Nombre del vendedor que dispone del objeto indicado/precio del objeto: For trr#=0 To vendedores# opciones#=objetos_vendedores#(trr#,tr#) If opciones#>0 Print listas_vendedores$(trr#) + " / " + objetos_vendedores#(trr#,tr#) tx#=tx#+1 If tx#=10 Print "" Print "Inserte R o r para volver al menu inicial." dat$=Input() If dat$="R" Or dat$="r" vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Cls Locate 0,0 tx#=0 Print "Nombre del objeto:" Print lista_objetos$(tr#) Print "" Print "Nombre del vendedor que dispone del objeto indicado/precio del objeto: EndIf EndIf Next vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 Print "No hay mas vendedores que vendan el objeto indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf Next vendedores#=vendedores#+1 num_objetos#=num_objetos#+1 Cls Locate 0,0 Print "No se ha encontrado el objeto indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() If seeker_database#=1 Goto database_users EndIf Goto inicio EndIf If seeker_database#=1 Goto database_users EndIf If opciones#=13 Cls Locate 0,0 If num_objetos#=0 Print "No ha creado ningun objeto." Print "Debe crear 2 objetos antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If vendedores#=0 Print "No ha creado ningun vendedor." Print "Debe crear almenos 1 antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Print "Inserte el nombre del vendedor para" Print "añadirle objetos de cambio:" dat$=Input() num_objetos#=num_objetos#-1 vendedores#=vendedores#-1 For tr#=0 To vendedores# If dat$=listas_vendedores$(tr#) Dim objetos_cambio_vendedores_b#(0,num_objetos#,num_objetos#) For trr#=0 To num_objetos# For trrr#=0 To num_objetos# opciones#=objetos_cambio_vendedores#(tr#,trr#,trrr#) objetos_cambio_vendedores_b#(0,trr#,trrr#)=opciones# Next Next .obj_cambios_vendedores Cls Locate 0,0 Print "Que desea hacer?." Print "1) Ver la lista inicial de objetos que cambia el vendedor actual." Print "2) Ver la lista actual de objetos que cambia el vendedor actual." Print "3) Añadir/quitar un objeto de la lista del vendedor." Print "4) Volver al menu anterior descartando los cambios." Print "5) Volver al menu anterior aplicando los cambios." opciones#=Input() If opciones#=1 trnn#=0 For trr#=0 To num_objetos# For trrr#=0 To num_objetos# If trrr#=trr# Goto next_obj_de_cambio_vendedor_001yy EndIf opciones#=objetos_cambio_vendedores#(tr#,trr#,trrr#) If opciones#>0 trn#=0 trnn#=1 Cls Locate 0,0 Print "Nombre del objeto que ofrece el vendedor:" Print lista_objetos$(trr#) Print "" Print "Nombre de los objetos que requiere y su cantidad:" Print "" For trx#=0 To num_objetos# If trx#=trr# Goto next_obj_de_cambio_vendedor_001yy01 EndIf opciones#=objetos_cambio_vendedores#(tr#,trr#,trx#) If opciones#>0 Print lista_objetos$(trx#) + " : " + opciones# Print "" trn#=trn#+1 If trn#=7 Print "" Print "Inserte R o r para volver al menu anterior." trn#=0 dat$=Input() If dat$="R" Or dat$="r" Goto obj_cambios_vendedores EndIf Cls Locate 0,0 Print "Nombre del objeto que ofrece el vendedor:" Print lista_objetos$(trr#) Print "" EndIf EndIf .next_obj_de_cambio_vendedor_001yy01 Next Print "Inserte R o r para volver al menu anterior y" Print "dejar de ver los objetos que cambia este vendedor." trn#=0 dat$=Input() If dat$="R" Or dat$="r" Goto obj_cambios_vendedores EndIf Goto next_obj_de_cambio_vendedor EndIf .next_obj_de_cambio_vendedor_001yy Next .next_obj_de_cambio_vendedor Next Cls Locate 0,0 If trnn#=0 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "Este vendedor no cambia ningun objeto." EndIf If trnn#=1 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "Este vendedor no cambia mas objetos." EndIf Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto obj_cambios_vendedores EndIf If opciones#=2 trnn#=0 For trr#=0 To num_objetos# For trrr#=0 To num_objetos# If trrr#=trr# Goto next_obj_de_cambio_vendedor_001xx EndIf opciones#=objetos_cambio_vendedores_b#(0,trr#,trrr#) If opciones#>0 trn#=0 trnn#=1 Cls Locate 0,0 Print "Nombre del objeto que ofrece el vendedor:" Print lista_objetos$(trr#) Print "" Print "Nombre de los objetos que requiere y su cantidad:" Print "" For trx#=0 To num_objetos# If trx#=trr# Goto next_obj_de_cambio_vendedor_001yy02 EndIf opciones#=objetos_cambio_vendedores_b#(0,trr#,trx#) If opciones#>0 Print lista_objetos$(trx#) + " : " + opciones# Print "" trn#=trn#+1 If trn#=7 Print "" Print "Inserte R o r para volver al menu anterior." trn#=0 dat$=Input() If dat$="R" Or dat$="r" Goto obj_cambios_vendedores EndIf Cls Locate 0,0 Print "Nombre del objeto que ofrece el vendedor:" Print lista_objetos$(trr#) Print "" EndIf EndIf .next_obj_de_cambio_vendedor_001yy02 Next Print "Inserte R o r para volver al menu anterior y" Print "dejar de ver los objetos que cambia este vendedor." trn#=0 dat$=Input() If dat$="R" Or dat$="r" Goto obj_cambios_vendedores EndIf Goto next_obj_de_cambio_vendedor_001 EndIf .next_obj_de_cambio_vendedor_001xx Next .next_obj_de_cambio_vendedor_001 Next Cls Locate 0,0 If trnn#=0 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "Este vendedor no cambia ningun objeto." EndIf If trnn#=1 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "Este vendedor no cambia por mas objetos." EndIf Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto obj_cambios_vendedores EndIf If opciones#=3 Cls Locate 0,0 Print "Indique el objeto que desea añadir al vendedor actual:" dat$=Input() For trr#=0 To num_objetos# If dat$=lista_objetos$(trr#) Dim object_required_changes#(num_objetos#) For trrr#=0 To num_objetos# opciones#=objetos_cambio_vendedores_b#(0,trr#,trrr#) object_required_changes#(trrr#)=opciones# Next .opcs_cambio_obj_vendedor Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Ver la lista actual de objetos que requiere el vendedor." Print "2) Modificar la cantidad que el vendedor requiere de un objeto." Print "3) Modificar las unidades que se ofrece del objeto actual." Print "4) Eliminar este objeto de la lista de cambios del vendedor" Print " y volver al menu anterior." Print "5) Volver al menu anterior descartando los cambios." Print "6) Volver al menu anterior aplicando los cambios." opciones#=Input() If opciones#=1 Cls Locate 0,0 trn#=0 trnn#=0 Print "Lista de objetos requeridos para el cambio:" Print "(Nombre/cantidad del objeto)." Print "" For trrr#=0 To num_objetos# If trrr#=trr# Goto saltos_999999 EndIf opciones#=object_required_changes#(trrr#) If opciones#>0 trnn#=1 trn#=trn#+1 Print lista_objetos$(trrr#) + " :" + opciones# If trn#=7 trn#=0 Print "Inserte R o r para volver al menu anterior." dat$=Input() If dat$="R" Or dat$="r" Goto opcs_cambio_obj_vendedor EndIf Cls Locate 0,0 Print "Lista de objetos requeridos para el cambio:" Print "(Nombre/cantidad del objeto)." Print "" EndIf EndIf .saltos_999999 Next If trnn#=0 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "Este vendedor no cambia ningun objeto." EndIf If trnn#=1 Print "Nombre del vendedor:" Print listas_vendedores$(tr#) Print "Este vendedor no cambia por mas objetos." EndIf Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto opcs_cambio_obj_vendedor EndIf If opciones#=2 Cls Locate 0,0 Print "Inserte el nombre del objeto requerido:" dat$=Input() For trrr#=0 To num_objetos# If dat$=lista_objetos$(trrr#) If trr#=trrr# Print "No se puede acceder a esta opcion." Print "El objeto que ha indicado es el mismo que" Print "el vendedor ofrece." Print "Pulse una tecla para volver almenu anterior." WaitKey() Goto opcs_cambio_obj_vendedor EndIf Cls Locate 0,0 Print "Nombre del objeto requerido:" Print lista_objetos$(trrr#) Print "" Print "Cantidad requerida de este objeto:" Print object_required_changes#(trrr#) Print "" Print "Inserte la nueva cantidad requerida de este objeto:" Print "(Inserte 0 para que este objeto no sea necesario" Print " para realizar el cambio)." Print "(Inserte un valor menor a 0 para no aplicar ningun" Print " cambio a este objeto)." opciones#=Input() If opciones#<0 Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 17:24 pm Código: Function BD_evento_deportivo() base$=CurrentDir()+"BD_eventos_deportivos\" If FileType(base$)=0 CreateDir base$ EndIf Cls Locate 0,0 Print "Inserte el pais donde se realizan los partidos:" pais$=Input() If pais$="" Cls Locate 0,0 Print "No ha insertado un nombre valido." Print "Pulse una tecla para salir del programa." WaitKey() Goto fin_funcion EndIf base$=base$+pais$+"\" If FileType(base$)=0 CreateDir base$ EndIf Print "Inserte el nombre del deporte:" pais$=Input() If pais$="" Cls Locate 0,0 Print "No ha insertado un nombre valido." Print "Pulse una tecla para salir del programa." WaitKey() Goto fin_funcion EndIf base$=base$+pais$ Cls Locate 0,0 If FileType(base$)=0 Or FileType(base$)=2 Print "No hay datos del deporte indicado." Print "Pulse una tecla para seguir." WaitKey() Goto inicio EndIf If FileType(base$)=1 Print "Ya existe un archivo con datos del deporte indicado." Print "Pulse una tecla para cargar los datos." WaitKey() fileout=ReadFile(base$) cantidad_equipos#=ReadFloat(fileout) cantidad_partidos#=ReadFloat(fileout) If cantidad_equipos#=0 Goto carga_00 EndIf cantidad_equipos#=cantidad_equipos#-1 Dim lista_equipos$(cantidad_equipos#) For tr#=0 To cantidad_equipos# dat$=ReadString(fileout) lista_equipos$(tr#)=dat$ Next cantidad_equipos#=cantidad_equipos#+1 .carga_00 If cantidad_partidos#=0 Goto carga_01 EndIf cantidad_partidos#=cantidad_partidos#-1 Dim lista_partidos$(cantidad_partidos#,2) Dim resultados_partidos#(cantidad_partidos#,1) For tr#=0 To cantidad_partidos# For trr#=0 To 2 dat$=ReadString(fileout) lista_partidos$(tr#,trr#)=dat$ Next For trr#=0 To 1 opciones#=ReadFloat(fileout) resultados_partidos#(tr#,trr#)=opciones# Next Next cantidad_partidos#=cantidad_partidos#+1 .carga_01 CloseFile(fileout) Cls Locate 0,0 Print "Los datos se han cargado." Print "Pulse una tecla para continuar." WaitKey() Goto inicio EndIf .inicio Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Crear un equipo o modificar el nombre de uno existente." Print "2) Añadir/modificar un partido." Print "3) Ver una lista de todos los equipos." Print "4) Ver todos los partidos." Print "5) Ver los partidos de un equipo." Print "6) Modificar un partido guardado en este programa." Print "7) Ver las estadisticas generales de un equipo." ;faltan porcentajes Print "8) Ver las posibilidades de un partido." ;faltan porcentajes Print "9) Salir del programa." opciones#=Input() If opciones#=1 Cls Locate 0,0 Print "Inserte el nombre del equipo a crear o modificar su nombre:" dat$=Input() If dat$="" Print "Ha insertado un nombre no valido." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If cantidad_equipos#=0 Dim lista_equipos$(cantidad_equipos#) lista_equipos$(cantidad_equipos#)=dat$ cantidad_equipos#=cantidad_equipos#+1 Cls Locate 0,0 Print "Se ha creado el equipo con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If cantidad_equipos#>0 cantidad_equipos#=cantidad_equipos#-1 For tr#=0 To cantidad_equipos# If dat$=lista_equipos$(tr#) .modificar_nombre_equipo Cls Locate 0,0 Print "Ya existe un equipo con el nombre indicado." Print "¿Desea modificar su nombre? (S/N)." dat$=Input() If dat$="S" Or dat$="s" Cls Locate 0,0 Print "Inserte el nuevo nombre del equipo:" dat$=Input() If dat$="" Print "Ha insertado un nombre no valido." Print "Pulse una tecla para volver al menu inicial." cantidad_equipos#=cantidad_equipos#+1 WaitKey() Goto inicio EndIf For trr#=0 To cantidad_equipos# If dat$=lista_equipos$(trr#) Cls Locate 0,0 Print "El nombre indicado ya esta en uso." Print "Pulse una tecla para volver al menu inicial." cantidad_equipos#=cantidad_equipos#+1 WaitKey() Goto inicio EndIf Next lista_equipos$(tr#)=dat$ cantidad_equipos#=cantidad_equipos#+1 Cls Locate 0,0 Print "Se ha modificado el nombre del equipo." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If dat$="N" Or dat$="n" cantidad_equipos#=cantidad_equipos#+1 Cls Locate 0,0 Print "No se ha modificado el nombre del equipo." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Goto modificar_nombre_equipo EndIf Next Dim lista_equipos_b$(cantidad_equipos#) For tr#=0 To cantidad_equipos# dat_b$=lista_equipos$(tr#) lista_equipos_b$(tr#)=dat_b$ Next cantidad_equipos#=cantidad_equipos#+1 Dim lista_equipos$(cantidad_equipos#) cantidad_equipos#=cantidad_equipos#-1 For tr#=0 To cantidad_equipos# dat_b$=lista_equipos_b$(tr#) lista_equipos$(tr#)=dat_b$ Next cantidad_equipos#=cantidad_equipos#+1 lista_equipos$(cantidad_equipos#)=dat$ cantidad_equipos#=cantidad_equipos#+1 Cls Locate 0,0 Print "Se ha creado el equipo con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf EndIf If opciones#=2 Cls Locate 0,0 If cantidad_equipos#<2 Print "Ha creado menos de 2 equipo." Print "Debe crear 2 o mas para acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf cantidad_equipos#=cantidad_equipos#-1 Print "Inserte el nombre del 1er equipo:" dat$=Input() For tr#=0 To cantidad_equipos# If dat$=lista_equipos$(tr#) Print "Inserte el nombre del 2er equipo:" dat_b$=Input() For trr#=0 To cantidad_equipos# If dat_b$=lista_equipos$(trr#) cantidad_equipos#=cantidad_equipos#+1 .fecha_00 Cls Locate 0,0 Print "Inserte la fecha del partido:" daty$=Input() Cls Locate 0,0 Print "Inserte la puntuacion del equipo " + dat$ var_00#=Input() Cls Locate 0,0 Print "Inserte la puntuacion del equipo " + dat_b$ var_01#=Input() .confirm_00 Cls Locate 0,0 Print "Los datos del partido son los siguientes:" Print "Fecha del partido:" Print daty$ Print "" Print "Nombre del 1er equipo y puntuacion:" Print dat$ + " " + var_00# Print "" Print "Nombre del 2o equipo y puntuacion:" Print dat_b$ + " " + var_01# Print "¿Que desea hacer?." Print "1) Reinsertar todos los datos del partido." Print "2) Guardar los datos del partido y volver al menu inicial." Print "3) Descartar los datos del partido y volver al menu inicial." opciones#=Input() If opciones#=1 Goto fecha_00 EndIf If opciones#=2 If cantidad_partidos#=0 Dim lista_partidos$(cantidad_partidos#,2) Dim resultados_partidos#(cantidad_partidos#,1) lista_partidos$(cantidad_partidos#,0)=daty$ lista_partidos$(cantidad_partidos#,1)=dat$ lista_partidos$(cantidad_partidos#,2)=dat_b$ resultados_partidos#(cantidad_partidos#,0)=var_00# resultados_partidos#(cantidad_partidos#,1)=var_01# cantidad_partidos#=cantidad_partidos#+1 Cls Locate 0,0 Print "Los datos del partido se han guardado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If cantidad_partidos#>0 cantidad_partidos#=cantidad_partidos#-1 Dim lista_partidos_b$(cantidad_partidos#,2) Dim resultados_partidos_b#(cantidad_partidos#,1) For trn#=0 To cantidad_partidos# For tts#=0 To 2 dat_c$=lista_partidos$(trn#,tts#) lista_partidos_b$(trn#,tts#)=dat_c$ Next For tts#=0 To 1 opcs#=resultados_partidos#(trn#,tts#) resultados_partidos_b#(trn#,tts#)=opcs# Next Next cantidad_partidos#=cantidad_partidos#+1 Dim lista_partidos$(cantidad_partidos#,2) Dim resultados_partidos#(cantidad_partidos#,1) cantidad_partidos#=cantidad_partidos#-1 For trn#=0 To cantidad_partidos# For tts#=0 To 2 dat_c$=lista_partidos_b$(trn#,tts#) lista_partidos$(trn#,tts#)=dat_c$ Next For tts#=0 To 1 opcs#=resultados_partidos_b#(trn#,tts#) resultados_partidos#(trn#,tts#)=opcs# Next Next cantidad_partidos#=cantidad_partidos#+1 lista_partidos$(cantidad_partidos#,0)=daty$ lista_partidos$(cantidad_partidos#,1)=dat$ lista_partidos$(cantidad_partidos#,2)=dat_b$ resultados_partidos#(cantidad_partidos#,0)=var_00# resultados_partidos#(cantidad_partidos#,1)=var_01# cantidad_partidos#=cantidad_partidos#+1 Cls Locate 0,0 Print "Los datos del partido se han guardado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf EndIf If opciones#=3 Goto inicio EndIf Goto confirm_00 EndIf Next Cls Locate 0,0 Print "No se ha encontrado ningun equipo con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." cantidad_equipos#=cantidad_equipos#+1 WaitKey() Goto inicio EndIf Next Cls Locate 0,0 Print "No se ha encontrado ningun equipo con el nombre indicado." Print "Pulse una tecla para volver al menu inicial." cantidad_equipos#=cantidad_equipos#+1 WaitKey() Goto inicio EndIf If opciones#=3 Cls Locate 0,0 If cantidad_equipos#<1 Print "No ha creado ningun equipo." Print "Debe crear almenos 1 antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf cantidad_equipos#=cantidad_equipos#-1 trr#=0 For tr#=0 To cantidad_equipos# trr#=trr#+1 trx#=tr#+1 Print "Equipo no. " + trx# + ":" Print lista_equipos$(tr#) If trr#=10 Print "" Print "Inserte R o r para volver al menu inicial y" Print "dejar de ver equipos." dat$=Input() If dat$="R" Or dat$="r" cantidad_equipos#=cantidad_equipos#+1 Goto inicio EndIf trr#=0 Cls Locate 0,0 EndIf Next Print "" Print "No hay mas equipos." Print "Pulse una tecla para volver al menu inicial." cantidad_equipos#=cantidad_equipos#+1 WaitKey() Goto inicio EndIf If opciones#=4 Cls Locate 0,0 If cantidad_partidos#=0 Print "No se ha creado ningun partido." Print "Debe crear almenos uno antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf cantidad_partidos#=cantidad_partidos#-1 trn#=0 For tr#=0 To cantidad_partidos# trr#=tr#+1 trn#=trn#+1 Print "Numero de partido:" + trr# Print "Fecha/referencia del partido:" Print lista_partidos$(tr#,0) Print "" Print "Equipos/resultados:" Print lista_partidos$(tr#,1) + " / " + lista_partidos$(tr#,2) Print "" Print resultados_partidos#(tr#,0) + " / " + resultados_partidos#(tr#,1) Print "" If trn#=3 trn#=0 Print "Inserte R o r para volver al menu inicial y dejar de" Print "ver los resultados de cada partido." dat$=Input() If dat$="R" Or dat$="r" cantidad_partidos#=cantidad_partidos#+1 Goto inicio EndIf Cls Locate 0,0 EndIf Next cantidad_partidos#=cantidad_partidos#+1 Print "" Print "No hay mas partidos para mostrar." Print "Pulse una tecla para volver al menu inicial" WaitKey() Goto inicio EndIf If opciones#=5 Cls Locate 0,0 If cantidad_partidos#=0 Print "No se ha creado ningun partido." Print "Debe crear almenos uno antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf cantidad_partidos#=cantidad_partidos#-1 trn#=0 Print "Indique el nombre del equipo que quiere ver sus partidos:" dat$=Input() trr#=0 For tr#=0 To cantidad_partidos# If dat$=lista_partidos$(tr#,1) Or dat$=lista_partidos$(tr#,2) trr#=tr#+1 trn#=trn#+1 Print "Numero de partido:" + trr# Print "Fecha/referencia del partido:" Print lista_partidos$(tr#,0) Print "" Print "Equipos/resultados:" Print lista_partidos$(tr#,1) + " / " + lista_partidos$(tr#,2) Print "" Print resultados_partidos#(tr#,0) + " / " + resultados_partidos#(tr#,1) Print "" If trn#=5 trn#=0 Print "Inserte R o r para volver al menu inicial y dejar de" Print "ver los resultados de cada partido." dat$=Input() If dat$="R" Or dat$="r" cantidad_partidos#=cantidad_partidos#+1 Goto inicio EndIf EndIf EndIf Next cantidad_partidos#=cantidad_partidos#+1 If trr#=0 Cls Locate 0,0 Print "El equipo que ha indicado no ha jugado ningun partido." .retorno_menu_inicial Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Print "" Print "El equipo indicado no ha jugado mas partidos." Goto retorno_menu_inicial EndIf If opciones#=6 Cls Locate 0,0 If cantidad_partidos#=0 Print "No se ha creado ningun partido." Print "Debe crear almenos uno antes de acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Print "Inserte el numero del partido que se ha" Print "guardado en este programa:" Print "(Inserte un valor menor a 1 o mayor a " + cantidad_partidos# Print " para volver al menu inicial.)" opciones#=Input() If opciones#<0 Or opciones#>cantidad_partidos# Goto inicio EndIf tr#=opciones#-1 .confirmacion_mod_partido Cls Locate 0,0 Print "Datos del partido:" Print "Numero de partido:" + opciones# Print "Fecha/referencia del partido:" Print lista_partidos$(tr#,0) Print "" Print "Equipos/resultados:" Print lista_partidos$(tr#,1) + " / " + lista_partidos$(tr#,2) Print "" Print resultados_partidos#(tr#,0) + " / " + resultados_partidos#(tr#,1) Print "¿Esta seguro que desea modificar el resultado de este partido? (S/N)." dat$=Input() If dat$="S" Or dat$="s" .confirm_new_result_01 Cls Locate 0,0 Print "Inserte el resultado del equipo " + lista_partidos$(tr#,1) var_00#=Input() Print "Inserte el resultado del equipo " + lista_partidos$(tr#,2) var_01#=Input() .confirm_new_result_00 Cls Locate 0,0 Print "Numero del partido: " + opciones# Print "El resultado actual del partido " + lista_partidos$(tr#,1) + " / " + lista_partidos$(tr#,2) Print "es el siguiente: Print var_00# + " / " + var_01# Print "" Print "El nuevo resultado del partido " + lista_partidos$(tr#,1) + " / " + lista_partidos$(tr#,2) Print "es el siguiente: Print resultados_partidos#(tr#,0) + " / " + resultados_partidos#(tr#,1) Print "" Print "¿Que desea hacer?." Print "1) Modificar el nuevo resultado." Print "2) Descartar el nuevo resultado." Print "3) Guardar el nuevo resultado." options#=Input() If options#=1 Goto confirm_new_result_01 EndIf If options#=2 Goto inicio EndIf If options#=3 resultados_partidos#(tr#,0)=var_00# resultados_partidos#(tr#,1)=var_01# Cls Locate 0,0 Print "Resultado modificado." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Goto confirm_new_result_00 EndIf If dat$="N" Or dat$="n" Goto inicio EndIf Goto confirmacion_mod_partido EndIf If opciones#=7 Cls Locate 0,0 If cantidad_equipos#<2 Print "Ha creado menos de 2 equipos." Print "Debe crear 2 o mas para acceder a esta opcion." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf If cantidad_partidos#=0 Print "No hay datos sobre ninguno de los equipos insertados," Print "ya que ninguno ha jugado ningun partido." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Cls Locate 0,0 Print "Inserte el nombre del equipo para ver sus datos:" dat$=Input() cantidad_partidos#=cantidad_partidos#-1 Dim estadistica#(10) For tr#=0 To cantidad_partidos# If dat$=lista_partidos$(tr#,1) opciones#=estadistica#(0) opciones#=opciones#+1 ;partidos jugados estadistica#(0)=opciones# opciones_b#=estadistica#(1) opciones_c#=resultados_partidos#(tr#,0) opciones_b#=opciones_b#+opciones_c# estadistica#(1)=opciones_b# opciones_b#=estadistica#(3) opciones_c#=resultados_partidos#(tr#,1) opciones_b#=opciones_b#+opciones_c# estadistica#(3)=opciones_b# opciones_b#=resultados_partidos#(tr#,0) opciones_c#=resultados_partidos#(tr#,1) If opciones_b#>opciones_c# opciones_e#=5 EndIf If opciones_b#=opciones_c# opciones_e#=6 EndIf If opciones_b#<opciones_c# opciones_e#=7 EndIf opciones_d#=estadistica#(opciones_e#) opciones_d#=opciones_d#+1 estadistica#(opciones_e#)=opciones_d# EndIf If dat$=lista_partidos$(tr#,2) opciones#=estadistica#(0) opciones#=opciones#+1 ;partidos jugados estadistica#(0)=opciones# opciones_b#=estadistica#(3) opciones_c#=resultados_partidos#(tr#,0) opciones_b#=opciones_b#+opciones_c# estadistica#(3)=opciones_b# opciones_b#=estadistica#(1) opciones_c#=resultados_partidos#(tr#,1) opciones_b#=opciones_b#+opciones_c# estadistica#(1)=opciones_b# opciones_b#=resultados_partidos#(tr#,0) opciones_c#=resultados_partidos#(tr#,1) If opciones_b#>opciones_c# opciones_e#=7 EndIf If opciones_b#=opciones_c# opciones_e#=6 EndIf If opciones_b#<opciones_c# opciones_e#=5 EndIf opciones_d#=estadistica#(opciones_e#) opciones_d#=opciones_d#+1 estadistica#(opciones_e#)=opciones_d# EndIf Next ;media de goles opciones#=estadistica#(0) opciones_b#=estadistica#(1) opciones_b#=opciones_b#/opciones# estadistica#(2)=opciones_b# opciones_b#=estadistica#(3) opciones_b#=opciones_b#/opciones# estadistica#(4)=opciones_b# opciones#=estadistica#(0) For txx#=0 To 2 txr#=txx#+5 txn#=txx#+8 opciones_b#=estadistica#(txr#) opciones_b#=opciones_b#/opciones# opciones_b#=opciones_b#*100 estadistica#(txn#)=opciones_b# Next Cls Locate 0,0 Print "Nombre del equipo: " + dat$ Print "Partidos jugados: " + estadistica#(0) Print "Puntos totales marcados: " + estadistica#(1) Print "Media de puntos totales marcados: " + estadistica#(2) Print "Puntos totales que le han marcado: " + estadistica#(3) Print "Media de puntos totales que le han marcado: " + estadistica#(4) Print "Partidos ganados: " + estadistica#(5) Print "Partidos perdidos: " + estadistica#(6) Print "Partidos empatados: " + estadistica#(7) Print "Posibilidades generales de ganar: " + estadistica#(8) Print "Posibilidades generales de empatar: " + estadistica#(9) Print "Posibilidades generales de perder: " + estadistica#(10) Print "" Print "No hay mas datos que mostrar." Print "Pulse una tecla para volver al menu inicial." cantidad_partidos#=cantidad_partidos#+1 WaitKey() Goto inicio EndIf If opciones#=8 Cls Locate 0,0 opciones_d#=0 If cantidad_partidos#=0 Print "No hay datos sobre partidos, ya" Print "que ninguno ha jugado ningun partido." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Dim equipos_00$(1) Cls Locate 0,0 Print "Inserte el nombre del 1er equipo:" dat$=Input() equipos_00$(0)=dat$ cantidad_equipos#=cantidad_equipos#-1 For tr#=0 To cantidad_equipos# If dat$=lista_equipos$(tr#) cantidad_equipos#=cantidad_equipos#+1 Goto busquedas_equipos_var_nn EndIf Next cantidad_equipos#=cantidad_equipos#+1 Print "No se ha encontrado ningun equipo con el 1er nombre." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio .busquedas_equipos_var_nn Cls Locate 0,0 Print "Inserte el nombre del 2o equipo:" dat$=Input() cantidad_equipos#=cantidad_equipos#-1 equipos_00$(1)=dat$ var#=0 Cls Locate 0,0 For tr#=0 To cantidad_equipos# If dat$=lista_equipos$(tr#) cantidad_equipos#=cantidad_equipos#+1 Goto busquedas_equipos_var EndIf Next cantidad_equipos#=cantidad_equipos#+1 Print "No se ha encontrado ningun equipo con el 2o nombre." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio .busquedas_equipos_var cantidad_partidos#=cantidad_partidos#-1 Dim estadistica_b#(1,10) For trx#=0 To 1 dat$=equipos_00$(trx#) For tr#=0 To cantidad_partidos# If dat$=lista_partidos$(tr#,1) opciones#=estadistica_b#(trx#,0) opciones#=opciones#+1 ;partidos jugados estadistica_b#(trx#,0)=opciones# opciones_b#=estadistica_b#(trx#,1) opciones_c#=resultados_partidos#(tr#,0) opciones_b#=opciones_b#+opciones_c# estadistica_b#(trx#,1)=opciones_b# opciones_b#=estadistica_b#(trx#,3) opciones_c#=resultados_partidos#(tr#,1) opciones_b#=opciones_b#+opciones_c# estadistica_b#(trx#,3)=opciones_b# opciones_b#=resultados_partidos#(tr#,0) opciones_c#=resultados_partidos#(tr#,1) If opciones_b#>opciones_c# opciones_e#=5 EndIf If opciones_b#=opciones_c# opciones_e#=6 EndIf If opciones_b#<opciones_c# opciones_e#=7 EndIf opciones_d#=estadistica_b#(trx#,opciones_e#) opciones_d#=opciones_d#+1 estadistica_b#(trx#,opciones_e#)=opciones_d# EndIf If dat$=lista_partidos$(tr#,2) opciones#=estadistica_b#(trx#,0) opciones#=opciones#+1 ;partidos jugados estadistica_b#(trx#,0)=opciones# opciones_b#=estadistica_b#(trx#,3) opciones_c#=resultados_partidos#(tr#,0) opciones_b#=opciones_b#+opciones_c# estadistica_b#(trx#,3)=opciones_b# opciones_b#=estadistica_b#(trx#,1) opciones_c#=resultados_partidos#(tr#,1) opciones_b#=opciones_b#+opciones_c# estadistica_b#(trx#,1)=opciones_b# opciones_b#=resultados_partidos#(tr#,0) opciones_c#=resultados_partidos#(tr#,1) If opciones_b#>opciones_c# opciones_e#=7 EndIf If opciones_b#=opciones_c# opciones_e#=6 EndIf If opciones_b#<opciones_c# opciones_e#=5 EndIf opciones_d#=estadistica_b#(trx#,opciones_e#) opciones_d#=opciones_d#+1 estadistica_b#(trx#,opciones_e#)=opciones_d# EndIf Next ;media de goles opciones#=estadistica_b#(trx#,0) opciones_b#=estadistica_b#(trx#,1) opciones_b#=opciones_b#/opciones# estadistica_b#(trx#,2)=opciones_b# opciones_b#=estadistica_b#(trx#,3) opciones_b#=opciones_b#/opciones# estadistica_b#(trx#,4)=opciones_b# opciones#=estadistica_b#(trx#,0) For txx#=0 To 2 txr#=txx#+5 txn#=txx#+8 opciones_b#=estadistica_b#(trx#,txr#) opciones_b#=opciones_b#/opciones# opciones_b#=opciones_b#*100 estadistica_b#(trx#,txn#)=opciones_b# Next Next dat$=equipos_00$(0) dat_b$=equipos_00$(1) opciones_d#=0 checs_00#=0 Dim media_encuentros#(1,2) Dim partidos_final_casa#(1,3) Dim percents_partidos_final_casa#(1,2) Dim goles_casa#(1,3) For tr#=0 To cantidad_partidos# If dat$=lista_partidos$(tr#,1) If dat_b$=lista_partidos$(tr#,2) opciones_a#=resultados_partidos#(tr#,0) opciones_b#=resultados_partidos#(tr#,1) opps#=goles_casa#(0,0) opps#=opps#+opciones_a# goles_casa#(0,0)=opps# opps#=goles_casa#(0,1) opps#=opps#+opciones_b# goles_casa#(0,1)=opps# opciones_d#=opciones_d#+1 checs_00#=checs_00#+1 If opciones_a#>opciones_b# opciones_c#=partidos_final_casa#(0,0) opciones_c#=opciones_c#+1 partidos_final_casa#(0,0)=opciones_c# opciones_c#=media_encuentros#(0,0) opciones_c#=opciones_c#+1 media_encuentros#(0,0)=opciones_c# opciones_c#=media_encuentros#(1,2) opciones_c#=opciones_c#+1 media_encuentros#(1,2)=opciones_c# EndIf If opciones_a#=opciones_b# opciones_c#=partidos_final_casa#(0,1) opciones_c#=opciones_c#+1 partidos_final_casa#(0,1)=opciones_c# opciones_c#=media_encuentros#(0,1) opciones_c#=opciones_c#+1 media_encuentros#(0,1)=opciones_c# media_encuentros#(1,1)=opciones_c# opciones_c#=media_encuentros#(1,1) opciones_c#=opciones_c#+1 media_encuentros#(1,1)=opciones_c# EndIf If opciones_a#<opciones_b# opciones_c#=partidos_final_casa#(0,2) opciones_c#=opciones_c#+1 partidos_final_casa#(0,2)=opciones_c# opciones_c#=media_encuentros#(0,2) opciones_c#=opciones_c#+1 media_encuentros#(0,2)=opciones_c# opciones_c#=media_encuentros#(1,0) opciones_c#=opciones_c#+1 media_encuentros#(1,0)=opciones_c# EndIf EndIf EndIf If dat_b$=lista_partidos$(tr#,1) If dat$=lista_partidos$(tr#,2) opciones_a#=resultados_partidos#(tr#,1) opciones_b#=resultados_partidos#(tr#,0) opciones_d#=opciones_d#+1 opps#=goles_casa#(1,1) opps#=opps#+opciones_a# goles_casa#(1,1)=opps# opps#=goles_casa#(1,0) opps#=opps#+opciones_b# goles_casa#(1,0)=opps# If opciones_a#>opciones_b# opciones_c#=partidos_final_casa#(1,2) opciones_c#=opciones_c#+1 partidos_final_casa#(1,2)=opciones_c# opciones_c#=media_encuentros#(0,0) opciones_c#=opciones_c#+1 media_encuentros#(0,0)=opciones_c# opciones_c#=media_encuentros#(1,2) opciones_c#=opciones_c#+1 media_encuentros#(1,2)=opciones_c# EndIf If opciones_a#=opciones_b# opciones_c#=partidos_final_casa#(1,1) opciones_c#=opciones_c#+1 partidos_final_casa#(1,1)=opciones_c# opciones_c#=media_encuentros#(0,1) opciones_c#=opciones_c#+1 media_encuentros#(0,1)=opciones_c# media_encuentros#(1,1)=opciones_c# opciones_c#=media_encuentros#(1,1) opciones_c#=opciones_c#+1 media_encuentros#(1,1)=opciones_c# EndIf If opciones_a#<opciones_b# opciones_c#=partidos_final_casa#(1,0) opciones_c#=opciones_c#+1 partidos_final_casa#(1,0)=opciones_c# opciones_c#=media_encuentros#(0,2) opciones_c#=opciones_c#+1 media_encuentros#(0,2)=opciones_c# opciones_c#=media_encuentros#(1,0) opciones_c#=opciones_c#+1 media_encuentros#(1,0)=opciones_c# EndIf EndIf EndIf Next Dim percents#(1,2) jenova_002#=0 jenova_003#=0 For tr#=0 To 1 For trr#=0 To 2 jenova_001#=partidos_final_casa#(tr#,trr#) jenova_002#=jenova_002#+jenova_001# jenova_003#=jenova_003#+jenova_001# partidos_final_casa#(tr#,3)=jenova_002# Next jenova_002#=0 Next For tr#=0 To 1 For trr#=0 To 2 opciones_a#=media_encuentros#(tr#,trr#) opciones_b#=opciones_a#/opciones_d# opciones_b#=opciones_b#*100 percents#(tr#,trr#)=opciones_b# opciones_a#=partidos_final_casa#(tr#,trr#) jenova_001#=partidos_final_casa#(tr#,3) opciones_b#=opciones_a#/jenova_001# opciones_b#=opciones_b#*100 percents_partidos_final_casa#(tr#,trr#)=opciones_b# Next Next checs_01#=opciones_d#-checs_00# Dim goles_finales#(1,1) For te#=0 To 1 If te#=0 opciones_e#=checs_00# EndIf If te#=1 opciones_e#=checs_01# EndIf opciones_a#=goles_casa#(te#,0) opciones_a#=opciones_a#/opciones_e# goles_casa#(te#,2)=opciones_a# opciones_a#=goles_casa#(te#,1) opciones_a#=opciones_a#/opciones_e# goles_casa#(te#,3)=opciones_a# Next opciones_a#=goles_casa#(0,0) opciones_b#=goles_casa#(1,1) opciones_c#=opciones_a#+opciones_b# goles_finales#(0,0)=opciones_c# opciones_a#=goles_casa#(1,0) opciones_b#=goles_casa#(0,1) opciones_c#=opciones_a#+opciones_b# goles_finales#(1,0)=opciones_c# opciones_c#=goles_finales#(0,0) opciones_c#=opciones_c#/opciones_d# goles_finales#(0,1)=opciones_c# opciones_c#=goles_finales#(1,0) opciones_c#=opciones_c#/opciones_d# goles_finales#(1,1)=opciones_c# Dim ratios_partido_home#(1,2) For tr#=0 To 1 For trr#=0 To 2 opcional#=percents_partidos_final_casa#(tr#,trr#) opcional_b#=100/opcional# ratios_partido_home#(tr#,trr#)=opcional_b# If opcional#=0 ratios_partido_home#(tr#,trr#)=0 EndIf Next Next Print "Datos gral. de los partidos:" Print "" Print "Nombres de los equipos:" Print dat$ + " / " + dat_b$ Print "" Print "Ratio beneficios apuesta del partido" Print "en casa: " + ratios_partido_home#(0,0) + " : " + ratios_partido_home#(0,1) + " : " + ratios_partido_home#(0,2) + " / " + ratios_partido_home#(0,0) + " : " + ratios_partido_home#(0,1) + " : " + ratios_partido_home#(0,2) Print "Total de partidos jugados: " + jenova_003# Print "Partidos que han jugado en casa: " + partidos_final_casa#(0,3) + " / " + partidos_final_casa#(1,3) Print "Partidos ganados: " + media_encuentros#(0,0) + " (" + percents#(0,0) + "%) / " + media_encuentros#(1,0) + " (" + percents#(1,0) + "%)" Print "Partidos ganados en casa: " + partidos_final_casa#(0,0) + " (" + percents_partidos_final_casa#(0,0) + "%) / " + partidos_final_casa#(1,0) + " (" + percents_partidos_final_casa#(1,0) + "%)" Print "Partidos empatados: " + media_encuentros#(0,1) + " (" + percents#(0,1) + "%) / " + media_encuentros#(1,1) + " (" + percents#(1,1) + "%)" Print "Partidos empatados en casa: " + partidos_final_casa#(0,1) + " (" + percents_partidos_final_casa#(0,1) + "%) / " + partidos_final_casa#(1,1) + " (" + percents_partidos_final_casa#(1,1) + "%)" Print "Partidos perdidos: " + media_encuentros#(0,2) + " (" + percents#(0,2) + "%) / " + media_encuentros#(1,2) + " (" + percents#(1,2) + "%)" Print "Partidos perdidos en casa: " + partidos_final_casa#(0,2) + " (" + percents_partidos_final_casa#(0,2) + "%) / " + partidos_final_casa#(1,2) + " (" + percents_partidos_final_casa#(1,2) + "%)" Print "Goles marcados en casa: " + goles_casa#(0,0) + " / " + goles_casa#(1,0) Print "Goles que le han marcados en casa: " + goles_casa#(0,1) + " / " + goles_casa#(1,1) Print "Resultado medio en casa: " + goles_casa#(0,2) + " - " + goles_casa#(0,3) + " / " + goles_casa#(1,2) + " - " + goles_casa#(1,3) Print "Total goles marcados: " + goles_finales#(0,0) + " - " + goles_finales#(1,0) Print "Media gral. goles marcados: " + goles_finales#(0,1) + " - " + goles_finales#(1,1) Print "" Print "Datos gral. de los equipos:" Print "Nombre del equipo: " + dat$ + " / " + dat_b$ Print "Partidos jugados: " + estadistica_b#(0,0) + " / " + estadistica_b#(1,0) Print "Puntos totales marcados: " + estadistica_b#(0,1) + " / " + estadistica_b#(1,1) Print "Media de puntos totales marcados: " + estadistica_b#(0,2) + " / " + estadistica_b#(1,2) Print "Puntos totales que le han marcado: " + estadistica_b#(0,3) + " / " + estadistica_b#(1,3) Print "Media de puntos totales que le han marcado: " + estadistica_b#(0,4) + " / " + estadistica_b#(1,4) Print "Partidos ganados: " + estadistica_b#(0,5) + " / " + estadistica_b#(1,5) Print "Partidos empatados: " + estadistica_b#(0,6) + " / " + estadistica_b#(1,6) Print "Partidos perdidos: " + estadistica_b#(0,7) + " / " + estadistica_b#(1,7) Print "Posibilidades generales de ganar: " + estadistica_b#(0,8) + " / " +estadistica_b#(1,8) Print "Posibilidades generales de empatar: " + estadistica_b#(0,9) + " / " +estadistica_b#(1,9) Print "Posibilidades generales de perder: " + estadistica_b#(0,10) + " / " + estadistica_b#(1,10) Print "" Print "No hay mas datos que mostrar." Print "Pulse una tecla para volver al menu inicial." cantidad_partidos#=cantidad_partidos#+1 WaitKey() Goto inicio EndIf If opciones#=9 .salida_programa Cls Locate 0,0 Print "¿Desea guardar los datos de los equipos y sus partidos? (S/N)." dat$=Input() If dat$="n" Or dat$="N" Goto fin_funcion EndIf If dat$="s" Or dat$="S" If FileType(base$)=1 DeleteFile base$ EndIf fileout=WriteFile(base$) WriteFloat(fileout,cantidad_equipos#) WriteFloat(fileout,cantidad_partidos#) If cantidad_equipos#=0 Goto carga_10 EndIf cantidad_equipos#=cantidad_equipos#-1 For tr#=0 To cantidad_equipos# dat$=lista_equipos$(tr#) WriteString(fileout,dat$) Next .carga_10 If cantidad_partidos#=0 Goto carga_11 EndIf cantidad_partidos#=cantidad_partidos#-1 For tr#=0 To cantidad_partidos# For trr#=0 To 2 dat$=lista_partidos$(tr#,trr#) WriteString(fileout,dat$) Next For trr#=0 To 1 opciones#=resultados_partidos#(tr#,trr#) WriteFloat(fileout,opciones#) Next Next .carga_11 Cls Locate 0,0 Print "Los datos se han actualizado." Print "Pulse una tecla para salir del programa." WaitKey() Goto fin_funcion EndIf Goto salida_programa EndIf Goto inicio .fin_funcion End Function Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 17:26 pm Código: Function creartextos() dir_docs$=CurrentDir()+"documentos_gral\" If FileType(dir_docs$)=0 Or FileType(dir_docs$)=1 CreateDir dir_docs$ EndIf Cls Locate 0,0 Print "Inserte el nombre del documento a crear o modificar:" dirs_docs$=Input() Cls Locate 0,0 doc_name$=dir_docs$+dirs_docs$ If FileType(doc_name$)=0 Or FileType(doc_name$)=2 Cls Locate 0,0 Print "No existe ningun documento con el nombre indicado." Print "Pulse una tecla para crearlo y acceder al menu inicial." WaitKey() Goto inicio EndIf If FileType(doc_name$)=1 Print "Ya existe un documento con el nombre indicado." Print "Pulse una tecla para cargarlo." WaitKey() fileout=ReadFile(doc_name$) lineas#=ReadFloat(fileout) If lineas#=0 Goto fin_save_docx_00 EndIf lineas#=lineas#-1 Dim texto_creado$(lineas#) For tr#=0 To lineas# dat$=ReadString(fileout) texto_creado$(tr#)=dat$ Next lineas#=lineas#+1 .fin_save_docx_00 CloseFile(fileout) Cls Locate 0,0 Print "Se ha cargado el documento." Print "Pulse una tecla para seguir y modificarlo." WaitKey() EndIf .inicio Cls Locate 0,0 Print "¿Que desea hacer?." Print "1) Crear una linea de texto." Print "2) Modificar una linea de texto." Print "3) Eliminar una linea de texto." Print "4) Visualizar todo el texto." Print "5) Volver al menu inicial descartando el texto." Print "6) Guardar el texto y/o convertirlo." opciones#=Input() If opciones#=1 Cls Locate 0,0 Print "Inserte el texto en la nueva linea;" Print "(Pulse ENTER para acabar)." dat$=Input() If dat$="" Cls Locate 0,0 Print "No ha insertado nada en la nueva linea." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf .save_0001 Cls Locate 0,0 Print "Texto de la linea;" Print dat$ Print "" Print "¿Desea guardar la nueva linea? (S/N)" dat_b$=Input() If dat_b$="N" Or dat_b$="n" Goto inicio EndIf Cls If dat_b$="S" Or dat_b$="s" If lineas#=0 Dim texto_creado$(lineas#) texto_creado$(lineas#)=dat$ lineas#=lineas#+1 Goto lineas_creadas_xx0 EndIf If lineas#>0 lineas#=lineas#-1 Dim texto_creado_b$(lineas#) For trxx#=0 To lineas# dat_c$=texto_creado$(trxx#) texto_creado_b$(trxx#)=dat_c$ Next lineas#=lineas#+1 Dim texto_creado$(lineas#) lineas#=lineas#-1 For trxx#=0 To lineas# dat_c$=texto_creado_b$(trxx#) texto_creado$(trxx#)=dat_c$ Next lineas#=lineas#+1 texto_creado$(lineas#)=dat$ lineas#=lineas#+1 .lineas_creadas_xx0 Cls Locate 0,0 Print "La nueva linea se ha añadido al texto." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf EndIf Goto save_0001 EndIf If opciones#=2 If lineas#=0 Cls Locate 0,0 Print "Aun no se ha creado ninguna linea." Goto creacion_textos_09 EndIf Cls Locate 0,0 Print "Inserte el numero de linea a modificar;" lineas_cc#=Input() lineas_cc#=lineas_cc#-1 If lineas_cc#<0 Or lineas_cc#>lineas# .creacion_textos_090 Cls Locate 0,0 Print "Ha insertado un numero de linea no valido." Print "(El numero indicado es menor a 0 o bien es" Print " superior a la cantidad de lineas existentes)" .creacion_textos_09 Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Cls Locate 0,0 Print "Texto actual de la linea;" Print "" Print texto_creado$(lineas_cc#) Print "" Print "Inserte el nuevo texto de la linea actual;" dat$=Input() If dat$="" Cls Locate 0,0 Print "No ha insertado nada en la nueva linea." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf .creacion_textos_001 Cls Locate 0,0 Print "Texto actual de la linea;" Print "" Print texto_creado$(lineas_cc#) Print "" Print "Nuevo texto de la linea;" Print "" Print dat$ Print "¿Realmente desea reemplazar el texto de la actual" Print " linea por el nuevo? (S/N)" dat_rr$=Input() If dat_rr$="S" Or dat_rr$="s" texto_creado$(lineas_cc#)=dat$ Goto inicio EndIf If dat_rr$="N" Or dat_rr$="n" Goto inicio EndIf Goto creacion_textos_001 EndIf If opciones#=3 Cls Locate 0,0 If lineas#=0 Cls Locate 0,0 Print "Aun no se ha creado ninguna linea." Goto creacion_textos_09 EndIf Print "Inserte el numero de linea a eliminar;" lineas_cc#=Input() If lineas#=0 Cls Locate 0,0 Print "Aun no se ha creado ninguna linea." Goto creacion_textos_09 EndIf If lineas_cc#<0 Or lineas_cc#>lineas# Goto creacion_textos_090 EndIf lineas_cc#=lineas_cc#-1 .creacion_textos_010 Cls Locate 0,0 Print "Numero de linea; " + lineas# Print "Texto actual de la linea;" Print "" Print texto_creado$(lineas_cc#) Print "" Print "¿Realmente desea eliminar esta linea?." dat$=Input() If dat$="N" Or dat$="n" Goto inicio EndIf If dat$="S" Or dat$="s" lineas_sc#=lineas#-2 Dim texto_creado_b$(lineas_sc#) lineas#=lineas#-1 lineas_sb#=0 For trss#=0 To lineas# If trss#=lineas_cc# lineas_sb#=1 Goto salto_copias_linea_text EndIf lineas_sc#=trss#-lineas_sb# dat$="" dat$=texto_creado$(trss#) texto_creado_b$(lineas_sc#)=dat$ .salto_copias_linea_text Next lineas#=lineas#-1 Dim texto_creado$(lineas#) For trss#=0 To lineas# dat$="" dat$=texto_creado_b$(trss#) texto_creado$(trss#)=dat$ Next lineas#=lineas#+1 Cls Locate 0,0 Print "Linea eliminada." Print "Pulse una tecla para volver al menu inicial." WaitKey() Goto inicio EndIf Goto creacion_textos_010 EndIf If opciones#=4 Cls Locate 0,0 If lineas#=0 Cls Locate 0,0 Print "Aun no se ha creado ninguna linea." Goto creacion_textos_09 EndIf lineas#=lineas#-1 trzzz#=0 For tr#=0 To lineas# trzzz#=trzzz#+1 Print texto_creado$(tr#) If trzzz#=15 trzzz#=0 Print "" Print "Pulse R o r para volver al menu anterior y" Print "dejar de visualizar el texto actual." datty$=Input() If datty$="R" Or datty$="r" lineas#=lineas#+1 Goto inicio EndIf Cls Locate 0,0 EndIf Next lineas#=lineas#+1 Print "" Print "" Print "Ya no hay mas datos de este texto para visualizar." Print "Pulse una tecla para volver al menu anterior." WaitKey() Goto inicio EndIf If opciones#=5 .vuelta_menu_inicial Cls Locate 0,0 Print "¿Esta seguro que desea salir del programa descartando todos los datos? (S/N)" datty$=Input() If datty$="N" Or datty$="n" Goto inicio EndIf If datty$="S" Or datty$="s" Goto fin_funcion EndIf Goto vuelta_menu_inicial EndIf If opciones#=6 .vuelta_menu_inicial_0n Cls Locate 0,0 Print "¿Esta seguro que desea salir del programa guardano todos los datos? (S/N)" datty$=Input() If datty$="N" Or datty$="n" Goto inicio EndIf If datty$="S" Or datty$="s" fileout=WriteFile(doc_name$) WriteFloat(fileout,lineas#) If lineas#=0 Goto fin_save_docx EndIf lineas#=lineas#-1 For tr#=0 To lineas# dat$=texto_creado$(tr#) WriteString(fileout,dat$) Next lineas#=lineas#+1 .fin_save_docx CloseFile(fileout) Cls Locate 0,0 Print "El documento se ha guardado." Print "Pulse una tecla para salir del programa." WaitKey() Goto fin_funcion EndIf Goto vuelta_menu_inicial_0n EndIf Goto inicio .fin_funcion End Function PD: Pido disculas por el multiple post, pero si añado los otros programas (y como veis en el primer codigo), ya estoy excediendo el limite de 100.000 caracteres por mensaje, pero ya que estamos con el tema experiencia..... Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: warcry. en 10 Agosto 2017, 18:23 pm No me entendiste.
Proyecto = idea + objetivo no puedes plantear hacer un "proyecto" sin idea, ni objetivo. ejemplo, ¿que pinto yo participando en un proyecto sobre html5 y motores de búsqueda, con el objetivo de crear un nuevo buscador como google o bing, si no tengo ni pajolera idea del tema? ¿o que pintas tu en ese proyecto si tu campo es andruino? es absurdo plantear este tema sin un "proyecto" Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 19:08 pm no puedes plantear hacer un "proyecto" sin idea, ni objetivo. Como primera y principal idea del proyecto, es montar un pequeño robot/vehiculo con una Raspberry pi, utilizando el primer código en Python que he mostrado. Obviamente, el minimo en cuanto a piezas (tipo motor(es) y servo(s)) estan disponibles, o, por su defecto, facilmente accesibles. Entonces, en base a lo que ya esta disponible, el objetivo seria implementar nuevas funciones a medida que se vaya avanzado. Por ejemplo; dado que el codigo que he preparado solo permite dar instrucciones mediante la conexion realizada via ssh, seria necesario añadir nuevas funciones para mejorar el control del vehiculo, como un pequeño servidor en python que, cuando reciba X valor, realice una de las funciones del codigo. Resumiendo; dada una base que he preparado, la idea es aportar/añadir nuevas funciones con los conocimientos de cada uno, y, a medida que se vaya avanzando y sea posible, incluir funciones relacionadas en determinados campos. Por supuesto, ademas de inidicar que usuarios han participado y que ha hecho cada uno (entre otras cosas), todo avance en el proyecto sera transparente; vamos, que se ira publicando como avanza todo. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: #!drvy en 10 Agosto 2017, 19:41 pm El problema de hacer algo fisico, es que todos deberíamos tener los mismos componentes y recuerda que a muchos nos divide el Atlántico xD
Saludos Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 20:40 pm El problema de hacer algo fisico, es que todos deberíamos tener los mismos componentes y recuerda que a muchos nos divide el Atlántico xD Saludos Entiendo, y, bueno, es logico, y aunque lo he intentado, almenos espero que el codigo en Python pueda ser de ayuda para quien este interesado en el tema. :P Aun asi, quisiera preguntar una ultima cosa; ¿hasta que punto crees que seria viable realizar un proyecto relacionado con software?. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Randomize en 10 Agosto 2017, 20:58 pm ¿hasta que punto crees que seria viable realizar un proyecto relacionado con software?. Me vas a reportar al moderador... Oye, mira, te leo mucho y tal, y es muy "grande" el que quieras hacer algo con la gente del foro, pero llevo más años que tú y fuí staff y todo... Aquí la gente llega deja su bomba y es para que se la resuelvan; luego están los que quieren demostrar algo o demostrarse algo (o vete a saber tú qué, que el que mea solo y no en compañía o es un marica o es un espía), y luego estoy yo, caso aparte, baneable y practicamente trollalizado de por vida. "Ésto no es una clase para estar de lunes a viernes", la gente pasa el rato y meterse en un proyecto "requiere tiempo", no copy & pastes. Y que después de todo lo visto preguntes lo de la cita es para darte de gorrazos. Un saludo. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 10 Agosto 2017, 21:06 pm Me vas a reportar al moderador... Bueno, creo que ahora no es el caso. ;) Oye, mira, te leo mucho y tal, y es muy "grande" el que quieras hacer algo con la gente del foro, pero llevo más años que tú y fuí staff y todo... Aquí la gente llega deja su bomba y es para que se la resuelvan; luego están los que quieren demostrar algo o demostrarse algo (o vete a saber tú qué, que el que mea solo y no en compañía o es un marica o es un espía), y luego estoy yo, caso aparte, baneable y practicamente trollalizado de por vida. "Ésto no es una clase para estar de lunes a viernes", la gente pasa el rato y meterse en un proyecto "requiere tiempo", no copy & pastes. Y que después de todo lo visto preguntes lo de la cita es para darte de gorrazos. Un saludo. Siendo sinceros, coincido contigo en esto que comentas, y, bueno, entiendo la situacion y me disculpo por las molestias causadas, y, por otra parte, por la respectiva perdida de tiempo con este tema, dada la situacion. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: ivancea96 en 10 Agosto 2017, 21:45 pm A ver, siendo sinceros, todo lo que se ha hecho en este foro en conjunto ha funcionado. Por ejemplo, el grupo de Skype... Ok, ese olvidadlo. o el grupo de Telegr... Ni hablar del tema. ¡Ah! ¡El grupo de IRC! Ah no, está muerto. Pero... ¿Y recordáis cuando el grupo de WhatsApp? Mm, sí, mejor no recordarlo.
:D! Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: warcry. en 11 Agosto 2017, 00:03 am Aquí la gente llega deja su bomba y es para que se la resuelvan; luego están los que quieren demostrar algo o demostrarse algo (o vete a saber tú qué, que el que mea solo y no en compañía o es un marica o es un espía), y luego estoy yo, caso aparte, baneable y practicamente trollalizado de por vida. Creo que es la primera vez que cito un comentario tuyo, pero tengo curiosidad en saber donde me encasillas a mi Citar "Ésto no es una clase para estar de lunes a viernes", la gente pasa el rato y meterse en un proyecto "requiere tiempo", no copy & pastes. yo tengo otra opinión distinta a la tuya en esto, yo he participado en proyectos, colaborando con lo que he podido aportar, y a su vez ha habido compañeros que me han echado una mano en mis proyectos. Si bien es cierto que yo soy un elemento residual de otro tiempo y otro foro, también es cierto que el trabajo en comunidad (salvando los egos personales) es un trabajo estimulante, gratificante y divertido. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Randomize en 11 Agosto 2017, 10:51 am Citar Creo que es la primera vez que cito un comentario tuyo, pero tengo curiosidad en saber donde me encasillas a mi No encasillo a nadie. Es mucho tiempo en el foro, con mis idas y venidas, y si lo comento así "es por que lo leí así en su día y he visto que llevaban razón". "Trabajos en grupo", personalmente... Acaban siendo un lío donde sólo unos pocos quieren los méritos. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: warcry. en 11 Agosto 2017, 12:55 pm En cierto modo tienes razón, pero yo si suelo encasillar a la gente.
esta el típico que usa el foro como servicio técnico que exige y no da ni las gracias. el típico lammer (en este foro hay hasta grupos organizados) el típico usuario que busca reconocimiento social, bien porque quiere demostrar sus habilidades y que le hagan la ola, o peor, tío carente de habilidades que infla de temas y post el foro buscando que le hagan del staff. y gente que busca en el foro entretenimiento. Ademas de lo anterior, en este foro he descubierto dos tipos nuevos de personajes: el que busca negocio, y lo único que hace es postear diciendo que eso cuesta dinero y si quiere que le ayude que se ponga en contacto con el por mp y el predicador, figura un tanto inusual, me quede flipado cuando un user a lo único que se dedicaba es a ofrecer apoyo moral y espiritual con el objetivo de atraer a su secta podría poner un ejemplo con nicks de cada uno de ellos pero seguro que me borran el post porque el decir la verdad "hiere la sensibilidad" de los usuarios en cuestión y actúo con acritud innecesaria. en mi caso particular, es un mero entretenimiento, que me proporciona conocimientos extra sobre mi hobby que es este mundillo de la tecnología. si te sirve de consuelo, en cierto modo para muchos usuarios de este foro soy un troll, y a mi también me banean. bueno dicho esto, y a colación de tus idas y venidas del foro, mis conclusiones al respecto son, que salvo honrosas excepciones, este tipo de foros solían ser frecuentados y mantenidos activos por los que pertenecen a la generación X, que son los que han mostrado una voracidad inusitada sobre las nuevas tecnologías, los que somos de esa generación, por edad y obviamente por los quehaceres cotidianos, hace imposible que se pueda estar tan activo, y sacar tiempo para divertirse cacharreando. También unido a que se ha puesto de moda el tema de la "ciberseguridad" y hay gente que gana autentica pasta por configurar un router de telefónica en una pyme, y claro para que vas a publicar una vulnerabilidad, o un software en una comunidad, si lo puedes vender por una pasta. lo que no entiendo, es que si estas pasao de vueltas y no disfrutas, no lo dejas y punto, que algún día te apetece entrar a ver que se cuece, pues entras y miras, que te apetece echar una mano en una cuestión pues la echas. Citar "Trabajos en grupo", personalmente... Acaban siendo un lío donde sólo unos pocos quieren los méritos. como ya expuse, si no entras en los egos personales, un trabajo en grupo puede ser bueno. Lo que hay que ser es inteligente en este tipo de proyecto, en esto como en otras tantas cosas, hay que saber cuando dejarlo, y depende exclusivamente del objetivo de proyecto. conseguido el objetivo ---- se acabo no se puede conseguir el objetivo ----- se acabo mutación del objetivo ------ se acabo mi caso personal, ayude en lo que puede en algunas distribuciones de wifislax, wifislax muto de livecd de auditorias, a distribución linux instalable donde se daba mas prioridad al reproductor de video que a otras cosas, pues te retiras y punto, pero ayudando en ese proyecto adquirí la mayoría de los conocimientos de linux que poseo en la actualidad, luego esa colaboración mereció la pena. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Machacador en 11 Agosto 2017, 13:33 pm En cierto modo tienes razón, pero yo si suelo encasillar a la gente. esta el típico que usa el foro como servicio técnico que exige y no da ni las gracias. el típico lammer (en este foro hay hasta grupos organizados) el típico usuario que busca reconocimiento social, bien porque quiere demostrar sus habilidades y que le hagan la ola, o peor, tío carente de habilidades que infla de temas y post el foro buscando que le hagan del staff. y gente que busca en el foro entretenimiento. Ademas de lo anterior, en este foro he descubierto dos tipos nuevos de personajes: el que busca negocio, y lo único que hace es postear diciendo que eso cuesta dinero y si quiere que le ayude que se ponga en contacto con el por mp y el predicador, figura un tanto inusual, me quede flipado cuando un user a lo único que se dedicaba es a ofrecer apoyo moral y espiritual con el objetivo de atraer a su secta podría poner un ejemplo con nicks de cada uno de ellos pero seguro que me borran el post porque el decir la verdad "hiere la sensibilidad" de los usuarios en cuestión y actúo con acritud innecesaria. en mi caso particular, es un mero entretenimiento, que me proporciona conocimientos extra sobre mi hobby que es este mundillo de la tecnología. si te sirve de consuelo, en cierto modo para muchos usuarios de este foro soy un troll, y a mi también me banean. bueno dicho esto, y a colación de tus idas y venidas del foro, mis conclusiones al respecto son, que salvo honrosas excepciones, este tipo de foros solían ser frecuentados y mantenidos activos por los que pertenecen a la generación X, que son los que han mostrado una voracidad inusitada sobre las nuevas tecnologías, los que somos de esa generación, por edad y obviamente por los quehaceres cotidianos, hace imposible que se pueda estar tan activo, y sacar tiempo para divertirse cacharreando. También unido a que se ha puesto de moda el tema de la "ciberseguridad" y hay gente que gana autentica pasta por configurar un router de telefónica en una pyme, y claro para que vas a publicar una vulnerabilidad, o un software en una comunidad, si lo puedes vender por una pasta. lo que no entiendo, es que si estas pasao de vueltas y no disfrutas, no lo dejas y punto, que algún día te apetece entrar a ver que se cuece, pues entras y miras, que te apetece echar una mano en una cuestión pues la echas. como ya expuse, si no entras en los egos personales, un trabajo en grupo puede ser bueno. Lo que hay que ser es inteligente en este tipo de proyecto, en esto como en otras tantas cosas, hay que saber cuando dejarlo, y depende exclusivamente del objetivo de proyecto. conseguido el objetivo ---- se acabo no se puede conseguir el objetivo ----- se acabo mutación del objetivo ------ se acabo mi caso personal, ayude en lo que puede en algunas distribuciones de wifislax, wifislax muto de livecd de auditorias, a distribución linux instalable donde se daba mas prioridad al reproductor de video que a otras cosas, pues te retiras y punto, pero ayudando en ese proyecto adquirí la mayoría de los conocimientos de linux que poseo en la actualidad, luego esa colaboración mereció la pena. Bueno si... en este foro hay de todo y se permite casi de todo... yo mismo soy una especie de lamer casi nulo en informática pero que todos los días estoy acá leyendo y de vez en cuando hasta posteando cosas de las que se o ignoro... Hoy estuve en ese foro del que tu dices que: "Si bien es cierto que yo soy un elemento residual de otro tiempo y otro foro" y vi que tiene mas o menos un post diario... por que sera eso???... yo también medre allá por unos años en los que hice casi 2000 post cuando era muy visitado dicho foro y se hacían decenas y hasta cientos de post diarios... hasta un equipo de chicos bellos había... pero esos eran otros tiempos y mi cuenta sigue allá dormida esperando mi próximo post como la otros miles de usuarios que ya ni entran... me sigo preguntando, por que ahora ese foro parece un cadáver insepulto???... Sobre el proyecto que propone el amigo Crazykenny, pues me anoto para prepararles un café o enrolarles un yode si acaso se da el asunto... :rolleyes: :o :rolleyes: Saludos. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Randomize en 11 Agosto 2017, 18:17 pm Aquí nadie le ha dado las gracias como se merecen a crazykenny, nuestro crazykenny, por tomarse la molestia de tratar de unirnos...
Otra cosa es que el muy pillo quiera hacer negocio con la aplicación... ¡¡¡ Qué te he visto !!! ::) Brooooma, que te veo reporándome al moderador y como sea Elektro, me lo va a explicar, y éste man ya me ha dado muchas explicaciones... Y se las he dado, que ahora me habla, antes le era un exiliado... Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: crazykenny en 11 Agosto 2017, 18:25 pm Aquí nadie le ha dado las gracias como se merecen a crazykenny, nuestro crazykenny, por tomarse la molestia de tratar de unirnos... Otra cosa es que el muy pillo quiera hacer negocio con la aplicación... ¡¡¡ Qué te he visto !!! ::) Brooooma, que te veo reporándome al moderador y como sea Elektro, me lo va a explicar, y éste man ya me ha dado muchas explicaciones... Y se las he dado, que ahora me habla, antes le era un exiliado... Bueno, Randomize, a fin de cuentas lo que he comentado quisiera dejarlo en un intento para hacer sin animo de lucro algo entre varios usuarios del foro, y, bueno, ya que habéis explicado de forma justificada el porque no es viable, quisiera dejar zanjado el tema por mi parte, si no es molestia, claro esta. Por otra parte, quisiera comentar una ultima cosa, aunque sea mas a nivel personal que otra cosa; si que es cierto que, por mi parte, hay algunas cosas que comentas que se podrian expresar de un modo mas formal: no obstante, y, aunque hay veces que lo comentado puede ser algo excesivo, el decir las cosas directamente y como son, pues es algo que, en cierto modo, respeto (pero no necesariamente comparto). Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Randomize en 11 Agosto 2017, 20:13 pm Bueno, Randomize, a fin de cuentas lo que he comentado quisiera dejarlo en un intento para hacer sin animo de lucro algo entre varios usuarios del foro, y, bueno, ya que habéis explicado de forma justificada el porque no es viable, quisiera dejar zanjado el tema por mi parte, si no es molestia, claro esta. Por otra parte, quisiera comentar una ultima cosa, aunque sea mas a nivel personal que otra cosa; si que es cierto que, por mi parte, hay algunas cosas que comentas que se podrian expresar de un modo mas formal: no obstante, y, aunque hay veces que lo comentado puede ser algo excesivo, el decir las cosas directamente y como son, pues es algo que, en cierto modo, respeto (pero no necesariamente comparto). crazykenny, yo, ¿hablando directamente aquí en el foro? No es algo recomendable, son chorradicas y tal, ehhh ¿y a que alguna que otra tiene pase? Dí la verdad, confiesa, que sabes que llevo razón ;) :xD :xD :xD ¡¡¡¡ Mira, una nave !!!! (= :-X =) :silbar: Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: warcry. en 11 Agosto 2017, 21:13 pm Hoy estuve en ese foro del que tu dices que: "Si bien es cierto que yo soy un elemento residual de otro tiempo y otro foro" y vi que tiene mas o menos un post diario... por que sera eso???... yo también medre allá por unos años en los que hice casi 2000 post cuando era muy visitado dicho foro y se hacían decenas y hasta cientos de post diarios... hasta un equipo de chicos bellos había... pero esos eran otros tiempos y mi cuenta sigue allá dormida esperando mi próximo post como la otros miles de usuarios que ya ni entran... me sigo preguntando, por que ahora ese foro parece un cadáver insepulto???... Es un error común de la gente el extrapolar el numero de post a la cantidad de conocimientos que tienes. En el caso concreto que nos ocupa, en su dia solicite la baja del foro porque no estaba a gusto. http://foro.seguridadwireless.net/aplicaciones-y-diccionarios-linux/wap-(warcry_access_point)-crea-tu-ap-automaticamente-con-tu-interface-wifi/ (http://foro.seguridadwireless.net/aplicaciones-y-diccionarios-linux/wap-(warcry_access_point)-crea-tu-ap-automaticamente-con-tu-interface-wifi/) como ves ahí salgo como visitante (en cierto modo es que soy de otro planeta :xD :xD :xD) un amigo de ese foro me pidió una colaboración y me registre otra vez con otro nick, y ya que estaba por el foro de nuevo postee en algunos temas y volví a entrar en conflicto con los globales, como en los viejos tiempos, por lo que acabo de explicar anteriormente, parece que un tío con 10 post no tiene conocimientos y parece que tiene que demostrar lo que sabe antes de seguir posteando, por lo que modifique el nick y retome el de warcry lo que simplifico enormemente las cosas en todos los sentidos (ya saben que soy un caso perdido :xD :xD :xD) En este foro me paso lo mismo, traía mi reputación de troll conmigo (muchas horas me ha costado conseguirla ;) ) y parecía que eso era un problema, y lo hable con un global, le dije que si había que cambiarse el nick, pues me lo cambiaba, no necesito que la gente me asocie a un nick en concreto, voy a ser exactamente la misma persona, por lo que con un nick o con otro me iban a fundir los plomos igual, ya que soy como soy. la explicación de porque ese foro y otros como ese están muertos ya la puse Citar bueno dicho esto, y a colación de tus idas y venidas del foro, mis conclusiones al respecto son, que salvo honrosas excepciones, este tipo de foros solían ser frecuentados y mantenidos activos por los que pertenecen a la generación X, que son los que han mostrado una voracidad inusitada sobre las nuevas tecnologías, los que somos de esa generación, por edad y obviamente por los quehaceres cotidianos, hace imposible que se pueda estar tan activo, y sacar tiempo para divertirse cacharreando. También unido a que se ha puesto de moda el tema de la "ciberseguridad" y hay gente que gana autentica pasta por configurar un router de telefónica en una pyme, y claro para que vas a publicar una vulnerabilidad, o un software en una comunidad, si lo puedes vender por una pasta. yo soy de la generación de oh mummy de amstrad o el navy moves de spectrum, ahora estamos dominados por la generación ni-ni (ni estudia ni trabaja) parasitos sociales que viven a costa de los padres que les han dado todo aquello que ellos no tuvieron. con ese panorama ¿que quieres? PD: Este foro no es que este mucho mejor de actividad (util) date una vuelta por el exitazo de abril negro :silbar: para nostalgicos :rolleyes: 8uvSEbK1Hl4 Zv1jB3ct9AY Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Randomize en 12 Agosto 2017, 02:01 am Citar como ves ahí salgo como visitante (en cierto modo es que soy de otro planeta :xD :xD :xD) Ey man, eso nos pasa a todos, así que no te pongas a fardar que yo recuerdo a uno que decía no se qué de "Ganímedes"... :¬¬ Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: Serapis en 16 Septiembre 2017, 02:02 am Veo que quedó desierta la propuesta... lástima.
Aunque el tiempo libre escasea, siempre se puede hacer algo. Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?. Publicado por: dark_night en 22 Septiembre 2017, 06:39 am me gustaria ayudar en el proyecto si es posible podria? pongo a disposicion todos los conocimientos :P esta claro xd
|