Liberty basic limites
kiri53
-
pascal -
pascal -
Je voudrai reprogrammer un prg d'astrologie de 8000 lignes écrit en GFA basic (exAtari de1990!..).
J'ai récuperé les données sources via l'émulateur Steem Engine2 et j'ai essayé de réécrire en Liberty Basic, qui présente 2 Pb:
- Calcul avec 8 décimales (il m'en faudrait 14 idem Atari (et Excel))
- La fonction INT(-1.8) donne -1 (-2 avec Atari (et Excel))
Avez vous solution à ces Pb sous Liberty Basic?
Sinon quel programme serait a votre avis le + adapté à se Prg qui nécessite des calculs précis et Qq affichages graphiques sympa (theme astral + données du theme)
Merci à vous
KiRi
J'ai récuperé les données sources via l'émulateur Steem Engine2 et j'ai essayé de réécrire en Liberty Basic, qui présente 2 Pb:
- Calcul avec 8 décimales (il m'en faudrait 14 idem Atari (et Excel))
- La fonction INT(-1.8) donne -1 (-2 avec Atari (et Excel))
Avez vous solution à ces Pb sous Liberty Basic?
Sinon quel programme serait a votre avis le + adapté à se Prg qui nécessite des calculs précis et Qq affichages graphiques sympa (theme astral + données du theme)
Merci à vous
KiRi
A voir également:
- Liberty basic limites
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual basic - Télécharger - Langages
- File renamer basic - Télécharger - Gestion de fichiers
- Visual basic editor - Télécharger - Langages
- Quick basic - Télécharger - Édition & Programmation
1 réponse
multiplie ton nombre par mille, tu gagnera 4 decimales.
et pour l'arrondi essaye ça:
x=-1.4
print int(x)
if (abs(x)-abs(int(x)))>=.5 then ad=1
x2=abs(int(x))+ad
print ad
if x<0 then x=x2*-1
print x
wait
plus d'infos sur :
http://lbasic.atomysk.com
et le forum d'aide qui va avec:
http://lbasic.atomysk.com/forum
@++
et pour l'arrondi essaye ça:
x=-1.4
print int(x)
if (abs(x)-abs(int(x)))>=.5 then ad=1
x2=abs(int(x))+ad
print ad
if x<0 then x=x2*-1
print x
wait
plus d'infos sur :
http://lbasic.atomysk.com
et le forum d'aide qui va avec:
http://lbasic.atomysk.com/forum
@++
