Version instantanée V 0.9.28i14 du 10/02/2018

HIDE 0

CONTAINER_OPTION 2 : PARENT 2,0
  OPTION 3 : PARENT 3,2 : TOP 3,20 : LEFT 3,5 : CAPTION 3,"choix 1"
  OPTION 4 : PARENT 4,2 : TOP 4,40 : LEFT 4,5 : CAPTION 4,"choix 2"
     
  MARK_ON 3 : ' Si vous désactivez cette ligne en REM tous est OK !
     
SHOW 0

rem ============================================================================
rem Comportement d’une fonction quand on ne lui affecte pas une valeur de retour
rem ou quand on la quitte par EXIT_FNC avant l’affectation
rem Le résultat du retour est :
rem 0 (zéro) si la fonction est du type numérique
rem la chaine vide si la fonction est du type string
rem ============================================================================
 message test1(10)  : ' < --- 10
 message test1(-1)  : ' < --- 0
 message test2%()   : ' < --- 0
 message test3$("Salut !") : ' < --- Salut !
 message test3$("Hello !") : ' < --- la chaine vide
end
rem ============================================================================
FNC test1(n)
    if n < 0
       exit_fnc
    else
       result n
    end_if
END_FNC
rem ============================================================================
FNC test2%()
   ' result 5
END_FNC
rem ============================================================================
FNC test3$(t$)
    if t$ <> "Salut !" then exit_fnc
    result t$
END_FNC
rem ============================================================================

dim r

subA(0)

r=fncA(0)

fncB(0) :' pas d'erreur

END
sub subA(x)
 dim_local myvarA :' <--- pb ici
 dim_local myvarB
 myvarB=fncB(x)
end_sub

fnc fncA(x)
 dim_local myvarA
 myvarA=fncB(0)
 result 0
end_fnc

fnc fncB(x)
 dim_local myvarA
 result 0
end_fnc