beeps

Hier könnt Ihr gute, von Euch geschriebene Codes posten. Sie müssen auf jeden Fall funktionieren und sollten möglichst effizient, elegant und beispielhaft oder einfach nur cool sein.
Benutzeravatar
#NULL
Beiträge: 2235
Registriert: 20.04.2006 09:50

beeps

Beitrag von #NULL »

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

Code: Alles auswählen

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)
my pb stuff..
Bild..jedenfalls war das mal so.
Benutzeravatar
Tafkadasom2k5
Beiträge: 1577
Registriert: 13.08.2005 14:31
Kontaktdaten:

Beitrag von Tafkadasom2k5 »

PACMAN-Revival Sounds :D
Hab gerade voll Spaß damit :D Hab das früher auch gerne gemacht, hbas aber gerade mal wieder für mich entdeckt! Musik ist was Wunderbares!
OpenNetworkConnection() hat geschrieben:Versucht eine Verbindung mit dem angegebenen Server aufzubauen. 'ServerName$' kann eine IP-Adresse oder ein voller Name sein (z.B.: "127.0.0.1" oder "ftp.home.net").
php-freak hat geschrieben:Ich hab die IP von google auch ned rausgefunden!
Benutzeravatar
#NULL
Beiträge: 2235
Registriert: 20.04.2006 09:50

Beitrag von #NULL »

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
my pb stuff..
Bild..jedenfalls war das mal so.
Antworten