XBasic

De Wikipedia, la enciclopedia libre

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.

[editar] Diferencias con BASIC estándar, QBASIC y Visual Basic

[editar] Sintaxis

1. Xbasic es un Lenguaje de programación 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.

[editar] 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).

[editar] 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

[editar] 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).

[editar] 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.
• Los números de archivo se indican con [numero] (XBasic) en vez de #numero (BASICA/QBASIC/Visual Basic).
• Xbasic usa numeroarchivo=OPEN(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

[editar] 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

[editar] 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