Commodore 64 > Programmazione, Grafica e Musica
Aggiunta di routine per lancio di schermate introduttive a tempo in un prg Basic
Kick Off:
Saluti a tutta la comunità di Ready64 e del suo forum.
Dunque, come beninteso nel titolo ho una piccola idea che vorrei realizzare giusto per diletto, e spero di trovare qualcuno ben disposto ad aiutarmi, sò che l'impresa perlo più sarà ardua benchè siano passati molti anni.
L'idea è questa, vorrei creare una o più routine da inserire in un programma in Basic, oppure scrivere le routine e l'intero programma (già realizzato in Basic), in linguaggio L.M.(linguaggio macchina), lo scopo di questa/e routine è di garantirmi la succesione di schermate "temporizzate".
Nella prima deve apparire la sequenza dei titoli del programma, l'autore, l'anno di pubblicazione/creazione.
Nella successiva schermata deve apparire il messaggio:
"press key return to begin" oppure "press key return to continue"
Sè l'utente ha premuto il tasto richiesto, (in questo caso il return), vorrei che passasse alla schermata del menù a scelta del programma.
Da notare che la schermata del menù a scelta è da me già scritto in basic all'interno del programma.
(entrambe le schermate a video, possono essere scritte in inglese o italiano per me è indifferente. Purchè atte allo scopo.)
Vi ricordo ancora che il programma in questione con il menù a scelta, la grafica e il suo contenuto sono stati da me già scritti in Basic semplice senza loader gira perfettamente su un C64 reale, ma mi manca la parte appunto che vi ho appena descritto.
Spero vivamente che abbiate tutti compreso e vi ringrazio da subito per gli aiuti, e le dritte che eventualmente mi fornirete.
Eh scusatemi per la richiesta un pò stupida credo.
Flavioweb:
Il metodo più semplice per farlo è questo:
--- Codice: ---10 print "premi return"
20 get a$: if a$<>chr$(13) then goto 20
30 print "aspetta un attimo..."
40 for i=1 to 1500:next i
50 goto 10
--- Termina codice ---
La linea 20 aspetta la pressione del tasto RETURN (codice PETSCII 13), mentre la linea 40 attende circa 3 secondi.
Col Cbm64, all' incirca, un ciclo FOR...NEXT di 500 iterazioni "a vuoto" impiega 1 secondo per essere portato a termine, quindi il valore 1500 crea un' "attesa" di, più o meno, 3 secondi.
Kick Off:
--- Citazione da: Flavioweb - 03 Dicembre 2016, 22:01:35 ---Il metodo più semplice per farlo è questo:
--- Codice: ---10 print "premi return"
20 get a$: if a$<>chr$(13) then goto 20
30 print "aspetta un attimo..."
40 for i=1 to 1500:next i
50 goto 10
--- Termina codice ---
La linea 20 aspetta la pressione del tasto RETURN (codice PETSCII 13), mentre la linea 40 attende circa 3 secondi.
Col Cbm64, all' incirca, un ciclo FOR...NEXT di 500 iterazioni "a vuoto" impiega 1 secondo per essere portato a termine, quindi il valore 1500 crea un' "attesa" di, più o meno, 3 secondi.
--- Termina citazione ---
Interessante....per rendere meglio l'idea vorrei postare alcune immagini del programma sè mi consentite a farlo.
[allegato eliminato da un amministratore]
Kick Off:
seconda immagine
[allegato eliminato da un amministratore]
Kick Off:
tre
[allegato eliminato da un amministratore]
Navigazione
[0] Indice dei post
Vai alla versione completa