Musik Ton Piano Ton mit VB Visual Basic programmieren
Author D.Selzer-McKenzie
Video: http://youtu.be/IsXocEyeVfs
Heute möchte ich kurz erklären, wie Sie Musiktöne, z.B. für
ein Piano, programmieren können mit nur wenigem Code:
Console.Beep(250,1000)
Also Console.Beep(1.Zahl, 2.Zahl) und zwar bedeutet die
erste Zahl der Ton (von 55 bis 89000) und die zweite Zahl ist die Zeit in
Milisekunden, wie lange der Ton ausgegeben wird.
Sie brauchen also nur hinter den Piano-Button im Code
schreiben:
Console.Beep(550,2000)
Und schon kommt der 550.Ton in der entsprechenden Länge. Es
gibt nun mal 89000 verschiedene Töne, da müssen Sie suchen, wenn Sie z.B. Guitar oder Flute haben wollen.
Hier ein kleiner Hinweis, nur ein kleiner Ausriss von Tönen:
Zu dimensionieren braucht es nicht, sondern es geht wie oben
beschrieben, oder auch so etwas umständlicher wie hier:
'Dim m As New
Media.SoundPlayer
'm.Stream =
Stream
'm.Play()
'..........................
'Tipp: Die
Werte für einen Sinuston kannst du dir einfach über folgende Funktion erzeugen.
' f: Frequenz
in Hz
' t: Zeit in s
' a: Amplitude(z.B.Short.MaxValue)
' s:
Elongation()
' s(t) = a * Sin(t * f * 2 * PI)
'Mit der
Funktion befüllst du einfach Werte eines Byte-Arrays und schreibst
' dieses dann
so oft in den Stream, wie die Welle abgespielt werden soll.
'Die Zeitdauer
einer Schwingung ist dabei 1/f.
'.................................
'aus Forum:
'VB.NET
-Quellcode
'ist Nr.1 bis
Nr. 88
'Dim C8 =
4186.01
'Dim B7 = 3951.07
'Dim ASharp7 =
3729.31
'Dim A7 =
3520.0
'Dim GSharp7 =
3322.44
'Dim G7 =
3135.96
'Dim FSharp7 =
2959.96
'Dim F7 =
2793.83
'Dim E7 =
2637.02
'Dim DSharp7 =
2489.02
'Dim D7 =
2349.32
'Dim CSharp7 =
2217.46
'Dim C7 =
2093.0
'Dim B6 =
1975.53
'Dim ASharp6 =
1864.66
'Dim A6 =
1760.0
'Dim GSharp6 =
1661.22
'Dim G6 =
1567.98
'Dim FSharp6 =
1479.98
'Dim F6 =
1396.91
'Dim E6 =
1318.51
'Dim DSharp6 =
1244.51
'Dim D6 =
1174.66
'Dim CSharp6 =
1108.73
'Dim C6 =
1046.5
'Dim B5 =
987.767
'Dim ASharp5 =
932.328
'Dim A5 =
880.0
'Dim GSharp5 =
830.609
'Dim G5 =
783.991
'Dim FSharp5 =
739.989
'Dim F5 =
698.456
'Dim E5 =
659.255
'Dim DSharp5 =
622.254
'Dim D5 =
587.33
'Dim CSharp5 =
554.365
'Dim C5 =
523.251
'Dim B4 =
493.883
'Dim ASharp4 =
466.164
'Dim A4 =
440.0
'Dim GSharp4 =
415.305
'Dim G4 =
391.995
'Dim FSharp4 =
369.994
'Dim F4 =
349.228
'Dim E4 =
329.628
'Dim DSharp4 =
311.127
'Dim D4 =
293.665
'Dim CSharp4 =
277.183
'Dim C4 =
261.626
'Dim B3 =
246.942
'Dim ASharp3 =
233.082
'Dim A3 =
220.0
'Dim GSharp3 =
207.652
'Dim G3 =
195.998
'Dim FSharp3 =
184.997
'Dim F3 = 174.614
'Dim E3 =
164.814
'Dim DSharp3 =
155.563
'Dim D3 =
146.832
'Dim CSharp3 =
138.591
'Dim C3 =
130.813
'Dim B2 =
123.471
'Dim ASharp2 =
116.541
'Dim A2 =
110.0
'Dim GSharp2 =
103.826
'Dim G2 =
97.9989
'Dim FSharp2 =
92.4986
'Dim F2 =
87.3071
'Dim E2 =
82.4069
'Dim DSharp2 =
77.7817
'Dim D2 =
73.4162
'Dim CSharp2 =
69.2957
'Dim C2 =
65.4064
'Dim B1 =
61.7354
'Dim ASharp1 =
58.2705
'Dim A1 = 55.0
'Dim GSharp1 =
51.9131
'Dim G1 =
48.9994
'Dim FSharp1 =
46.2493
'Dim F1 =
43.6535
'Dim E1 =
41.2034
'Dim DSharp1 =
38.8909
'Dim D1 = 36.7081
'Dim CSharp1 =
34.6478
'Dim C1 =
32.7032
'Dim B0 =
30.8677
'Dim ASharp0 =
29.1352
'Dim A0 = 27.5
Keine Kommentare:
Kommentar veröffentlichen
Hinweis: Nur ein Mitglied dieses Blogs kann Kommentare posten.