X Tutup
Skip to content

Commit b23bf1d

Browse files
VBAndCsVBAndCs
committed
sVB 3.5.8.8 adds Sound.IsolateMusicChannels and fixes the default octave issue
1 parent 5b5be61 commit b23bf1d

File tree

461 files changed

+321
-111624
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

461 files changed

+321
-111624
lines changed

‎Samples/Music/Play Guitar.sb‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,7 @@
11
TextWindow.WriteLine("A Peaceful Morning")
2+
' Try to play the misic then uncomment the next line and try again to see the difference!
3+
' Sound.IsolateMusicChannels = True
4+
25
Note1 = "O3 L8 CEG CEG" & "O3 L8 CEG CEG O4 L8 GCE GCE O5 L8 CEG CEG " * 10
36
Sound.MusicChannel = 0
47
Sound.Volume = 60

‎Samples/Turtle Samples/Triangles Art 1.sb‎

Lines changed: 28 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,28 @@
1+
Turtle.Speed = 50
2+
GW.BackgroundColor = Colors.Black
3+
GW.PenColor = Colors.White
4+
5+
6+
For I = 1 To 8
7+
For J = 1 To 6
8+
For K = 1 To 5
9+
Turtle.CreateFigure()
10+
For L = 1 To 3
11+
Turtle.Move(25)
12+
Turtle.Turn(120)
13+
Next
14+
GW.BrushColor = Colors.Random
15+
Turtle.FillFigure()
16+
Turtle.Turn(72)
17+
Next
18+
Turtle.Turn(60)
19+
Turtle.PenUp()
20+
Turtle.Move(50)
21+
Turtle.PenDown()
22+
Next
23+
Turtle.Turn(45)
24+
Turtle.PenUp()
25+
Turtle.Move(200)
26+
Turtle.PenDown()
27+
Next
28+

‎Samples/Turtle Samples/Triangles Art 2.sb‎

Lines changed: 46 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,46 @@
1+
Turtle.UseAnimation = False
2+
GW.BackgroundColor = Colors.Black
3+
GW.PenColor = Colors.White
4+
5+
N = 8
6+
For I = 1 To N
7+
DrawNestedRadials(6, 50, 5, 3, 25)
8+
Turtle.Turn(360 / N)
9+
Turtle.PenUp()
10+
Turtle.Move(200)
11+
Turtle.PenDown()
12+
Next
13+
14+
15+
16+
Sub DrawPolygon(sides, length, fillColor)
17+
Turtle.CreateFigure()
18+
a = 360 / sides
19+
For l = 1 To sides
20+
Turtle.Move(length)
21+
Turtle.Turn(a)
22+
Next
23+
GW.BrushColor = fillColor
24+
Turtle.FillFigure()
25+
EndSub
26+
27+
28+
Sub DrawRadial(polygons, sides, length)
29+
a = 360 / polygons
30+
For k = 1 To polygons
31+
DrawPolygon(sides, length, Colors.Random)
32+
Turtle.Turn(a)
33+
Next
34+
EndSub
35+
36+
37+
Sub DrawNestedRadials(radials, disatence, polygons, sides, length)
38+
a = 360 / radials
39+
For j = 1 To radials
40+
DrawRadial(polygons, sides, length)
41+
Turtle.Turn(a)
42+
Turtle.PenUp()
43+
Turtle.Move(disatence)
44+
Turtle.PenDown()
45+
Next
46+
EndSub

‎Small Visual Basic Documentations/sVB Docs.files/image001.png‎

-9.1 KB
Binary file not shown.

‎Small Visual Basic Documentations/sVB Docs.files/image002.gif‎

-2.88 KB
Binary file not shown.

‎Small Visual Basic Documentations/sVB Docs.files/image003.png‎

-15 KB
Binary file not shown.

‎Small Visual Basic Documentations/sVB Docs.files/image004.gif‎

-3.59 KB
Binary file not shown.

‎Small Visual Basic Documentations/sVB Docs.files/image005.png‎

-9.04 KB
Binary file not shown.

‎Small Visual Basic Documentations/sVB Docs.files/image006.gif‎

-2.97 KB
Binary file not shown.

‎Small Visual Basic Documentations/sVB Docs.files/image007.png‎

-14.1 KB
Binary file not shown.

0 commit comments

Comments
 (0)
X Tutup