Códigos Fuente de Basic

Para GFA-BASIC.-
Esta herramienta permite imprimir un texto en una posición definida en la pagina. Ingresando X e Y de la misma. Al crear el formulario necesitara incorporar los siguientes controles.
3 Textbox llamados pos_x, pos_y , numero
4 Labels llamados lbl1 a lbl4
2 command llamados imprime y cmd1
un slider llamado sli1
2 checkbox llamados chk1 y chk2.

Función en GFA-BASIC que devuelve una fecha en formato escrito. Ejemplo, 10/01/2015. Devuelve diez de enero de dos mil quince.- La fecha a la función se envía mediante DATE() o desde el control MonthView incluidas en el compilador. Como limitación: No agregue transformación de año por la cual debe cambiarse cambiando la variable correspondiente.

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

Convierte archivos QWK en TXT.

Este programa (incluye código fuente en QuickBASIC 4.5 o VB-DOS 1.0) abre los archivos QWK de los BBS y los convierte a formato de texto estándar. Recupera tus QWK históricos, los que te dejaron huella y transfórmalos a textos estándar, listos para ser leídos en el Bloc de Notas o en Word.

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

Batch: Basico

Este Es El Primer Capitulo Del Curso BATCH

ahora te voy a mostar unos codigos y su explicacion:

echo (
el echo tiene dos comandos
el @echo off y el echo

el @echo off es para que no haya eco de los codigos
el echo es para poner un texto en la pantalla )

pause / pause >nul(
el pause sirve para pausar el programa (osea que no se salga
el pause >nul sirve para pausar el programa solo que sin el texto (PRESIONE UNA TECLA PARA CONTINUAR)

ahora un ejemplo:
echo Hola
pause

visualisacion
echo Hola
Hola
Presione Una Tecla Para Continuar

ahora con el @echo off y el pause >nul

@echo off
echo Hola
pause >nul

visualicacion

Hola

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