PureBoard

Verfasst: **23.10.2007 23:33**

wer beim debuggen auch gerne die ohren benutzt, kann sich ja
mal dieses sympathische dreiergespann zu gemüte führen

tschüß

Procedure beep(nr.l=0)
  Select nr
  Case 0;success
    For i=0 To 10
      Beep_(1000+i*100,8)
    Next
  Case 1;failure
    For i=10 To 0 Step -1
      Beep_(1000+i*100,8)
    Next
  Case 2;error
    Beep_( 79, 55 )
    Beep_( 123, 55 )
    Beep_( 79, 55 )
    Beep_( 123, 55 )
  EndSelect
EndProcedure

beep()
Delay(700)
beep(1)
Delay(700)
beep(2)

Verfasst: **24.10.2007 15:56**

PACMAN-Revival Sounds

Hab gerade voll Spaß damit

Hab das früher auch gerne gemacht, hbas aber gerade mal wieder für mich entdeckt! Musik ist was Wunderbares!

Verfasst: **24.10.2007 16:12**

ich benutze sowas immer gerne für kleine tools, die ohne oberfläche laufen.
da weiß man dann trotzem was (nicht) geklappt hat, z.b. wenn parameter fehlen oder ungültig waren

PureBoard

beeps

beeps