Beep

[hbh-tieltjes]

'Zoeken van priemgetallen uit een reeks getallen
cls:print time$()
for priem=999999999901 to 999999999999 step 2
for deler=3 to sqr(priem) step 2
if priem mod deler = 0 then exit for
next deler
if priem mod deler = 0 then [geenPriem]
'Hier: print #1, chr$(7)
print priem
'Hier: print #1, chr$(7)
[geenPriem]
next priem
print time$()
end
'Beste Anthonio wil je deze prog even afmaken.
'Zodat ik voor en na een priemgetal een Beep hoor.
'Ik weet niet welke regels op welke plaats moeten.
'Bvd gr. Herman

[anthonio]

[hbh-tieltjes]

Beste Anthonio
Je hebt mij in de goede richting gebracht en het werkt.
Ik heb wel heelveel listings over getypt en af gekeken en daar van geleerd.
Het geluidje chr$(7) komt niet uit mijn luidsprekers maar uit de computerkast.
Hier is aan de voorkant een heel klein speakertje ingeboud.
Weet jij of dit speakertje voor meer tonen programmeerbaar is ?
Bedankt en gr. Herman

[anthonio]

Herman,

chr$(7) geeft in DOS de commando "BEL".
Die luidspreker in je computer kan bij mijn weten alleen die ene klank afspelen.
Het enige andere geluid dat je er uit zou kunnen krijgen is die beep maar dan zeer snel achter mekaar.
Dit produceert een iets irritanter geluid maar het komt op hetzelfde neer.

groeten.

[hbh-tieltjes]

Als we dan toch in DOS bezig zijn kunnen we dan ook andere funties gebruiken ?
Ik bedoel in dit geval het PLAY statement van QB.
Heeft er wel eens iemand met QB 7.1 bestanden in JB gerommelt ?
En wat is daarvan gekomen ?
gr. Herman

[anthonio]

Herman,

Wat doet het play-statement in QB?
Ik heb nooit gewerkt met QB vandaar.
Aan de andere kant.
Verdergaan in batch-programmeren is niet besteed aan dit forum.
Wat ik wel kan doen is je helpen met batchprogrammeren maar dan via PM (prive-berichten).

groeten.

[Gordon]

[hbh-tieltjes]

Voor Anthonio , Wat doet het play statement in QB
Het brengt een melodietje ten gehore aan de hand van een comandostring.
Sintax: PLAY stringuitdrukking , deze kan de volgende commando's bevatten.
1e:Octaaf-commando's,2e:Duur v/d noten,3e:Mode; is voor- of achtergrond muziek.
4e:Tempo-commando's,5e:Actervoegsels verhoogt-verlaagt noot met halve toon.
Kan 7 octaven spelen,84 verscillende tonen,64 verschillen van duur van tonen,64 tempo's
Je kunt dus wel stellen alles kan.
Als je het echt wil kan ik een voorbeeld sturen gr. Herman.

[anthonio]

Ziet er behoorlijk ingewikkeld uit om te programmeren.
Is dat voorbeeld in JB/LB dat je hebt?

groeten.

[hbh-tieltjes]

Anthonio
Nee dat is een voorbeeld uit een boekje van QB toonladder in 7 verschillende octaven.
toonladder$="CDEFGAB"...Dit zijn de noten,dat kunnen ook nummers zijn van 0 t/m 84 waarbij 0=rust.
PLAY "L16"...Duur van de noten kan van 1 t/m 64
for i=0 to 6...De zeven octaven.
PLAY "0" + str$(i)...Is rust + betreffende octaaf
PLAY "X" + varptr$(toonladder$)...Dit voert de muziek-substring uit.
next i...volgende octaaf
Ik heb lang lang geleden zelf ook wel eens wat gedaan, maar het is tamelijk omslachtig.
Heb je zo een indruk ? gr. Herman

[anthonio]

Bedankt voor de uitleg herman.
Ik veronderstel dat iemand dit in LB toch al iets of wat heeft nagemaakt.
Ik ga een snuffelen op het amerikaanse forum.