Compilateur --> ERREUR ’-‘ is not a valid integer value

Pour déterminer le temps (en millisecondes) mis par un traitement pour s’exécuter, j’utilise le code suivant :

Code:: dim tick%, t1%, t2%
tick() : t1% = tick%
' Ici le traitement pour lequel on évalue la durée
' par exemple
dim i
for i = 1 to 10000 : next i
tick() : t2% = tick%
message "Traitement effectué en " + str$(t2%-t1%) + " millisecondes"
end
rem ============================================================================
SUB tick()
   dll_on "kernel32.dll"
   tick% = dll_call0("GetTickCount")
   dll_off
END_SUB
rem ===========================================================================

Ce code marche parfaitement avec l'interpréteur tandis que le compilateur signale une erreur : ’-‘ is not a valid integer value
Quelqu'un a-t-il une idée ?

J’ai réalisé un code de calcul des décimales de Pi (encore un !) et j’ai voulu comparer les durées d’exécution en interprété et en compilé :
Le code compilé s’exécute presque INSTANTANEMANT , alors que son homologue interprété a mis ... 754420 millisecondes, soit près de TREIZE MINUTES !!!

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

En effet, c'est spectaculaire !

Voici le code à exécuter sous le compilateur : affichage immédiat du résultat.

compilateur:

Et voici le code à exécuter sous l’interpréteur : Je vous préviens : il a mis chez moi 754420 ms soit environ 13 mn

interpréteur:

Et le résultat :

Résultat:

Attention toutefois, tu ne compares pas la même chose.
Sous l'interpreteur tu fais appel 2 fois à la DLL externe pour avoir le temps.
Nous sommes d'accord, c'est une opération assez rapide qui ne justifie pas la différence énorme entre le compilé et l'interprété. toutefois pour être rigoureux, il faudrait que ce soit les 2 mêmes programmes qui soient comparés.

@Jicehel

Parfaitement d’accord avec toi !
Si j’ai omis l’appel à la dll en compilé c'est parce qu’il ne l’accepte pas.
Mais tout de même entre 754420 ms et « le presque instantané » il y a de quoi frôler le désespoir !

D’ailleurs j’ai retrouvé la réponse de Jack (dans un autre post en réponse à ygeronimi) à cette erreur.

jack a écrit:: Ton message d'erreur ('-' is not a valid integer value) vient de fait que la fonction dll_on a un problème dans la version du compilateur que tu utilises.
Cela sera bientôt corrigé.

Admin Nombre de messages : 2386 Date d'inscription : 28/05/2007

Je confirme.Il y a un bug dans la gestion des DLL dans le compilateur.
Et cela sera "bientôt" corrigé.

_________________

Compilateur --> ERREUR ’-‘ is not a valid integer value Webdav

username : panoramic@jack-panoramic password : panoramic123

Merci Jack .

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Là j'ai perdu les pédales:
Pour compiler un tout petit module, je lance le compilateur (qui me lance bien Panoramic Compiler), je charge mon source.bas, je peux l'exécuter (d'ailleurs il me fait 'Cannot open file C:\PANORAMIC\COMPILATEUR\PANORAMIC.exe', puis '-' is not a valid integer value.', mais nulle part je ne vois l'option 'faire un exécutable', ni dans le menu Fichier ni ailleurs !

J'ai raté quelque chose, mais quoi ? bizarre, j'avais déjà fait des essais concluants avant...
La fenêtre présentée est étrangement semblable à l'éditeur normal, avec les fonctions 'Exécutable' et 'Application' absentes du menu Fichier scratch

Où est la fonction 'Compiler' ?

@JL35

Ouvre Panoramic_Compiler_Editor
Tape le code suivant

Code:: print "JL35 a perdu les pédales"

Maintenant si tu tentes d’exécuter ce beau code, tu auras droit à un bon Cannot create file Nouveau_1.bas et rien de plus !
Voici comment il faut faire :
Tu dois d’abord enregistrer ton programme, puis tu peux le compiler en cliquant sur l’éclair rouge.
Si ton code est correct, Panoramic te glorifiera par Compilation is OK et en même temps, il créera tout seul comme un grand un fichier .exe dans le même dossier que le .bas.

Voila, c'est simple, mais il est bon de le rappeler!

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Papydall tu me sauves la vie !
Donc, si je comprends bien, il suffit d'exécuter le programme (flèche rouge) pour que l'exécutable créé pour l'exécution soit enregistré...

C'est bien ce que j'avais dû faire pour mes essais précédents, mais ça m'échappait complètement Embarassed

Bien, je n'ai plus qu'à trouver pourquoi il me dit '-' is not a valid integer value... alors là je ne vois pas du tout, le code est si simple (et sans appel à dll).

Dans tous les un grand merci papydall, je me coucherai (un peu) moins bête ce soir...

A tout hasard, mon code (très simple):

Code:: ' Minuteur
' Affichage d'un comptage du temps (minutes:secondes) aux coordonnées indiquées
' dans C:\TEMP\Fminut.txt. Le module s'arrête à la destruction de ce fichier.
DIM x%,y%,w%,h%,td%,t%,m%,s%,d%,a$,f$
f$ = "C:\TEMP\Fminut.txt"
IF FILE_EXISTS(f$) = 0 THEN TERMINATE
FILE_OPEN_READ 1, f$
FILE_READLN 1,a$: x% = VAL(a$)
FILE_READLN 1,a$: y% = VAL(a$)
FILE_CLOSE 1
w% = 220: h% = 86
TOP 0,y%: LEFT 0,x%: WIDTH 0,w%: HEIGHT 0,h%: BORDER_HIDE 0
COLOR 0,255,255,0
FONT_NAME 0,"Lucida Console": FONT_SIZE 0,48: FONT_BOLD 0
td% = 3600*VAL(LEFT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))
WHILE FILE_EXISTS(f$) = 1
t% = 3600*VAL(LEFT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))
d% = t%-td%: d% = d%-INT(d%/3600)
m% = INT(d%/60): s% = d%-60*m%
a$ = RIGHT$("0"+STR$(m%),2)+":"+RIGHT$("0"+STR$(s%),2)
PRINT_LOCATE 10,13: PRINT a$
WAIT 1000
END_WHILE
TERMINATE

J’ai testé ton code.
Comme le '-' is not a valid integer value... était au rendez-vous ,jel’ai écourté peu à peu jusqu’à

Code:: DIM x%,y%,w%,h%,td%,t%,m%,s%,d%,a$,f$
f$ = "C:\TEMP\Fminut.txt"
IF FILE_EXISTS(f$) = 0 THEN TERMINATE
FILE_OPEN_READ 1, f$
FILE_READLN 1,a$ : x% = VAL(a$)
FILE_READLN 1,a$: y% = VAL(a$)
FILE_CLOSE 1

La ligne FILE_CLOSE 1 --- > list index out of bound

Je crois qu’il est un peu tôt pour pouvoir utiliser le compilateur.
Attendons une nouvelle version !

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

Aïe ! je n'avais pas trouvé, bon tu as raison, il va falloir attendre un peu...
Merci à toi en tout cas papydall, et bonne nuit !

Bon!
Couche-toi un peu plus intelligent. Laughing

Nombre de messages : 7095 Localisation : 77 Date d'inscription : 29/11/2007

C'est fait, mais au réveil ce n'est guère mieux !
L'erreur '.. integer value' n'est pas sur le File_Close, mais sur les deux File_ReadLn.

Si on les enlève, il n'y a plus cette erreur-là, il compile mais trouve un tas d'autres erreurs derrière qui sont listées dans un fichier error.txt:
- array not dimensioned
- type mismatch
etc., dues à mes lignes un peu compactées, du genre:
td% = 3600*VAL(LEFT$(TIME$,2))+60*VAL(MID$(TIME$,4,2))+VAL(RIGHT$(TIME$,2))
là il ne s'y retrouve pas...

Conclusion: il est urgent d'attendre... et de trouver autre chose en attendant.

PS: en y regardant de plus près, le compilateur coince sur:
- File_ReadLn n,s$
- Border_Hide 0 (-> argument count mismatch)
- MID$(s$,x,n) (-> array not dimensioned)

OUPS !
Autant pour moi, pour le File_Readln, je viens de relire les instructions de Jack disant bien qu'il faut remplacer ce File_ReadLn N,V par V = File_ReadLn(N)

MAIS: ça ne marche pas quand même, plus de '...integer value', mais il me dit là-dessus: Array not dimensioned

Les fonctions sur les chaînes (mid$,left$,etc…) ne sont pas reconnues, d’oû l’avalanche des erreurs (Array not dimensioned etc..)

Pour moi, dans l’état actuel du developement du compilateur, il n’est qu’un avant goût, certes délicieux et prometteur.
Quant à dévélopper avec lui des programmes ayant une certaine importance, je pense qu’il est un peu tôt : il faut donner du temps au temps et surtout à Jack.

» Erreur fatale : ’INF’ is not a valid floating point value
» compilateur : erreur 255 ??
» Erreur 93
» Nouvelle erreur du compilateur.
» Erreur...avec le compilateur.