barmet@cool.fr.nf a écrit :
j'ai regardé qqs forums ce w.e. et mes conclusions sont tjrs les mêmes à savoir que votre site est inutilisable pour des gens efficaces.
......
Votre site a plus de 10 ans et il n'est pas opérationnel ou bien on m'a fourgué la version d'il y a 15 ans car je n'ai pas vu ds ts les forums un seul morceau de code
ni une capture d'écran. C'est la 1ère fois que je vois cela depuis que je suis sur internet.t
mais de quoi parles tu ?
d'ici sur le forum ??
heu .. tu sais te servir d'un forum ? je dis ça car je ne comprends pas que tu ne vois aucun morceaux de code , ni de capture ecran.....
notre Forum est en PHPbb , c'est a dire le format le plus utilisé sur le web pour un forum..
tu parles de site qui a plus de 10 ans ..... et tu veux coder en mode console .... c'est une blague ??
non parce que , de nos jours on code avec les Gadgets Windows ... (fenetres,boutons,champs de string,etc .... )
je dis ça, je dis rien, mais avec ton mode console , c'est toi qui a 20 ans de retard ...
tu la vois la capture là ? :
tu veux un code en mode console ?
tiens teste ça :
Code : Tout sélectionner
macro EP:Endprocedure:Endmacro:Macro sn:Sin:endmacro :Macro cn:Cos:endmacro
macro Pr:Procedure:Endmacro:macro Ed:endif:Endmacro
Structure World3D:x.f:y.f:z.f:EndStructure:Global Dim P3D.World3D(8);;;;;;;;
Global Dim po2D.World3D(8):Global Dim So.World3D(8):#Xoff=79/2:#Yoff=24/2
#Zoff=384:Global Dim mat.f(3,3):Pr lineConsole(x1.f,y1.f,x2.f,y2.f,;;
co.l):Shared dx.f,dy.f,xincr.l,yincr.l,x.l,y.l,erreur.f:dx=Abs(x2-x1);;;;;;
dy=Abs(y2-y1):If x1<x2:xincr=1:Else:xincr=-1:Ed:If y1<y2:yincr=1:Else;;;;;;;;
yincr=-1:Ed:x=x1:y=y1:If dx>dy:erreur=dx/2:For i=0 To dx:x=x+xincr;;;;;;;;;;;
erreur=erreur+dy:If erreur>dx:erreur=erreur-dx:y=y+yincr:Ed:If x>-1 And;;;;;;
x<81 And y>-1 And y<24:ConsoleLocate(x,y):ConsoleColor(co,0):Print(".");;;;
Ed:Next i:Else:erreur=dy/2:For i=0 To dy:y=y+yincr:erreur=erreur+dx;;;;;;;;;;
If erreur>dy:erreur=erreur-dy:x=x+xincr:Ed:If x>-1 And x<81 And y>-1 And y<24
ConsoleLocate(x,y):ConsoleColor(co,0):Print("."):Ed:Next i:Ed;;;;;;;;
EP:Pr lii(a.l,b.l,co.l):lineConsole(po2D(a)\x-1,;;;;;
po2D(a)\y-1,po2D(b)\x-1,po2D(b)\y-1,co):lineConsole(po2D(a)\x,;
po2D(a)\y,po2D(b)\x,po2D(b)\y,9):lineConsole(po2D(a)\x+1,;;;;;;;;;;;
po2D(a)\y+1,po2D(b)\x+1,po2D(b)\y+1,co):EP;;;;;;;;;;;;;;
Pr Rot(Xa.f,Ya.f,Za.f):mat(0,0)=cn(Za)*cn(Ya):mat(1,;;;;;;
0)=sn(Za)*cn(Ya):mat(2,0)=-sn(Ya):mat(0,;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1)=cn(Za)*sn(Ya)*sn(Xa)-sn(Za)*cn(Xa):mat(1,1)=sn(Za)*sn(Ya)*sn(Xa)+
cn(Xa)*cn(Za):mat(2,1)=sn(Xa)*cn(Ya):mat(0,;;;;;;;;;;;;;;;;;;;;;;;;;
2)=cn(Za)*sn(Ya)*cn(Xa)+sn(Za)*sn(Xa):mat(1,;;;;;;;;;;;;;;;;;;;;;;;;;;;
2)=sn(Za)*sn(Ya)*cn(Xa)-cn(Za)*sn(Xa):mat(2,2)=cn(Xa)*cn(Ya);;;;;;;;;
For i=0 To 7:P3D(i)\x=mat(0,0)*So(i)\x+mat(1,0)*So(i)\y+;;;;
mat(2,0)*So(i)\z:P3D(i)\y=mat(0,1)*So(i)\x+mat(1,;;;;;;;
1)*So(i)\y+mat(2,1)*So(i)\z:P3D(i)\z=mat(0,2)*So(i)\x+;;
mat(1,2)*So(i)\y+mat(2,2)*So(i)\z:Next i:EP;;;;;;;;;;;
Pr Projection():For i=0 To 7;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
po2D(i)\x=(P3D(i)\x*256)/(P3D(i)\z+#Zoff)+#Xoff;;;;;;;;;;;;;;;;;;;;;;
po2D(i)\y=(P3D(i)\y*256)/(P3D(i)\z+#Zoff)+#Yoff:Next i:EP;;
Pr Update():Static co.l:co=1:lii(0,1,co):lii(1,2,;;;;;
co):lii(2,3,co):lii(3,0,co):lii(4,5,co):lii(5,6,;;;;
co):lii(6,7,co):lii(7,4,co):lii(0,5,co):lii(1,4,;;;;
co):lii(2,7,co):lii(3,6,co):ClearConsole ():EP;;;;;
Pr Initialiser():So(0)\x=-10:So(0)\y=-10:So(0)\z=-10;;;;;;;;;
So(1)\x=10:So(1)\y=-10:So(1)\z=-10:So(2)\x=10:So(2)\y=10;;;;
So(2)\z=-10:So(3)\x=-10:So(3)\y=10:So(3)\z=-10:So(4)\x=10;;;
So(4)\y=-10:So(4)\z=10:So(5)\x=-10:So(5)\y=-10:So(5)\z=10;;;
So(6)\x=-10:So(6)\y=10:So(6)\z=10:So(7)\x=10:So(7)\y=10;;;;;
So(7)\z=10:EP:OpenConsole ():EnableGraphicalConsole (1);;;;;;;;;;;
Initialiser():Repeat:Xa.f+0.01:Ya.f+0.05:Za.f+0.001:Rot(Xa,
Ya,Za):Projection():Update():Until GetAsyncKeyState_ (#VK_RETURN);;;;;;;
CloseConsole ();;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;