Lieder mit dem Soundbefehl

[RCO]

Hi Jon,

ich weiß leider auch nicht mehr so genau, was ich damals gemacht habe.
Hier sind auf jeden Fall mal zwei Bas-Dateien, die ich davon noch gefunden habe. Ich kann dir aber leider nicht erklären, was da was genau macht, und warum ich das so gemacht habe.

$Crystal = 10000000

Do
Sound Portd.6 , 130 , 1916
Sound Portd.6 , 146 , 1706
Sound Portd.6 , 164 , 1520
Sound Portd.6 , 174 , 1433
Sound Portd.6 , 293 , 1276
Sound Portd.6 , 6250 , 10
Sound Portd.6 , 293 , 1276
Sound Portd.6 , 6250 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 783 , 1276
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 200 , 1136
Sound Portd.6 , 450 , 10
Sound Portd.6 , 783 , 1276
Sound Portd.6 , 170 , 1433
Sound Portd.6 , 450 , 10
Sound Portd.6 , 170 , 1433
Sound Portd.6 , 450 , 10
Sound Portd.6 , 170 , 1433
Sound Portd.6 , 450 , 10
Sound Portd.6 , 170 , 1433
Sound Portd.6 , 450 , 10
Sound Portd.6 , 325 , 1520
Sound Portd.6 , 500 , 10
Sound Portd.6 , 325 , 1520
Sound Portd.6 , 500 , 10
Sound Portd.6 , 145 , 1706
Sound Portd.6 , 450 , 10
Sound Portd.6 , 145 , 1706
Sound Portd.6 , 450 , 10
Sound Portd.6 , 145 , 1706
Sound Portd.6 , 450 , 10
Sound Portd.6 , 145 , 1706
Sound Portd.6 , 450 , 10
Sound Portd.6 , 261 , 1916
Wait 2
Loop

Und:

$baud = 19200
Const Konstante = 332400
Const Zeitkonstante = 332400                                'Konstante f¸r ganze Note (Hier = Konstante)
Const C = 261
Const D = 293
Const Pause = 10
Dim Duration As Long
Dim Puls As Long
Print "Hallo"
Declare Sub Play(byval Noten As Word , Byval Wert As Byte)

Do
Call Play(c , 8)
Wait 1
Loop
End

Sub Play(byval Noten As Word , Byval Wert As Byte)

Puls = Konstante / Noten
Duration = Zeitkonstante / Puls
Print Puls
Print Duration
Duration = Duration / Wert
Print Duration
Sound Portd.6 , Duration , Puls
Sound Portd.6 , 1000 , 10


End Sub

Ich hoffe, es hilft dir irgenwie weiter