Con permiso, quisiera añadir una noticia "curiosa" que ha salido hace unas pocas horas:

FUENTE: https://www.elnacional.cat/es/internacional/trump-informa-su-equipo-musk-tiene-dias-contados-como-asesor-casa-blanca_1392186_102.html

NOTICIA: Trump informa a su equipo de que Musk tiene los días contados como empleado de la Casa Blanca
El presidente de los EE.UU. ha revelado que el magnate tecnológico se retirará de su rol actual en las próximas semanas

La etapa de Elon Musk como socio de la administración republicana de los Estados Unidos podría haber llegado a su fin cuando todavía no hace tres meses de la investidura de Donald Trump como presidente de los Estados Unidos. Según Politico, el magnate ha comunicado a su círculo más íntimo que el propietario de empresas como Tesla o SpaceX se retirará en las próximas semanas de su rol actual como líder del Departamento de Eficiencia Gubernamental (DOGE, por sus siglas en inglés). El medio estadounidense ha revelado que el mandatario está satisfecho con el trabajo de Musk y el recorte masivo del gasto público, pero ambas partes han decidido separar caminos para que el empresario sudafricano se centre en sus negocios y quede relegado a un papel de apoyo al gobierno.

La inminente retirada de Musk se produce en un momento en el que varios miembros de la administración Trump habían expresado su frustración de forma interna. Además del choque entre el magnate tecnológico y el secretario de Estado de los Estados Unidos, Marco Rubio, voces del gabinete republicano han manifestado su preocupación por la dinámica actual en la Casa Blanca, sobre todo por la impredictibilidad y la improvisación del DOGE en casos como el de USAID y el departamento de Educación.

De entrada, la estancia de Musk en la Casa Blanca debería durar seis meses, tal y como se indicó en los primeros días del segundo mandato de Trump. La decisión del presidente representa un cambio radical en la relación con el propietario de Tesla, ya que hace apenas un mes fuentes gubernamentales vaticinaban que Musk había venido "aquí para quedarse" y que el mandatario encontraría la forma de superar el límite de 130 días. En este nuevo contexto, el sudafricano pasará a tener un rol informal como asesor, sin capacidad de decisión en ningún escenario. Ahora bien, un alto funcionario de la administración republicana ha declarado a Politico que cualquier persona que piense que Musk desaparecerá por completo de la órbita de Trump se está "engañando a sí mismo".

Según los expertos, es probable que la decisión de Trump corresponda a su intención de no sobrepasar el límite de los seis meses, ya que a partir de ese momento Musk dejaría de ser un "empleado especial del gobierno", un estatus que le exime temporalmente de algunas normas éticas y del conflicto de intereses. Politico ha explicado que los defensores del magnate tecnológico dentro de la administración republicana ven con buenos ojos la transición porque no hay muchos más sitios de donde se puede recortar el gasto. Los detractores, en cambio, argumentan que Musk supone una amenaza a la estabilidad política dada la imprevisibilidad de sus acciones.

Asimismo, el resultado en las elecciones de Wisconsin para elegir a un representante para el Tribunal Supremo han mermado la credibilidad de Musk dentro del gabinete. La victoria de Susan Crawford, candidata impulsada por los demócratas, ha supuesto un golpe a la moral del líder del DOGE, quien apoyó al perdedor, Brad Schimel, apoyado por los republicanos. La disputa entre ambos jueces se convirtió en la elección judicial más cara de la historia de Estados Unidos, con una inversión de 107 millones de dólares, pero el candidato republicano superaba económicamente a su rival gracias a la campaña financiera del magnate tecnológico, que también utilizó sus estrategias mediáticas a través de las redes sociales. Musk y sus aliados aportaron más de 20 millones de dólares que no sirvieron para que Schimel se llevara la victoria en los comicios, y muchos miembros del gobierno de Trump no se lo han tomado nada bien.

"Esta 'primicia' es una basura"
Poco después de publicarse la noticia de Politico, la Casa Blanca ha reaccionado al tachar de "basura" la información del medio estadounidense. La administración republicana ha matizado que Musk abandonará el cargo una vez "completa su increíble trabajo" en el DOGE. "Esta 'primicia' es una basura. Elon Musk y el presidente Trump han declarado públicamente que Elon dejará el servicio público como empleado especial del gobierno cuando complete su increíble trabajo en DOGE", ha aseverado la portavoz de la Casa Blanca, Karoline Leavitt, en su perfil oficial en la red social X.

Como nota personal, tan solo diré una cosa: La salida de Musk del gobierno de los EE.UU. no supondra ningun cambio a largo plazo.

Con permiso, y, dado que la filtración mencionada en la noticia se ha producido a traves de una aplicación informáticas (Signal segun se menciona) y que, ademas, se han producido "errores humanos" relacionados con la seguridad (informática o no), quisiera pedir a los moderadores que, en caso de que sea apropiado, se mueva esta noticia a la sección de noticias dado que no es posible que los usuarios corrientes no pueden publicar directamente en la sección de noticias:

FUENTE;: https://www.elnacional.cat/es/internacional/gobierno-trump-comparte-planes-guerra-por-error-en-chat-en-signal-donde-habia-periodista_1386482_102.html

NOTICIA: El gobierno de Trump comparte planes de guerra por error en un chat en Signal donde había un periodista
El secretario de Defensa, Pete Hegseth, compartió información sobre un ataque previsto contra la milicia hutí en el Yemen

El secretario de Defensa, Pete Hegseth, reveló planos de guerra en un grupo de chat cifrado dónde también había un periodista dos horas antes de que las tropas norteamericanas lanzaran ataques contra la milicia hutí en el Yemen, ha informado la Casa Blanca este lunes, confirmando una información publicada por la revista The Atlantic. El editor jefe de The Atlantic, Jeffrey Goldberg, ha escrito en un artículo publicado el lunes que fue añadido por error al grupo de chat de la aplicación de mensajería comercial Signal por Michael Waltz, el consejero de seguridad nacional, informa The New York Times.

Se trataría, según destaca el rotativo, de una violación extraordinaria de la inteligencia de seguridad nacional de los Estados Unidos. No solo se incluyó inadvertidamente a un periodista en el grupo, sino que la conversación también tuvo lugar fuera de los canales gubernamentales seguros que normalmente se utilizarían para la planificación de guerra clasificada y altamente sensible. Goldberg explicó que pudo seguir la conversación entre altos cargos del equipo de seguridad nacional del presidente Trump durante los dos días previos a los ataques al Yemen. En el grupo también había el vicepresidente J. D. Vance y el secretario de Estado, Marco Rubio, según ha escrito Goldberg.

A las 11:44 de la mañana del 15 de marzo, Hegseth publicó los “detalles operativos de los próximos ataques al Yemen, incluyendo información sobre los objetivos, las armas que utilizaría los Estados Unidos y la secuencia de los ataques”, ha explicado Goldberg. “Si un adversario de los Estados Unidos hubiera leído esta información, podría haberla utilizado para poner en peligro al personal militar y de inteligencia norteamericano, especialmente en el Oriente Medio”. En una entrevista, Goldberg ha dicho que “hasta el mensaje de Hegseth el sábado, se trataba principalmente de mensajes sobre procedimientos y políticas. Pero después se convirtió en planes de guerra, y, sinceramente, eso me puso la carne de gallina”.

Goldberg no ha publicado los detalles de los planes de guerra en su artículo. Según su versión, Hegseth afirmó que “las primeras detonaciones en el Yemen se notarían en dos horas, a la 1:45 p.m., hora de la costa este. Así que esperé en mi coche en el aparcamiento de un supermercado”. “Si este chat de Signal era real, razoné, los objetivos hutíes serían bombardeados pronto”, ha añadido. Varios funcionarios del Departamento de Defensa han expresado su sorpresa que Hegseth hubiera compartido los planes de guerra norteamericanos en un grupo de chat comercial. Han considerado que tener este tipo de conversación en un grupo de chat de Signal podría constituir una violación de la Ley de Espionaje, una ley que regula la manipulación de información delicada.

Revelar planes operativos de guerra antes de los ataques previstos también podría poner en peligro directo a las tropas norteamericanas, han dicho los funcionarios. El senador Jack Reed, de Rhode Island, el demócrata de más alto rango al Comité de Servicios Armados, ha declarado que esta “historia representa uno de los fracasos más graves de seguridad operativa y sentido común que he visto nunca”. “Las operaciones militares se tienen que gestionar con la máxima discreción y precisión, utilizando líneas de comunicación seguras aprobadas, porque hay vidas norteamericanas en juego”, ha agregado.

Hola, vereis, quisiera abrir este tema para preguntar una cosa que probé ayer en el foro y que, aunque no supone ningun prejuicio para el servidor del foro y mucho menos para otros usuarios, me ha sorprendido que sea posible hacerla.

Entonces, y, yendo al grano: el caso es que accedí a un tema que respondí para enviarme a mi mismo un mensaje privado utilizando los iconos de las opciones que aparecen debajo de la imagen de mi perfil (ya sabéis: "mi perfil", "mi web", "e-mail" y "mensaje privado"), y, para mi sorpresa, veo que es posible autoenviarme mensajes privados y verlos tanto en mi bandeja de entrada y de salida.

Y, bueno, todo esto no quisiera que se interpretara como una critica negativa o como una especie de "queja/protesta" sobre el foro y admins/mods, ya que no lo es ni así lo pretendo.

Tan solo lo comento porque no esperaba que esto se pudiera hacer y que no estuviera bloqueada como la opcion de reportar mensajes propios.

Muchas gracias por vuestra atencion, y, bueno, saludos.

Hola, vereis, soy consciente que, por suerte, en este foro no se hace propaganda de elon musk y sus "proyectos".

No obstante, y, con permiso, quisiera hacer una excepcion a lo que acabo de comentar (no porque me caiga bien Elon, ya que detesto a gente como el) compartiendo una noticia al azar sobre su IA y el enlace donde la ha publicado para los interesados en IA en general.

Y, bueno, sin ir mas lejos, comparto primero donde se ha publicado su IA y luego la noticia:

Sobre el repositorio de la IA en Github: https://github.com/xai-org/grok-1

Sobre la noticia "random":

Enlace: https://cincodias.elpais.com/smartlife/lifestyle/2024-03-18/elon-musk-cumple-su-palabra-grok-la-ia-de-x-ya-es-de-codigo-abierto.html

Noticia: Elon Musk cumple su palabra: Grok, la IA de X, ya es de código abierto


Cualquiera puede acceder a este chatbot


La semana pasada Elon Musk anunció que su chatbot Grok pasaría a ser de código abierto. De esta manera, xAI decide liberar esta alternativa para ChatGPT para que cualquier desarrollador utilice esta inteligencia artificial.

Como verás en este enlace, la empresa de Elon Musk ha liberado Grok subiendo todo su código en GitHub. En la nota de prensa publicada en el lanzamiento, anuncian que Grok-1 es un modelo de mezcla de expertos de 314 mil millones de parámetros entrenado desde cero por xAI y que ahora está a al alcance de todos.

Cabe destacar que es de código abierto, pero bajo la licencia Apache 2.0, que permite su uso comercial, pero no los datos utilizados para entrenar a Grok o las conexiones que permiten tener datos en tiempo real. Pero aun así, es una excelente noticia.


Recordemos que hasta ahora, la única forma de utilizar el chatbot Grok era mediante una suscripción a X. Pero ahora, Elon Musk ha decidido liberar su alternativa para que cualquiera la pueda utilizar de forma gratuita. Como hemos dicho, Grok no podrá responder a temas actuales al no estar conectado a los servidores de X, y no han especificado hasta que fecha está entrenado, pero podría ser hasta octubre de 2023.

Y ahora, cualquiera con conocimientos podrá utilizar este chatbot en sus aplicaciones. Por ejemplo, para crear un servicio de atención al cliente por inteligencia artificial. Y lo mejor de todo es que es a coste cero. Posiblemente te preguntes la razón de este movimiento.

Sencillamente, Elon Musk quiere fastidiar a OpenAI, propietaria de ChatGPT. El dueño de Tesla, SpaceX, X y otras empresas lleva semanas batallando con esta empresa y ha encontrado la forma de hacerles daño donde más les duele: liberando el código de Grok para que cualquiera pueda utilizarlo, en vez de pagar la correspondiente licencia a algunos de sus rivales.

Ahora toca esperar unas semanas para ver en qué se traduce este movimiento por parte de Elon Musk. Pero ya te adelantamos que seguramente no tardemos mucho en ver las primeras herramientas y aplicaciones que utilizan Grok para dar respuestas a los usuarios, simplificar tareas y mucho más. ¿Habrá respuesta por parte de Open AI ante la liberación del chatbot de X?

Hola, vereis, quisiera abrir este tema para preguntar una cosa, si no es molestia:

Dado que se menciona poco o nada sobre el uso de IA en las reglas del foro, ¿Estaría permitido publicar en el foro códigos generados con la asistencia de IA's tipo OpenAI, siempre y cuando estos códigos funcionen "correctamente"?.

Entonces, esto lo comento porque, aunque conozco poco sobre Pyhton, he estado utilizando OpenAI para generar códigos Python y, tras de realizar algunas modificaciones y corregir algunos errores (algunos corregidos sin ayuda de OpenAI y otros "con ayuda") para realizar tareas menores, me preguntaba si seria posible compartir alguno(s) de estos códigos en el foro o bien se aplicaba una norma similar a la que surgió hace un tiempo en StackOverflow donde no se permitía (por temas de errores en el codigo y/o por cualquier otra razón) compartir códigos generados por IA..

De cualquier forma, y, sobre los códigos en Python que he comentado; quisiera insistir en que serian para realizar tareas simples y creados con la "asistencia" de OpenAI para, bueno, probar como se podrian realizar determinadas tareas con dicho lenguaje.

Muchas gracias por vuestra atención, y, bueno, saludos.

Con permiso, y, sin animo de causar polémicas por lo que ha pasado anteriormente con el tema de las noticias relacionadas con Israel, quisiera abrir este tema aparte para compartir una noticia puntual relacionada con, bueno, las declaraciones de un ministro de Israel. Por supuesto y por suerte, ha sido destituido/apartado de su cargo despues de estas declaraciones:

FUENTE; https://www.elnacional.cat/es/internacional/ministro-israel-asegura-lanzar-bomba-atomica-gaza-es-posibilidad_1119407_102.html

Noticia: Un ministro de Israel asegura que lanzar una bomba atómica contra Gaza "es una posibilidad."

Benjamin Netanyahu ha suspendido al ultraderechista Amichai Eliyahu como ministro
Marta Sánchez Iranzo
Foto: EFE
Barcelona. Domingo, 5 de noviembre de 2023. 11:02
Tiempo de lectura: 2 minutos



El ministro de Patrimonio de Israel, el ultraderechista Amichai Eliyahu, ha asegurado que el lanzamiento de una bomba atómica contra la Franja de Gaza podría ser una de las opciones en la guerra que enfrenta a Israel con Hamás, según ha informado este domingo el diario The Times of Israel. Según relata el medio, el ministro del partido Poder Judío, preguntado en un programa de radio sobre la posibilidad de lanzar una bomba atómica en el enclave palestino, ha afirmado que "es una de las posibilidades". Inmediatamente, el primer ministro israelí, Benjamin Netanyahu, ha salido a desmentir sus palabras. "Las palabras de Amichai Eliyahu están alejadas de la realidad", ha dicho Netanyahu, que ha insistido en que el Ejército está actuando "de acuerdo con los más altos estándares del derecho internacional para evitar daños a personas no involucradas" y ha añadido que seguirá haciéndolo hasta "conseguir la victoria".

Además, Netanyahu, ha anunciado que ha suspendido a Eliyahu de "manera indefinida" de las próximas reuniones dentro del gobierno, aunque, de momento, sigue en el puesto.

Según varias fuentes, el Estado judío desarrolló armamento nuclear de forma encubierta hace más de 50 años. Hasta ahora, no admite ni niega su posesión, pero es el único país del mundo que no lo reconoce abiertamente; pero es un secreto a voces que es un Estado nuclear y figura como tal en los listados de instituciones de investigación atómica.

Eliminación de Hamás
Por su parte, el ministro de Seguridad Nacional de Israel, el ultraderechista Itamar Ben Gvir, ha asegurado este domingo en X que ha hablado con Eliyahu, y quien le ha asegurado que "sus palabras han sido dichas como una metáfora". "Claro está para todos nosotros que la organización Hamás tiene que ser destruida y borrada, y claro está que haremos todo el posible para retornar a las personas secuestradas en sus hogares", ha afirmado.

El ministro ultra, en la misma entrevista a una radio ultraortodoxa, también se ha mostrado partidario de la anexión del territorio de Gaza para construir asentamientos y de negar la ayuda humanitaria a la población en el enclave palestino. "No existen civiles que no estén involucrados", ha aseverado. Hace solo tres días, Eliyahu ya encendió la polémica después de una publicación en su cuenta de Facebook, en el cual calificaba de "deleite para los ojos" los bombardeos israelíes sobre Gaza y las operaciones militares en Cisjordania.

Las reacciones a las palabras de Eliyahu no se han hecho esperar y el líder de la oposición israelí, Yair Lapid ha exigido su dimisión, afirmando que con sus palabras "ha perjudicado a las familias de los secuestrados", así como a la sociedad civil y al "estatus internacional" de Israel.

Hola, vereis, el caso es que acabo de encontrar una noticia que creo que podria ser interesante para (almenos) algunos usuarios del foro y que, bueno, tambien deberia estar relacionada con la temática de este foro.

FUENTE:  https://www.elnacional.cat/es/politica/govern-contrata-hackers-mejorar-ciberseguridad_1074840_102.html

NOTICIA: El Govern contrata a 'hackers' para mejorar la ciberseguridad
La Generalitat contrata piratas informáticos para encontrar sistemas con vulnerabilidades




La Agencia de Ciberseguridad de Catalunya ha contratado hackers éticos para que ataquen los sistemas que cuelgan de la Generalitat con el objetivo de encontrar vulnerabilidades y mejorar la ciberseguridad. Lo habría avanzado TV3 y confirmado RAC1 y la intención es saber qué portales están protegidos y cuáles no. La Generalitat, sin embargo, se ha convertido en la primera administración del estado que ficha este tipo personal de este tipo para poner a prueba la seguridad de los diferentes portales. Una práctica que está mucho más extendida en el sector privado.

"Catalunya; administración pionera al tirar un 'bug bounty' para mejorar la ciberseguridad. La colaboración con hackers permite tener sistemas informáticos más protegidos y fomentar el uso ético del conocimiento", destaca la cuenta de Twitter de la Secretaría de Telecomunicaciones y Transformación Digital.

Objetivo: encontrar sistemas vulnerables
En este sentido, con los tres meses de trabajo que llevan los piratas informáticos buscando y poniendo a prueba la seguridad, ya han encontrado dos sistemas vulnerables. Eso hace que se puedan detectar y aplicar mejoras.

¿Cómo funciona? Tal como ha explicado a RAC1 el secretario de Telecomunicaciones y Transformación Digital, Sergi Marcén, la Generalitat da vía libre a los piratas para que hagan y deshagan y encuentren qué funciona y qué no. "Los decimos 'aquí tenéis mis sistemas informáticos, atacadlos y encontrad vulnerabilidades dentro del sistema'".

De esta manera, destaca la importancia de destinar dinero a este tipo de recursos por evitar sustos y evitar que estas vulnerabilidades sean descubiertas por otras personas.

¿Cómo funciona el programa?
Se trata de un programa pionero entre las administraciones públicas a todo el Estado, iniciado el abril de 2023 y que se alargará un año, como mínimo, tal como destaca un comunicado del Departament. El Govern de Catalunya es el primero que tira un proyecto de hacking ético de este tipo, al cual se destinarán 70.000 euros por premiar las vulnerabilidades que encuentren el conjunto de investigadores especialistas en ciberseguridad que participan.

Sergi Marcén, citado en esta nota, ha subrayado que "Catalunya no solo tiene que ser digital, tiene que ser referente en la Transformación Digital y tener una posición de liderazgo en capacitación, colaboración e innovación".

Hola, vereis, quisiera aprovechar esta sección para compartir una noticia relacionada con el tema de IA y hardware, la cual, segun veo, fue publicada el dia de ayer.

FUENTE: https://elchapuzasinformatico.com/2023/06/ia-china-primer-procesador-qimeng-no-1/#:~:text=Una%20IA%20china%20crea%20el,veces%20m%C3%A1s%20r%C3%A1pida%20que%20ChatGPT%C2%BB&text=China%20no%20tiene%20acceso%20al,no%20le%20est%C3%A1%20impidiendo%20desarrollarse.

NOTICIA:  Una IA china crea el primer procesador sin intervención humana: «Es 4.000 veces más rápida que ChatGPT»


China no tiene acceso al mejor hardware para IA del mundo, el cual lo proporciona NVIDIA con sus A100 y H100, pero eso no le está impidiendo desarrollarse. Como hemos visto hace unas horas, EE.UU. y Europa preparan un One-Two Punch para tumbarla, y una prueba de los porqués, de los motivos por los que quieren frenarla a toda costa es precisamente por algo como lo que vamos a ver hoy. Y es que China ya tiene una IA que puede crear procesadores de forma totalmente automática y que es 4.000 veces más inteligente que ChatGPT. Así es Qimeng No 1.

Una IA diseñando chips completamente sola. Eso sí que es un hito que demuestra hasta dónde puede llegar en muy poco tiempo una tecnología que acaba de lanzarse al mercado como algo revolucionario, pero que lleva años desarrollándose. El problema es que en China todo corre más, todo se hace más rápido y lo de hoy es una prueba de ello.

Qimeng No 1 el primer procesador creado por una IA sin necesidad del ser humano.

Parece totalmente distópico, de película de Hollywood, pero vamos a tener que acostumbrarnos a estas cosas y cada vez a mayor velocidad, puesto que si esto es posible hoy, imaginemos en 10 años. Desde el Instituto de Tecnología Informática de la Academia de Ciencias de China han utilizado una IA específica creada por ellos mismos para poder diseñar una CPU, la cual está basada en una arquitectura de 32 bits y RISC-V.

Se dice que la IA es 4.000 veces más inteligente que GPT-4 de ChatGPT, por lo que el diseño ha sido realmente complejo como tal. Teniendo en cuenta que ningún humano ha intervenido en el proceso de creación y desarrollo del procesador, es impresionante que la IA pueda lograr un trabajo equivalente en cuanto a potencia como si fuese un Intel 486.

Es cierto que es una CPU con un rendimiento similar a finales de los ochenta, pero tampoco podemos pedir más por el momento. Aun así, este Qimeng No 1 ha sido fabricado a 65 nm con una frecuencia de 300 MHz, lo cual nos indica que la IA ha hecho un buen trabajo.

Un trabajo con BSD que tardó solamente 5 horas en llevarse a cabo.

Quizás sea lo más impactante de la noticia, puesto que ni por potencia ni por velocidad la CPU sorprende, pero el hecho de que se hayan usado algoritmos de especulación binaria y que la IA haya podido completar el diseño de la misma en solo 5 horas, insistimos, sin intervención alguna humana, es realmente impresionante.

Quizás lo más "aterrador" de todo esto de la IA diseñando CPU son sus previsiones, puesto que se espera que las IA dentro de entre 5 a 10 años logren superar a las CPU diseñadas por humanos. Por lo tanto, gran parte de los ingenieros de diseño de todas las áreas críticas de una empresa como pueden ser Intel, AMD o NVIDIA terminarán de supervisores de las IA que estén encargadas de hacer el trabajo duro.

Lógicamente esto debe de darnos en un plazo de tiempo de una década unos avances en capacidad de cómputo increíbles, de hecho, quizás sea el salto que necesitamos para poder avanzar como especie. Si en los albores de la IA ya está diseñando procesadores como un Intel 486, en 10 años al ritmo al que vamos simplemente no nos podemos ni imaginar las potencias y velocidades que tendremos.

Hola, vereis, quisiera abrir aquí este tema para comentar lo que me acaba de pasar con la IA de ChatGPT.

Antes que nada, y, para poneros un poco mas en contexto y para explicar el porque he abierto aqui el tema: el caso es que le he pedido al chat de openai que me describa parte de un código que he estado haciendo esta tarde sobre bases de datos (y, por cierto, no me matéis si veis algun error: aun no he revisado que este libre de errores),.

Entonces, quisiera compartir las respuestas que he obtenido, ya que, entre otras cosas, "parece" que empieza a "desvariar" en la 3a respuesta.

Y, bueno, yendo al grano:

Yo:

¿Podrias decirme que hace este codigo?.
Graphics 800,600,32,2
carpeta_prog$=CurrentDir()+"contabilidad_gral\"
If FileType(carpeta_prog$)=1 Or FileType(carpeta_prog$)=0
   CreateDir carpeta_prog$
EndIf
.crear_base_datos_programa
Cls
Locate 0,0
Print "Inserte el nombre de la base de datos que desea usar:"
dat$=Input()
dat_b$=Replace$(dat$," ","")
If dat_b$=""
   .salida_crear_BD
   Cls
   Locate 0,0
   Print "No ha insertado ningun nombre."
   Print "¿Desea salir del programa? (S/N).
   dat$=Input()
   If dat$="S" Or dat$="s"
      End
   EndIf
   If dat$="N" Or dat$="n"
      Goto crear_base_datos_programa
   EndIf
   Goto salida_crear_BD
EndIf
archivo_BD$=carpeta_prog$+dat$
If FileType(archivo_BD$)=0
   .creacion_BD
   Cls
   Locate 0,0
   Print "No existe una la base de datos con el nombre indicado."
   Print "¿Que desea hacer?."
   Print "1) Crear una base de datos con el nombre indicado."
   Print "2) Volver al menu anterior.
   opcion#=Input()
   If opcion#=1
      Cls
      Locate 0,0
      Print "Pulse una tecla para ir al menu inicial y crear
      Print "una base de datos con el nombre indicado."
      opcion#=0
      WaitKey()
      Goto inicio
   EndIf
   If opcion#=2
      Goto crear_base_datos_programa
   EndIf
   Goto creacion_BD
EndIf
If FileType(archivo_BD$)=1
   Print "Ya existe una base de datos con el nombre indicado."
   fileout=ReadFile(archivo_BD$)
   cantidad_monedas#=ReadFloat(fileout)
   cantidad_usuarios#=ReadFloat(fileout)
   cantidad_cuentas#=ReadFloat(fileout)
   cantidad_movimientos#=ReadFloat(fileout)
   If cantidad_monedas#=0
      Goto salto_monedas_00
   EndIf
   cantidad_monedas#=cantidad_monedas#-1
   Dim lista_monedas$(cantidad_monedas#)
   Dim tasa_cambio_monedas#(cantidad_monedas#,cantidad_monedas#)
   For tr#=0 To cantidad_monedas#
      lista_monedas$(tr#)=ReadString(fileout)
      For trr#=0 To cantidad_monedas#
         tasa_cambio_monedas#(tr#,trr#)=ReadFloat(fileout)
      Next
   Next
   .salto_monedas_00
   cantidad_monedas#=cantidad_monedas#+1
   If cantidad_usuarios#=0
      Goto salto_usuarios_00
   EndIf
   cantidad_usuarios#=cantidad_usuarios#-1
   Dim lista_usuarios$(cantidad_usuarios#)
   For tr#=0 To cantidad_usuarios#
      lista_usuarios$(tr#)=ReadString(fileout)
   Next
   cantidad_usuarios#=cantidad_usuarios#+1
   .salto_usuarios_00
   If cantidad_cuentas#=0
      Goto salto_cuentas_00
   EndIf
   cantidad_cuentas#=cantidad_cuentas#-1
   Dim lista_cuentas$(cantidad_cuentas#)
   Dim datos_cuentas#(cantidad_cuentas#,2)
   For tr#=0 To cantidad_cuentas#
      lista_cuentas$(tr#)=ReadString(fileout)
      For trr#=0 To 2
         datos_cuentas#(tr#,trr#)=ReadFloat(fileout)
      Next
   Next
   cantidad_cuentas#=cantidad_cuentas#+1
   .salto_cuentas_00
   If cantidad_movimientos#=0
      Goto salto_movimientos_00
   EndIf
   cantidad_movimientos#=cantidad_movimientos#-1
   Dim lista_movimientos$(cantidad_movimientos#,2)
   Dim datos_movimientos#(cantidad_movimientos#,2)
   For tr#=0 To cantidad_movimientos#
      For trr#=0 To 2
         lista_movimientos$(tr#,trr#)=ReadString(fileout)
         datos_movimientos#(tr#,trr#)=ReadString(fileout)
      Next
   Next
   cantidad_movimientos#=cantidad_movimientos#+1
   .salto_movimientos_00
   CloseFile(fileout)
   Cls
   Locate 0,0
   Print "Se han guardado todos los datos."
   Print "Pulse una tecla para seguir."
   WaitKey()
   Goto inicio
EndIf
.inicio
Cls
Locate 0,0
Print "¿Que desea hacer?."
Print "-2) Salir del programa guardando los datos."
Print "-1) Salir del programa sin guardar los datos."
Print "1) Crear/añadir una moneda."
Print "2) Modificar el nombre de una moneda."
Print "3) Modificar la tasa de cambio entre 2 monedas."
Print "4) Crear un usuario."
Print "5) Modificar el nombre de un usuario."
Print "6) Añadir y asociar una cuenta a un usuario."
Print "7) Añadir un movimiento a una cuenta de un usuario."
Print "8) Ver una lista de todas las monedas disponibles."
Print "9) Ver una lista de todos los usuarios."
Print "10) Ver el dinero de todas las cuentas de un usuario."
Print "11) Ver todos los movimientos de todas cuenta de un usuario."
opcion#=Input()
If opcion#=-1
   .salida_sin_guardar
   Cls
   Locate 0,0
   Print "¿Realmente desea salir del programa descartando los cambios?. (S/N)"
   dat$=Input()
   If dat$="S" Or dat$="s"
      End
   EndIf
   If dat="N" Or dat$="n"
      Goto inicio
   EndIf
   Goto salida_sin_guardar
EndIf
If opcion#=-1
   .salida_guardando
   Cls
   Locate 0,0
   Print "¿Realmente desea salir del programa guardando los cambios?. (S/N)"
   dat$=Input()
   If dat$="S" Or dat$="s"
      If FileType(archivo_BD$)=1
         DeleteFile archivo_BD$
      EndIf
      fileout=WriteFile(archivo_BD$)
      WriteFloat(fileout,cantidad_monedas#)
      WriteFloat(fileout,cantidad_usuarios#)
      WriteFloat(fileout,cantidad_cuentas#)
      WriteFloat(fileout,cantidad_movimientos#)
      If cantidad_monedas#=0
         Goto salto_monedas
      EndIf
      cantidad_monedas#=cantidad_monedas#-1
      For tr#=0 To cantidad_monedas#
         WriteString(fileout,lista_monedas$(tr#))
         For trr#=0 To cantidad_monedas#
            WriteFloat(fileout,tasa_cambio_monedas#(tr#,trr#))
         Next
      Next
      .salto_monedas
      cantidad_monedas#=cantidad_monedas#+1
      If cantidad_usuarios#=0
         Goto salto_usuarios
      EndIf
      cantidad_usuarios#=cantidad_usuarios#-1
      For tr#=0 To cantidad_usuarios#
         WriteString(fileout,lista_usuarios$(tr#))
      Next
      cantidad_usuarios#=cantidad_usuarios#+1
      .salto_usuarios
      If cantidad_cuentas#=0
         Goto salto_cuentas
      EndIf
      cantidad_cuentas#=cantidad_cuentas#-1
      For tr#=0 To cantidad_cuentas#
         WriteString(fileout,lista_cuentas$(tr#))
         For trr#=0 To 2
            WriteFloat(fileout,datos_cuentas#(tr#,trr#))
         Next
      Next
      cantidad_cuentas#=cantidad_cuentas#+1
      .salto_cuentas
      If cantidad_movimientos#=0
         Goto salto_movimientos
      EndIf
      cantidad_movimientos#=cantidad_movimientos#-1
      For tr#=0 To cantidad_movimientos#
         For trr#=0 To 2
            WriteString(fileout,lista_movimientos$(tr#,trr#))
            WriteString(fileout,datos_movimientos#(tr#,trr#))
         Next
      Next
      cantidad_movimientos#=cantidad_movimientos#+1
      .salto_movimientos
      CloseFile(fileout)
      Cls
      Locate 0,0
      Print "Se han guardado todos los datos."
      Print "Pulse una tecla para salir del programa."
      WaitKey()
      End
   EndIf
   If dat$="N" Or dat$="n"
      Goto inicio
   EndIf
   Goto salida_guardando
EndIf
If opcion#=1
   Cls
   Locate 0,0
   Print "Inserte el nombre de la moneda en cuestion:"
   dat$=Input()
   dat_c$=Replace$(dat$," ","")
   Cls
   Locate 0,0
   If dat_c$=""
      Print "No ha insertado ningun nombre o bien ha insertado
      Print "un nombre añadiendo solo espacios."
      Print "Puse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
   Cls
   Locate 0,0
   If cantidad_monedas#=0
      Dim lista_monedas$(cantidad_monedas#)
      Dim tasa_cambio_monedas#(cantidad_monedas#,cantidad_monedas#)
      lista_monedas$(cantidad_monedas#)=dat$
      cantidad_monedas#=cantidad_monedas#+1
      Print "Se ha creado/añadido la nueva moneda."
      Print "Pulse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
   If cantidad_monedas#>0
      cantidad_monedas#=cantidad_monedas#-1
      Dim lista_monedas_b$(cantidad_monedas#)
      Dim tasa_cambio_monedas_b#(cantidad_monedas#,cantidad_monedas#)
      For tr#=0 To cantidad_monedas#
         If dat$=lista_monedas$(tr#)
            Print "Ya existe una moneda con el nombre indicado."
            Print "Pulse una tecla para volver al menu anterior."
            cantidad_monedas#=cantidad_monedas#+1
            WaitKey()
            Goto inicio
         EndIf
         dat_b$=lista_monedas$(tr#)
         lista_monedas_b$(tr#)=dat_b$
         For trr#=0 To cantidad_monedas#
            opciones#=tasa_cambio_monedas#(tr#,trr#)
            tasa_cambio_monedas_b#(tr#,trr#)=opciones#
         Next
      Next
      cantidad_monedas#=cantidad_monedas#+1
      Dim lista_monedas$(cantidad_monedas#)
      Dim tasa_cambio_monedas#(cantidad_monedas#,cantidad_monedas#)
      cantidad_monedas#=cantidad_monedas#-1
      For tr#=0 To cantidad_monedas#
         dat_b$=lista_monedas_b$(tr#)
         lista_monedas$(tr#)=dat_b$
         For trr#=0 To cantidad_monedas#
            opciones#=tasa_cambio_monedas_b#(tr#,trr#)
            tasa_cambio_monedas#(tr#,trr#)=opciones#
         Next
      Next
      cantidad_monedas#=cantidad_monedas#+1
      lista_monedas$(cantidad_monedas#)=dat$
      cantidad_monedas#=cantidad_monedas#+1
      Cls
      Locate 0,0
      Print "Se ha creado/añadido la nueva moneda."
      Print "Pulse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
EndIf
If opcion#=2
   Cls
   Locate 0,0
   If cantidad_monedas#=0
      Print "No se ha creado ninguna moneda."
      Print "Debe crear almenos una antes de acceder a esta opcion."
      Print "Pulse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
   Print "Inserte el nombre de la moneda para modificarle el nombre:"
   dat$=Input()
   Cls
   Locate 0,0
   cantidad_monedas#=cantidad_monedas#-1
   For tr#=0 To cantidad_monedas#
      If dat$=lista_monedas$(tr#)
         Print "Se ha encontrado la moneda en cuestion."
         Print "Inserte el nuevo nombre de la moneda:"
         dat_b$=Input()
         Cls
         Locate 0,0
         For trr#=0 To cantidad_monedas#
            If dat_b$=lista_monedas$(trr#)
               cantidad_monedas#=cantidad_monedas#+1
               Print "Nombre no modificado:"
               Print "El nuevo nombre ya esta en uso."
               Print "Pulse una tecla para volver al menu anterior."
               WaitKey()
               Goto inicio
            EndIf
         Next
         lista_monedas$(tr#)=dat_b$
         cantidad_monedas#=cantidad_monedas#+1
         Print "Se ha modificado el nombre de la moneda."
         Print "Pulse una tecla para volver al menu anterior.
      EndIf
   Next
   cantidad_monedas#=cantidad_monedas#+1
   Print "No se ha encontrado ninguna moneda con el nombre indicado."
   Print "Pulse una tecla para volver al menu anterior."
   WaitKey()
   Goto inicio
EndIf
If opcion#=4
   Cls
   Locate 0,0
   Print "Inserte el nombre del nuevo usuario:"
   dat$=Input()
   dat_b$=Replace$(dat$," ","")
   Cls
   Locate 0,0
   If dat_b$=""
      Print "No ha insertado ningun nombre o bien ha insertado
      Print "un nombre añadiendo solo espacios."
      Print "Puse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
   If cantidad_usuarios#=0
      Dim lista_usuarios$(cantidad_usuarios#)
      lista_usuarios$(cantidad_usuarios#)=dat$
      cantidad_usuarios#=cantidad_usuarios#+1
      Print "Se ha añadido el nuevo usuario."
      Print "Pulse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
   If cantidad_usuarios#>0
      cantidad_usuarios#=cantidad_usuarios#-1
      Dim lista_usuarios_b$(cantidad_usuarios#)
      For tr#=0 To cantidad_usuarios#
         If dat$=lista_usuarios$(tr#)
            cantidad_usuarios#=cantidad_usuarios#+1
            Print "Ya existe un usuario con el nombre indicado."
            Print "Pulse una tecla para volver al menu anterior."
            WaitKey()
            Goto inicio
         EndIf
         dat_b$=lista_usuarios$(tr#)
         lista_usuarios_b$(tr#)=dat_b$
      Next
      cantidad_usuarios#=cantidad_usuarios#+1
      Dim lista_usuarios$(cantidad_usuarios#)
      cantidad_usuarios#=cantidad_usuarios#-1
      For tr#=0 To cantidad_usuarios#
         dat_b$=lista_usuarios_b$(tr#)
         lista_usuarios$(tr#)=dat_b$
      Next
      cantidad_usuarios#=cantidad_usuarios#+1
      lista_usuarios$(cantidad_usuarios#)=dat$
      cantidad_usuarios#=cantidad_usuarios#+1
      Print "Se ha añadido el nuevo usuario."
      Print "Pulse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
EndIf
If opcion#=5
   Cls
   Locate 0,0
   If cantidad_usuarios#=0
      Print "No ha creado ningun usuario."
      Print "Debe crear almenos uno antes de acceder a esta opcion."
      Print "Pulse una tecla para volver al menu anterior."
      WaitKey()
      Goto inicio
   EndIf
   Print "Inserte el nombre de usuario para modificarle el nombre:"
   dat$=Input()
   Cls
   Locate 0,0
   cantidad_usuarios#=cantidad_usuarios#-1
   For tr#=0 To cantidad_usuarios#
      If dat$=lista_usuarios$(tr#)
         Print "Se ha encontrado un usuario con el nombre indicado."
         Print "Inserte el nuevo nombre de usuario:"
         dat$=Input()
         For trr#=0 To cantidad_usuarios#
            If dat$=lista_usuarios$(trr#)
               Cls
               Locate 0,0
               cantidad_usuarios#=cantidad_usuarios#+1
               Print "Nombre no modificado:"
               Print "El nuevo nombre ya esta en uso."
               Print "Pulse una tecla para volver al menu anterior."
               WaitKey()
               Goto inicio
            EndIf
         Next
         lista_usuarios$(tr#)=dat$
         cantidad_usuarios#=cantidad_usuarios#+1
         Print "Se ha modificado el nombre de usuario."
         Print "Pulse una tecla para volver al menu anterior."
         WaitKey()
         Goto inicio
      EndIf
   Next
   cantidad_usuarios#=cantidad_usuarios#+1
   Print "No se ha encontrado ningun nombre de usuario con el nombre indicado."
   Print "Pulse una tecla para volver al menu anterior."
   WaitKey()
   Goto inicio
EndIf


ChatGPT:

Este código es un programa de contabilidad que permite crear y manipular bases de datos de usuarios, cuentas y movimientos en diferentes monedas.

La primera línea define las dimensiones de la pantalla y la profundidad de color.

La segunda línea almacena la ruta de la carpeta de trabajo actual en la variable carpeta_prog$.

La tercera línea comprueba si la carpeta carpeta_prog$ existe, y si no es así, la crea.

La cuarta línea es una etiqueta que indica el comienzo de una sección de código que creará una nueva base de datos si no existe ya una con el nombre indicado.

La sección de creación de la base de datos comprueba si la base de datos con el nombre indicado ya existe. Si existe, lee los datos almacenados en ella y los carga en variables en la memoria del programa.

Después, el programa muestra un menú de opciones que permite al usuario crear, modificar y eliminar monedas, usuarios, cuentas y movimientos.

Yo:
¿Que hace cada opcion disponible?.


ChatGPT:

1. Crear/añadir una moneda: Esta opción permite agregar una nueva moneda a la base de datos o añadir una moneda existente, junto con su tasa de cambio en relación a las demás monedas registradas.

2. Modificar el nombre de una moneda: Esta opción permite modificar el nombre de una moneda ya existente en la base de datos.

3. Modificar la tasa de cambio entre 2 monedas: Esta opción permite cambiar la tasa de cambio entre dos monedas ya existentes en la base de datos.

4. Crear un usuario: Esta opción permite agregar un nuevo usuario a la base de datos.

5. Modificar el nombre de un usuario: Esta opción permite cambiar el nombre de un usuario ya existente en la base de datos.

6. Añadir y asociar una cuenta a un usuario: Esta opción permite agregar una cuenta bancaria a un usuario y asociarla con su perfil.

7. Hacer un movimiento: Esta opción permite realizar una transacción bancaria, es decir, mover una cantidad de dinero de una cuenta a otra.

8. Consultar el saldo de una cuenta: Esta opción permite conocer el saldo actual de una cuenta bancaria.

9. Consultar los movimientos de una cuenta: Esta opción permite ver los movimientos realizados en una cuenta bancaria en particular.

-1. Salir del programa sin guardar los datos: Esta opción permite salir del programa sin guardar los cambios realizados en la base de datos.

-2. Salir del programa guardando los datos: Esta opción permite salir del programa guardando los cambios realizados en la base de datos.

Yo:

¿Que hace cada parte del codigo despues de mostrar estas opciones?.



ChatGPT:

Después de mostrar las opciones al usuario, el código espera a que el usuario ingrese una opción. Una vez que el usuario ingresa la opción, el código utiliza una estructura de control de flujo if...else para determinar qué acción tomar en función de la opción ingresada.

Si el usuario ingresa la opción 1, el código llama a la función calculateBMI() para calcular el índice de masa corporal. Esta función solicita al usuario que ingrese su altura y peso, y luego realiza el cálculo del índice de masa corporal utilizando la fórmula adecuada. Finalmente, la función devuelve el valor del índice de masa corporal calculado y lo muestra en la pantalla.

Si el usuario ingresa la opción 2, el código llama a la función calculateDistance() para calcular la distancia entre dos puntos en un plano cartesiano. Esta función solicita al usuario que ingrese las coordenadas x e y de dos puntos y luego realiza el cálculo de la distancia utilizando la fórmula adecuada. Finalmente, la función devuelve el valor de la distancia calculada y lo muestra en la pantalla.

Si el usuario ingresa la opción 3, el código llama a la función calculateHypotenuse() para calcular la longitud de la hipotenusa de un triángulo rectángulo. Esta función solicita al usuario que ingrese las longitudes de los dos catetos del triángulo y luego realiza el cálculo de la longitud de la hipotenusa utilizando la fórmula adecuada. Finalmente, la función devuelve el valor de la longitud de la hipotenusa calculada y lo muestra en la pantalla.

Si el usuario ingresa la opción 4, el código sale del programa y muestra un mensaje de despedida.

Si el usuario ingresa una opción que no está en el rango de 1 a 4, el código muestra un mensaje de error y vuelve a mostrar las opciones.

Hola, vereis,, quisiera abrir este tema para compartir una noticia relacionada con una incidencia relacionada con proveedores de Internet que se ha publicado esta mañana, si no es molestia, claro esta.

FUENTE;: https://www.elnacional.cat/es/sociedad/caida-generalizada-internet-proveedores-telefonia-movil-sufren-cortes-redes_963789_102.html

Noticia: Caída generalizada de Internet: los proveedores de telefonía móvil sufren cortes en las redes

Desde las 9:00 horas se han registrado incidencias relacionadas con la internet y las llamadas

Los principales proveedores de Internet que presentan servicio en España están sufriendo un corte en sus redes desde las 9:00 horas de este viernes, según ha informado la página DownDetector, especializada a recoger incidencias relacionadas con internet. Se han registrado miles de quejas relacionadas con Orange, Vodafone, Movistar, Simyo, Jazztel, Lowi y Yoigo. Los usuarios de estas compañías están experimentando problemas para hacer llamadas, enviar mensajes y con la conexión a Internet. Las ciudades más afectadas, de momento, son Barcelona, Madrid, Valencia, Málaga, Granada, Almería, Murcia y Cartagena.

El portal DownDetector ha registrado a primera hora de la mañana un crecimiento exponencial de las quejas de los usuarios. Centenares de usuarios españoles están manifestando que tienen problemas con la conexión a Internet en el móvil y en las líneas fijas. Otros reportaban que tampoco podían enviar notas de voz.

El problema con la red de internet podría haber estado a consecuencia de un corte de una línea de fibra óptica. Eldiario.es ha avanzado que la avería se ha producido a raíz de unas operaciones de Endesa y Adif en la zona de Almería y Murcia, según han informado fuentes de una de las compañías.

Problemas con el servicio
Las compañías de telefonía móvil están utilizando las redes sociales para dar explicaciones a los usuarios sobre el problema.

Orange ha anunciado por Twitter que están sufriendo un problema ajeno a su red, pero que están trabajando para solucionarlo.

Jazztel ha reconocido que si están registrando problemas en el servicio contestando a los usuarios a través de Twitter.

Por su parte, Vodafone también está utilizando Twitter para dar explicaciones sobre la incidencia. "Tenemos reportada la incidencia y estamos trabajando para poder solucionarlo lo antes posible. Te pedimos disculpas por las molestias ocasionadas", han contestado a un usuario.