eko2:(Puerto.bas):13/05/2001 << Back To eko2


REM ********************************************************************** REM / La Direccion de los puertos se expresa en HEX \ REM / El Puerto LPT1 se localiza en H3BC para escribir y H3BD para leer. \ REM / Mientras que LPT2 esta en 378 para escribir y 379 para leer. \ REM ********************************************************************** CLS PuertoLectura% = &H3BD: REM * Direccion asignada para Lectura * PuertoEscritura% = &H3BC: REM * Direccion para Escritura * Ritmo% = 3000: REM * Establece el Delay * Secuencia% = 0 LOCATE 5, 20: PRINT "Ezkracho Team WWW.EZKRACHO.COM.AR" LOCATE 7, 22: PRINT " ------------------------------------" LOCATE 8, 22: PRINT " | |-----------| |" LOCATE 9, 22: PRINT " ------------------------------------" LOCATE 10, 22: PRINT " Retardo Secuencia" LOCATE 13, 22: PRINT "Pulse <ESC> Para Terminar" i% = 0 DO LOCATE 8, 36: PRINT "--------" Lee% = (INP(PuertoLectura%) AND &H38) / 8: REM ** Enmascara Lectura ** SELECT CASE Lee% CASE 2 Ritmo% = Ritmo% + 200 IF Ritmo% > 10000 THEN Ritmo% = 10000 CASE 3 Ritmo% = Ritmo% - 200 IF Ritmo% < 200 THEN Ritmo% = 200 CASE 4 Secuencia% = Secuencia% + 1 IF Secuencia% > 3 THEN Secuencia% = 0 CASE 5 Secuencia% = Secuencia% - 1 IF Secuencia% < 0 THEN Secuencia% = 3 END SELECT LOCATE 8, 25: PRINT Ritmo%: REM * Muestra retardo en los LEDs * LOCATE 8, 50: PRINT Secuencia% + 1: REM * Muestra Secuencia Actual * SELECT CASE Secuencia%: REM * Determina cual es secuencia de salida * CASE 0 Dato% = 2 ^ i% LOCATE 8, 36 + i%: PRINT "O" CASE 1 Dato% = NOT (255 - 2 ^ (7 - i%)) LOCATE 8, 43 - i%: PRINT "O" CASE 2 Dato% = 2 ^ i% + NOT (255 - 2 ^ (7 - i%)) LOCATE 8, 36 + i%: PRINT "O" LOCATE 8, 43 - i%: PRINT "O" CASE 3 Dato% = 2 ^ i% + 2 ^ (Anterior%) + 2 ^ (Viejo%) LOCATE 8, 36 + i%: PRINT "O" LOCATE 8, 36 + Anterior%: PRINT "O" LOCATE 8, 36 + Viejo%: PRINT "O" END SELECT OUT PuertoEscritura%, Dato%: REM * Saca el dato por LPT * FOR j% = 0 TO Ritmo%: NEXT j%: REM * Establece un retardo * Viejo% = Anterior%: Anterior% = i%: REM * Actualiza valores * i% = i% - 1: IF i% > 7 THEN i% = 0 LOOP UNTIL INKEY$ = CHR$(27) REM * 27 es el Ascii para ESC. * END