Version instantanée du 14 février 2013:PANORAMIC V 0.9.24i10

Version instantanée du 14 février 2013 : PANORAMIC V 0.9.24i10

Une version instantanée est la version actuelle du développement de PANORAMIC, elle vous permet d'utiliser les toutes dernières améliorations, sans attendre la sortie de la prochaine version.
Une version instantanée n'a pas de procédure d'installation (c'est un fichier zip contenant l'EDITEUR).
Les nouveaux mots-clés n'ont pas de coloration syntaxique dans l'EDITEUR.

Pour obtenir la version instantanée, cliquez sur *** annulé ***

Voici les améliorations de cette version, par rapport à la dernière version instantanée PANORAMIC V0.9.24i9 du 12 février 2013:

- corrections de 2 bugs:

Les appels de DLL ne fonctionnaient plus.

CHAIN ne détruisait pas les objets système.

- avertissement:

FONT_COLOR ne fonctionne toujours pas sur OPTION.

Merci, Jack ! Je prends de suite !

Merci Jack !

Je récupère tout de suite !

Merci Jack.

Citation :

CHAIN ne détruisait pas les objets système.

Apparemment cela a l'air d'être le cas.
Je remarque aussi que l’exécution d'un programme à partir de l'éditeur, n'efface plus les programmes en fonctionnement avec CHAIN, comme je t'avais signalé le problème, et ça c'est une bonne nouvelle.

Cela règle de plus mes problèmes que j'avais parlé il y a quelques mois avec 'Sub menu is not menu' et me repermet d'exécuter mon code à partir de Notepad++ avec Panoramic.exe. Merci beaucoup Jack!

Bonjour les amis panoramiciens!
Quoi que un peu absent ces derniers temps pour cause de travail, je suit toujours ce forum et je reste fidèle à PANORAMIC.
MERCI JACK ET BONNE CONTINUATION A TOUS

Merci Jack

La commande "on_key_down N,L" ne fonctionne pas avec "button"

Code:

label enter_key

button 1
on_key_down 1,enter_key

end

enter_key:
if key_down_code=13 then caption 0,"ENTER est pressé"
return

on_key_down fonctionne. Ce qui se passe, c'est que la touche RETURN est traitée comme un évènement on_click et non une touche normale. Regarde ceci:

Code:

label key_down, key_up, click

button 1
on_key_down 1,key_down
on_key_down 1,key_up
on_click 1,click
set_focus 1

end

key_down:
caption 0,str$(scancode)+" est pressé"
return

key_up:
caption 0,str$(scancode)+" est pressé"
return

click:
caption 0,"click"
return

Effectivement...

Encore une subtilité qui m'avait échappé...
Merci à toi Klaus pour cette précision.

Donc je retire ma remarque, elle est nulle et non avenue...

Bonjour,
2 remarques
-) est-ce normal que les parenthèses soient obligatoire dans le code suivant?:

Code:

i% =  instr("si c'est > grand",">")
if instr("si c'est > grand",">=") = (i%-1)  or instr("si c'est > grand","><") = (i%-1)

cela concerne: i%-1

-) et ceci:

Code:

dim a$,a% , i% ,g$
end_if

' lignes qui marche:
if instr("si c'est > grand","=") > 0 then message "="

g$=  "si c'est > grand"  :  a$ = "="
if instr(g$,a$) > 0 then message "="

' ..................
' ce qui ne marche pas:
if instr("g$,"=") > 0 then message "="
if instr("g$,">") > 0 then message ">"

Juste des guillemets manquants

Code:

if instr("g$","=") > 0 then message "="
if instr("g$",">") > 0 then message ">"

Cà arrive à tous le monde

Bonsoir Jean-Claude

Jean-Claude a écrit:

Cà arrive à tous le monde

Désolé, mais c'est pour toi!

G$ est le contenu d'un texte dont on veut rechercher un caractère, un mot dans l'exemple.

Oui Cosmos mais dans ton code, il y a un guillemet superflu avant g$
En fait Jean-Claude en a ajouté un après, mais je pense que pour ton usage, il faudrait plutôt retiré celui qui se trouve avant

Autant pour moi , effectivement ce ne sont pas des guillemets manquants mais des guillemets en trop.

On a tous la grosse tête

Oui, effectivement.
Cela vient du fait que j'ai copier mon code qui vient d'un autre éditeur, dans Panoramic_editor, déplacé des lignes pour faire les essais, et recopié par morceau pour que ça corresponde au texte. Mais les constatations ont étés faite sans les guillemets, et modifié chaque point, pour savoir ce qui se passait.

Je m'en excuse au près de Jean-Claude de l'avoir mis en défaut.

Toujours est-il qu'il y a le problème, et maintenant j'en ai un autre, et là je ne sais pas si c'est mon ordi qui est fatigué, vu que j'ai déjà constaté qu'un ordi qui fonctionne pendant plusieurs jours, a une mauvaise influence sue Panoramic, mais voilà, après avoir retiré les guillemets, le programme tourne en boucle, comme si il y avait un goto???

Code:

dim a$,a% , i% ,g$
end_if

' lignes qui marche:
if instr("si c'est > grand","=") > 0 then message "="

g$=  "si c'est > grand"  :  a$ = "="
if instr(g$,a$) > 0 then message "="

' ..................
' ce qui ne marche pas:
if instr(g$,"=") > 0 then message "="
if instr(g$,">") > 0 then message ">"



i% =  instr("si c'est > grand",">")
if instr("si c'est > grand",">=") = (i%-1)  or instr("si c'est > grand","><") = (i%-1)

Jean-Claude, on se croise, et j'ai eu un appel entre temps qui a fait reculer la réponse.

Si tu mets le end_if à la dernière ligne et non pas après le dim, il ne boucle plus.

Code:

dim a$,a% , i% ,g$


' lignes qui marche:
if instr("si c'est > grand","=") > 0 then message "="

g$=  "si c'est > grand"  :  a$ = "="
if instr(g$,a$) > 0 then message "="

' ..................
' ce qui ne marche pas:
if instr(g$,"=") > 0 then message "="
if instr(g$,">") > 0 then message ">"



i% =  instr("si c'est > grand",">")
if instr("si c'est > grand",">=") = (i%-1)  or instr("si c'est > grand","><") = (i%-1)
end_if

Oui, tu as parfaitement raison.
J'ai présenté à l'envers par rapport à ce que j'avais au départ, et j'ai oublié ce end_if.
Ce qui est chiant pour moi, c'est que je trouve les lettres pour poster une réponse, trop petites.
De temps en temps, il m'arrive de taper le texte avant dans un éditeur, et de recopier ensuite. Je ne prend pas toujours le temps de le faire.

Bonjour,
est-ce normal une erreur sur even() et odd() si il y a un calcul à l'intérieur des parenthèses?

Code:

memo 1:full_space 1:print_target_is 1
inverse(17)
end

sub inverse(b%)
  dim_local a%,b$,bi% , v%
  bi% = 1  : b$ = ""
  for a% = 1 to 5
    v% = b%/ bi%
    if odd(b%/ bi%) = 0 :' provoque une erreur
 '  if odd(v%) = 0 :' fonctionne
      b$ = "0" + b$
    else
      b$ = "1"+b$
    end_if

    bi% = bi% *2
  next a%
  print " INVERSE b%=",b%,"  soit:",b$
end_sub

La valeur passée en paramètre à la fonction ODD doit être une valeur entière. 17/2 n'est pas entier, et ça plante.

Salut Cosmos70

Voici mon explication de l’erreur : mais peut-être que je me trompe !
Le symbole de la division / représente la division réelle et non pas la division entière même si le numérateur et le dénominateur sont des entiers.
Le résultat est donc un réel, or la fonction ODD demande pour argument un entier d’où l’erreur.
Pour respecter la syntaxe, on force la division à être entière et on fait :

Code:

 if odd(int(b%/ bi%)) = 0

et là il n’y a plus d’erreur !

EDIT : On s'est croisé, Klaus

Merci à vous deux. Il fallait le savoir que le nombre devait être entier. Heureusement que je n'ai pas mis la question en BUG
Merci.

Comme quoi : Gare à la précipitation ! On doit prendre son temps !

En même temps Jack sait que l'on a parfois l'impression qu'un comportement est un bug, tout simplement par ce que l'on n'a pas bien compris quelque chose... Il nous connait depuis le temps ....

Je suis d'accord avec Papydall :

Citation :

Le savoir ne vaut rien s'il n'est pas partagé

Personnellement, je suis tout nouveau sur PANORAMIC et ne connais rien de plus que les réminiscences d'un BASIC appris dans les années 80.

J'ai bien noté qu'avec les SUB() placés en début de programme on était passé à une toute autre dimension, j'ai bien conscience qu'il me va falloir télécharger ce fameux KGF.DLL et évoluer à vitesse grand V... et ça me plaît ! Mais j'aimerais quand même en savoir un peu plus.

Bon, je suis peut-être hors-sujet, je débarrasse vite fait le plancher (il y en a qui bossent), peut-être y a-t-il un tuto qui m'a échappé... je pars sur la pointe des pieds...