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
» ajouter des blancs dans un TXT
par lepetitmarocain Aujourd'hui à 13:00

» Planétarium virtuel.
par Oscaribout Hier à 19:45

» 11 (en analyse): commandes sur TAB et SUB_MENU.
par Jack Hier à 14:10

» 10 (en analyse): Erreur sur variable locale.
par Jack Hier à 14:05

» Métamatière, éternité et renouvellement
par Oscaribout Hier à 12:40

» De retour...
par Yannick Lun 13 Aoû 2018 - 15:11

» bug SEVERE fnc+sub : (35)name already defined
par Oscaribout Dim 12 Aoû 2018 - 23:55

» Encadrement
par Jean Claude Dim 12 Aoû 2018 - 11:53

» Des rectangles...
par JL35 Dim 12 Aoû 2018 - 10:53

» TRIGGER_KEY_COMBINED_TOUCH
par Jean Claude Mar 7 Aoû 2018 - 20:58

» ITEM_SELECT N,L pour synedit
par Jean Claude Mar 7 Aoû 2018 - 19:11

» amélioration panoramic
par silverman Dim 5 Aoû 2018 - 18:34

» Commande file_readln.
par Pedro Alvarez Dim 5 Aoû 2018 - 17:08

» Klaus ?
par Jack Sam 4 Aoû 2018 - 22:48

» Défragmentation du disque dur
par JL35 Sam 4 Aoû 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2018
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Naissance de Crocodile Basic

Aller en bas 
AuteurMessage
Jack
Admin
avatar

Nombre de messages : 1901
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 : 2996
Age : 51
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 : 5574
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 : 2996
Age : 51
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 : 5983
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 : 5574
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 : 5983
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 : 168
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 : 5983
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 : 1761
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: