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
» Planétarium virtuel.
par Pedro Alvarez Hier à 16:57

» Roues dentées
par jean_debord Hier à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Premier programme après l'Amstrad

Aller en bas 
AuteurMessage
gigi75

avatar

Nombre de messages : 101
Age : 45
Date d'inscription : 13/04/2013

MessageSujet: Premier programme après l'Amstrad   Sam 14 Déc 2013 - 21:00

Bonjours à tous,

Ne rigoler pas Crying or Very sad 
Un convertisseur binaire.
Simple mais basic  Very Happy 
Il a fallut tout remettre en question, mais avec une dame à la maison, je ne peux ré-apprendre aussi vite qu'a notre jeunesse.(C'est de l'humour)  Soyez patient.
Donc un premier programme.


Code:

rem declaration de labels
label entre, calcul, fin

rem declaration des variables
dim a$, longueur, chaine$, nombre, bin$, i, x, etat, debut



etat=0
i=0
x=100
chaine$=""
bin$=""
longueur=0
debut=0

rem declaration affichage
maximize 0 : color 0,0,0,0 : caption 0,"Convertisseur decbin"
alpha 1 : top 1,10 : font_color 1,2,255,2 : font_bold 1 : left 1,10 : font_size 1,20
caption 1,"Entrez le nombre puis presser Enter : "
alpha 2 : top 2,15 : font_color 2,255,0,2 : font_bold 2 : left 2,800 : font_size 2,15
caption 2,"Pressez la touche (s) pour sortir"
alpha 3 :left 3,500: top 3,10 : font_color 3,255,0,2 : font_bold 3 : font_size 3,20
alpha 4 : top 4,40 : font_color 4,255,0,2 : font_bold 4 : left 4,800 : font_size 4,15
caption 4,"Pressez la touche (v) pour valider"
alpha 5 : top 5,70 : font_color 5,255,0,2 : font_bold 5 : left 5,800 : font_size 5,15
caption 5,"Pressez la touche (e) pour effacer"
alpha 6 : top 6,50 : font_color 6,0,255,0 : font_bold 6 : left 6,10 : font_size 6,15
caption 6,"Longueur du nombre (Base10) :"
alpha 7 : top 7,50 : font_color 7,0,255,2 : font_bold 7 : left 7,320 : font_size 7,15
alpha 8 : top 8,80 : font_color 8,0,255,2 : font_bold 8 : left 8,20 : font_size 8,15
alpha 9 : top 9,100 : font_color 9,0,255,2 : font_bold 9 : left 9,10 : font_size 9,15
entre:
caption 7,longueur
a$=inkey$
if a$="e"
caption 3,"                                            "
longueur=0
chaine$=""
end_if
if a$="s" then goto fin
if longueur=15 or a$="v"
nombre=val(chaine$)
goto calcul
end_if
if a$= "1" or a$="2" or a$="3" or a$="4" or a$="5" or a$="6" or a$="7" or a$="8" or a$="9" or a$="0"
chaine$=chaine$+a$
longueur=longueur+1
caption 3,chaine$
end_if
goto entre
calcul:
if nombre >= power(2,x)
bin$=bin$+"1"
nombre=nombre-power(2,x)
debut=1
else
if debut=1 then bin$=bin$+"0"
end_if
if x = 0 then goto fin
x=x-1
goto calcul
fin:
caption 8,bin$



Merci à tous
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Premier programme après l'Amstrad   Lun 16 Déc 2013 - 1:17

Salut gigi75.
Je pense que la rubrique Nouvelles Versions n’est pas l’endroit idéal pour poster des codes.
Je te réponds à propos de ton code ailleurs : dans  Présentation et bavardage.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
xxx



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

MessageSujet: Re: Premier programme après l'Amstrad   Lun 30 Avr 2018 - 13:09

Même 5 après, ça reste bô Very Happy !

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Premier programme après l'Amstrad   

Revenir en haut Aller en bas
 
Premier programme après l'Amstrad
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Premier programme après l'Amstrad
» [Obsolète] Une autre programme d'animation gratuit.
» Intégrer une page HTML dans son programme ?
» Programme calculette
» Bloquer son programme au bout de X joures ??

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Nouvelles versions-
Sauter vers: