Naissance de Crocodile Basic

Une nouvelle version (0.24) est disponible sur mon WebDav (dossier FBCroco, fichier setup_024.exe)

Avec cette version, le crocodile devient autonome : il ne dépend plus de FBPano. Il faut donc l'installer dans un répertoire spécifique, par défaut C:\FBCroco

Cette version ajoute également plusieurs éléments :

1) Les chaînes de caractères de longueur fixe :

Code:

dim a$*10

2) Les entiers de différentes tailles :

Code:

dim i%*8u   ' Entier de 8 octets (64 bits) non signé

3) Les variables booléennes :

Code:

dim flag& = TRUE

4) La possibilité d'inclure des caractères de contrôle dans les chaînes, comme `\t` (tabulation) ou `\n` (retour à la ligne) ; la chaîne doit alors être précédée d'un point d'exclamation :

Code:

print !"1\t2\t3\n4\t5\t6\n7\t8\t9"

La documentation se trouve dans le fichier doc\no_graph.htm. Dans l'éditeur : Ctrl+F1 puis choisir "Fonctions non graphiques"

Nouveaux programmes exemples :

- maze.bas (labyrinthes) et hopalong.bas (Fractale "Hopalong") dans contrib\FreeBASIC

- narcisse.bas (nombres narcissiques, d'après papydall) dans contrib\papydall

Le programme narcisse a été étendu aux entiers de 64 bits, ce qui permettrait en théorie d'aller jusqu'à 19 chiffres, mais gare au temps de calcul !!

Merci, Jean.
J'ai téléchargé et testé : Tout est OK !

Merci Jean.

Il faut que je me remette à jour... :

Une nouvelle version (0.25) est disponible sur mon WebDav.

Il y a 2 fichiers dans le dossier FBCroco :

* setup_025.exe (pour ceux qui n'ont pas installé la version 0.24)

* update_024_to_025.exe (pour ceux qui ont déjà la version 0.24 et qui n'ont besoin que de la mise à jour)

La mise à jour s'installe dans le répertoire utilisé précédemment pour la version complète (par défaut C:\FBCroco)

Cette mise à jour apporte des mots-clés supplémentaires relatifs aux dates et heures, fichiers et répertoires.

J'ai gardé la nomenclature du Basic Amstrad autant que possible, notamment pour les mots-clés OPENIN/CLOSEIN, OPENOUT/CLOSEOUT (Ouverture ou fermeture d'un fichier). Pour le reste, c'est la nomenclature de FreeBASIC ou de PANORAMIC.

La documentation se trouve dans le fichier doc\no_graph.htm. Dans l'éditeur : Ctrl+F1 puis choisir "Fonctions non graphiques"

Nouveaux programmes exemples :

- file_text.bas : Demo de fichier texte

- file_bin.bas : Demo de fichier binaire

- file_rnd.bas : Demo de fichier à accès aléatoire (RANDOM)

- file_rnd2.bas : Demo de FREEFILE, EOF, LOF, SEEK sur un fichier RANDOM

Tous ces programmes sont accessibles depuis l'éditeur par Ctrl-M

Merci Jean pour le partage et le travail accompli. Bravo !

Lors de l’installation de FBCroco, les caractères accentués dans les différentes fenêtres générées par l’installateur sont erronés. FBCroco n’est pas concerné.

Capture d'écran:

Encore merci pour tout et bonne continuation !

Merci Marc pour tes encouragements, et pour avoir signalé ce problème, que j'avais remarqué aussi mais sous Windows XP uniquement, pas sous Windows 10.

C'est toujours le problème des caractères Unicode !

C'est lié à la mise à jour de l'installateur.

Cela n'empêche pas FBCroco de fonctionner, mais il faudra tout de même y remédier !

Juste un complément d’information :

Jean a écrit:

sous Windows XP uniquement, pas sous Windows 10

Hélas, ce désagrément se produit également sous Windows 7 et Windows 10.
La copie d’écran de mon post ci-dessus était sous Windows 7. En voici une sous Windows 10 :

Sous Windows 10:

A la maison, j’utilise la version 2.0 (build #64) d’Install Creator et je n’ai pas de problème d’accents.

Mais tout ceci est secondaire et n’enlève rien à la qualité de l’excellent FBCroco.

Même reMarc... euh... remarque que Marc (Windows 7)

Sacré Croco, jusqu’à manger les caractères Unicode...
Quel appétit !

Même problème chez moi aussi sous W7.
Bravo pour ton travail Jean. Bonne continuation !

Une nouvelle version (0.26) est disponible sur mon WebDav.

Il y a 2 fichiers dans le dossier FBCroco :

* setup_026.exe (pour ceux qui n'ont pas installé la version 0.25)

* update_025_to_026.exe (pour ceux qui ont déjà la version 0.25 et qui n'ont besoin que de la mise à jour)

La mise à jour s'installe dans le répertoire utilisé précédemment pour la version complète (par défaut C:\FBCroco)

Dans cette version nous commençons à introduire les objets visibles de FLTK.

Pour le moment il n'y a que 4 objets : FORM, BUTTON, ALPHA, EDIT

Pour ceux qui ont essayé FBPano, il y a quelques modifications dans la syntaxe :

1) Les objets ne sont plus numérotés. Ce sont des variables d'un type particulier. On les déclare avec DIM_WIDGET :

Code:

dim_widget form, alpha, button     ' Les noms des objets sont arbitraires

2) Une fois les objets déclarés, il faut les créer avec l'instruction WIDGET :

Code:

widget obj, type, x%, y%, w%, h%, caption$, SP

Les paramètres sont :

* obj : nom de l'objet
* type : type de l'objet (T_Form, T_Button etc., comme dans FBPano)
* x, y : coordonnées en pixels du coin supérieur gauche de l'objet
* w, h : largeur et hauteur de l'objet, également en pixels
* caption : intitulé de l'objet (optionnel)
* SP : sous-programme associé à l'objet (optionnel)

Le nom du sous-programme SP doit obligatoirement commencer par CLICK_ (il n'y a qu'un seul événement pour l'instant). Le sous-programme correspondant doit être déclaré sans paramètres :

Code:

sub CLICK_button    ' La partie située après CLICK_ est arbitraire
  .....
end_sub

3) Les instructions de type ON_CLICK disparaissent puisque le sous-programme est affecté lors de la création de l'objet.

4) La fonction NWIDGET(SELF) est remplacée par WIDGET_SELF(obj) qui retourne TRUE ou FALSE selon que l'objet obj a déclenché l'événement ou pas.

5) On peut créer des tableaux d'objets, à 1 ou 2 dimensions :

Code:

dim_widget button(2), edit(1, 1)

ATTENTION : les indices commencent à zéro, donc nous avons ici 3 boutons : (0), (1), (2) et 4 EDITs : (0,0), (0,1), (1,0), (1,1)

Les objets sont ensuite créés par des instructions spécifiques :

* Pour les tableaux à 1 dimension, RowWidget ou ColWidget selon que les objets sont disposés en ligne ou en colonne

* Pour les tableaux 2 dimensions, MatWidget

Code:

RowWidget obj(), type, x0%, y0%, w%, h%, dw%, SP
        
ColWidget obj(), type, x0%, y0%, w%, h%, dh%, SP
        
MatWidget obj(), type, x0%, y0%, w%, h%, dw%, dh%, SP

* obj : nom du tableau
* type : type d'objet (T_Button etc.)
* x0, y0 : coordonnées du coin supérieur gauche du premier objet
* w, h : largeur et hauteur commune des objets
* dw, dh : distances horizontale et verticale entre les objets (optionnels, valeur par défaut = 10 pixels)
* SP : nom du sous-programme associé à TOUS les objets du tableau (optionnel)

Pour plus d'explications, voir la documentation (accessible dans l'éditeur par Ctrl+F1)

Il y a 18 exemples dans le dossier exemples\widgets (également accessibles depuis l'éditeur par Ctrl-M)

Note : Un "créateur d'objets" sera proposé sous peu.

Whaouuu, c'est un sacré morceau que tu sort là !

Je vais tester tout çà et je ferai un retour.
Merci pour ton travail et à bientôt...

Bonjour Jean !

J'ai testé les différents exemples, beau travail avec les objets !

Par contre j'ai un problème...
Lorsque que je ferme un exemple je n'ai pas le retour de l'éditeur !
Je suis obligé le fermer la fenêtre du terminal et relancer CROCO...
Est ce normal ?

Comme tu l'as surement compris je viens d'installer le dernier Setup puisque je suis sur mon nouveau portable.
Est ce que çà vient de là ?

Edit :
Je viens de comprendre... En fait la fenêtre de l'éditeur reste minimisé dans la barre de tache Windows !
Donc tout va bien et pas de soucis. Désolé !

Minibug a écrit:

En fait la fenêtre de l'éditeur reste minimisé dans la barre de tache Windows !

Oui c'est bien cela. La fenêtre devrait se restaurer automatiquement mais elle ne le fait pas toujours. Il faut surveiller la barre des tâches.

En tout cas, merci pour le test

J'ai copié les fichiers d'installation de Crocodile Basic sur le serveur de l'université de Limoges :

https://www.unilim.fr/pages_perso/jean.debord/fbcroco/setup_026.exe

https://www.unilim.fr/pages_perso/jean.debord/fbcroco/update_025_to_026.exe

Il n'y a pas besoin de mot de passe.

Ceci dans le but de mettre une procédure dans l'éditeur pour automatiser les mises à jour.

Selon toute vraisemblance, le téléchargement des mises à jour depuis l'éditeur FBCroco se fera avec l'utilitaire CURL, qui est présent dans les versions récentes de Windows 10.

Pour vérifier que vous l'avez, tapez curl dans une fenêtre de commande. Vous devriez avoir le message suivant :

Code:

curl: try 'curl --help' for more information

Puis tentez un téléchargement :

Code:

curl -O www.unilim.fr/pages_perso/jean.debord/fbcroco/update_025_to_026.exe

Attention, c'est -O avec un O majuscule, pas un zéro !

Vous devriez obtenir quelque chose comme :

Code:

  % Total    % Received % Xferd  Average Speed   Time    Time     Time  Current
                                 Dload  Upload   Total   Spent    Left  Speed
100  719k  100  719k    0     0   719k      0  0:00:01  0:00:01 --:--:--  362k

Si vous n'avez pas CURL, vous pouvez l'obtenir ici :

https://curl.haxx.se/windows/

Je viens de tester après quelques tâtonnements et après quelques essais infructueux ça fonctionne parfaitement !

Merci Jean.

Génial ce BASIC ! et ça marche super bien !

Super souvenir pour moi ! J'ai débuté avec le langage sur Amstrad justement :

https://www.cpc-power.com/index.php?page=detail&num=14827

@Minibug : merci pour le test. Je continue donc avec CURL.

@cpc : merci pour ton appréciation et bravo pour ton site !

Oui je vais suivre ça de près car ça simplifie le téléchargement !

Principalement quand on a des serveurs avec mdp.
En plus on peut automatiser le lancement de l'installation et ça c'est génial !

Je n'ai pas encore testé avec mes propres programmes mais ça va pas tarder...

Astuce : pour récupérer une page HTML dans une chaîne de caractères :

Code:

dim htm$

htm = execute("curl https://panoramic-language.pagesperso-orange.fr/French/index.html")

? htm

La version 0.27 est sur mon site. Si vous avez CURL, vous pouvez la récupérer automatiquement avec le programme suivant :

Code:

' *****************************************************************
' Verification automatique des mises a jour du Crocodile Basic.
' Ce programme necessite la commande CURL installee.
' Le programme d'installation est telecharge dans le sous-repertoire
' INSTALL du repertoire FBCroco.
' Important : Fermez tous les programmes FBCroco (y compris
' l'editeur) avant de lancer un programme d'installation.
' *****************************************************************

' Repertoire de FBCroco (modifier si necessaire)
const CROCODIR = "C:\FBCroco\"

' Syntaxe d'appel de la commande CURL
' Ajouter le chemin si necessaire. Ne pas enlever le dernier espace
const CURL = "curl "

' -----------------------------------------------------------------

const INSTALLDIR = CROCODIR + "install\"
const URL        = "www.unilim.fr/pages_perso/jean.debord/fbcroco/"
const FILENAME   = URL + "fbcroco.htm"

if not dir_exists(INSTALLDIR) then dir_make INSTALLDIR

dim htm$, ver1%, ver2%, setup$, update$

' Recherche du numero de la version actuelle
' dans la premiere ligne du fichier start_fbcroco.htm
' Conversion en nombre entier, ex. "0.26" --> 26

openin #1, CROCODIR + "start_fbcroco.htm"
line input #1, htm
closein #1

ver1 = 100 * val(mid(htm, instr(htm, "(version") + 9, 4))

' Recherche des dernieres versions

htm = execute(CURL + FILENAME)
 
setup  = mid(htm, instr(htm, "setup_"),  13)
update = mid(htm, instr(htm, "update_"), 21)

' Lecture du numero de version dans le nom du programme
' Ex. "setup_027.exe" --> 27

ver2 = val(mid(setup, 7, 3))

' Comparaison des versions et telechargement
' de la mise a jour appropriee

?
if ver1 = ver2 then
  ? "Vous avez la version " + dec(ver1 / 100, "0.00")
  ? "Vous etes a jour."
elseif ver1 = ver2 - 1 then
  ? "Telechargement de la mise a jour : " + update
  execute CURL + URL + update + " -o " + INSTALLDIR + update
else
  ? "Telechargement de la version complete : " + setup
  execute CURL + URL + setup + " -o " + INSTALLDIR + setup
end_if

Sinon, directement sur mon site : Version complète ou Mise à jour.

Je la mettrai ensuite sur le WebDav.

Bonjour Jean_Debord et merci .
J’ai testé le programme qui récupère automatiquement la dernière version de FBcroco : OK !
Je suis à jour (bien que je préfère la nuit pour le travail !).

NB :
J’ai ajouté en fin du code la ligne :

Code:

while inkey$() = "" : wend

Pour pouvoir voir et lire la sortie du programme.

Spoiler:

Merci pour le test papydall

Effectivement, il vaut mieux ajouter la dernière ligne.

Les fichiers ont été copiés sur mon WebDav.

Au menu de cette nouvelle version :

1) Objets FLTK : Ajout de SPIN, CHECK, RADIO, CONTAINER, TABS

Il y a 7 exemples supplémentaires + 2 programmes utilitaires : le calendrier et le carnet d'adresses (accessibles depuis l'éditeur par Ctrl-M)

2) Ajout des fonctions de manipulation de bits : BITVALUE, BITSET, BITRESET + Programme de démonstration dans exemples\math\bits.bas (ou par Ctrl-M --> Mathématiques --> Manipulation de bits)

La documentation est accessible par Ctrl-F1 dans l'éditeur

Une nouvelle version (0.28) est disponible.

Vous pouvez l'installer par l'une ou l'autre des méthodes suivantes :

- automatiquement par le programme de vérification des mises à jour (si vous avez CURL)

- par mon site : Version complète ou Mise à jour.

- par mon WebDav, dossier FBCroco

Au menu de cette nouvelle version :

1) Objets FLTK : Ajout de LIST, COMBO, MENU

La documentation est accessible dans l'éditeur (Ctrl-F1 --> LIST, COMBO ou MENU)

Il y a 8 exemples supplémentaires (Ctrl-M dans l'éditeur)

2) Ajout des fonctions graphiques de FreeBASIC relatives à l'animation : SCREENSET, SCREENSYNC, FLIP, SCREENLOCK, SCREENUNLOCK

Documentation : Ctrl-F1 --> Dessin avec FBCroco --> Animations

3) 2 programmes utilitaires, accessibles depuis l'éditeur par Ctrl-M --> Utilitaires

- le programme de vérification des mises à jour déjà mentionné

- un éditeur de caractères graphiques, pour modifier et colorier les caractères de la police Amstrad de codes supérieurs à 127 :



La documentation de cet éditeur : Ctrl-F1 --> Dessin avec FBCroco --> Editeur de caractères graphiques

Bonjour Jean,

Pas trop le temps de regarder pour le moment. Mais je mets à jour dès que possible...