Mostrar los tags: QickBasic

Mostrando del 1 al 3 de 3 coincidencias
<<>>
Se ha buscado por el tag: QickBasic
Imágen de perfil

ElNumero reduce cualquier número a un valor de 1 a 9


Basic

Publicado el 28 de Mayo del 2018 por Miguel (3 códigos)
1.282 visualizaciones desde el 28 de Mayo del 2018
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
Imágen de perfil

SuperSuma


Basic

Publicado el 27 de Mayo del 2018 por Miguel (3 códigos)
1.126 visualizaciones desde el 27 de Mayo del 2018
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.
Imágen de perfil

Genera código Basic para mostrar arrays con caracteres especiales


Basic

Publicado el 22 de Mayo del 2018 por Miguel (3 códigos)
863 visualizaciones desde el 22 de Mayo del 2018
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.