Noticias|Artículos|Figuras|Enlaces|belenismo.net

Buscar | Estadísticas | Listado de usuarios Foros | Calendarios | Álbumes | Skins
Foro de Belenismo

¿Quieres anunciarte aquí? - contacta con nosotros

Has entrado como invitado. ( Entra | regístrate )

Programar nuestros belenes por ordenador

Páginas: 1 2 3 4 5
 
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
Hola a todos, nuevas modificaciones para el programa para controlar la t-9.
si alguien esta interesado y quiere hacer alguna sugerencia, estamos a la espera...



Adjuntos
----------------
Adjuntos BELEN20707.BAS (27KB - 573 descargas)
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
Hola a todos, nuevas modificaciones para el programa para controlar la t-9.
si alguien esta interesado y quiere hacer alguna sugerencia, estamos a la espera...



Adjuntos
----------------
BELEN20707.BAS (27KB - 0 descargas)





(1.jpg)



(Pantalla principal.jpg)



(Programa 4.jpg)



(programa 1.jpg)



Adjuntos
----------------
Adjuntos 1.jpg (41KB - 285 descargas)
Adjuntos Pantalla principal.jpg (30KB - 284 descargas)
Adjuntos Programa 4.jpg (21KB - 245 descargas)
Adjuntos programa 1.jpg (32KB - 282 descargas)
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
Hola de nuevo: aquí va el programa......................


REM MODIFICACION DEL PROGRAMA FECHA 20/7/07.
100 REM INTRODUCCION

CLS
COLOR 2, 9
PRINT "********** ********** **** ************ ****** "
PRINT "********** ********** ******** ********** ******** "
PRINT "********** ********** **** **** ******** **** **** "
PRINT "********** ********** **** **** ****** **** **** "
PRINT " **** **** **** **** **** **** **** "
PRINT " **** **** **** **** **** **** **** "
PRINT " **** **** **** **** **** **** **** "
PRINT " **** **** **** **** **** **** **** "
PRINT " **** **** **** **** **** **** **** "
PRINT " **** **** **** **** **** **** **** "
PRINT " ****************** **** **** **** ****************** "
PRINT " ****************** **** **** **** ****************** "
PRINT " ****************** **** **** **** ****************** "
PRINT " **** **** **** **** **** **** **** "
PRINT " **** **** **** **** **** *** **** "
PRINT " **** **** **** **** **** *** * **** "
PRINT " **** **** **** **** **** *** ** **** "
PRINT " **** **** **** **** * **** *** *** **** "
PRINT " **** **** **** **** ** **** *** **** **** "
PRINT "********** ********** **** **** ****************** ****** "
PRINT "********** ********** **** **** ****************** ******** "
PRINT "********** ********** ******** ****************** ********** "
PRINT "********** ********** **** ****************** ************"


SLEEP 3




REM SELECCION DE PROGRAMA:

150 REM ==========================================================================
REM SELECCION DEL PROGRAMA A EJECUTAR

GOSUB 1000

COLOR 10, 9
LOCATE 4, 45: PRINT "PROGRAMA N§ 1"
LOCATE 6, 45: PRINT "PROGRAMA N§ 2"
LOCATE 4, 64: PRINT "PROGRAMA N§ 3"
LOCATE 6, 64: PRINT "PROGRAMA N§ 4"
COLOR 15, 9
LOCATE 8, 50: INPUT "ELIGE UN PROGRAMA"; M
IF M = 1 THEN 200
IF M = 2 THEN 300
IF M = 3 THEN 1100
IF M = 4 THEN 500 ELSE GOTO 150
LOCATE 8, 67: PRINT M$

REM PROGRAMA 1..................
REM COMIENZA EL ROGRAMA CON TODAS LAS SALIDAS ENCENDIDAS, SE VAN
REM APAGANDO PROGRESIVAMENTE UNA TRAS OTRA

200 REM 1--------------------------------------------------
GOSUB 1000
COLOR 15, 9
LOCATE 4, 4: PRINT " PROGRAMA N§1"
LOCATE 4, 22: PRINT "ACTIVO"
LOCATE 10, 48: PRINT "ELEGIDO EL PROGRAMA N§ 1"
LOCATE 12, 46: PRINT "Todas las salidas encendidas"
LOCATE 13, 46: PRINT "se van apagando progresivamente"
LOCATE 14, 46: PRINT "una tras otra comenzando "
LOCATE 15, 46: PRINT " por la n§1"
LOCATE 16, 44: PRINT "_________________________________"
LOCATE 20, 46: PRINT "ESCRIBE S=SI N=NO"
LOCATE 18, 55: INPUT "Aceptas "; N$

IF N$ = "S" THEN 250 ELSE GOTO 150
250
LOCATE 18, 46: PRINT " "
LOCATE 12, 46: PRINT " "
LOCATE 13, 46: PRINT " "
LOCATE 14, 46: PRINT " "
LOCATE 15, 46: PRINT " "
LOCATE 12, 46: PRINT " ESCRIBE EL N§ DE CICLOS "

LOCATE 12, 71: INPUT ""; Z
LOCATE 12, 46: PRINT " "
LOCATE 20, 46: PRINT " "
LOCATE 4, 45: PRINT "PROGRAMA N§ 1"

FOR ZZ = 1 TO Z
LOCATE 4, 4: PRINT " PROGRAMA N§1"
LOCATE 4, 22: PRINT "ACTIVO"

LOCATE 6, 50: PRINT "CICLOS N§": LOCATE 6, 66: PRINT ZZ
LOCATE 6, 69: PRINT "DE"; Z
FOR A = 1 TO 100000
LPRINT CHR$(255);
COLOR 10, 9
NEXT A
LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT "ENCENDIDA"
LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT "ENCENDIDA"
LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT "ENCENDIDA"
LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT "ENCENDIDA"
LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT "ENCENDIDA"
LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT "ENCENDIDA"
LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT "ENCENDIDA"
LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT "ENCENDIDA"
SLEEP 3
LPRINT CHR$(0);
LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT " "
LOCATE 6, 31: PRINT "APAGADA"
REM-2--------------------------------------------------------
REM tiempo de iluminacion
FOR B = 1 TO 100000
LPRINT CHR$(254);
NEXT B
LPRINT CHR$(0);
LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT " "
LOCATE 8, 31: PRINT "APAGADA"

REM-4--------------------------------------------------------------------
FOR C = 1 TO 100000
LPRINT CHR$(252);
NEXT C
LPRINT CHR$(0);
LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT " "
LOCATE 10, 31: PRINT "APAGADA"

REM-5---------------------------------------------------------------------
FOR dc = 1 TO 100000
LPRINT CHR$(248);
NEXT dc
LPRINT CHR$(0);
LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT " "
LOCATE 12, 31: PRINT "APAGADA"

REM-6---------------------------------------------------------------------
FOR D = 1 TO 100000
LPRINT CHR$(240);
NEXT D
LPRINT CHR$(0);
LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT " "
LOCATE 16, 31: PRINT "APAGADA"

REM tiempo de iluminacion

REM-7---------------------------------------------------------------------
FOR E = 1 TO 100000
LPRINT CHR$(224);
NEXT E
LPRINT CHR$(0);
LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT " "
LOCATE 18, 31: PRINT "APAGADA"

REM-8---------------------------------------------------------------------
FOR F = 1 TO 100000
LPRINT CHR$(192);
NEXT F
LPRINT CHR$(0);
LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT " "
LOCATE 20, 31: PRINT "APAGADA"

REM-9---------------------------------------------------------------------
FOR G = 1 TO 100000
LPRINT CHR$(128);
NEXT G
LPRINT CHR$(0);
LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT " "
LOCATE 22, 31: PRINT "APAGADA"

REM-10---------------------------------------------------------------------
FOR Gg = 1 TO 100000
LPRINT CHR$(0);
NEXT Gg
LPRINT CHR$(0);
CLS
GOSUB 1000
COLOR 10, 9
LOCATE 4, 45: PRINT "PROGRAMA N§ 1"
SLEEP 2
NEXT ZZ
LOCATE 16, 50: PRINT "PROCESO FINALIZADO"
SLEEP 4

GOTO 150



END

REM==========================================================================
REM ***********************PROGRAMA 2**************************************

300 REM COMIENZA EL PROGRAMA CON TODAS LAS SALIDAS APAGADAS
REM SE ENCIENDEN DE DOS EN DOS APAGANDO LA ANTERIOR

REM 1------------------------CABECERA--------------------------------------
GOSUB 1000
COLOR 15, 9
LOCATE 4, 4: PRINT " PROGRAMA N§2"
LOCATE 4, 22: PRINT "ACTIVO"
LOCATE 10, 48: PRINT "ELEGIDO PROGRAMA N§ 2"
LOCATE 12, 46: PRINT "Comienza el programa"
LOCATE 13, 46: PRINT "con todas las salidas apagadas"
LOCATE 14, 46: PRINT "se encienden de dos en dos"
LOCATE 15, 46: PRINT "apagando la anterior"
LOCATE 16, 44: PRINT "__________________________________"
LOCATE 20, 46: PRINT "ESCRIBE S=SI N=NO"
LOCATE 18, 53: INPUT "Aceptas"; N$
IF N$ = "S" THEN 350 ELSE GOTO 150
350 REM
LOCATE 12, 48: PRINT "PROGRAMA N§ 2"
LOCATE 4, 4: PRINT " PROGRAMA N§2"
LOCATE 4, 22: PRINT "ACTIVO"

LOCATE 12, 46: PRINT " "
LOCATE 13, 46: PRINT " "
LOCATE 14, 46: PRINT " "
LOCATE 15, 46: PRINT " "
LOCATE 12, 46: PRINT "ESCRIBIR EL N§ DE CICLOS"
LOCATE 12, 71: INPUT ""; ZA
LOCATE 18, 46: PRINT " "
LOCATE 20, 46: PRINT " "
FOR X = 1 TO ZA
LOCATE 12, 48: PRINT "PROGRAMA N§ 2"
LOCATE 4, 4: PRINT " PROGRAMA N§2"
LOCATE 4, 22: PRINT "ACTIVO"

LOCATE 8, 50: PRINT "CICLOS N§":
LOCATE 8, 66: PRINT X: LOCATE 8, 69: PRINT "DE"; ZA
LOCATE 10, 46: PRINT "Programa realizado por: "
LOCATE 12, 46: PRINT "jbr belenes "
LOCATE 4, 45: PRINT " "
LOCATE 6, 45: PRINT "PROGRAMA N§ 2"
FOR A = 1 TO 100000
COLOR 13, 9
LOCATE 4, 50: PRINT "CICLO N§ ": LOCATE 4, 66: PRINT X
LPRINT CHR$(1);
COLOR 10, 9
LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT "ENCENDIDA"
NEXT A

REM-2--------------------------------------------------------
REM tiempo de iluminacion
FOR B = 1 TO 100000
LPRINT CHR$(3);
LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT "ENCENDIDA"
NEXT B
LPRINT CHR$(0);
LOCATE 6, 4: PRINT "SALIDA 1.......": LOCATE 6, 22: PRINT " "
LOCATE 6, 31: PRINT "APAGADA"


REM-4--------------------------------------------------------------------
FOR C = 1 TO 100000
LPRINT CHR$(6);
LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT "ENCENDIDA"
NEXT C
LPRINT CHR$(0);
LOCATE 8, 4: PRINT "SALIDA 2.......": LOCATE 8, 22: PRINT " "
LOCATE 8, 31: PRINT "APAGADA"


REM-5---------------------------------------------------------------------
FOR Z = 1 TO 100000
LPRINT CHR$(12);
LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT "ENCENDIDA"
NEXT Z
LPRINT CHR$(0),

LOCATE 10, 4: PRINT "SALIDA 3.......": LOCATE 10, 22: PRINT " "
LOCATE 10, 31: PRINT "APAGADA"


REM-6---------------------------------------------------------------------
FOR D = 1 TO 100000
LPRINT CHR$(24);
LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT "ENCENDIDA"
NEXT D
LPRINT CHR$(0);

LOCATE 12, 4: PRINT "SALIDA 4.......": LOCATE 12, 22: PRINT " "
LOCATE 12, 31: PRINT "APAGADA"


REM-7---------------------------------------------------------------------
FOR E = 1 TO 100000
LPRINT CHR$(48);
LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT "ENCENDIDA"
NEXT E
LPRINT CHE$(0);
LOCATE 16, 4: PRINT "SALIDA 5.......": LOCATE 16, 22: PRINT " "
LOCATE 16, 31: PRINT "APAGADA"


REM-8---------------------------------------------------------------------
FOR F = 1 TO 100000
LPRINT CHR$(96);
LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT "ENCENDIDA"
NEXT F
LPRINT CHR$(0);
LOCATE 18, 4: PRINT "SALIDA 6.......": LOCATE 18, 22: PRINT " "
LOCATE 18, 31: PRINT "APAGADA"


REM-9---------------------------------------------------------------------
FOR G = 1 TO 100000
LPRINT CHR$(192);
LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT "ENCENDIDA"
NEXT G
LPRINT CHR$(0);
LOCATE 20, 4: PRINT "SALIDA 7.......": LOCATE 20, 22: PRINT " "
LOCATE 20, 31: PRINT "APAGADA"


REM-10---------------------------------------------------------------------
FOR H = 1 TO 100000
LPRINT CHR$(129);
NEXT H
LPRINT CHR$(0);
LOCATE 22, 4: PRINT "SALIDA 8.......": LOCATE 22, 22: PRINT " "
LOCATE 22, 31: PRINT "APAGADA"
SLEEP 2
CLS
GOSUB 1000
COLOR 10, 9: LOCATE 4, 45: PRINT "PROGRAMA N§ 2"

SLEEP 2
NEXT X
LPRINT CHR$(0)
LOCATE 16, 50: PRINT "PROCESO FINALIZADO"
SLEEP 4
LOCATE 16, 50: PRINT " ADIOS "
SLEEP 2
FOR M = 1 TO 20000
LPRINT CHR$(0);
NEXT
GOTO 150

END

REM==========================================================================
REM ***********************PROGRAMA 4**************************************

500 REM COMIENZA EL PROGRAMA CON TODAS LAS SALIDAS APAGADAS
REM SE ENCIENDEN UNA A UNA DEJANDO LA ANTERIOR ENCENDIDA

REM 1------------------------CABECERA--------------------------------------
GOSUB 1000
COLOR 15, 9
LOCATE 4, 4: PRINT " PROGRAMA N§ 4"
LOCATE 4, 22: PRINT "ACTIVO"
LOCATE 10, 48: PRINT "ELEGIDO PROGRAMA N§ 4"
LOCATE 12, 46: PRINT "Comienza el programa"
LOCATE 13, 46: PRINT "con todas las salidas apagadas"
LOCATE 14, 46: PRINT "se encienden de dos en dos"
LOCATE 15, 46: PRINT "apagando la anterior"
LOCATE 16, 44: PRINT "__________________________________"
LOCATE 20, 46: PRINT "ESCRIBE S=SI N=NO"
LOCATE 18, 53: INPUT "Aceptas"; N$
IF N$ = "S" THEN 550
550 REM
LOCATE 12, 48: PRINT "PROGRAMA N§ 4"
LOCATE 4, 4: PRINT " PROGRAMA N§ 4"
LOCATE 4, 22: PRINT "ACTIVO"

LOCATE 12, 46: PRINT " "
LOCATE 13, 46: PRINT " "
LOCATE 14, 46: PRINT " "
LOCATE 15, 46: PRINT " "
LOCATE 12, 46: PRINT "ESCRIBIR EL N§ DE CICLOS"
LOCATE 12, 71: INPUT ""; ZA
LOCATE 18, 46: PRINT " "
LOCATE 20, 46: PRINT " "
FOR X = 1 TO ZA
LOCATE 12, 48: PRINT "PROGRAMA N§ 4"
LOCATE 4, 4: PRINT " PROGRAMA N§ 4"
LOCATE 4, 22: PRINT "ACTIVO"

LOCATE 8, 50: PRINT "CICLOS N§":
LOCATE 8, 66: PRINT X: LOCATE 8, 69: PRINT "DE"; ZA
LOCATE 10, 46: PRINT "Programa realizado por: "
LOCATE 12, 46: PRINT "jbr belenes "
COLOR 10, 9
LOCATE 4, 45: PRINT " "
LOCATE 6, 65: PRINT "PROGRAMA N§ 4"
LOCATE 4, 50: PRINT "CICLO N§ ": LOCATE 4, 66: PRINT X

COLOR 10, 9
600 REM 1------

FOR A = 1 TO 100000
LOCATE 6, 25: PRINT "ENCENDIDA"
LPRINT CHR$(1);
COLOR 10, 9
LOCATE 6, 4: PRINT "SALIDA 1......."


NEXT A

REM-2--------------------------------------------------------

FOR B = 1 TO 100000
LOCATE 8, 4: PRINT "SALIDA 2.......":
LOCATE 8, 25: PRINT "ENCENDIDA"
LPRINT CHR$(3);
NEXT B



REM-4--------------------------------------------------------------------
FOR C = 1 TO 100000
LPRINT CHR$(7);
LOCATE 10, 4: PRINT "SALIDA 3.......":
LOCATE 10, 25: PRINT "ENCENDIDA"
NEXT C
REM 5----------------------------------------------------------------
FOR D = 1 TO 100000
LPRINT CHR$(15);
LOCATE 12, 4: PRINT "SALIDA 4......."
LOCATE 10, 25: PRINT "ENCENDIDA"
NEXT D

REM-6---------------------------------------------------------------------
FOR E = 1 TO 100000
LPRINT CHR$(31);
LOCATE 16, 4: PRINT "SALIDA 5......."
LOCATE 12, 25: PRINT "ENCENDIDA"
NEXT E
REM-7---------------------------------------------------------------------

FOR F = 1 TO 100000
LPRINT CHR$(63);
LOCATE 18, 4: PRINT "SALIDA 6......."
LOCATE 16, 25: PRINT "ENCENDIDA"
NEXT F

REM-8---------------------------------------------------------------------
FOR G = 1 TO 100000
LPRINT CHR$(127);
LOCATE 20, 4: PRINT "SALIDA 7......."
LOCATE 18, 25: PRINT "ENCENDIDA"
NEXT G

REM-9---------------------------------------------------------------------
FOR H = 1 TO 100000
LPRINT CHR$(255);
LOCATE 22, 4: PRINT "SALIDA 8......."
LOCATE 20, 25: PRINT "ENCENDIDA"

NEXT H

REM-10---------------------------------------------------------------------
FOR I = 1 TO 100000
LPRINT CHR$(0);

LOCATE 6, 22: PRINT "TODAS APAGADAS"
LOCATE 8, 22: PRINT "TODAS APAGADAS"
LOCATE 10, 22: PRINT "TODAS APAGADAS"
LOCATE 12, 22: PRINT "TODAS APAGADAS"
LOCATE 14, 22: PRINT "TODAS APAGADAS"
LOCATE 16, 22: PRINT "TODAS APAGADAS"
LOCATE 18, 22: PRINT "TODAS APAGADAS"
LOCATE 20, 22: PRINT "TODAS APAGADAS"
LOCATE 22, 22: PRINT "TODAS APAGADAS"
NEXT I
CLS
GOSUB 1000
COLOR 10, 9: LOCATE 6, 66: PRINT "PROGRAMA N§ 4"


NEXT X

LOCATE 16, 50: PRINT "PROCESO FINALIZADO"
SLEEP 2
LOCATE 16, 50: PRINT " ADIOS "
SLEEP 2
GOTO 150




END



REM========================================================================
1000 REM *************** PANTALLA PRINCIPAL**********************************
CLS
COLOR 14, 9
LOCATE 22, 72: PRINT TIME$
LPRINT CHR$(0);
LOCATE 1, 1: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 2, 1: PRINT "º º"
LOCATE 3, 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
FOR A = 4 TO 22
LOCATE A, 1: PRINT "º º"
NEXT A
FOR A = 2 TO 79
LOCATE 5, A: PRINT "Ä"
NEXT A
FOR A = 2 TO 43
LOCATE 15, A: PRINT "Ä"
NEXT A
FOR A = 4 TO 22
LOCATE A, 20: PRINT "³"
NEXT A
FOR A = 4 TO 22
LOCATE A, 43: PRINT "º"
NEXT A
FOR A = 4 TO 7
LOCATE A, 62: PRINT "³"
NEXT A
FOR A = 2 TO 42
LOCATE 13, A: PRINT "Í"
NEXT A
FOR A = 44 TO 79
LOCATE 7, A: PRINT "Í"
NEXT A
FOR A = 44 TO 79
LOCATE 9, A: PRINT "Ä"
NEXT A
LOCATE 23, 1: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
LOCATE 2, 22: PRINT " PROGRAMA PARA BELEN CON T-9 CENTRONIC"
LOCATE 22, 72: PRINT TIME$
SLEEP 1
RETURN

END



1100 REM****************PROGRAMA N§ 3 ********************************+***********

GOSUB 1000
COLOR 10, 9
LOCATE 22, 72: PRINT TIME$
LOCATE 4, 64: PRINT "PROGRAMA N§ 3"
COLOR 15, 9
LOCATE 4, 4: PRINT "PROGRAMA N§ 3"
LOCATE 4, 22: PRINT "ACTIVO"
LOCATE 10, 48: PRINT "ELEGIDO EL PROGRAMA N§ 3"
LOCATE 11, 44: PRINT "____________________________________"
LOCATE 12, 44: PRINT "Debes introducir el n§ de la salida"
LOCATE 13, 44: PRINT "y el tiempo de duraci¢n"

LOCATE 15, 44: PRINT "____________________________________"
LOCATE 20, 46: PRINT "; ESCRIBE; S = SI; N = NO; ";
LOCATE 18, 55: INPUT "Aceptas "; N$
IF N$ = "S" THEN 1200 ELSE GOTO 150



1200 REM CABECERA........................................................
CLS
REM PANTALLA 2 COMIENZO.................................
CLS
COLOR 14, 9
LOCATE 1, 1: PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
LOCATE 2, 1: PRINT "º º"
LOCATE 3, 1: PRINT "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹"
FOR A = 4 TO 22
LOCATE A, 1: PRINT "º º"
NEXT A
FOR A = 2 TO 79
LOCATE 5, A: PRINT "Ä"
NEXT A
FOR A = 2 TO 43
LOCATE 15, A: PRINT ""
NEXT A
FOR A = 4 TO 12
LOCATE A, 21: PRINT "³"
NEXT A
FOR A = 4 TO 12
LOCATE A, 41: PRINT "º"
NEXT A
FOR A = 4 TO 12
LOCATE A, 61: PRINT "³"
NEXT A
FOR A = 2 TO 79
LOCATE 13, A: PRINT "Í"
NEXT A
FOR A = 2 TO 79
LOCATE 8, A: PRINT "Í"
NEXT A
FOR A = 44 TO 79
LOCATE 9, A: PRINT ""
NEXT A
LOCATE 23, 1: PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"

COLOR 10, 9
LOCATE 2, 25: PRINT "*** C I C L O S ***"
COLOR 14, 0
LOCATE 4, 4: PRINT "AMANECER:"
LOCATE 4, 28: PRINT "DIA:"
LOCATE 4, 45: PRINT "TARDE:"
LOCATE 4, 64: PRINT "NOCHE:"
LOCATE 22, 72: PRINT TIME$

1300 REM ENTRADA DE DATOS..................................




1400 REM AMANECER.............................................
COLOR 10, 9
LOCATE 6, 2: INPUT "¨SALIDA 1"; Z
LOCATE 14, 4: PRINT "SALIDA 1=":
COLOR 10, 9: LOCATE 14, 14: PRINT ; Z
LOCATE 10, 2: INPUT "¨TIEMPO 1"; Y
COLOR 10, 9
LOCATE 14, 25: PRINT "TIEMPO 1="
COLOR 10, 9: LOCATE 14, 35: PRINT ; Y
COLOR 10, 9
LOCATE 14, 48: COLOR 10, 12: PRINT "CONTROL 1.........."

1500 REM DIA .........................................
COLOR 10, 9
LOCATE 6, 22: INPUT "¨SALIDA 2"; P
LOCATE 16, 4: PRINT "SALIDA 2="
COLOR 10, 9: LOCATE 16, 14: PRINT ; P
LOCATE 10, 22: INPUT "¨TIEMPO 2"; W
COLOR 10, 9
LOCATE 16, 25: PRINT "TIEMPO 2="
COLOR 10, 9: LOCATE 16, 35: PRINT ; W
LOCATE 16, 48: COLOR 10, 12: PRINT "CONTROL 2.........."

1600 REM TARDE.........................................
COLOR 10, 9
LOCATE 6, 42: INPUT "¨SALIDA 3"; N
LOCATE 18, 4: PRINT "SALIDA 3="
COLOR 10, 9: LOCATE 18, 14: PRINT ; N
LOCATE 10, 42: INPUT "¨TIEMPO 3"; U
COLOR 10, 9
LOCATE 18, 25: PRINT "TIEMPO 3="
COLOR 10, 9: LOCATE 18, 35: PRINT ; U
LOCATE 18, 48: COLOR 10, 12: PRINT "CONTROL 3.........."



1700 REM NOCHE.........................................
COLOR 10, 9
LOCATE 6, 62: INPUT "¨SALIDA 4"; T
LOCATE 20, 4: PRINT "SALIDA 4="
COLOR 10, 9: LOCATE 20, 14: PRINT ; T
LOCATE 10, 62: INPUT "¨TIEMPO 4"; S
COLOR 10, 9
LOCATE 20, 25: PRINT "TIEMPO 4="
COLOR 10, 9: LOCATE 20, 35: PRINT ; S
LOCATE 20, 48: COLOR 10, 12: PRINT "CONTROL 4.........."

REM * Estado Inicial *

1800 REM * EJECUCION DE CONTADORES.....................................

COLOR 10, 9

FOR A = 1 TO Y
LOCATE 14, 60: PRINT ; A
LPRINT CHR$(Z);
NEXT A:

LPRINT CHR$(0);

FOR B = 1 TO W
LOCATE 16, 60: PRINT ; B
LPRINT CHR$(P),
NEXT B:

LPRINT CHR$(0);


FOR C = 1 TO U
LOCATE 18, 60: PRINT ; C
LPRINT CHR$(N);
NEXT C:

LPRINT CHR$(0);

FOR D = 1 TO S
LOCATE 20, 60: PRINT ; D
LPRINT CHR$(T);
NEXT D:

FOR M = 1 TO S
LPRINT CHR$(0)
LPRINT CHR$(0)
NEXT M
SLEEP 2
CLS : GOSUB 1000

COLOR 10, 9: LOCATE 4, 45: PRINT "PROGRAMA N§ 3"
LOCATE 16, 50: PRINT "PROCESO FINALIZADO"
SLEEP 2

GOTO 150

REM * Estado final * ............................................

END

jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
esto puede servir como ejemplo, se pueden modificar los tienpos, las salidas e incluso colores. espero que sirva para alguno, aunque parece mentira lleva unas cuantas horas de compilación.
Oriente

Posts: 2618
Ubicación: Pamplona


Pastorcillo

Posts: 2618

Ubicación: Pamplona

¡¡¡¡¡¡¡¡Es increible que esto haga funcionar algo.!!!!!!!!!!!  ¡¡¡¡¡¡¡¡¡¡¡Hay que ver lo que hacemos los mecánicos!!!

Bueno, espero que en la Otra Vida entienda algo de esto.

jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
Pues si es increible, pero tu ordenador trabaja con millones de instrucciones como estas....¡¡¡¡¡¡¡¡¡Lo que puede hacer un mecánico!!!!!!!!
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
Hola a todos: veo que van diez descargas, como he comentado en otro post, hay que conectar la T-9 para que se ejecute el programa, si no es así este se queda esperando por esa confirmacion. Si esto sucede se queda bloqueado y debemos apretar control+ alt+Supr y salimos de la ejecucion.
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
hola: me gustaría saber si algun@ ha probado el programa y que le parece...sobre todo a nuetros amigos especialistas en el Tema Nabateo y Pitagorín.

Modificado por jbr_belenes 25/7/2007 19:51

Pitagorin

Posts: 933
Ubicación: Valencia



Pastorcillo

Posts: 933

Ubicación: Valencia
jbr_belenes - 25/7/2007 19:47

hola: me gustaría saber si algun@ ha probado el programa y que le parece...sobre todo a nuetros amigos especialistas en el Tema Nabateo y Pitagorín.


Pues lo siento jbr_belenes, no dispongo de una tarjeta T-9 y no puedo probarlo, todavia me resisto a condicionar un PC para el control de nuestro Belén.


De todas formas en mi caso con 8 salidas, no tendria suficientes para las necesidades, he visto circuitos con pics bastante interesantes, a los cuales se les puede añadir digamos tarjetas de expansión, asi aumentamos las salidas, de esta forma seria interesante realizar pruebas, todo esto en C del cual no estoy muy puesto.
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
sabes algo de la memoria AT90S8515, como se puede programar?

Modificado por jbr_belenes 25/7/2007 23:05
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
esta tarjeta por ejemplo K8000




(061116%201%20Circuitos%20para%20San%20Melchor.jpg)



Adjuntos
----------------
Adjuntos 061116%201%20Circuitos%20para%20San%20Melchor.jpg (56KB - 281 descargas)

Pitagorin

Posts: 933
Ubicación: Valencia



Pastorcillo

Posts: 933

Ubicación: Valencia
No es de microchip es de atmel, no he tenido el placer de tocar mucho estos micros ¿que quieres hacer?

Se puede programar con un apolo si es DIL de 40 pines, si es PLC 44 necesitas un zocalo de 44 pines.

Aqui datos del programador y el datasheet.


http://www.atmel.com/dyn/resources/prod_documents/doc0841.pdf






Adjuntos
----------------
Adjuntos apollo.rar (180KB - 268 descargas)

TORRESOL

Posts: 1782
Ubicación: San Pedro del Pinatar - Murcia



Pastorcillo

Posts: 1782

Ubicación: San Pedro del Pinatar - Murcia
Yo tengo un ordenador que ya está el pobre algo desfasado y me gustaría utulizarlo para el tema de la iluminación, pero esto último lo veo algo complicado ¿No hay ninguna aplicación más sencilla?.

Gracias y un saludo.

huésped extranjero

Posts: 220
Ubicación: Sicilia (ITALIA)



Pastorcillo

Posts: 220

Ubicación: Sicilia (ITALIA)
Un saludo
Juan, no ha probado al banco el funcionamiento de tu programa pero lo he estudiado y mi parecer es que éste es un buen punto de salida por algo que tiene que crecer y mejorarse.
Mis consejos son:
1)En confirmar las opciones selectas, el programa tiene que aceptar, utilizando la función OR, no sólo el "S" na también el "s."
2)Ya que al momento este programa sólo engendra condiciones ON-OFF te aconsejo eliminar los ciclos fijo tipo FOR N = 1 TO 5……. NEXT N y de hacer iniciar de nuevo el mismo ciclo hasta cuando el usuario, utilizando, por ejemplo, una de las teclas F1.. F2 ect. decide interrumpirlo.
Para hacer éste puedes, como bien sayas, utilizar las funciones ON KEY (n)…… GOSUB
3)Podría incrementar el programa con una nueva routine que activa y desactiva un cierto número de relé de modo pseudo casual, pero siempre definidos en el programa mismo, utilizando las funciones READ y DATA.

Por cuánto concierne el AT90S8515 es necesario que me indicas tu exacta dirección de puesta electrónica.

Un buen trabajo y un cordial saludo.

Aldo


Modificado por huésped extranjero 26/7/2007 19:25
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
muchas gracias por tu comentario, lo estudiare y lo tendre en cuenta en proximas actualizaciones. gracias de nuevo
jbr_belenes

Posts: 1396
Ubicación: ---- Gran Canaria


Pastorcillo

Posts: 1396

Ubicación: ---- Gran Canaria
tengo dos ATMEL AT90S8515 del tipo PDP. y me gustaría hacer el proyecto Salvitti, pero no se como programar esta memoria.

http://www.salvitti.it/geo/presepio_avr/index.html#toc

karlitos 138

Posts: 179
Ubicación: utrera (sevilla)



Pastorcillo

Posts: 179

Ubicación: utrera (sevilla)
Hola a todos!! Estebe yo por el foro viendo cosas e ideas para este año en mi Belen y como soy novato pues todo me impresiona, al ver este apratado para utilizar el ordenador en el belen y me e quedado en anonadado, ya que el año pasado puse algunas luces, farolas y antorchas y lo que pude hacer es ponerlas con pilas de petaca y fue un desastre y jure que buscaria otra forma para conseguirlo. Al leer todo esto estoy pensando ta,bien en poner las 4 faces (amanecr, dia...) y estoy aqui viendo muchas formas de hacerlo. Solo quiero preguntar una cosa aqui a todos vosotros expertos en la materia y es cual es la mejor formar con la que puedo hacer esto, tanto por el precio, la facilidad para hacerlo y lo qu eyo necesito, que son las 4 faces y luces en el belen como LED, fogatas...Espero que me podais decir para poder profunicar sobre la materia. MUCHISIMAS GRACIAS adelantadas.
josuese

Posts: 1
Ubicación: Venezuela
19/7/2008 22:04


Pastorcillo

Posts: 1

Ubicación: Venezuela
Hola amigo! Te escribo no por el circuito para el Belén sino porque en mi país (Venezuela) se dejó de importar la revista PC y Telefonía móvil. Yo la pude comprar hasta la número 10. Como mencionaste que tenias la numero 1 es posible que tengas la colección completa. el punto es que tengo la placa PC6r3 pero no tengo los componentes, obviamente porque no tengo los números de la revista que los traen.Si tu la tienes, ¿por favor serias tan amable de facilitarme el valor de cada uno de los componentes de la placa?... De antemano nuchas gracias hermano

conchi

Posts: 1907
Ubicación: asturias



Pastorcillo

Posts: 1907

Ubicación: asturias
Uyyyyyyyy,que susto me he llevado al abrir este post................¿ Hay algún voluntario que me lo quiera instalar a mi ? porque yo me niego a aprender este galimatias ¡¡ni hablar!!
walo

Posts: 23
Ubicación: Burgos


Pastorcillo

Posts: 23

Ubicación: Burgos
Hola, soy nuevo en este foro, pero no nuevo en los belenes.

Anteriormente habeis mencionado a la interface k8000 de velleman.

Ésta interface se puede adquirir por unos 150 euros y posee 16 salidas/entradas analogicas, que yo personalmente las uso como salidas para iluminar las 14 escenas de mi belen, las 2 salidas restantes, las uso para los rayos(efecto relampago), y para activas/desactivar el dia y la noche.

Acabo de adquirir a traves de www.todoelectronica.es otro kit k800o, por lo que en un breve periodo de tiempo dispondre de 32 RELES dispuestos a controlar todo mi belen y un video proyectado al lado.



os ire contando mas novedades a medida que tenga tiempo.

calico

Posts: 1088
Ubicación: Aragón



Pastorcillo

Posts: 1088

Ubicación: Aragón
Bienvenido Walo: No me he enterado de nada. Mis conocimientos electrónicos son, como dijo aguien, "cero patatero".
walo

Posts: 23
Ubicación: Burgos


Pastorcillo

Posts: 23

Ubicación: Burgos
no os preocupeis que voy apreparar un pequeño articulo sobre como automatizar un belen completamente, desde 0, que necesitais y ademas os proporcionare los programas escritos en visual basic.

en el programa que os voy a proporcionar, podeis poner tanto audio como video, si lo que deseais es proyectar en el belen algun video (como tengo yo hecho).

cuando tenga el articulo preparado lo cuelgo
walo

Posts: 23
Ubicación: Burgos


Pastorcillo

Posts: 23

Ubicación: Burgos

Aqui os dejo el video con una narracion de unos 21 minutos en .mpg, que hicimos el año pasado para mi belen, se trata de un video que proyectabamos mientras se iban iluminando cada una de las escenas de la vida de jesus, desde su nacimiento, hasta la huida a egipto.

 

La narración esta incluida en el video, yo creo que si que os va a gustar, asi que aqui os dejo el enlace de descarga:

Descargar (827 Mb)

Otro dia os dejo el tutorial que he prometido del K8000  y el programa en visual basic

sed pacientes con la descarga... pues el servidor lo tengo colapsado y tarda en descargarse



Modificado por walo 24/7/2008 15:01

congonsa

Posts: 1043
Ubicación: Murcia



Pastorcillo

Posts: 1043

Ubicación: Murcia
Alguien ha podido bajarse el video

congonsa

Posts: 1043
Ubicación: Murcia



Pastorcillo

Posts: 1043

Ubicación: Murcia
Sigo sin poder descargarmelo alguien lo ha hecho
Páginas: 1 2 3 4 5
Saltar al foro :
Buscar en este foro
Versión Impresa
Enviar un mail con el enlace a este tema

(Borrar todas las cookies grabadas por este sitio)
Ejecutándose MegaBBS ASP Forum Software
© 2002-2024 PD9 Software