DLL EVAL : Evaluation d'expressions mathématiques

dll_on "eval.dll"

dim x, i%, variable$, expression$, result

i% = dll_call0("InitFunc")

print i%, " fonctions initialisées dans la DLL EVAL"

variable$ = "x"
x = rnd(1)

i% = dll_call2("SetVariable", adr(variable$), adr(x))

print
print "Nom de la variable : ", variable$
print "Numéro d'ordre    : ", i%
print "Valeur            : ", x

expression$ = "cos(x)^2 + sin(x)^2"

i% = dll_call2("Eval", adr(expression$), adr(result))

print
print "Expression    : ", expression$
print "Resultat      : ", result
print "Code d'erreur : ", i%

dll_off

end

dim i%, variable$, expression$, value, result
label On_Click_Button_13

left 0,225
top 0,200
width 0,470
height 0,225
caption 0,"Calculatrice"
 
alpha 1
left 1,20
top 1,20
caption 1,"Variables :"

alpha 2
left 2,20
top 2,50
width 2,27
height 2,20
caption 2,"A = "

edit 3
left 3,50
top 3,50
text 3, "1"

alpha 4
left 4,20
top 4,80
width 4,28
caption 4,"B = "

edit 5
left 5,50
top 5,80
text 5, "2"

alpha 6
left 6,20
top 6,110
width 6,29
caption 6,"C = "

edit 8
left 8,50
top 8,110
text 8, "3"

alpha 9
left 9,20
top 9,140
width 9,29
caption 9,"D = "

edit 10
left 10,50
top 10,140
text 10, "4"

alpha 11
left 11,220
top 11,20
width 11,170
caption 11,"Saisissez une formule, puis cliquez sur Evaluer :"

edit 12
left 12,220
top 12,50
width 12,225
text 12, "A + B + C + D"

button 13
left 13,261
top 13,90
width 13,140
caption 13,"Evaluer"
on_click 13, On_Click_Button_13

alpha 14
left 14,220
top 14,140
width 14,62
caption 14,"Résultat = "

edit 15
left 15,290
top 15,140
width 15,150
text 15,""

dll_on "eval.dll"
i% = dll_call0("InitFunc")

end

On_Click_Button_13:

  variable$ = "A" : value = val(text$(3))
  i% = dll_call2("SetVariable", adr(variable$), adr(value))
 
  variable$ = "B" : value = val(text$(5))
  i% = dll_call2("SetVariable", adr(variable$), adr(value))

  variable$ = "C" : value = val(text$(8))
  i% = dll_call2("SetVariable", adr(variable$), adr(value))
 
  variable$ = "D" : value = val(text$(10))
  i% = dll_call2("SetVariable", adr(variable$), adr(value))

  expression$ = text$(12)
 
  i% = dll_call2("Eval", adr(expression$), adr(result))

  text 15, str$(result)
return

Dim i%, pi, x1, x2, x3, x4
pi = 0
For i% = 0 to 10
    x1 = 4/(8*i%+1)
    x2 = -2/(8*i%+4)
    x3 = -1/(8*i%+5)
    x4 = -1/(8*i%+6)
    pi = pi + (1/power(16,i%))*(x1 + x2 + x3 + x4)
    print i%;": "; pi
next i%
end

Dim i%, j%, k%, pi, x1, x2, x3, x4

pi = 3.133333333333333
k% = 16

For i% = 1 to 10
    j% = 8 * i%
    x1 = 4/(j%+1)
    x2 = -2/(j%+4)
    x3 = -1/(j%+5)
    x4 = -1/(j%+6)
    pi = pi + (x1 + x2 + x3 + x4) / k%
    k% = k% * 16
    print i%;": "; pi
next i%

print
print 4 * atn(1)  : ' pour vérifier

end

Que j'aime à faire apprendre ce nombre utile aux sages !    3 1 4 1 5 9 2 6 5 3 5
Immortel Archimède, artiste ingénieur,                          8 9 7 9
Qui de ton jugement peut priser la valeur ?    3 2 3 8 4 6 2 6
Pour moi, ton problème eut de pareils avantages.    4 3 3 8 3 2 7 9
Jadis, mystérieux, un problème bloquait    5 0 2 8 8
Tout l'admirable procédé, l'œuvre grandiose    4 1 9 7 1 6 9
Que Pythagore découvrit aux anciens Grecs.    3 9 9 3 7 5
0 quadrature ! Vieux tourment du philosophe    1 0 5 8 2 9
Insoluble rondeur, trop longtemps vous avez    9 7 4 9 4 4
Défié Pythagore et ses imitateurs.    5 9 2 3 0
Comment intégrer l'espace plan circulaire ?    7 8 1 6 4 0
Former un triangle auquel il équivaudra ?    6 2 8 6 2 0
Nouvelle invention : Archimède inscrira    8 9 9 8
Dedans un hexagone ; appréciera son aire    6 2 8 0 3 4
Fonction du rayon. Pas trop ne s'y tiendra :    8 2 5 3 4 2 1 1 7
Dédoublera chaque élément antérieur ;    0 6 7 9
Toujours de l'orbe calculée approchera ;    8 2 1 4 8 0
Définira limite ; enfin, l'arc, le limiteur    8 6 5 1 3 2 8
De cet inquiétant cercle, ennemi trop rebelle    2 3 0 6 6 4 7
Professeur, enseignez son problème avec zèle    0 9 3 8 4 4