Mensajes

No se, quizas la cancion de la intro de rockman exe axess en japones, y las de digimon de la primera temporada a la cuarta, y la intro de power rangers y power rangers zeo; si, se que suena raro para alguien de 26 años como yo, pero bueno, cosas de la vida.
Saludos.

Yo jugaba al tenis pero debido a que el club era una ***** (literalmente, y con perdon) y daban un entrenamiento que daba asco para sacar dinero, pues lo deje.
Tambien fui alguna vez al gimnasio, pero me aburria.
Saludos.

Muchas gracias por tus consejos, Aprendiz-Oscuro, siempre ayudandome con mis dudas.
Bueno, si no puedo bajar la memoria, pues que se le va a hacer, pero bueno.
Saludos.

Gracias por responder, aprendiz-oscuro.
La verdad, es que en donde me has comentado, en la opcion de memoria dedicada de video, me aparece lo siguiente:
Memoria de graficos disponible: 4095 MB.
Memoria dedicada de video: 2048 MB.
Memoria de video del sistema: 0 MB.
Memoria compartida del sistema: 2047 MB
Entonces, el caso es que, en mi tarjeta de video, tiene 2048 MB (o 2GB) de memoria; entonces, el caso es que quisiera eliminar la memoria compartida del sistema. ahora bien; ¿Porque quiero eliminarla?. Pues el caso es que, como comente en otro tema (en programacion general, creo, y de eso creo que fue como mucho hace uno o dos dias), cuando un programa que he hecho me empieza a consumir sobre 1 o 2 GB de RAM, pues este se cuelga (bueno, no me acuerdo muy bien lo que comente, creo que dije que fallaba a partir de que hubiesen sobre los 70000 usuarios en unas pruebas que hice); entonces, el caso es que, viendo la memoria consumida a nivel general, de los 5 GB de RAM que tengo, como mucho estan usandose 3,25 con el programa que hice generando 70000 usuarios, y me preocupa que, por el hecho de tener una cantidad determinada de RAM que se dedica a la tarjeta grafica, el sistema operativo (windows 7) cierre el programa por consumir demasiada RAM, y por este motivo he preguntado acerca de reducir la memoria compartida del sistema y dejarla a 0, para ver si asi puedo hacer que el programa consuma mas de 2 GB de memoria.
A ver, reconozco que todo esto es algo rebuscado y estoy metiendo dos o tres temas en esta sección relacionados (windows y programacion general, llegando al tema de reducir la memoria dedicada de la tarjeta de video); ya se que la memoria dedicada no la utilizo apenas, pero me preocupa que por el hecho de estar "dedicada" a la tarjeta de video, me impida que pueda utilizar toda la RAM que no utilizo, y, bueno, por eso he preguntado en esta sección del foro; quizas lo deberia haber preguntado antes cuando pregunte sobre el programa en programacion general, o bien haber preguntado esto en la sección de windows, por lo que me disculpo; no obstante, he leido por google que para reducir la memoria dedicada de video (o almenos en tarjetas graficas integradas), he de realizarlo desde la BIOS; no obstante, no he sabido como hacerlo, ya que cuando accedia a la opcion "advanced" de mi placa P5B Deluxe, no he encontrado nada relacionado con tarjeta(s) grafica(s), motivo por el cual he posteado el tema, y me disculpo por los problemas causados.
Por utlimo, agradezco la ayuda que me estais dando, Aprendiz-Oscuro.
Saludos.

Yo utilizo un progmama para crear juegos llamado "Blitz 3D"; si, he dicho "programa para crear juegos", pero funciona a base de meter lineas de codigo, por lo que seria un compilador basado en Basic u algo asi, o eso creo yo.
Saludos.

Hola; el caso es que abro este tema porque tengo una duda.
Tengo una tarjeta grafica Geforce 430 GT PCI-e con 2GB de RAM, y mi duda viene a ser el hecho de saber si es posible ver cuanta RAM esta utilizando y si es posible reducirla a 0.
Por otra parte, he estado buscando, y hay que hacerlo desde la BIOS, o almenos en tarjetas graficas integradas; no obstante, en mi placa base (una asus P5B deluxe) no he encontrado dicha opcion, y, bueno, por esto preguntaba, si no es molestia, claro esta.
Gracias por vuestra atencion, y me disculpo por las molestias causadas.
Saludos.

Gracias por el consejo y por tu ayuda, armizh.
Saludos.

Bueno, case, el codigo es esl siguiente:

Código [Seleccionar] Expandir


Graphics 1024,768,32,2
Cls
Locate 0,0
Print "Inserte la contraseña de administrador:"
Print "(No inserte nada para salir)"
pass$=Input()
Cls
Locate 0,0
If pass$=""
End
EndIf
users#=-1
general$=CurrentDir()+"general\"
pedidos$=CurrentDir()+"pedidos\"
gasto_usuarios$=CurrentDir()+"gastos\"
dat_users$=CurrentDir()+"datos_usuarios\"
If FileType(dat_users$)=0
CreateDir dat_users$
EndIf
info_users$=dat_users$+"archivo de usuarios.dat"
.actualizar_users
If FileType(pedidos$)=0
CreateDir pedidos$
EndIf
If FileType(info_users$)=1
fileout=ReadFloat(info_users$)
param_users#=ReadFloat(fielout)
If param_users#>0
Dim lista_param_users$(param_users#)
param_users#=param_users#-1
For tr#=0 To param_users#
dat$=ReadString(feout)
lista_param_users$(tr#)=dat$
Next
EndIf
users#=ReadFloat(fileout)
If users#>0
users#=users#-1
Dim gastado_users#(users#)
param_users#=param_users#-1
Dim listado_users$(users#,1)
Dim compras_users#(users#,productos#,2)
Dim parametros_users$(users#,param_users#)
For tr#=0 To users#
dat$=listado_users$(tr#,0)
dat_b$=info_users$+dat$+".dat"
If FileType(dat_b$)=1
fileout=ReadFile(dat_b$)
For trr#=0 To param_users#
dat_c$=ReadString(fileout)
parametros_users$(tr#,trr#)=dat_c$
Next
CloseFile(fileout)
EndIf
dat_b$=dat_users$+dat$+".dat"
If FileType(dat_b$)=1
fileout=ReadFile(dat_b$)
opciones#=ReadFloat(fileout)
gastado_users#(tr#)=opciones#
CloseFile(fileout)
EndIf
dat_b$=pedidos$+dat$+".dat"
If FileType(dat_b$)=1
fileout=ReadFile(dat_b$)
For trx#=0 To productos#
For t=0 To 2
opciones#=ReadFloat(fileout)
compras_users#(tr#,trx#,t)=opciones#
Next
Next
CloseFile(fileout)
EndIf
Next
EndIf
EndIf
.actualizar_productos
If FileType(general$)=0
Cls
Locate 0,0
Print "Se ha producido un error; no existe una carpeta con"
Print "los datos basicos de las categorias, subcategorias y"
Print "productos."
Print "Pulse una tecla para salir del programa."
WaitKey()
End
EndIf
general_b$=general$+"categorias_y_productos.dat"
dispo$=general$+"disponibilidad.dat"
If FileType(general_b$)=0
Cls
Locate 0,0
Print "Se ha producido un error; no existe un archivo con"
Print "los datos basicos de las categorias, subcategorias y"
Print "productos."
Print "Pulse una tecla para salir del programa."
WaitKey()
End
EndIf
If FileType(dispo$)=0
Cls
Locate 0,0
Print "Se ha producido un error; no existe un archivo con"
Print "los datos de disponibilidad de los productos."
Print "Pulse una tecla para salir del programa."
WaitKey()
End
EndIf
general_b$=general$+"categorias_y_productos.dat"
dispo$=general$+"disponibilidad.dat"
If FileType(general_b$)=1
fileout=ReadFile(general_b$)
dat$=ReadString(fileout)
dat$=ReadString(fileout)
categorias#=ReadFloat(fileout)
If categorias#>0
categorias#=categorias#-1
Dim lista_categorias$(categorias#)
For tr#=0 To categorias#
dat$=ReadString(fileout)
lista_categorias$(tr#)=dat$
Next
EndIf
subcategorias#=ReadFloat(fileout)
If subcategorias#>0
subcategorias#=subcategorias#-1
Dim lista_subcategorias$(subcategorias#,1)
For tr#=0 To subcategorias#
For t=0 To 1
dat$=ReadString(fileout)
lista_subcategorias$(tr#,t)=dat$
Next
Next
EndIf
productos#=ReadFloat(fileout)
If productos#>0
productos#=productos#-1
Dim lista_productos$(productos#,4)
For tr#=0 To productos#
For t=0 To 4
dat$=ReadString(fileout)
lista_productos$(tr#,t)=dat$
Next
Next
productos#=productos#+1
EndIf
beneficios#=ReadFloat(fileout)
Dim ben_adic$(beneficios#)
If productos#>0
productos#=productos#-1
fileout=ReadFile(dispo$)
Dim dispo_prod#(productos#)
For tr#=0 To productos#
opciones#=ReadFloat(fileout)
dispo_prod#(tr#)=opciones#
Next
CloseFile(fileout)
EndIf
EndIf
If x=1
x=0
Print "Datos de productos de tienda actualizados."
Goto recibir_signal
EndIf
svrgame=CreateTCPServer(8080)
If svrgame=0
Print "No ha sido posible crear el servidor de tienda."
Print "Pulse una tecla para salir del programa."
WaitKey()
End
EndIf
x=0
While Not KeyHit(1)
.recibir_signal
strstream=AcceptTCPStream(svrgame)
If strstream=0
Goto recibir_signal
EndIf
ip$=TCPStreamIP(strstream)
daty$=ReadString(strstream)
y#=0
.porty
y#=y#+1
opciones#=Left$(daty$,y#)
If opciones#=opciones_b#
puerto_envio#=opciones#
puerto_envio_b$=Left$(daty$,y#)
Goto comprovacional
EndIf
opciones_b#=Left$(daty$,y#)
Goto porty
.comprovacional
If Instr( daty$,"actualizardatos")>0
If daty$=puerto_envio_b$ + "0 " + "admin " + pass$ + " actualizardatos"
x=1
Print "Actualizando datos."
Goto actualizar_productos
EndIf
EndIf
If Instr( daty$,"actualizarusers")>0
If daty$=puerto_envio_b$ + "0 " + "admin " + pass$ + " actualizarusers"
x=1
Goto actualizar_users
EndIf
EndIf
If Instr( daty$,"precio")>0
For trr#=0 To productos#
datz$=puerto_envio_b$ + "0 " + trr# + " " + "precio"
If daty$=datz$
opciones#=lista_productos$(trr#,4)
tcp2=OpenTCPStream(ip$,puerto_envio#)
WriteFloat tcp2,opciones#
CloseTCPStream tcp2
EndIf
Next
EndIf
If Instr( daty$,"cantidad")>0
For trr#=0 To productos#
datz$=puerto_envio_b$ + "0 " + trr# + " " + "cantidad"
If daty$=datz$
xas#=0
xaso#=0
For ou#=0 To users#
For tc=0 To 1
xaso#=compras_users#(ou#,trr#,tc)
xas#=xas#+xaso#
Next
Next
dispos#=dispo_prod#(trr#)-xas#
tcp2=OpenTCPStream(ip$,puerto_envio#)
If tcp2<>0
Goto envio_00
EndIf
Goto recibir_signal
.envio_00
WriteFloat tcp2,dispos#
CloseTCPStream tcp2
EndIf
Next
EndIf
If users#=-1
Goto recibir_signal
EndIf
If Instr( daty$,"pedir")>0
For tr#=0 To users#
For trr#=0 To productos#
opciones_b#=dispo_prod#(trr#)
For trrr#=0 To opciones_b#
If daty$=puerto_envio_b$ + "0 " + listado_users$(tr#,0) + " " + listado_users$(tr#,1) + " " + trr# + " " + "pedir " + trrr#
xas#=0
xaso#=0
For ou#=0 To users#
For tc=0 To 1
xaso#=compras_users#(ou#,trr#,tc)
xas#=xas#+xaso#
Next
Next
dispos#=dispo_prod#(trr#)-xas#
If trrr#>dispos#
tcp2=OpenTCPStream(ip$,puerto_envio#)
If tcp2<>0
Goto envio_01
EndIf
Goto recibir_signal
.envio_01
WriteString tcp2,"fallo"
CloseTCPStream tcp2
Goto recibir_signal
EndIf
opy#=compras_users#(tr#,trr#,0)
compras_users#(tr#,trr#,0)=trrr#+opy#
tcp2=OpenTCPStream(ip$,puerto_envio#)
WriteString tcp2,"completo"
CloseTCPStream tcp2
dat$=listado_users$(tr#,0)
dat_b$=pedidos$+dat$+".dat"
fileout=WriteFile(dat_b$)
For trx#=0 To productos#
For t=0 To 2
opciones#=compras_users#(tr#,trx#,t)
WriteFloat(fileout,opciones#)
Next
Next
CloseFile(fileout)
EndIf
Next
Next
Next
EndIf
If Instr( daty$,"eliminar")>0
For tr#=0 To users#
For trr#=0 To productos#
opciones_b#=dispo_prod#(trr#)
opciones_b#=compras_users#(tr#,trr#,0)
For trx#=0 To opciones_b#
If daty$=puerto_envio_b$ + "0 " + listado_users$(tr#,0) + " " + listado_users$(tr#,1) + " " + trr# + " " + "eliminar " + trx#
opciones#=opciones_b#-trx#
tcp2=OpenTCPStream(ip$,puerto_envio#)
If tcp2<>0
Goto envio_02
EndIf
Goto recibir_signal
.envio_02
WriteString tcp2,"hecho"
CloseTCPStream tcp2
EndIf
Next
Next
Next
EndIf
Wend

Por otra parte, armizh, en lo de la base de datos de cualquier tipo, ¿como se hace?; me disculpo por mi ignorancia y demas, pero lo que se me ocurrio es, en vez de guardarlo todo en una matriz, es guardar todos los datos en archivos pequeños y luego acceder a ellos con los datos que me envian a traves de la red y demas; ¿es correcto?.
Saludos.

Hola; el caso es que, mientras estaba haciendo unas pruebas en un servidor tipo tienda "a lo cutre" en el que la gente puede hacerme pedidos de cartas de magic, yugioh, y world of warcraft añadiendole una serie de hipoteticos usuarios, pues he visto que el programa "falla" cuando le pongo la cantidad de 60000 usuarios (a decir verdad, un poco menos); entonces, como supuse que el consumo de memoria RAM no llegaba al 100%, o, mejor dicho, a menos del 100%, en el sentido de, por ejemplo, le ponia 40000 usuarios, y el consumo de RAM estaba sobre el 40% (con 1,1 GB de uso de RAM); en 50000 usuarios, sobre el 55% (con 1,3 GB de uso de RAM), y en 60000, el programa peta; cabe destacar que tengo 5GB de RAM, y aun me queda sobre los 2 GB de RAM, y me extraña que el programa, antes de llenar una determinada cantidad X de RAM se cuelgue, y la pregunta viene a ser a que se debe el hecho de que el programa que he hecho se cuelgue al añadirle tal cantidad de usuarios, si no es molestia, claro esta.
Gracias por vuestra atencion, y me disculpo por las molestias causadas.
Saludos.

¿Os imaginais que, mientras estais conduciendo por la autopista, "alguien" os ponga canciones de Justin Bieber y/o Spice Girls a toda pastilla por culpa de un fallo de seguridad en un coche de ultima generacion que hos ha costado una pasta? ; me disculpo por si esto ha resultado molesto, pero es lo primero que se me ha ocurrido al leer la noticia. Bueno, chorradas a parte; viendo el panorama, esta es una razon extra para no querer comprarme un coche y no estar interesado en conducir, pese a no encontrarme con fallos de seguridad en coches "mas antiguos"; por otra parte, supongo que aun tardaran algun tiempo en empezar a realizar cosas raras en coches con fallos de seguridad, en el sentido de encontrar vulnerabilidades y/o brechas de seguridad que puedan causar ciertos problemas, y aun asi, no creo que alguien sea lo suficientemente cab*** (con perdon por la expresion) como para hacer frenar el coche en seco cuando vas tranquilamente conduciendo tranquilamente por la autopista a 100 KM/H o mas para hacerte, no se, una gracieta, y/o mostrar que hay tal fallo y/o brecha de seguridad en tu coche de varios miles de euros, o almenos eso creo.
Saludos.