badaman escribió:Orientado a personas sin conocimientos de la máquina.
Prepara tu QL o emulador, que el próximo sábado hay clase.
Explicare:
- Emulación y máquina real
- Conceptos básicos del QL
- Cómo manejarse con programas y ficheros
Si no tienes QL o emulador instalado, puedes usar un emulador en línea para el taller:
- Introducción al SuperBASIC
https://sqlux.qlforum.co.uk/
Usaremos Jitsi para conectar, que no requiere instalar nada en el ordenador, salvo el navegador web.
Taller de QL básico
Ponente: Badaman
Fecha: Sábado 27 de enero, 10:00 am
Duración 1,5 horas
Medio: Jitsi (se comunicará enlace por este medio)
Requisitos: QL, emulador instalado o emulador en línea
Material de apoyo: Manuales.
Manual del QL: https://sinclairql.es/manuales.htm
Manual del Toolkit II: https://sinclairql.es/manuales/tk2/index.htm
Usando zip y unzip en el QL: https://sinclairql.es/manuales/zipunzip/zipunzip.htm
Taller de QL básico: Sábado 27 de Enero de 2024
Moderador: Fundadores
- cacharreo
- Moderador
- Mensajes: 6100
- Registrado: 09 Ago 2019, 10:17
- Ubicación: /home/cacharreo/
- Has thanked: 1248 times
- Been thanked: 2998 times
- Contactar:
Taller de QL básico: Sábado 27 de Enero de 2024
© cacharreo
- cacharreo
- Moderador
- Mensajes: 6100
- Registrado: 09 Ago 2019, 10:17
- Ubicación: /home/cacharreo/
- Has thanked: 1248 times
- Been thanked: 2998 times
- Contactar:
Re: Taller de QL básico: Sábado 27 de Enero de 2024
Recuerdo el enlace para el taller sobre SuperBASIC que comenzará en unas 3 horas,
https://meet.jit.si/taller_QL
y si hay problemas:
https://meet.google.com/isc-deda-wxi
y aprovecho para añadir el código del programa sobre el que se desarrollará este minicurso.
https://meet.jit.si/taller_QL
y si hay problemas:
https://meet.google.com/isc-deda-wxi
y aprovecho para añadir el código del programa sobre el que se desarrollará este minicurso.
Código: Seleccionar todo
100 REMark Demo SuperBASIC - Pelota que rebota
110 disp$="mdv1_": inicio
120 :
130 REPeat programa
140 mueve_pelota
150 IF KEYROW(1)=8 THEN EXIT programa: REMark sale con 'ESC'
160 END REPeat programa
170 MODE 4: STOP
180 :
190 DEFine PROCedure inicio
200 MODE 8: PAPER 2,0: BORDER 0: CLS: INK #0,4: CLS #0
210 REMark No inicializar 'x' e 'y' en los extremos
220 x=1: y=1: dx=1: dy=1: tx=18: ty=35: p$=CHR$(226): c=7
230 :
240 INK c: CSIZE 3,1: UNDER 1
250 AT 8,1: PRINT "P E L O T A"
260 CSIZE 0,0: UNDER 0
270 ayuda(" Pulse una tecla para comenzar ")
280 PAUSE: CLS
290 ayuda(" Use 'ESC' para salir ")
300 END DEFine inicio
310 :
320 DEFine PROCedure ayuda(txt)
330 CLS#0: PRINT #0,txt
340 END DEFine ayuda
350 :
360 DEFine PROCedure mueve_pelota
370 c=color: BORDER 4,c: INK c: AT x,y: PRINT p$
380 IF x=0 OR x=tx THEN crack: dx=-dx
390 IF y=0 OR y=ty THEN crack: dy=-dy
400 PAUSE 10: REMark cambia con la velocidad del sistema
410 AT x,y: PRINT " "
420 x=x+dx: y=y+dy
430 END DEFine mueve_pelota
440 :
450 DEFine FuNction color
460 nc=RND(7)
470 IF NOT (nc=0 OR nc=2): c=nc
480 RETurn c
490 END DEFine color
500 :
510 DEFine PROCedure crack: AT x,y: PRINT "*": END DEFine crack
520 :
530 DEFine PROCedure sa
540 DELETE disp$&"pelota_bas"
550 SAVE disp$&"pelota_bas"
560 END DEFine sa
© cacharreo
- cacharreo
- Moderador
- Mensajes: 6100
- Registrado: 09 Ago 2019, 10:17
- Ubicación: /home/cacharreo/
- Has thanked: 1248 times
- Been thanked: 2998 times
- Contactar:
Re: Taller de QL básico: Sábado 27 de Enero de 2024
Se acabó la sesión por Meet y se ha cambiado a: https://meet.google.com/dhr-dvgb-xqw
Las cabinas telefónicas en los 70 eran más fiables.
Las cabinas telefónicas en los 70 eran más fiables.
© cacharreo
- cacharreo
- Moderador
- Mensajes: 6100
- Registrado: 09 Ago 2019, 10:17
- Ubicación: /home/cacharreo/
- Has thanked: 1248 times
- Been thanked: 2998 times
- Contactar:
Re: Taller de QL básico: Sábado 27 de Enero de 2024
@ron escribió:Aquí tenéis accesibles on line los videos del taller de hoy, creo que duran 15 días...
Primera parte en Jitsi:
www.twitch.tv/videos/2045003255
Segunda parte en Meet:
www.twitch.tv/videos/2045008713
© cacharreo