Derniers sujets
» Comment configurer un joystick ?
Un éditeur d'écran HIRES simple et en basic EmptyHier à 10:18 par Sebiohazard

» Lancement de jeux - Messages d'erreur
Un éditeur d'écran HIRES simple et en basic EmptyHier à 10:06 par Sebiohazard

» Aides pour le depannage
Un éditeur d'écran HIRES simple et en basic EmptyHier à 6:25 par Voyageur

» The last warrior
Un éditeur d'écran HIRES simple et en basic EmptyVen 19 Juil 2019 - 14:58 par Dom50

» Base de données listings ?
Un éditeur d'écran HIRES simple et en basic EmptyMer 17 Juil 2019 - 7:17 par Symoon

» Pub télé pour l'Oric Atmos
Un éditeur d'écran HIRES simple et en basic EmptyLun 15 Juil 2019 - 23:29 par Ladywasky

» Invitation à l'Alchimie 13
Un éditeur d'écran HIRES simple et en basic EmptyDim 14 Juil 2019 - 19:36 par didierv

» Devoirs de vacances
Un éditeur d'écran HIRES simple et en basic EmptyDim 14 Juil 2019 - 13:09 par Voyageur

» Petit jeu: robot
Un éditeur d'écran HIRES simple et en basic EmptySam 13 Juil 2019 - 12:11 par Symoon

» The voyage of the Golden Hind
Un éditeur d'écran HIRES simple et en basic EmptyVen 12 Juil 2019 - 12:47 par retroric

» récupération d'anciens listings via l'OCR Google Docs
Un éditeur d'écran HIRES simple et en basic EmptyVen 12 Juil 2019 - 12:43 par retroric

» Boitier Oric HD
Un éditeur d'écran HIRES simple et en basic EmptyVen 12 Juil 2019 - 0:54 par Symoon

» Effet sonore : Torpille spatiale (Deuxlignes !)
Un éditeur d'écran HIRES simple et en basic EmptyMer 10 Juil 2019 - 18:19 par Ladywasky

» Un "oncle/cousin" de l'Oric ?
Un éditeur d'écran HIRES simple et en basic EmptyMer 10 Juil 2019 - 12:36 par kenneth

» Zorgons Revenge cassette demo
Un éditeur d'écran HIRES simple et en basic EmptyDim 7 Juil 2019 - 9:25 par Symoon

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 25 Fév 2015 - 14:01
Connexion

Récupérer mon mot de passe

Statistiques
Nous avons 188 membres enregistrés
L'utilisateur enregistré le plus récent est Sebiohazard

Nos membres ont posté un total de 7453 messages dans 645 sujets
Portail ORIC




Un éditeur d'écran HIRES simple et en basic

Poster un nouveau sujet   Répondre au sujet

Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Un éditeur d'écran HIRES simple et en basic

Message par TotoShampoin le Dim 18 Nov 2018 - 20:23

Coucou les oriciens!

Alors j'ai fais un simple petit programme où on est dans un écran HIRES et on contrôle un pointeur avec les touches I et K. Et ce pointeur pointe vers une adresse entre #A000 et #BF3F, et avec les touches J et L, on incrémente ou décrémente la valeur de l'adresse de 1... Et on admire le petit changement sur l'écran HIRES.

Ce petit programme tient en BASIC, alors voici le code et un .TAP :

Code:
 0 CLS
 5 DOKE #24D,2048
 6 POKE #24F,2
 10 A=#A000
 11 HIRES
 15 PRINT
 16 PRINT "",A,PEEK(A)
 20 GET K$
 21 IF K$="Q" THEN 300
 30 IF K$="I" THEN A=A-1
 40 IF K$="K" THEN A=A+1
 50 IF K$="J" THEN POKE A,PEEK(A)-1
 60 IF K$="L" THEN POKE A,PEEK(A)+1
 70 IF A>#BF3F THEN A=A-#1F40
 80 IF A<#A000 THEN A=A+#1F40
 120 GOTO 15
 300 DOKE #24D,8192
 310 POKE #24F,4
Fichiers joints
Un éditeur d'écran HIRES simple et en basic Attachment
HIRECURS.zip Mélange entre HIRES et CURSOR :3(1 Ko) Téléchargé 38 fois

_________________
Bonjour c:
TotoShampoin
TotoShampoin

Messages : 71
Date d'inscription : 16/08/2017
Age : 18
Localisation : Lagny Sur Marne

Revenir en haut Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Re: Un éditeur d'écran HIRES simple et en basic

Message par Symoon le Dim 18 Nov 2018 - 21:36

Simple et intéressant, bonne idée !
Une piste d'amélioration: boucler sur la valeur de l'octet. Quand on arrive à 255, repasser à 0 si on a fait +1 (actuellement, ça passe à 256 avec un illegal quantity error). Et inversement de 0 à 255 Wink
Symoon
Symoon

Messages : 666
Date d'inscription : 26/04/2014

Revenir en haut Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Re: Un éditeur d'écran HIRES simple et en basic

Message par TotoShampoin le Dim 18 Nov 2018 - 21:38

Ah mince! C'est pas intelligent le Basic? Shame >_<


D'ailleurs, j'ai essayé d'assigner des couleurs, et... J'ai atteint des valeurs qui ont juste fais buger le programme :c

Du coup, à ce stade, il faudrait ajouter des fonctionnalités que je me dis que ce serait mieux de le faire en C.
Est-ce que je m'y colle?

_________________
Bonjour c:
TotoShampoin
TotoShampoin

Messages : 71
Date d'inscription : 16/08/2017
Age : 18
Localisation : Lagny Sur Marne

Revenir en haut Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Re: Un éditeur d'écran HIRES simple et en basic

Message par Jede le Mar 20 Nov 2018 - 11:03

TotoShampoin a écrit:Ah mince! C'est pas intelligent le Basic? Shame >_<


D'ailleurs, j'ai essayé d'assigner des couleurs, et... J'ai atteint des valeurs qui ont juste fais buger le programme :c

Du coup, à ce stade, il faudrait ajouter des fonctionnalités que je me dis que ce serait mieux de le faire en C.
Est-ce que je m'y colle?

En éditeur hires sur oric natif, il y a Hide. Je pense qu'il est très bien pensé. Je l'utilise de temps à autres.
Jede
Jede

Messages : 266
Date d'inscription : 20/04/2016
Localisation : Var

Revenir en haut Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Re: Un éditeur d'écran HIRES simple et en basic

Message par TotoShampoin le Mar 20 Nov 2018 - 17:36

L'idée, c'était surtout de manipuler l'écran HIRES en dur, directement par la mémoire.

Après, si je voulais un truc simple et efficace pour un éditeur HIRES en tant que tel, j'aurais fait un truc certainement plus poussé ^-^

Je peux toujours repartir de 0 pour faire un éditeur par INPUT et non par GET

_________________
Bonjour c:
TotoShampoin
TotoShampoin

Messages : 71
Date d'inscription : 16/08/2017
Age : 18
Localisation : Lagny Sur Marne

Revenir en haut Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Re: Un éditeur d'écran HIRES simple et en basic

Message par TotoShampoin le Mar 20 Nov 2018 - 18:00

Voilà! Très vite fait

Code:
 0 CLS
 10 HIRES
 15 CLS
 20 PRINT "ENTRE #A000 ET #BF3F (40960 ET 48959)"
 25 INPUT "ADRESSE ";A
 30 IF A<#A000 OR A>#BF3F THEN 15
 35 V = PEEK(A)
 36 POKE A,127
 40 CLS
 45 PRINT A;" : ",V
 50 INPUT "VALEUR ";P
 60 IF P<0 OR P>255 THEN 40
 70 POKE A,P
 400 GOTO 15
Fichiers joints
Un éditeur d'écran HIRES simple et en basic Attachment
HIREPUT.zip (1 Ko) Téléchargé 27 fois

_________________
Bonjour c:
TotoShampoin
TotoShampoin

Messages : 71
Date d'inscription : 16/08/2017
Age : 18
Localisation : Lagny Sur Marne

Revenir en haut Aller en bas

Un éditeur d'écran HIRES simple et en basic Empty Re: Un éditeur d'écran HIRES simple et en basic

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

Poster un nouveau sujet   Répondre au sujet
 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum