[VB.NET] แจกโค้ดต้นฉบับในการทำ Metronome (อุปกรณ์ที่ใช้กำหนดจังหวะ)

thongkorn

Add References ... KryptonToolkit ...



การเปลี่ยน Skin หรือ Theme ของ KryptonToolkit 5.55 สำหรับ .Net Framework 4.0

Metronome (เมโทรนอม) คืออุปกรณ์ที่ใช้กำหนดจังหวะ (Tempo) ในดนตรี โดยจะส่งเสียง "ติ๊ก-ต็อก" หรือเสียงเคาะออกมาเป็นช่วงเวลาที่สม่ำเสมอ เพื่อให้นักดนตรีเล่นตามจังหวะได้ตรงกัน

หน้าที่หลักของ Metronome
- ช่วยควบคุมความเร็วของเพลง (เช่น 60, 80, 120 BPM)
- ฝึกการรักษาจังหวะให้สม่ำเสมอ
- ใช้ซ้อมดนตรีเดี่ยวหรือทั้งวง

BPM (Beats Per Minute) คือจำนวนครั้งของจังหวะใน 1 นาที
60 BPM = 1 จังหวะต่อวินาที
120 BPM = 2 จังหวะต่อวินาที

4/4 คือ เครื่องหมายกำหนดจังหวะ (Time Signature) ที่ใช้บอกโครงสร้างของจังหวะในเพลง
ความหมายของ 4/4
ตัวเลขบน (4) = มี 4 จังหวะ ใน 1 ห้องเพลง (1 Bar)
ตัวเลขล่าง (4) = หนึ่งจังหวะมีค่าเป็น โน้ตตัวดำ (Quarter Note)
ดังนั้น 4/4 = 1 ห้องมี 4 จังหวะ และแต่ละจังหวะเท่ากับโน้ตตัวดำ 1 ตัว


มาดูโค้ดต้นฉบับเต็มกันเถอะ ...

1. Imports System.Media
   
2. Imports Krypton.Toolkit
   
3. 
   
4. Public Class frmMetronome
   
5. 
   
6.     '// ==============================
   
7.     ' API สำหรับควบคุมเสียง Windows
   
8.     '// ==============================
   
9.     Private Declare Function waveOutGetVolume Lib "winmm.dll" _
   
10.         (ByVal uDeviceID As Integer, ByRef lpdwVolume As Integer) As Integer
    
11. 
    
12.     Private Declare Function waveOutSetVolume Lib "winmm.dll" _
    
13.         (ByVal uDeviceID As Integer, ByVal dwVolume As Integer) As Integer
    
14. 
    
15. 
    
16.     '// ==============================
    
17.     ' ตัวแปรหลักของโปรแกรม
    
18.     '// ==============================
    
19.     Private player As SoundPlayer
    
20.     Private isLeft As Boolean = True
    
21.     Private isRunning As Boolean = False
    
22. 
    
23.     Private imgLeft As Image
    
24.     Private imgRight As Image
    
25. 
    
26.     Private WithEvents tmrBeat As New Timer
    
27. 
    
28.     Private Sub frmMetronome_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    
29.         Me.Dispose()
    
30.         GC.SuppressFinalize(Me)
    
31.         Application.Exit()
    
32.     End Sub
    
33. 
    
34.     '// ==============================
    
35.     ' FORM LOAD
    
36.     '// ==============================
    
37.     Private Sub frmMetronome_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
38.         ' ค่า BPM เริ่มต้น
    
39.         With trkBPM
    
40.             .Minimum = 40
    
41.             .Maximum = 240
    
42.             .Value = 80
    
43.             .BackStyle = Krypton.Toolkit.PaletteBackStyle.ButtonForm
    
44.             .TickFrequency = 10
    
45.         End With
    
46.         trkBPM.Value = 80
    
47.         lblBPM.Text = "BPM : 80"
    
48.         Call SetTimerInterval()
    
49. 
    
50.         ' โหลดเสียง
    
51.         Dim soundPath As String = MyPath(Application.StartupPath) & "Sound1.wav"
    
52.         player = New SoundPlayer(soundPath)
    
53. 
    
54.         ' โหลดรูปครั้งเดียว
    
55.         imgLeft = Image.FromFile(MyPath(Application.StartupPath) & "PendulumLeft.png")
    
56.         imgRight = Image.FromFile(MyPath(Application.StartupPath) & "PendulumRight.png")
    
57.         picPendulum.Image = imgLeft
    
58. 
    
59.         ' ตั้งค่า Volume จากระบบ
    
60.         With trkVolume
    
61.             .Minimum = 0
    
62.             .Maximum = 100
    
63.             .Value = 50
    
64.             .BackStyle = Krypton.Toolkit.PaletteBackStyle.ButtonForm
    
65.             .TickFrequency = 10
    
66.         End With
    
67.         trkVolume.Value = GetSystemVolume()
    
68.         lblVolume.Text = "Vol : " & trkVolume.Value & "%"
    
69. 
    
70.         btnStart.Text = "เริ่ม"
    
71. 
    
72.         '// KryptonToolkit Palette.
    
73.         With cmbPalette
    
74.             .Items.Add("Office2003")
    
75.             .Items.Add("Office2007Blue")
    
76.             .Items.Add("Office2007Silver")
    
77.             .Items.Add("Office2007Black")
    
78.             .Items.Add("Office2010Blue")
    
79.             .Items.Add("Office2010Silver")
    
80.             .Items.Add("Office2010Black")
    
81.         End With
    
82.         cmbPalette.SelectedIndex = 4
    
83.         '// Set to KryptonDataGridView By changing the Palette according to the main form.
    
84.         Me.PaletteMode = Krypton.Toolkit.PaletteMode.Global
    
85.     End Sub
    
86. 
    
87.     '// ==============================
    
88.     ' BPM CONTROL
    
89.     '// ==============================
    
90.     Private Sub trkBPM_Scroll(sender As Object, e As EventArgs) Handles trkBPM.Scroll
    
91.         lblBPM.Text = "BPM : " & trkBPM.Value
    
92.         SetTimerInterval()
    
93.     End Sub
    
94. 
    
95.     Private Sub SetTimerInterval()
    
96.         tmrBeat.Interval = CInt(60000 / trkBPM.Value)
    
97.     End Sub
    
98. 
    
99.     '// ==============================
    
100.     ' START / STOP (Toggle)
     
101.     '// ==============================
     
102.     Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
     
103.         If Not isRunning Then
     
104.             tmrBeat.Start()
     
105.             btnStart.Text = "หยุด"
     
106.             isRunning = True
     
107.         Else
     
108.             tmrBeat.Stop()
     
109.             btnStart.Text = "เริ่ม"
     
110.             picPendulum.Image = imgLeft
     
111.             isRunning = False
     
112.         End If
     
113.     End Sub
     
114. 
     
115.     Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
     
116.         Me.Close()
     
117.     End Sub
     
118. 
     
119.     '// ==============================
     
120.     ' METRONOME TICK
     
121.     '// ==============================
     
122.     Private Sub tmrBeat_Tick(sender As Object, e As EventArgs) Handles tmrBeat.Tick
     
123.         ' เล่นเสียง
     
124.         player.Stop()
     
125.         player.Play()
     
126.         ' สลับภาพ
     
127.         If isLeft Then
     
128.             picPendulum.Image = imgRight
     
129.         Else
     
130.             picPendulum.Image = imgLeft
     
131.         End If
     
132.         isLeft = Not isLeft
     
133.     End Sub
     
134. 
     
135.     '// ==============================
     
136.     ' VOLUME CONTROL
     
137.     '// ==============================
     
138.     Private Sub trkVolume_Scroll(sender As Object, e As EventArgs) Handles trkVolume.Scroll
     
139.         SetSystemVolume(trkVolume.Value)
     
140.         lblVolume.Text = "Vol : " & trkVolume.Value & "%"
     
141.     End Sub
     
142. 
     
143.     Private Function GetSystemVolume() As Integer
     
144.         Dim vol As Integer
     
145.         waveOutGetVolume(0, vol)
     
146.         Dim leftVol As Integer = vol And &HFFFF
     
147.         Return CInt((leftVol / &HFFFF) * 100)
     
148.     End Function
     
149. 
     
150.     Private Sub SetSystemVolume(ByVal level As Integer)
     
151.         If level < 0 Then level = 0
     
152.         If level > 100 Then level = 100
     
153. 
     
154.         Dim newVol As Integer = CInt((level / 100.0) * &HFFFF)
     
155.         Dim volAll As Integer = (newVol << 16) Or newVol
     
156.         waveOutSetVolume(0, volAll)
     
157.     End Sub
     
158. 
     
159.     ' / --------------------------------------------------------------------------------------------
     
160.     ' / Change Palette Mode.
     
161.     ' / --------------------------------------------------------------------------------------------
     
162.     Private Sub cmbPalette_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbPalette.SelectedIndexChanged
     
163.         Dim manager As New KryptonManager()
     
164.         Select Case cmbPalette.SelectedIndex
     
165.             Case 0
     
166.                 manager.GlobalPaletteMode = PaletteModeManager.ProfessionalOffice2003
     
167.             Case 1
     
168.                 manager.GlobalPaletteMode = PaletteModeManager.Office2007Blue
     
169.             Case 2
     
170.                 manager.GlobalPaletteMode = PaletteModeManager.Office2007Silver
     
171.             Case 3
     
172.                 manager.GlobalPaletteMode = PaletteModeManager.Office2007Black
     
173.             Case 4
     
174.                 manager.GlobalPaletteMode = PaletteModeManager.Office2010Blue
     
175.             Case 5
     
176.                 manager.GlobalPaletteMode = PaletteModeManager.Office2010Silver
     
177.             Case 6
     
178.                 manager.GlobalPaletteMode = PaletteModeManager.Office2010Black
     
179.         End Select
     
180.     End Sub
     
181. 
     
182. 
     
183. #Region "UTILITY"
     
184.     Private Function MyPath(ByVal AppPath As String) As String
     
185.         Dim p = AppPath.ToLower().
     
186.             Replace("\bin\debug", "").
     
187.             Replace("\bin\release", "").
     
188.             Replace("\bin\x86\debug", "").
     
189.             Replace("\bin\x86\release", "")
     
190. 
     
191.         If Not p.EndsWith("") Then p &= ""
     
192.         Return p
     
193.     End Function
     
194. #End Region
     
195. 
     
196. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...

ดาวน์โหลด krypton Toolkit 5.55 สำหรับ .Net Framework 4.0 ได้ที่นี่ ...