X Tutup
Skip to content

Commit 4efb4ba

Browse files
VBAndCsVBAndCs
committed
sVB 3.5.8.9 and Sahla Ar 1.2
1 parent b23bf1d commit 4efb4ba

File tree

25 files changed

+1046
-399
lines changed

25 files changed

+1046
-399
lines changed

‎Samples/Music/Drums Channel.sb‎

Lines changed: 19 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,19 @@
1+
TextWindow.WriteLine("Play Musice")
2+
Sound.IsolateMusicChannels = True
3+
4+
Note1 = "O5 L4 C D E G A G E D C O4 L4 C D E G A G E D C"
5+
' This is the drums channel. The note will play drums.
6+
Sound.MusicChannel = 9
7+
Sound.Volume = 100
8+
Sound.KeepTonesOn = True
9+
Sound.PlayMusicAsync(Note1 * 7)
10+
11+
Program.Delay(2400)
12+
Note2 = "R O3 L4 CEG CEG" & "O3 L2 CEG CEG O4 L4 GCE GCE O5 L2 CEG CEG "
13+
Sound.MusicChannel = 0
14+
Sound.Volume = 80
15+
Sound.KeepTonesOn = True
16+
Sound.MusicInstrument = MusicInstruments.AcousticGuitarSteel
17+
Sound.PlayMusicAsync(Note2 * 4)
18+
19+

‎Samples/Music/Piano, Guitar And Strings.sb‎

Lines changed: 39 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,39 @@
1+
TextWindow.WriteLine("Playing music:")
2+
Sound.IsolateMusicChannels = True
3+
4+
Note1 = "O4 CEG CEG O3 CEG CEG " &
5+
"O5 FAC FAC O4 GCE GCE " &
6+
"O6 CEG CEG O3 CEG CEG "
7+
8+
Note2 = "O5 C D E G A G F E D O4 G A B C D C B A G "
9+
10+
Sound.MusicChannel = 0
11+
Sound.Volume = 60
12+
Sound.KeepTonesOn = True
13+
Sound.MusicInstrument = MusicInstruments.AcousticGrandPiano
14+
Sound.PlayMusicAsync(Note1 * 3)
15+
16+
Program.Delay(18 * 400)
17+
Sound.MusicChannel = 1
18+
Sound.Volume = 80
19+
Sound.KeepTonesOn = True
20+
Sound.MusicInstrument = MusicInstruments.AcousticGuitarSteel
21+
Sound.PlayMusicAsync(Note2)
22+
23+
24+
Program.Delay(18 * 400)
25+
Sound.MusicChannel = 2
26+
Sound.Volume = 100
27+
Sound.KeepTonesOn = False
28+
Sound.MusicInstrument = MusicInstruments.TremoloStrings
29+
Sound.PlayMusicAsync(Note2 * 2)
30+
31+
Program.Delay(18 * 400)
32+
Sound.MusicChannel = 1
33+
Sound.Volume = 80
34+
Sound.KeepTonesOn = True
35+
Sound.MusicInstrument = MusicInstruments.AcousticGuitarSteel
36+
Sound.PlayMusicAsync(Note2 * 2)
37+
38+
39+

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Cat.mp3‎

8.68 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Cow.mp3‎

18.5 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Crow.mp3‎

38.7 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Dog.mp3‎

22.1 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Donkey.mp3‎

74.8 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Duck.mp3‎

45.8 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Elephant.mp3‎

74.2 KB
Binary file not shown.

‎Samples/Sahla Programming Language/Sahla/Animal Sounds/Horse.mp3‎

31.3 KB
Binary file not shown.

0 commit comments

Comments
 (0)
X Tutup