FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Editor : Encore un éditeur Panoramic !
par Minibug Aujourd'hui à 10:56

» EPP_V02 éditeur pour Panoramic
par Marc Hier à 22:47

» MESSAGE_EXIT_APPLICATION(T) pour le form 0
par silverman Hier à 17:49

» DROP_DOWN N
par silverman Hier à 15:15

» Handle de fenêtre non valide
par Minibug Hier à 15:07

» @Jack: problèmes rencontrés.
par Pedro Alvarez Sam 20 Oct 2018 - 8:52

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Ven 19 Oct 2018 - 20:58

» Quantité de mémoire utilisée par un exe
par Jack Ven 19 Oct 2018 - 7:57

» Question sur KGF
par Jack Jeu 18 Oct 2018 - 17:11

» Question sur KGF
par lepetitmarocain Jeu 18 Oct 2018 - 14:18

» Un LED1 ne génère pas l'événement : ON_CLICK. Bug or not Bug
par Jack Mar 16 Oct 2018 - 16:47

» Rotation de texte
par Marc Dim 14 Oct 2018 - 10:44

» @Jack concernant Panoramic
par papydall Ven 12 Oct 2018 - 13:16

» détection d'erreur
par Minibug Jeu 11 Oct 2018 - 17:56

» Comportement étrange de l'éditeur Panoramic !
par Minibug Jeu 11 Oct 2018 - 17:54

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2018
LunMarMerJeuVenSamDim
1234567
891011121314
15161718192021
22232425262728
293031    
CalendrierCalendrier

Partagez | 
 

 Naissance de Crocodile Basic

Aller en bas 
AuteurMessage
Jack
Admin
avatar

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

MessageSujet: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 16:06

Il y a quelques jours, Fredisland m'a donné l'idée d'adapter Panoramic pour qu'il ressemble à Locomotive Basic, le Basic des Amstrad des années 80.
Le but est d'avoir un Basic compatible sous Windows mais avec les possibilités des PC d'aujourd'hui et qui serait utilisé par les amoureux d'Amstrad qui développent encore aujourd'hui sous ce Basic.

Je me suis documenté sur ce Basic des années 80 et je me suis amusé à sortir une version à peine montrable.



Comme nom, je l'ai appelé Crocodile Basic car le crocodile était la mascotte d'Amstrad.


Crocodile basic est téléchargeable ici: http://panoramic-language.pagesperso-orange.fr/CROCODILE.zip

Et voici quelques sources de démonstration:
Code:
REM Hello World
DIM LIGNE$
LIGNE$=STRING$(13,CHR$(206))
LOCATE 10,10:PRINT LIGNE$
LOCATE 10,11:PRINT CHR$(206)+"           "+CHR$(206)
LOCATE 10,12:PRINT CHR$(206)+" Bonjour ! "+CHR$(206)
LOCATE 10,13:PRINT CHR$(206)+"           "+CHR$(206)
LOCATE 10,14:PRINT LIGNE$

Code:
REM affiche
DIM I
FOR I=1 to 10
PRINT "LIGNE "+STR$(I)
NEXT I

Code:
DIM N
FOR N=32 TO 87:PRINT CHR$(N);:NEXT N:PRINT
FOR N=88 TO 143:PRINT CHR$(N);:NEXT N:PRINT
FOR N=144 TO 199:PRINT CHR$(N);:NEXT N:PRINT
FOR N=200 TO 255:PRINT CHR$(N);:NEXT N:PRINT

Code:
REM danseur
DIM I,J
FOR I=1 to 40
LOCATE 10,10
PRINT CHR$(248+J):J=J+1:IF J=4 THEN J=0
WAIT 400
NEXT I

Comme vous pouvez le constater, je n'ai pas encore codé les fonctionnalités graphiques ou sonores.
J'ai adapté quelques commandes et fonctions existant dans Panoramic, auxquelles j'ai ajouté:
PAPER, INK, PEN, LOCATE, FIX, et j'y ai aussi codé la police de caractères de l'Amstrad.

Ce que je présente n'est en fait qu'une étude de faisabilité.

_________________
username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.1fr1.net
Minibug

avatar

Nombre de messages : 3091
Age : 52
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 17:41

Bonne idée Jack. Ca me rappelle bien des souvenirs... cheers

Par contre la police elle pique bien les yeux. geek
Je me souviens que je programmais dans un mode 80 colonnes beaucoup plus agréable ! drunken
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jean Claude

avatar

Nombre de messages : 5707
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 18:17

Houla !

Je viens de rajeunir de 33 ans. Razz

Cela peut peut être utile pour ceux qui aurait gardé des codes de l'époque.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
xxx



Nombre de messages : 261
Date d'inscription : 30/03/2018

MessageSujet: Re: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 20:53

Jack a écrit:
Il y a quelques jours, Fredisland m'a donné l'idée d'adapter Panoramic pour qu'il ressemble à Locomotive Basic, le Basic des Amstrad des années 80.

Ah, trop cool rabbit !

Je suis en train de coder l'éditeur pour ce que tu as appelé CROCODILE BASIC. Il est en pur PANORAMIC, sans DLL aucune, et je n'en suis qu'au début. Il est mono-fichier pour reprendre les codes de de l'époque, sera visuel, facile à prendre en main, sera fun à utiliser, mais l'essentiel sera sous le moteur. Qui plus est, les paramètres seront sauvegardés automatiquement (pour l'instant, seul le dernier fichier, les dimensions et positions de la fenêtre sont sauvegardés, pour reprendre immédiatement la session).

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3091
Age : 52
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 21:08

L'aspect de ton éditeur est très sympa !

Vivement les premiers tests ! cheers
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
papydall

avatar

Nombre de messages : 6030
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 21:12

Bon, je me vois revenir aux années 1980, quand j’étais animateur du club « Jeunes et Sciences »
section informatique avec 8 micros (4 CPC 64 et 4 CPC 128)  pour 16 étudiant(e)s.

J’étais « l’Homme-qui-sait-tout-et-qui-n’ignore-rien » !

Merci pour Jack pour  cette bonne surprise !

@Fred
Tous mes encouragements pour toi pour continuer cette lourde tâche que tu es en train de réaliser.
Suggestion : tu veux bien mettre l’image entre les balises SPOILER car cette image est trop large
pour le Forum et ça nuit à la bonne navigation ?

Bonne continuation !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5707
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Naissance de Crocodile Basic   Sam 14 Avr 2018 - 21:15

C'est sure qu'avec un éditeur, ça va être sympa. Mais où trouver des listings au format .txt ou .bas ???

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 6030
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Naissance de Crocodile Basic   Dim 15 Avr 2018 - 1:19

En attendant, tu peux visionner ceci


Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Francis-mr



Nombre de messages : 169
Age : 66
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Naissance de Crocodile Basic   Dim 15 Avr 2018 - 9:29

Que de souvenirs tu fais resurgir Papydall !
Le premier ordinateur que j’ai acheté pour faire découvrir l’informatique à mes enfants, avec ce jeu sur disquette.
drunken
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
xxx



Nombre de messages : 261
Date d'inscription : 30/03/2018

MessageSujet: Re: Naissance de Crocodile Basic   Dim 15 Avr 2018 - 9:45

Francis-mr a écrit:
Que de souvenirs tu fais resurgir Papydall !
Le premier ordinateur que j’ai acheté pour faire découvrir l’informatique à mes enfants, avec ce jeu sur disquette.
drunken

Sur Facebook la communauté des utilisateur de l'AMSTRAD CPC est très nombreuse est se répartit sur plusieurs groupes.
Les sites consacrés au CPC sont encore plus nombreux, et la machine est l'objet de spéculations féroces.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 6030
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Naissance de Crocodile Basic   Dim 15 Avr 2018 - 17:34

Qui se rappelle du jeu Lagaf : Les aventures de Moktar ?
Les jeunes peut-être non ; les mois jeunes peut-être oui !

Pour les nostalgiques (et les autres), voici ce que je vous propose :


Code:

rem ============================================================================
rem                Lagaf : Les aventures de Moktar  
rem ============================================================================
label Choix
dim url$, WB%, res%, i
' full_space 0
width 0,800 : height 0,700
dll_on "kgf"     : ' <---------------------------------- Adapter le chemin !!!

WB% = dll_call1("WB_Create",handle(0))
res% = dll_call5("WB_Locate",WB%,20,60,width_client(0)-50,height_client(0)-100)

button 1 : top 1, height_client(0)-40 : left 1,10 : font_bold 1
font_name 1,"tahoma" : caption 1,"Etapes :"
for i = 2 to 16
    button i : top i, height_client(0)-40 : left i,50+30*i : font_bold i
    width i,20 : font_name i,"tahoma" : caption i,"&" + str$(i-1)
    on_click i,Choix
next i
button 20 : top 20,height_client(0)-40 : left 20,left(16) + 50 : font_bold 20
font_name 20,"arrial" : caption 20,"&Quitter" : on_click 20,choix

alpha 30 : top 30,10 : left 30,200 : font_bold 30 : font_name 30,"comic sans ms"
font_color 30,100,50,20 : font_size 30,24 : caption 30, "Les aventures de Moktar"  

end
rem ============================================================================
Choix:

   select number_click - 1
  
      case 01 : url$ = "https://www.youtube.com/watch?v=BOUblYodKA0"
      case 02 : url$ = "https://www.youtube.com/watch?v=JKagcCV6A3c"
      case 03 : url$ = "https://www.youtube.com/watch?v=e7H67cSEEeI"
      case 04 : url$ = "https://www.youtube.com/watch?v=IQRVE3t-vW8"
      case 05 : url$ = "https://www.youtube.com/watch?v=rNJlvGjG9Ho"
      case 06 : url$ = "https://www.youtube.com/watch?v=N_ITbu08FUU"
      case 07 : url$ = "https://www.youtube.com/watch?v=bMJ5Gl1ruuw"
      case 08 : url$ = "https://www.youtube.com/watch?v=vwUtwjUfFHo"
      case 09 : url$ = "https://www.youtube.com/watch?v=Vr0V8yAC7SI"
      case 10 : url$ = "https://www.youtube.com/watch?v=kqHDvh0y7BY"
      case 11 : url$ = "https://www.youtube.com/watch?v=nJL2V10aLAk"
      case 12 : url$ = "https://www.youtube.com/watch?v=DDm_iYSdP1c"
      case 13 : url$ = "https://www.youtube.com/watch?v=wtLxXfhOplQ"
      case 14 : url$ = "https://www.youtube.com/watch?v=lg4mJSd-Sjs"
      case 15 : url$ = "https://www.youtube.com/watch?v=ioj-fYytxhU"      
      case 19 : terminate
   end_select
   res% = dll_call2("WB_Url",WB%,adr(url$))
return  
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

Nombre de messages : 1762
Date d'inscription : 13/09/2009

MessageSujet: +++   Dim 15 Avr 2018 - 17:57

En effet, ça rappelle bien des vieux souvenirs !
Ca peut être intéressant...
scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Contenu sponsorisé




MessageSujet: Re: Naissance de Crocodile Basic   

Revenir en haut Aller en bas
 
Naissance de Crocodile Basic
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» bavardage sur basic ;)
» [ résolu ] orca browser ne se connecte pas sous vista basic
» PPLOT - conversion depuis le Basic d'Hector ...
» panoramiQUE : Un BASIC complètement français !
» Fiche Technique de Crocodile

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Expériences autour de PANORAMIC :: Crocodile Basic-
Sauter vers: