QB45, ne fonctionne pas sur Windows 7 pro, qui n'accepte pas le plein écran.

Sous Windows 8.1 64bits tout est OK

Sinon pour QB et GWbasic qui ne fonctionnent pas sous 64 bits, j'ai installé XP en virtuel (VirtualBox)...

Un peu optimisé et évité l'erreur "division par 0"

Promis, j'arrête, mais je sens que je vais prendre mon pied.

Retour: #
Print "CALCULS"
print
print "donnez votre choix de calcul"
print
print " Addition de 2 nombres, entrez 1"
print " Soustraction, entrez 2"
print " Multiplication, entrez 3"
print " Division , entrez 4"
print
input a
if a<1 then CLS : print "ERREUR (entrez 1,2,3 ou 4)":goto Retour
if a>4 then CLS : print "ERREUR (entrez 1,2,3 ou 4)" :goto Retour
print
if a=1 then print "Addition"
if a=2 then print "Soustraction"
if a= 3 then print "Multiplication"
if a=4 then print "Division"
print "donnez le premier nombre":input b
Retour2: #
print
print "donnez le deuxième nombre":input c
Print: print "RESULTAT"
if a=1 then d=b+c :print d
if a=2 then d=b-c :print d
if a=3 then d=b*c :print d
if a=4 and c=0 then print "ERREUR, le deuxième nombre doit être différent de 0": goto Retour2
if a=4 then d=b/c : print d
Print : print
print "Pour un autre calcul entrez 1, sinon entrez 2": input e
if e=1 then CLS :goto Retour
if e<>1 then CLS

Je me doutais que cela nous rappellerait de bons souvenirs, à nous "les anciens"

Citation :

Ah ah ! On dirait bien que nous sommes une bande de croulants !
Mon premier basic, c'était le Locomotive Basic, implémenté sur l'Amstrad CPC 464... Avec la cassette de sauvegarde.
Le GW est venu plus tard, avec le 8088. Rien à déclarer comme on disait !

Je sens que je vais m'amuser !

Citation :

Mon premier mini ordi était un oric atmos. Et ayant les notions de code machine 6502, j'avais trouvé comment neutraliser l'auto-start des programmes payants et je me suis bien amusé (Mais ça, c'était avant ) . J'avais même reprogrammé la rom basic pour corriger un ou 2 bugs et surtout le faire démarrer en caractères blancs sur fond noir et pas le contraire.

On n'est pas une bande de croulants !! :)

A savoir que si vous utilisez VB, VBnet, visual, Php et autres que les bases du basic sont encore bien utiles..

Boucles, variables, tableaux, test, etc...

Pas si dépassé que ça le bon vieux BASIC...

Citation :

Je plussoie ! Mis à part l'abandon du goto, tout le reste n'a que peu changé. A ceci près qu'à l'époque, les ressources étant plus que limitées, on programmait avec sérieux, en se posant les bonnes questions sur l'occupation mémoire, les performances, et j'en passe !

Bon, avant de ranger ce sympathique BASIC dans mes archives (je ne vais pas m'en servir car on ne peut pas créer d'EXE), voici mon premier et dernier programme en BASIC-256

print "Liste de mes extensions Thunderbird"
print ""
dbopen "C:\Users\Bernard\AppData\Roaming\Thunderbird\Profiles\8pqfh5ib.default\extensions.sqlite"
dbopenset "select * from addon order by internalName;"
while dbrow()
print dbstring(6) + " " + dbstring(1) + " version:" + dbstring(4)
end while
dbclose

Et le résultat :
Liste de mes extensions Thunderbird

AddressBookTab@dischert.luc version:1.5
splash@aldreneo.com version:2.0.2
tbtestpilot@labs.mozilla.com version:1.3.9
{2d686c2a-3eeb-4aa1-a8a4-aaf6214c79a4} version:0.1.3
{4C9FE6FE-2C83-11DC-90B4-DC8456D89593} version:0.8.0
{4dce973c-25a5-4657-8e37-6c2a85c24a7e} version:1.7pre
{554c2c30-935c-11d9-9669-0800200c9a66} version:1.7.1
{5e9999c2-ba1d-44b6-bcee-5b30ce37d3b0} version:1.2.0.2
{A79E82DD-9CE6-87C7-0006-87D0FD2FCD42} version:0.5.2

etc. etc.

Dommage pour la création de exe

Voir cette méthode:
http://forum.basic256.org/index.php?mode=thread&id=643