QB64

     Para los que les guste la programación de los años 80 como a mí, aquí les dejo el enlace de QB64, un IDE compatible con el BASIC de la época pero muy mejorado. A mi me ha permitido revivir los programas de aquellos años y darme cuenta de que no eran tan malos como muchos nos quieren hacer creer en base a los super modernos y en algunos casos estúpidos lenguajes actuales. Es compatible con Windows, Linux, Mac OSX, y Android.

                    Welcome to the QB64 Programming WIKI

     QB64 is a modern version of the Basic programming language that allows programs created using Quick Basic 4.5 or Qbasic to run on Windows XP, Vista, 7, 8, 8.1 and 10, Linux and Mac OSX. It will work on 32 or 64 bit machines and has many new features such as stereo sound, improved graphics and TCP/IP internet capabilities. QB64 can make reliable programs or games for the entire family!QB64 does not install any files outside of the qb64 folder or use the Registry! May require Administrator permissions.

     Programming in Basic is EASY! You don't need to learn much to get started as it uses many statements and function words that are familiar to you. You can learn to program in days instead of weeks! If you need help there is a forum to ask for help and this WIKI has many example programs that you can run to see how things work. Download QB64 and take a ride into the wonderful world of programming! We are sure that you will enjoy the experience! We have programmers from age 10 to over 60. Welcome aboard!

SCREEN 12

WINDOW (-5, 0)-(5, 10)

RANDOMIZE TIMER

COLOR 10

DO

    SELECT CASE RND

        CASE IS < .01

            X = 0

            Y = .16 * Y

        CASE .01 TO .08

            X = .2 * X - .26 * Y

            Y = .23 * X + .22 * Y + 1.6

        CASE .08 TO .15

            X = -.15 * X + .28 * Y

            Y = .26 * X + .24 * Y + .44

        CASE ELSE

            X = .85 * X + .04 * Y

            Y = -.04 * X + .85 * Y + 1.6

    END SELECT

    PSET (X, Y)

LOOP UNTIL INKEY$ = CHR$(27)

SCREEN 12

DEFDBL A-Z

A% = 640 'Resolucion Horizontal

B% = 480 'Resolucion Vertical

M% = 200 'Numero de interaciones por punto

PMIN = -2.25 ' Plano complejo

PMAX = 0.75 'Plano complejo

QMIN = -1.5 'Plano complejo

QMAX = 1.5 'Plano complejo

CMAX% = 10000 'Nivel de detalle

DP = (PMAX - PMIN) / (A% - 1)

DQ = (QMAX - QMIN) / (B% - 1)

FOR NP% = 0 TO A% - 1

    FOR NQ% = 0 TO B% - 1

        P = PMIN + NP% * DP

        Q = QMIN + NQ% * DQ

        K% = 0

        X = 0

        Y = 0

        610 '

        XN = (X * X) - (Y * Y) + P

        Y = 2 * X * Y + Q

        X = XN

        K% = K% + 1

        IF (X * X) + (Y * Y) > M% THEN C% = K%: GOTO 690

        IF K% = CMAX% THEN C% = 0: GOTO 690

        680 GOTO 610

        690 PSET (NP%, NQ%), C%

    NEXT NQ%

NEXT NP%

720 A$ = INKEY$: IF A$ = "" THEN 720

http://www.qb64.net/

http://www.qb64.net/wiki/index.php/Main_Page