Foro de elhacker.net

Foros Generales => Sugerencias y dudas sobre el Foro => Mensaje iniciado por: crazykenny en 9 Agosto 2017, 22:15



Título: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
Publicado por: crazykenny en 9 Agosto 2017, 22:15
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
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
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
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
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
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
¡Hagamos un robot para destruir a nuestros enemigos! proyecto que sea util, que cubra alguna necesidad... moneda a moneda se hacen las deudas riquezas... hagamos una lluvia de ideas y veamos que puede salir


Título: Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
Publicado por: warcry. en 10 Agosto 2017, 16:12
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
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
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
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
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
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
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

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
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
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
¿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

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

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
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
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
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
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
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
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
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
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: NEBIRE en 16 Septiembre 2017, 02:02
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
me gustaria ayudar en el proyecto si es posible podria? pongo a disposicion todos los conocimientos  :P esta claro xd