Salut,
Je me dis que c'est probablement sur Sili que je vais trouver la réponse à ma question, j'ai posté sur d'autres forums, mais personne à ce jour n'a répondu...
faut dire que le BASIC n'attire visiblement plus les foules. Et impossible de s'inscrire sur le forum de QB64.net...
J'ai réussi à faire ce que je voulais sur ma Casio grâce à l'aide de la communauté de Sili, et notamment Tyann, tout est dans ce fil de discussion :
viewtopic.php?f=46&t=40022
Je n'ai pas posté à la suite, car cela ne concerne plus la fx-850p, mais le QB64 que j'utilise sur le PC.
J'aimerais trouver un équivalent à la fonction VALF qui est utilisée sur la 850p. Et tant qu'à faire, une solution qui ne m'oblige pas à passer par le langage machine.
Ci-dessous, le code sur lequel je travaille aujourd'hui, en QB64, et qui me permet de tracer des fonctions :
Code : Tout sélectionner
'Draw Function
1
SCREEN 12
COLOR 11
CLEAR
CLS
DEFDBL A-Z
PRINT
PRINT TAB(20); " Tracé d'une fonction"
PRINT
PRINT " Echelle :"
PRINT
INPUT " Valeur minimale de x "; xmin
INPUT " Valeur maximale de x "; xmax
INPUT " Valeur minimale de y "; ymin
INPUT " Valeur maximale de y "; ymax
CLS
WINDOW (xmin + xmin / 10, ymin + ymin / 10)-(xmax + xmax / 10, ymax + ymax / 10)
LINE (xmin, 0)-(xmax, 0)
LINE (0, ymin)-(0, ymax)
FOR i = xmin TO xmax STEP 1
PSET (i, xmax / 320)
NEXT i
FOR j = ymin TO ymax STEP 1
PSET (ymin / 320, j)
NEXT j
FOR x = xmin TO xmax STEP 1 / 128
IF x = xmin THEN PSET (x, f(x)), 14
LINE -(x, f(x)), 14
NEXT x
LOCATE 28, 1
INPUT " Encore (o/n) "; z$
IF z$ = "o" THEN 1 ELSE END
FUNCTION f (x)
f = x ^ 3 - 3 * x ^ 2 + 2
END FUNCTION
Cet équivalent à VALF me permettrait de m'affranchir de FUNCTION... END FUNCTION, pour ne pas avoir à éditer le programme à chaque fois que je veux remplacer une fonction.
Est-ce possible ?
Merci.
W.
