Discussion :

[telodo]

Bonsoir a tous,

Tout d'abords, merci de l'importance et du temps que vous m'accordez.


Je tente de compiler un petit programme, cependant j'ai une erreure : Unbound value moveto


Je me permet de vous presenter le code source :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
let yg x y z=moveto x y;
set_color black;
fill_circle x y z;
set_color white;
fill_rect x (y-z) (2*z) (2*z);
fill_circle x (y+z/2) (z/2);
set_color black;
fill_circle x (y-z/2) (z/2);
draw_circle x y z;
fill_circle x (y+z*2/3) (z/7);
set_color white;
fill_circle x (y-z*2/3) (z/7);;
let mess x y=
set_color black;
moveto x y;
lineto x (y+30);
moveto x (y+15);
lineto (x+5) (y+15);
lineto (x+5) (y+30);
lineto (x+5) (y-30);
moveto (x+10) y;
lineto (x+12) (y+30);
lineto (x+15) (y+13);
lineto (x+12) (y+13);
moveto (x+15) (y+13);
lineto (x+15) y;
moveto (x+25) (y+15);
lineto (x+20) (y+15);
lineto (x+20) y;
lineto (x+25) y;
moveto (x+30) y;
lineto (x+30) (y+30);
moveto (x+30) (y+15);
lineto (x+35) (y+30);
moveto (x+30) (y+15);
lineto (x+35) y;
moveto (x+40) y;
lineto (x+45) y;
moveto (x+47) y;
lineto (x+47) (y+29);
lineto (x+44) (y+30);
moveto (x+47) (y+29);
lineto (x+50) (y+30);
moveto (x+55) y;
lineto (x+55) (y+30);
moveto (x+55) (y+15);
lineto (x+60) (y+15);
lineto (x+60) (y+30);
lineto (x+60) (y-30);
moveto (x+70) y;
lineto (x+65) y;
lineto (x+65) (y+15);
lineto (x+72) (y+15);
moveto (x+65) (y+15);
lineto (x+65) (y+30);
lineto (x+70) (y+30);
moveto (x+75) y;
lineto (x+80) y;
moveto (x+85) y;
lineto (x+85) (y+30);
lineto (x+87) (y+26);
lineto (x+87) (y+23);
lineto (x+85) (y+17);
lineto (x+85) (y+13);
lineto (x+87) (y+8);
lineto (x+87) (y+5);
lineto (x+85) y;
moveto (x+90) y;
lineto (x+90) (y+30);
lineto (x+92) (y+26);
lineto (x+92) (y+23);
lineto (x+90) (y+17);
lineto (x+90) (y+13);
lineto (x+92) (y+8);
lineto (x+92) (y+5);
lineto (x+90) y;
moveto (x+95) y;
lineto (x+97) y;
lineto (x+98) (y+3);
lineto (x+99) (y+5);
lineto (x+100) (y+10);
lineto (x+100) (y+15);
lineto (x+98) (y+20);
lineto (x+97) (y+25);
lineto (x+95) (y+30);
lineto (x+100) (y+30);;
clear_graph();
yg 200 200 100;
mess 400 130;;

Ca fait deja 2h que je tourne en ronds sur internet.. Je n'en peux plus !

[Steki-kun]

moveto, lineto et leurs amies sont définies dans le modules Graphics, je ne vois nulle part dans ton code de référence à ce module. C'est pourquoi le système te dit qu'il ne sait pas d'où sort moveto !

Il te faut soit l'ouvrir avec la commande "open Graphics" pour pouvoir utiliser partout les fonctions qui y sont définies, soit (de manière générale, mais ici je te le déconseille) écrire Graphics.moveto, Graphics.lineto, etc, ce qu'on appelle "qualifier" les identificateurs.

[telodo]

Merci beaucoup de votre reponse, je vais aller essayer ca.

[telodo]

A présent j'ai cette erreur (Caml Light pointe sur "let") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
>let yg x y z=moveto x y;
Erreur de syntaxe.

Décidément Je ne vais jamais y arriver !

[alex_pi]

A présent j'ai cette erreur (Caml Light pointe sur "let") :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
>let yg x y z=moveto x y;
Erreur de syntaxe.

Décidément Je ne vais jamais y arriver !

Vu que c'est la première ligne du code que l'on a déjà, et qu'a priori, tu as rajouté des chose avant, il faudrait nous montrer ce que tu as rajouté avant.

Et en caml-light, c'est ;; pour conclure un blok d'instruction, pas un simple ;

[telodo]

Donc en fait, j'ai juste rajoute (comme en C) la librairie "Open Graphics" en tete de document. Voici donc ce que j'ai a present :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
 
open Graphics
 
let yg x y z=moveto x y;
set_color black;
fill_circle x y z;
set_color white;
fill_rect x (y-z) (2*z) (2*z);
fill_circle x (y+z/2) (z/2);
set_color black;
fill_circle x (y-z/2) (z/2);
draw_circle x y z;
fill_circle x (y+z*2/3) (z/7);
set_color white;
fill_circle x (y-z*2/3) (z/7);;
let mess x y=
set_color black;
moveto x y;
lineto x (y+30);
moveto x (y+15);
lineto (x+5) (y+15);
lineto (x+5) (y+30);
lineto (x+5) (y-30);
moveto (x+10) y;
lineto (x+12) (y+30);
lineto (x+15) (y+13);
lineto (x+12) (y+13);
moveto (x+15) (y+13);
lineto (x+15) y;
moveto (x+25) (y+15);
lineto (x+20) (y+15);
lineto (x+20) y;
lineto (x+25) y;
moveto (x+30) y;
lineto (x+30) (y+30);
moveto (x+30) (y+15);
lineto (x+35) (y+30);
moveto (x+30) (y+15);
lineto (x+35) y;
moveto (x+40) y;
lineto (x+45) y;
moveto (x+47) y;
lineto (x+47) (y+29);
lineto (x+44) (y+30);
moveto (x+47) (y+29);
lineto (x+50) (y+30);
moveto (x+55) y;
lineto (x+55) (y+30);
moveto (x+55) (y+15);
lineto (x+60) (y+15);
lineto (x+60) (y+30);
lineto (x+60) (y-30);
moveto (x+70) y;
lineto (x+65) y;
lineto (x+65) (y+15);
lineto (x+72) (y+15);
moveto (x+65) (y+15);
lineto (x+65) (y+30);
lineto (x+70) (y+30);
moveto (x+75) y;
lineto (x+80) y;
moveto (x+85) y;
lineto (x+85) (y+30);
lineto (x+87) (y+26);
lineto (x+87) (y+23);
lineto (x+85) (y+17);
lineto (x+85) (y+13);
lineto (x+87) (y+8);
lineto (x+87) (y+5);
lineto (x+85) y;
moveto (x+90) y;
lineto (x+90) (y+30);
lineto (x+92) (y+26);
lineto (x+92) (y+23);
lineto (x+90) (y+17);
lineto (x+90) (y+13);
lineto (x+92) (y+8);
lineto (x+92) (y+5);
lineto (x+90) y;
moveto (x+95) y;
lineto (x+97) y;
lineto (x+98) (y+3);
lineto (x+99) (y+5);
lineto (x+100) (y+10);
lineto (x+100) (y+15);
lineto (x+98) (y+20);
lineto (x+97) (y+25);
lineto (x+95) (y+30);
lineto (x+100) (y+30);;
clear_graph();
yg 200 200 100;
mess 400 130;;

Au depart j'ai eu la mani de mettre un ; mais Open Graphics mais je me susi rendu compte de l'erreure.