#COMPILE EXE #DIM ALL GLOBAL i AS LONG GLOBAL freq AS LONG %diapason=440 GLOBAL beneden AS LONG GLOBAL boven AS LONG FUNCTION PBMAIN start: CLS PRINT "Geef een bereik aan van de te berekenen noten, PRINT "de centrale do is 0. PRINT " INPUT "=> onderste noot:", beneden INPUT "=> bovenste noot:", boven IF beneden > boven THEN PRINT PRINT "Het gegeven bereik kan niet berekend worden." ELSE PRINT " FOR i = beneden-9 TO boven-9 '9 aftrekken omdat 0 gelijk is aan de diapason freq = %diapason * (2^(i/12)) PRINT "noot "i+9, " frequentie = " freq '9 optellen om het cijfer terug juist te zetten NEXT i END IF PRINT " PRINT "Druk op een toets om opnieuw te beginnen ..." WAITKEY$ GOTO start END FUNCTION