Mostrar los tags: QBASIC

Programa en QBasic que convierte coordenadas cartesianas a polares.

ElNumero reduce a un solo dígito cualquier número por la suma sucesiva de sus caracteres.
Por ejemplo 9978 = 9 + 9 + 7 + 8 = 33 = 3 + 3 = 6
Es usado en numerología esotérica, por ejemplo, para obtener el número del día de nacimiento se obtiene del conjunto del día + mes + año
Así, el 23 de mayo de 1923 = 23051923 = 7

SuperSuma almacena en un string el resultado de la suma de dos números de cualquier longitud.
Además se incluyen en él funciones y subrutinas muy útiles para usar en otros programas, tales como:

- Uso intuitivo del color del fondo y del texto.
- Inicializar la pantalla a modo texto con 80 columnas.
- Centrar un texto en la pantalla.
- Evaluar que los caracteres sean numéricos.
- Pausar la ejecución del programa con un texto centrado en espera de pulsar una tecla.
- Repetir uno o varios caracteres el número de veces indicado.

Este programa asegura la visualizan por pantalla de los códigos ASCII superiores a 127 incluidas en String de programas Basic (letras no latinas y acentuadas: á, Ñ , ç, etc.).

Para ello transforma toda la cadena en el valor ASCII de todos los caracteres sumados y también solo los especiales. Un ejemplo:

String original: "¡Nuño y Argüelles!"

Se copia con CTRL-C y pega en el programa con CTRL-V

Salida del programa:
------------------------
Dim cadena as String

cadena = chr(173) & chr(78) & chr(117) & chr(164) & chr(111) & chr(32) & chr(121) & chr(32) & chr(65) & chr(114) & chr(103) & chr(129) & chr(101) & chr(108) & chr(108) & chr(101) & chr(115) & chr(33)

cadena = chr(173) & "Nu" & chr(164) & "o y Arg" & chr(129) & "elles!"
------------------------
Se incluye el código fuente y el ejecutable.

aqui este programita que le modifique, es el nibbles, el ejecutable lo hice con qb64 x32

Juego del Ajedrez para dos jugadores.
Se maneja con el teclado, flechas de dirección, Intro, y Escape para anular selección o finalizar después del mate o ahogado.
Se pueden editar posiciones con el teclado numérico (0-9), y cambiar el nivel con +/-.
Pulsando Alt+Intro cambia a pantalla completa.
El fichero .zip contiene versiones .bas .txt y .exe.
La versión .exe es para x64, la versión .bas puede ejecutarse en Qbasic64 y en Qbasic original x86.
En emuladores las teclas de dirección son K, M, H y P.
Niels Hoeg, 1905-mate en 3

Resuelve Sudokus por fuerza bruta método "backtrack".
Se maneja con las teclas de dirección.

Programa simple donde las opciones del Menu se escogen usando las flechas de arriba y abajo y presionando Enter. Hecho en QuickBASIC EX 7.1 y probado en QBasic también.