0 Members and 2 Guests are viewing this topic.
.0:
.0:Return
:.0:Return :.LOOP ;un label :getKey→A ;le pression sur la touche enregistrées dans le var A :If A=0 ;Vérifie si A est zéro :Goto Lbl "LOOP ;va au le label "LOOP" s'il n'y a pas un pression de touche :ClrDraw ;efface l'écran :Text('0,0,A ;écrit le nombre en le var A dans l'écran :DispGraph ;affiche l'écran :Stop ;Arréte la programme
.0:Return.LOOP ;un labelgetKey→A ;la touche pressée est enregistrée dans la variable AIf A=0 ;Vérifie si A vaut zéroGoto Lbl "LOOP ;va au le label "LOOP" s'il n'y a pas de touche presséeClrDraw ;efface l'écranText('0,0,A ;écrit le nombre contenu dans la variable A à l'écranDispGraph ;affiche l'écranStop ;Arrête le programme
.0:ReturnClrDraw"Hello!→AText(0,0,ADispGraphStop
.0:ReturnSend(1,"ETest→Z ;Crée un programme en BASIC et en stocke l'adresse dans Zint(Z,49 ;Cela écrit un octet contenant 49 à l'endroit de la mémoire pointé par ZStop
.0:ReturnSend(1,"ETest→Z ;Creates a BASIC program variable and stores the location in Zint(Z,49 ;This writes the byte 49 to the spot in memory pointed to by ZStop
J'ai traduit tout ça et je l'ai ajouté à mon premier post.
Je suis content de voir un tutoriel en français pour grammer. Quand il sera fini tu devrais le placer dans la section tutorials ici aussi http://www.omnimaga.org/index.php?action=articles;cat=11
Dans ce cas, j'attends celui en français
Sinon, si tu veux comprendre pourquoi j'attends celui en français, regarde un peu la tête de celui en anglais... La mise en page n'est pas bien encourageante. (ça vaut pas le tien sur le site du zéro )