Este es un programita bastante rústico para editar imagenes en blanco y
negro.

Noten que los parámetros pasados al procedimiento de dibujo, determinan
el tamaño del área de dibujo.

Solo hay que añadir una función que guarde en un archivo el contenido de
la pantalla.

Por favor participen más, envien preguntas, o códigos tontos como este.

Chao...
+-+-+-+-+-+-+-+-+-+-+-+
Marco Antonio Achury
achury@...



------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/group/basic-es
http://www.eGroups.com - Simplifying group communications

Hola a todos:

Esta lista lleva bastante tiempo en silencio.

Espero oir comentarios para mejorar este codigo...
Ahora puede ejecutarse desde QBasic (sin compilador).

¿Alguien tiene algun proyecto interesante que quiera compartir?

+-+-+-+-+-+-+-+-+-+-+-+
Marco Antonio Achury
achury@...



------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/basic-es
Free Web-based e-mail groups by eGroups.com

BA>Hola grupo
BA>
BA>Tenia mucho tiempo sin escribir despues de suscribirme, debido en parte a qu
BA>
La verdad, esto esta bastante solitario ultimamente, yo tenia bastante
tiempo sin revisar los mensajes...

BA>Desarrolle un pequeño programa que aplica examenes a mis alumnos, decidi cre
BA>
BA>Se me ocurrio que podia colocarle a traves de Excel una contraseña a la base
BA>
BA>Me podrian ayudar ¿Existe alguna forma de abrir una Base de Datos (Hoja Exce
BA>
Desconozco la forma de hacer eso, lo que se me ocurre es encriptar los
datos a traves de una formula que solo tu conozcas.

Ej: Sumar 15 a cada numero y despues aplicar xor con una mascara
definida de antemano...

Lamento no ser de mas ayuda, pero el excel nunca ha sido mi fuerte :-(

Marco Achury

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/basic-es
Free Web-based e-mail groups by eGroups.com

Solo una prueba

------------------------------------------------------------------------
eGroup home: http://www.eGroups.com/list/basic-es
Free Web-based e-mail groups by eGroups.com

Marco Antonio Achury wrote:

> Gracias por la info sobre Euphoria... ya hice mis primeros programillas en ese
lenguaje...
>

     En el listerver de Euphoria, hay varios personas que hablan español.
     Por favor visita http://listserv.muohio.edu/SCRIPTS/WA.EXE?A0=euphoria

      Irv

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Saludos a las personas que se han suscrito en los últimos días, espero que la
lista sea de utilidad.

En estos momentos tengo algunos problemillas de conexión, pero cualquier
mensaje, puede enviarse a:

plantarium@...

No duden en enviar a la lista mensajes solicitando ayuda, ejemplos de código o
direcciones de interes general (sin abusos publicitarios).

Saludos a todos.
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Los tengo un poco olvidados.

Les recomiendo esta dirección, es en ingles, pero contiene buenos trucos de
programación.

http://x15.dejanews.com/jump/http://www.zekes.com/~blunt/index.html

Gracias por la info sobre Euphoria... ya hice mis primeros programillas en ese
lenguaje...

FELIZ NAVIDAD A TODOS...

Espero que al volver en enero los encuentre más participativos ;-)
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

El manual de referencia de Euphoria en Español:
ftp://ftp27.pair.com/pub/daber/architek/manual.zip

IDE:
http://members.aol.com/JCMiura/eu/text_gui.zip


-----
See the original message at http://www.egroups.com/list/basic-es/?start=19
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Hola:

Pude resolver el código de leer archivos, gracias a ayuda que recibí en
un grupo de noticias.

Les comento:

Dentro del SUB, hay bucle que repite la instrucción FindNext (Int 21h
Función 4Fh).

Dentro del bucle (DO), hay que reiniciar el registro ax al inicio de
cada ciclo:

regs.ax=&h4f

debido a que en alguna llamada anterior a la función, el valor del
registro pudo alterarse.  Cuando termine de hacerle algunos arreglos les
enviaré el código completo.

Suerte...


Aprovecho para pedirles que inviten más gente a unirse a la lista, esto
está muy solitario...
--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Desde hace unos meses se está desarrollando el proyecto de crear una
versión freeware del compilador QuickBasic.

Mas información:

UK          http://come.to/freebasic
US mirror:  http://freebasic.8m.com/

Se puede participar suscribiendose al grupo de discusión:

alt.lang.basic.compiler

Para bajar las versiones preliminares:
http://www2.crosswinds.net/london/~fbasic.

Versión preeliminar del IDE
http://web2.airmail.net/~jdm1intx/FREEBIDE.ZIP.


--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Despues de probarlo, estoy de acuerdo en lo de simplón.  La IDE deja
mucho que desear.

Me ha parecido bastante rápido para ser un interprete, aunque tal vez no
tanto como decían en la publicidad.

Lo que más me gustó es que tiene un manejo de los arreglos bastante
interesante.

Permite hacer arreglos dentro de otros arreglos.
Ej: x={a,b,{c,d,{e,f}}}
x tiene 3 elementos, el último de ellos es un arreglo de 3 elementos,
que a su vez incluye otro arreglo de 2 elementos.

Esto solo puede hacerse en C o Pascal mediante punteros.

=?iso-8859-1?Q?Jaume_d'Urgell_i_Rubi=F3?= escribió:
>
> Yo tengo una edición shareware.
>
> Es simplón y obsoleto.
>
> -----Mensaje original-----
> De: Marco A. Achury P. <achury@...>
> Para: lista basic <basic-es@egroups.com>
> >¿Han oido hablar de un lenguaje de programación llamado Euphoria?
> >¿Que tal es?
> >
> >
> >http://members.aol.com/FilesEu/

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Esta semana probé un interprete BASIC para Windows llamado Liberty
Basic.

Puntos en Contra:
No hay recursividad.
No hay variables locales.
No hay variables definidas por el usuario.
No hay compilador (aunque puede encriptarse el código al estilo
GWBASIC).

Puntos a favor:
Es bastante compatible con GWBASIC.
La instruccion FILES, guarda toda la tabla de directorio en un arreglo.
Puede hacerse un programa de apariencia muy digna con pocas líneas de
código.
Tiene un pequeño editor de ventanas.
Pueden crearse 'hojas de calculo' con pocas líneas de código.

Mas información en:

http://world.std.com/~carlg/basic.html

ftp://ftp.std.com/consultants/liberty.basic

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Yo tengo una edición shareware.

Es simplón y obsoleto.

-----Mensaje original-----
De: Marco A. Achury P. <achury@...>
Para: lista basic <basic-es@egroups.com>
Fecha: diumenge, 22 / novembre / 1998 22:25
Asunto: [basic-es] Lenguaje Euphoria


>¿Han oido hablar de un lenguaje de programación llamado Euphoria?
>¿Que tal es?
>
>
>http://members.aol.com/FilesEu/
>--
>+-+-+-+-+-+-+-+-+-+
>Marco A. Achury P.
>http://members.xoom.com/achury
>mailto:achury@...
>ICQ: 19390207
>Caracas, Venezuela
>------------------------------------------------------------------------
>For the absolute lowest price on Computer Hardware visit:
>http://ads.egroups.com/click/56/0/bottomdollar
>
>
>Free Web-based e-mail groups -- http://www.eGroups.com
>
>

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

¿Han oido hablar de un lenguaje de programación llamado Euphoria?
¿Que tal es?


http://members.aol.com/FilesEu/
--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Este programita tiene funciones que halla máximos y mínimos de un
arreglo. (QBasic)

¿Alguna sugerencia para mejorarlos?

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

DECLARE FUNCTION max! (arreglo!())
DECLARE FUNCTION min! (arreglo!())
DECLARE FUNCTION sum! (arreglo!())

CLS
REM Llenar el arreglo de datos al azar
REM Fill array data

RANDOMIZE TIMER
DIM a(1 TO 15) AS SINGLE
FOR i = LBOUND(a, 1) TO UBOUND(a, 1)
   a(i) = 50 * RND
   PRINT a(i)
NEXT

REM mostrar m ximo
REM Show Maximum

PRINT "M ximo: "; max!(a())
PRINT "M¡nimo: "; min!(a())
PRINT "Suma  : "; sum!(a())

FUNCTION max! (arreglo!())
DIM var AS SINGLE
   FOR i = LBOUND(arreglo!, 1) TO UBOUND(arreglo!, 1)
     IF arreglo!(i) > var THEN var = arreglo!(i)
   NEXT
   max! = var
END FUNCTION

FUNCTION min! (arreglo!())
DIM var AS SINGLE
   var = arreglo(LBOUND(arreglo, 1))
   FOR i = LBOUND(arreglo!, 1) TO UBOUND(arreglo!, 1)
     IF arreglo!(i) < var THEN var = arreglo!(i)
   NEXT
   min! = var
END FUNCTION

FUNCTION sum! (arreglo!())
DIM var AS SINGLE
   FOR i = LBOUND(arreglo!, 1) TO UBOUND(arreglo!, 1)
     var = var + arreglo!(i)
   NEXT
   sum! = var
END FUNCTION


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Recibido conforme

Jorge

-----Original Message-----
From: Marco A. Achury P. <achury@...>
To: Lista basic <basic-es@egroups.com>
Date: jueves 19 de noviembre de 1998 15:21
Subject: [basic-es] Sobre call absolute


>He tenido problemas con la función interrupt (mencionado en otro
>mensaje)
>
>¿Saben como pasar parámetros a 'call absolute'?
>
>
>******
>Jorge:  Por favor confirma si lo recibes
>******
>
>--
>+-+-+-+-+-+-+-+-+-+
>Marco A. Achury P.    http://members.xoom.com/achury
>achury@...    (Under Construction now)
>Caracas, Venezuela    ICQ: 19390207
>
>
>------------------------------------------------------------------------
>For the absolute lowest price on Computer Hardware visit:
>http://ads.egroups.com/click/56/0/bottomdollar
>
>
>Free Web-based e-mail groups -- http://www.eGroups.com
>

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Hola:

Estoy haciendo cambios a mi página WEB, incluyendo alguna información
sobre BASIC.

Cuando dispongan de algún tiempo no dejen de visitarla.

Por supuesto, todas las sugerencias serán bien recibidas

http://members.xoom.com/achury

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.
http://members.xoom.com/achury
mailto:achury@...
ICQ: 19390207
Caracas, Venezuela


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Esta medida no es innecesaria, y tampoco es para siempre. Apelo a tu
discreción (y a la de todas/os las/os demás). Te aseguro que tengo mis
razones.

-----Mensaje original-----
De: Marco A. Achury P. <achury@...>
Para: basic-es@egroups.com <basic-es@egroups.com>
Fecha: dijous, 19 / novembre / 1998 05:15
Asunto: [basic-es] Re: Interrupciones en WIN


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

He tenido problemas con la función interrupt (mencionado en otro
mensaje)

¿Saben como pasar parámetros a 'call absolute'?


******
Jorge:  Por favor confirma si lo recibes
******

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

=?iso-8859-1?Q?Jaume_d'Urgell_i_Rubi=F3?= escribió:
>
> Tengo el correo electrónico intervenido por mi ISP, en unos días te haré
> llegar un software de encriptación con algoritmo no comercial específico
> para interpretar mis mensajes.
>
> Disculpa las molestias, pero mientras tanto, no podré comunicarme con entera
> libertad.
>
> Saludos.

No veo razón para andar encriptando lo que se envía a la lista, que
además
es pública y cualquiera puede leerla desde el WEB.

Cuando halla más personas suscritas, será un verdadero problema repartir
el encriptador entre todos.

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

> jorge medina escribió:
>
> Hola:
> Mi nombre es Jorge E. Medina y me acabo de inscribir en este grupo de
> BASIC
> por la misma razon, es decir es extraño encontrar algo en español.
> Yo he trabajado por varios años con BASIC en varias de sus versiones
> GW-BASIC (Microsoft)
> QBASIC(MS)
> TURBO BASIC (Borland)
> QUICK BASIC (MS)
> BASIC PDS 7 ( Microsoft )
> En la medida de mi tiempo voy a estar visitando este grupo para tratar
> de
> participar.
> Si conoces direcciones de grupos sobre el tema te las agradecere.

Jorge:

Por ahora el grupo no es muy concurrido, y es mejor que te suscribas vía
mail, así no debes visitar la página WEB con frecuencia.

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Tengo el correo electrónico intervenido por mi ISP, en unos días te haré
llegar un software de encriptación con algoritmo no comercial específico
para interpretar mis mensajes.

Disculpa las molestias, pero mientras tanto, no podré comunicarme con entera
libertad.

Saludos.

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

=?iso-8859-1?Q?Jaume_d'Urgell_i_Rubi=F3?= escribió:
>
> Lo tienes jodido. Supongo que habrás hecho uso de la &H021, y Windows "toma"
> ligeramente el control de esta interrupción. Si quieres evitar las hermosas
> "pantallitas azules" de los chicos de Bill Gates, tendrás que cambiar de
> sistema operativo o ejecutar tus aplicaciones en "MODO MS-DOS".
>
> Puede que haya otras soluciones, pero en ese caso, yo las desconozco.
>

Si, uso las funciones de la 21h: FindFirst (4Eh funciona bien) y
FindNext (4Fh es la del error). Me parece extraño, supongo que todos los
programas para DOS que leen directorios deben usar esas interrupciones y
pensé que el problema era del interprete BASIC.

El código es el siguiente, tal vez te sea util:

	 DIM regs AS RegType

	 'Prepara cadena de salida
	 DIM DTA AS STRING * 44
	 'A propósito, ¿Como puedo declarar esto en FirstBasic?

	 DEF SEG = VARSEG(DTA)
	 regs.dx = VARPTR(DTA)
	 regs.ax = &H1A00
	 INTERRUPT &H21, regs, regs

	 'Primer archivo
	 filez$ = "*.*" + CHR$(0)
	 DEF SEG = VARSEG(filez$)
	 regs.ax = &H4E00
	 regs.dx = SADD(filez$)
	 regs.cx = 0
	 INTERRUPT &H21, regs, regs

	 'Si no hay archivos
	 IF regs.flags AND 1 THEN
		 dir$ = ""
	 ELSE
		 dir$ = DTA
		 PRINT dir$
	 END IF

	 PRINT "Hallado el primero", regs.flags

	 'Buscar otros archivos
	 regs.ax = &H4F00
	 DO
		 'Llamar funci¢n FindNext
		 INTERRUPT &H21, regs, regs
		 PRINT regs.flags
		 IF regs.flags AND 1 THEN
			 EXIT DO
		 ELSE
			 dir$ = dir$ + DTA
			 PRINT dir$
			 'Dir$, contendrá todas las entradas del directorio
			 'De las cuales hay que extraer los nombres de archivo
			 'Se puede usar para averiguar fecha, tamaño, etc.
		 END IF

	 LOOP


A propósito, ¿Como declaro en FirstBasic la cadena de longitud fija?

En Qbasic uso:

DIM Nombre AS STRING * 30

¿Cual es el equivalente?

Gracias.
--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Lo tienes jodido. Supongo que habrás hecho uso de la &H021, y Windows "toma"
ligeramente el control de esta interrupción. Si quieres evitar las hermosas
"pantallitas azules" de los chicos de Bill Gates, tendrás que cambiar de
sistema operativo o ejecutar tus aplicaciones en "MODO MS-DOS".

Puede que haya otras soluciones, pero en ese caso, yo las desconozco.

Saludos.


-----Mensaje original-----
De: Marco A. Achury P. <achury@...>
Para: Lista basic <basic-es@egroups.com>
Fecha: dimarts, 17 / novembre / 1998 09:18
Asunto: [basic-es] Interrupciones en WIN


>Hice un programa sencillo en QBasic que llama las interrupciones del DOS
>para leer archivos de un directorio.
>
>Al ejecutarlo en Win95 se bloquea.  ¿Alguna sugerencia?
>--
>+-+-+-+-+-+-+-+-+-+
>Marco A. Achury P.    http://members.xoom.com/achury
>achury@...    (Under Construction now)
>Caracas, Venezuela    ICQ: 19390207
>------------------------------------------------------------------------
>Free Web-based e-mail groups -- http://www.eGroups.com
>
>

------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Hice un programa sencillo en QBasic que llama las interrupciones del DOS
para leer archivos de un directorio.

Al ejecutarlo en Win95 se bloquea.  ¿Alguna sugerencia?
--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

¿Como te va con PowerBasic?  Yo he usado principalmente BASIC microsoft
(Qbasic, QuickBasic)  Bajé de internet FirstBasic, pero no he dedicado
tiempo a aprender a usarlo.

No me gusta el IDE (estilo Borland) ya que no estoy familiarizado con
las teclas rápidas, pero parece ser un excelente programa.

Los programas de prueba que venían con FirstBasic son muy interesantes.
No he podido hacer correr mis programas Qbasic en FirstBasic, solo
pequeños programas muy sencillos son fácilmente portables.

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Hola:

Al fín alguien se anotó, ¿como te llamas?

Formé la lista porque frecuento los grupos de discusión sobre BASIC, la
mayoría son en ingles, y con frecuencia hay gente pidiendo ayuda en
español.

--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207
------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com

Mensaje de prueba
--
+-+-+-+-+-+-+-+-+-+
Marco A. Achury P.    http://members.xoom.com/achury
achury@...    (Under Construction now)
Caracas, Venezuela    ICQ: 19390207


------------------------------------------------------------------------
Free Web-based e-mail groups -- http://www.eGroups.com