Editeur avec marquage syntaxique

c:\PANO\TESTE\M_au _P_TRACE\inclusion.bas     |"#include |1 |"teste include
C:\PANO\TESTE\M_au _P_TRACE\suite_include.bas |"#include |2 |"suite..
C:\PANO\DLL\DLLs\KGF_SUB\KGF_SUB.bas          |"#include |3 |sub pour kgf
C:\PANO\DLL\KGF.dll

#include |1

Code:

rem ============================================================================
'             Rotation d'une figure autour de l'origine
'                     par Papydall
rem ============================================================================
dim x0,y0,a,newx,newy, zoom
picture 10 : full_space 10 : 2d_target_is 10

x0 = width(10)/2
y0 = height(10)/2  : ' Coordonée de l'origine

zoom = 30 : ' facteur d'aggrandissement

' Trace_Figure() : ' on trace une figure , une flèche vers le haut comme exemple

' On va tourner cette figure autour de l'origine
for a = 0 to 360 step 1 : ' Faire un tour complet
    cls
    2d_line 0,y0, 2*x0,y0 : ' tracé de l'axe horizontal
    2d_line x0,0, x0,2*y0 : ' tracé de l'axe vertcal
    Rotation_Figure(a)    : ' Tourner la figure
    display
   '  pause 1
next a
   stop
end
rem ============================================================================
' Tracé d'une flèche comme exemple
SUB Trace_Figure()
    dim_local i,p,x,y
    restore
    read p : read x : read y : 2d_poly_from x0 + zoom * x, y0 - zoom * y
    for i = 2 to p
        read x : read y : 2d_poly_to x0 + zoom * x,y0 - zoom * y
    next i
END_SUB
rem ============================================================================
' Rotation de la flèche de l'exemple autour de l'origine des axes d'un angle en dégrs
' Pour faire tourner une figure, il suffit de faire tourner tous ses points
SUB Rotation_Figure(angle)
    dim_local i,p,x,y
    restore
    read p : read x : read y : Rotation_Point(x,y,angle)
     2d_poly_from x0 + zoom * newx, y0 - zoom * newy
    for i = 2 to p
        read x : read y : Rotation_Point(x,y,angle)
        2d_poly_to x0 + zoom * newx,y0 - zoom * newy
    next i
END_SUB
rem ============================================================================
' Rotation autour de l'origine d'un point (x,y) d'un angle tetha en degrés.
' Pour effectuer une rotation à un point il suffit de multiplier ses coordonnées
' par la matrice de rotation suivante :
' cos(tetha)   -sin(tetha)
' sin(tetha)    cos(tetha)
SUB Rotation_Point(x,y,tetha)
    dim_local pi,rad,t
    pi = acos(-1) : rad = pi/180 : t = rad * tetha
    newx =  x * cos(t) - y * sin(t)
    newy =  x * sin(t) + y * cos(t)
END_SUB
rem ============================================================================
' dessin d'une flèche
' dessin d'une flèche
data 8    : ' nombre de points de la figure
data -.5,-2.5  : ' coordonnées 1er point
data .5,-2.5  : ' coordonnées 2ème point
data .5,.5
data 1.5,.5
data 0,2.5
data -1.5,.5
data -.5,.5
data -.5,-2.5  : ' coordonnées dernier point qui est le même que le 1er pour boucler la boucle
rem ============================================================

Code:

HndOutil% = DLL_call3("ExecuteProgram",adr(eoutil$),adr(f$),adr(doutil$))

Citation :

je me retrouve avec un deuxième programme qui se lance à la place du premier.

Code:

message "Salut"
end

Code:

message "Salut"
terminate
end

Citation :

Je vois dans le programme:

Code:
HndOutil% = DLL_call3("ExecuteProgram",adr(eoutil$),adr(f$),adr(doutil$))

Donc cela concerne une dll. Je pensais que c'étais EXECUTE ou CHAIN.