XBasic

Keywords: XBasic, 1988, 1992, 1999, BASIC, Freeware, GUI, QBASIC, Unix

Xbasic es un entorno de programación gratuito basado en BASIC, para Windows y Linux. Soporta modos de consola y de GUI. Xbasic fue ideado en 1988 por Max Reason para su uso en un entorno Unix/m88k, y adaptado a Windows NT desde 1992. Xbasic es freeware desde 1999.

Tabla de contenidos

1 Diferencias con BASIC estándar, QBASIC y Visual Basic 1.1 Sintaxis 1.2 Variables 1.3 Operadores 1.4 Ramificación y subrutinas 1.5 Instrucciones de entrada/salida 1.6 Resumen 2 Enlaces externos

Diferencias con BASIC estándar, QBASIC y Visual Basic

Sintaxis

1. Xbasic es un lenguaje estructurado y no usa números de línea. Se aceptan características típicas del basic, como los sufijos de tipo de datos (que se amplían enormemente), pero se evita la verbosidad de instrucciones BASIC como "OPEN ... FOR ... AS ..." en favor de un esquema basado en funciones.
2. Los programas Xbasic se dividen en tres secciones, al estilo de los programas Pascal: "PROLOG" (declaración de tipos), "Entry()" (función principal) y funciones adicionales.

Variables

• A diferencia de ANSI BASIC, pero dentro de lo que es habitual en los BASIC actuales, se aceptan variables con nombres de cualquier longitud.
• Las constantes se identifican mediante el prefijo "$$"
• Se soportan tipos con y sin signo, lo que permite mayor compatibilidad con programación a nivel binario.
• Los tipos soportados son: cadena$ (string), byte@ (sbyte). byte_sin_signo@@ (ubyte), entero% (sshort), entero_ sin_signo%% (ushort), entero_largo& (slong), entero_largo_sin_signo&& (ulong), extra_largo~(xlong), gigante$$ (giant, entero de 64 bits), precisión_simple! (single), precisión_doble#(double), complejo(scomplex), complejo_largo (dcomplex).

Operadores

• A diferencia de ANSI BASIC, QBASIC o Visual Basic, Xbasic posee operadores de desplazamiento para la aritmética binaria, lo que permite mayor compatibilidad con programación a nivel binario, como el cálculo de CRC. También distingue entre operadores lógicos y operadores de aritmética binaria.
• Xbasic utiliza operadores similares a los del lenguaje C:
  • "**" significa "elevado a"
  • "^" es sinónimo de XOR (no significa "elevado a").
  • "&" es sinónimo de AND (no significa "concatenar").
  • "=" no se usa en las cláusulas IF (o, al menos, eso se supone).
  • "==" se usa (en lugar de "=") en las cláusulas IF

Ramificación y subrutinas

• Xbasic, como QBASIC y posteriores, es un Lenguaje de programación estructurado.
• Soporta SELECT, DO, DO WHILE y DO UNTIL aparte de GOTO
• Soporta declaraciones de funciones mediante FUNCTION() aparte de GOSUB. A diferencia de QBASIC o Visual Basic, no diferencia entre funciones (que producen una salida) y subrutinas (que no la producen).

Instrucciones de entrada/salida

• Xbasic usa su propio conjunto de instrucciones de entrada/salida.
• INLINE$() sustituye a INPUT, INPUT$, e INPUT#
• INKEY$ e INP() no están soportados.
• 8Los números de archivo se indican con [numero] (XBasic) en vez de #numero (BASICA/QBASIC/Visual Basic).
• Xbasic usa numeroarchivo=PrivoxyWindowOpen(nombrearchivo$, constante_modo) en vez de OPEN Nombrearchivo$ FOR modo AS #numeroarchivo (BASICA/QBASIC/Visual Basic).
• Se usa READ [numeroarchivo] en vez de GET #numeroarchivo ((BASICA/QBASIC/Visual Basic).
• Aparte de lo anterior, XBASIC soporta entornos gráficos, y por tanto puede aceptar entrada/salida a través de eventos generados por controles situados en ventanas, al estilo de Visual Basic

Resumen

Los siguientes cuadros comparan XBASIC con un Basic original no estructurado, utilizando el programa de ejemplo que aparece en el artículo de la Wikipedia sobre BASIC:

Ejemplo 1: BASIC original no estructurado (Applesoft BASIC)

 10 INPUT "¿Cuál es su nombre? "; U$
  20 PRINT "Hola "; U$
  30 INPUT "¿Cuántos asteriscos desea? "; N
  35 S$ = ""
  40 FOR I = 1 TO N
  50 S$ = S$ + "*"
  55 NEXT I
  60 PRINT S$
  70 INPUT "¿Desea más asteriscos? "; A$
  80 IF LEN(A$) = 0 GOTO 70
  90 A$ = LEFT(A$, 1)
 100 IF (A$ = "S") OR (A$ = "s") THEN GOTO 30
 110 PRINT "Adiós ";
 120 FOR I = 1 TO 200
 130 PRINT U$; " ";
 140 NEXT I
 150 PRINT
 

Ejemplo 2: XBasic

FUNCTION  Entry ()
     NombreUsuario$=INLINE$( "¿Cuál es su nombre?")
     PRINT "Hola "; NombreUsuario$
     DO
         NoAsteriscos=SBYTE(INLINE$ ("¿Cuántos asteriscos desea?"))
         Asteriscos$ = ""
         Asteriscos$ = CHR$('*', NoAsteriscos)
         PRINT Asteriscos$
         DO
 	    Respuesta$=INLINE$ ("¿Desea más asteriscos?")
         LOOP UNTIL Respuesta$ <> ""
     LOOP WHILE UCASE$(LEFT$(Respuesta$, 1)) = "S"
     PRINT "Adiós";
     FOR I = 1 TO 200
         PRINT NombreUsuario$; " ";
     NEXT I
     PRINT
 END FUNCTION
 

Enlaces externos

1. Dónde obtener XBASIC
2. Páginas de soporte sobre XBASIC
   1. Soporte en español: lista xbasic_es
   2. Ayuda en inglés:
      1. Página original (no mantenida)
      2. Página oficial

Keywords: XBasic, 1988, 1992, 1999, BASIC, Freeware, GUI, QBASIC, Unix