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


 


Tema destacado: Análisis del vídeo del hackeo al Sindicato de los Mossos de Esquadra


+  Foro de elhacker.net
|-+  Foros Generales
| |-+  Sugerencias y dudas sobre el Foro (Moderador: el-brujo)
| | |-+  ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: 1 [2] 3 Ir Abajo Respuesta Imprimir
Autor Tema: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.  (Leído 2,866 veces)
crazykenny


Desconectado Desconectado

Mensajes: 2.819



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #10 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


« Última modificación: 10 Agosto 2017, 17:27 por crazykenny » En línea

Normalmente las cosas estan a la vista, pero generalmente, y, gracias a los valores sociales, la gente se niega a verlas y aceptarlas aun obteniendo la oportunidad.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
http://informaticayotrostemas.blogspot.com.es/2014/01/mi-preocupacion-por-ninos-y-jovenes.html?
crazykenny


Desconectado Desconectado

Mensajes: 2.819



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #11 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


« Última modificación: 10 Agosto 2017, 17:41 por crazykenny » En línea

Normalmente las cosas estan a la vista, pero generalmente, y, gracias a los valores sociales, la gente se niega a verlas y aceptarlas aun obteniendo la oportunidad.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
http://informaticayotrostemas.blogspot.com.es/2014/01/mi-preocupacion-por-ninos-y-jovenes.html?
crazykenny


Desconectado Desconectado

Mensajes: 2.819



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #12 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.....
« Última modificación: 10 Agosto 2017, 17:28 por crazykenny » En línea

Normalmente las cosas estan a la vista, pero generalmente, y, gracias a los valores sociales, la gente se niega a verlas y aceptarlas aun obteniendo la oportunidad.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
http://informaticayotrostemas.blogspot.com.es/2014/01/mi-preocupacion-por-ninos-y-jovenes.html?
warcry.


Desconectado Desconectado

Mensajes: 488


The Fallen Lords


Ver Perfil
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #13 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"
En línea

Evolucionamos porque pensamos y tanto la paciencia como la perseverancia son las fuentes de las que se nutre el conocimiento ya que el saber no ocupa lugar pero ocupa tiempo

- - -      Página Web de Warcry      - - -
crazykenny


Desconectado Desconectado

Mensajes: 2.819



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #14 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.
« Última modificación: 10 Agosto 2017, 19:17 por crazykenny » En línea

Normalmente las cosas estan a la vista, pero generalmente, y, gracias a los valores sociales, la gente se niega a verlas y aceptarlas aun obteniendo la oportunidad.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
http://informaticayotrostemas.blogspot.com.es/2014/01/mi-preocupacion-por-ninos-y-jovenes.html?
#!drvy
CoAdmin
***
Desconectado Desconectado

Mensajes: 4.597



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #15 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
En línea

crazykenny


Desconectado Desconectado

Mensajes: 2.819



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #16 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?.
« Última modificación: 10 Agosto 2017, 20:43 por crazykenny » En línea

Normalmente las cosas estan a la vista, pero generalmente, y, gracias a los valores sociales, la gente se niega a verlas y aceptarlas aun obteniendo la oportunidad.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
http://informaticayotrostemas.blogspot.com.es/2014/01/mi-preocupacion-por-ninos-y-jovenes.html?
Randomize


Desconectado Desconectado

Mensajes: 19.999


Beautiful Day


Ver Perfil
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #17 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.



En línea

                               


                               
crazykenny


Desconectado Desconectado

Mensajes: 2.819



Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #18 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.
En línea

Normalmente las cosas estan a la vista, pero generalmente, y, gracias a los valores sociales, la gente se niega a verlas y aceptarlas aun obteniendo la oportunidad.
Se responsable, consecuente y da ejemplo.
http://informaticayotrostemas.blogspot.com.es/2013/12/situacion-de-la-educacion-actual-en.html
http://informaticayotrostemas.blogspot.com.es/2014/01/mi-preocupacion-por-ninos-y-jovenes.html?
ivancea96


Desconectado Desconectado

Mensajes: 3.119


ASMático


Ver Perfil WWW
Re: ¿Seria posibleRealizar proyecto entre varios miembros del foro?.
« Respuesta #19 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!
En línea

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

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
:: Proyecto de Duelo Entre Foro :::: « 1 2 »
Battle Arts
sanosiris 15 5,322 Último mensaje 8 Mayo 2006, 00:53
por sanosiris
Facebook reclutará donantes de sangre entre sus miembros.
Noticias
Zinc 0 439 Último mensaje 11 Marzo 2008, 21:45
por Zinc
Arrestados dos miembros de un foro cibercriminal
Noticias
wolfbcn 4 1,132 Último mensaje 2 Julio 2010, 03:46
por Jaixon Jax
Activistas anónimos 'sacan del armario' en un blog a varios miembros del ...
Noticias
wolfbcn 1 1,458 Último mensaje 24 Septiembre 2011, 04:20
por Randomize
[No oficial] Encuentro entre miembros de EHN. « 1 2 3 4 »
Foro Libre
#!drvy 36 5,907 Último mensaje 1 Septiembre 2013, 02:00
por Eleкtro
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines