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

[Jon]

Ich werde es mir nochmal genauer anschauen. Im Moment habe ich nicht die Zeit dazu.
Aber trotzdem schade, dass du nicht mehr weißt, wie du das gemacht hast.
Vielleicht finde ich es ja heraus

jon