سلام
این بار دو تا برنامه برا ی تولید صدا می ذارم.حتما امتحان کنید!
این برنامه صدا آمبولانس رو بی نهایت بار تکرار می کنه:
1 FOR I = 440 TO 1000 STEP 5
SOUND I, I / 1000
NEXT
FOR I = 1000 TO 440 STEP -5
SOUND I, I / 1000
NEXT
GOTO 1
و این هم آهنگ مخصوص زحمتکشان جامعه!!!
PLAY ON
FElise$ = "o3 L8 E D+ E D+ E o2 B o3 D C L2 o2 A"
PLAY "MB X" + VARPTR$(FElise$)
امیدوارم لذت برده باشید.