Nouveau langage pour TI z80 : le Grammer !

[jacques]

Les TI z80 ont décidément encore de beaux jours devant elles. Après le BBC Basic, après l'Axe, un nouveau langage de programmation a vu le jour : le Grammer !




Le Grammer, conçu par Xeda Elnara, est un langage qui se veut aussi facile et sûr que le Ti-Basic, mais bien plus puissant que ce dernier.
Un programme en Grammer s'écrit dans l'éditeur de programme de la TI, et se lance via un interpréteur en assembleur de 4633 octets (cette précision est importante car l'interpréteur doit être désarchivé pour exécuter un programme).
La syntaxe se rapproche beaucoup du Ti-Basic, mais comprend des fonctions plus poussées (l'accès aux variables de l'OS, par exemple), utilise les pointeurs et permets les commentaires dans un programme ! On retrouve également des possibilités bien pratiques du Ti-Basic, telles que stopper un programme un appuyant sur "ON".

Voici un exemple de code, qui fait une boucle jusqu'à ce que la touche "ENTER" soit pressée :

Code: Select all

:Return→A
:If 9≠getKey
:Goto A

Cependant, Grammer n'en est seulement qu'à ses débuts, et relativement peu de fonctions sont disponibles, par rapport à ses concurrents.


Vous pouvez télécharger Grammer sur TiCalc : http://www.ticalc.org/archives/files/fileinfo/441/44104.html.


[source : yaroNet]

[Xeda E.]

Bonjour! Pardonnez-moi pour ma grammaire (je parle en anglais pour le plus-part), mais je suis l'auteure de Grammer! J'ai reçu une requête pour une version pour la TI-83/TI-82 STAT et je pense que c'est une bonne idée!

[Adriweb]

Super !

Et bonne chance

[Xeda E.]

Merci Maintenant, Grammer utilise l'OS seulement quatre fois, donc le traduction sera plus facile que j'ai pensé. Il sera cool si on peut créer une programme pour le TI-82, TI-83, TI-83+, et TI-84+!

EDIT:Ici une liste de fonctions:

Code: Select all

.
space
NewLine
:
nCr
For(
Full
ClrDraw
ClrHome
min(
max(
Horizontal
Vertical
Shade(
rand
randInt(
lcm(
gcd(
pxl-Test(
Circle(
Pxl-On(
Pxl-Off(
Pxl-Change(
prgm
Disp
Text(
Pt-Off(
Line(
(
{
iPart(
int(
Get(
Repeat
While
End
Stop
Pt-On(
"
getKey
If
A~θ
A'~θ'
→
Return
Lbl
Goto
DispGraph
0~9
√(
√('
cos(
sin(
abs(
-               ;negatif
+
-
²
*
//              ;comment
/
=
<
>
≤
≥
≠