120-लाइन पर्ल ड्रम मशीन

आइए एक ग्राफिक टूलकिट के रूप में मिडी और टीएक्सएक्स का उपयोग करके मोती पर एक साधारण ड्रम मशीन लिखने की कोशिश करें।



मुख्य विशेषताएं

1. 47 उपकरण, 4 एक साथ उपयोग किए जा सकते हैं।
2. कीबोर्ड नियंत्रण।
3. मात्रा पर नियंत्रण
4. बीपीएम रेगुलेटर 60 से 600 बीट प्रति मिनट।

सामान्य तौर पर, कार्यक्रम का विचार दुर्घटना से पैदा हुआ था, उस समय जब मैं जनरल मिडी के बारे में एक लेख आया था। तो, यह विनिर्देश टक्कर उपकरणों के लिए 10 नंबर पर एक विशेष चैनल प्रदान करता है।

आवश्यक नोट संख्या इस पृष्ठ पर पाई जा सकती है।

हमें मॉड्यूल की आवश्यकता होगी: Win32API :: MIDI और Tkx। यदि आप ActivePerl का उपयोग करते हैं तो बाद वाला पहले से इंस्टॉल हो जाएगा।

चलो प्रोग्रामिंग पर चलते हैं

 #! / usr / बिन / पर्ल
 सख्त का उपयोग करें;
 Tkx का उपयोग करें;
 Win32API का उपयोग करें :: मिडी;

हैश, जोड़ी: साधन का नाम => नोट संख्या निर्धारित करें

 मेरे% ड्रम = (
         'बास ड्रम 2' => 35,
         'बास ड्रम 1' => 36,
         'साइड स्टिक' => 37,
         'स्नेयर ड्रम 1' => 38,
         'हैंड क्लैप' => 39,
         'स्नेयर ड्रम 2' => 40,
         'लो टॉम 2' => 41,
         'बंद हाय-टोपी' => 42,
         'लो टॉम 1' => 43,
         'पेडल हाय-हेट' => 44,
         'मिड टॉम 2' => 45,
         'ओपन हाय-हैट' => 46,
         'मिड टॉम 1' => 47,
         'हाई टॉम 2' => 48,
         'क्रैश साइमल 1' => 49,
         'हाई टॉम 1' => 50,
         'राइड सिम्बल 1' => 51,
         'चीनी सिम्बल' => 52,
         'राइड बेल' => 53,
         'टैम्बोरिन' => 54,
         'स्प्लैश सिंबल' => 55,
         'काउबेल' => 56,
         'क्रैश सिंबल 2' => 57,
         'वाइबरा थप्पड़' => ५ib,
         'राइड सिम्बल 2' => 59,
         'हाई बोंगो' => 60,
         'लो बोंगो' => 61,
         'म्यूट हाई कांगा' => 62,
         'ओपन हाई कांगा' => 63,
         'लो कांगा' => 64,
         'हाई टिंबेल' => 65,
         'लो टिंबले' => 66,
         'हाई अगोगो' => 67,
         'लो अगोगो' => 68,
         'काबासा' => 69,
         'मराकस' => 70,
         'लघु सीटी' => 71,
         'लॉन्ग व्हिसल' => 72,
         'शॉर्ट गायरो' => 73,
         'लॉन्ग गायरो' => 74,
         'क्लव्स' => 75,
         'हाई वुड ब्लॉक' => 76,
         'लो वुड ब्लॉक' => 77,
         'म्यूट क्यूइका' => 78,
         'ओपन क्युकी' => 79,
         'म्यूट त्रिकोण' => 80,
         'खुला त्रिभुज' => 81,
 );

हम डिफ़ॉल्ट मान और लयबद्ध पैटर्न को स्क्रीनशॉट में सेट करते हैं

 मेरा $ bpm = 300;
 मेरे $ बिट = 0;
 मेरे $ बिट्स = [[0, 1, 1, 0], [0, 0, 1, 0], [1, 0, 0], [1, 0, 1, 0]];

 my @volume = (127, 127, 127, 127);
 my @drumset = ('बास ड्रम 2', 'बास ड्रम 1', 'स्नेयर ड्रम 1', 'स्नेयर ड्रम 2');
 my @kb_keys = (qw (QWERASDFUIOPHJKL));

एक Win32API :: मिडी ऑब्जेक्ट बनाएँ

 मेरा $ मो = नया Win32API :: मिडी :: आउट () या "मिडी आउटपुट नहीं बना सकता";

प्रोग्राम विंडो के लिए एक विजेट बनाएं, शीर्षक सेट करें और आकार बदलने की क्षमता को अक्षम करें

 मेरे $ mw = Tkx :: विजेट-> नया ('।');
    $ mw-> g_wm_title ('पर्ल में ड्रम मशीन');  
    $ mw-> g_wm_resizable (0, 0);

 my @pad = (-padx => 4, -pady => 4, -sticky => 'names');

हम इंटरफ़ेस खींचते हैं, बिंडिम हॉटकीज़

 मेरे $ i (0..3) {के लिए
         मेरा $ कॉम्बो = $ mw-> new_ttk__combobox (
                 -टेक्स्टवर्सेबल => \ $ ड्रम [$ i],
                 -स्टेट => 'पठनीय',
                 -याल = = [प्रकार {$ ड्रम {$ a} <=> $ ड्रम {$ b}} चाबियाँ% ड्रम],
         );
         मेरा $ पैमाना = $ mw-> new_ttk__scale (
                 -योग्य => \ $ मात्रा [$ i],
                 -फ्रॉम => 0,
                 -तो => 127,
                 -लाभ => 50,
         );
         $ कॉम्बो-> g_grid (-रो => $ i -column => 0, @pad);
         $ स्केल-> g_grid (-रो => $ i, -column => 1, @पैड);
         मेरे $ j (0..3) {के लिए
                 मेरा $ k = $ kb_keys [4 * $ i + $ j];
                 मेरा $ c = $ mw-> new_ttk__checkbutton (
                         -योग्य => $ बिट्स -> [$ i] -> [$ j],
                         -स्टाइल => 'टूलबटन',
                         -टेक्स्ट => "$ k",
                 );
                 Txx :: bind (all => $ _ => उप {$ c-> invoke ()}) के लिए (lc ($ k), uc ($ k));
                 Txx :: grid ($ c, -row => $ i; -column => $ j + 2, @pad);
         }
 }

 मेरे $ bpm_label = $ mw-> new_ttk__label (-text => "$ bpm BPM");
 मेरे $ bpm_scale = $ mw-> new_ttk__scale (
         -योग्य => $ bpm,
         -फ्रॉम => 60,
         -तो => 600,
         -कॉमंड => उप {$ bpm_label-> m_configure (-text => int ($ bpm)। 'BPM')}।
 );

 $ bpm_label-> g_grid (-रो => 4, -कूल = = 0);
 $ bpm_scale-> g_grid (-row => 5, -column => 0);

मुख्य लूप, हम सीक्वेंसर को एक छोटा संदेश भेजते हैं, हम बीपीएम, अंतराल के माध्यम से गणना करते हैं, जिसके माध्यम से हम ड्रूपलूप () कहते हैं।

 उप ड्रमलू {
         मेरा $ b = $ बिट ++% 4;
         (0..3) के लिए {
                 अगर ($ बिट्स -> [$ _] -> [$ b]) {
                         $ मो-> शॉर्टएमएसजी ((0x00000090 | 9) | ($ ड्रम {$ ड्रम [$ _]} << 8) | ($ मात्रा [$ _] << 16));
                 }
         }
         Txx :: के बाद (int (60000 / $ bpm) => \ & ड्रम;
 }

 Tkx :: के बाद (1000 => \ & ड्रम);
 Txx :: मेनलोप;

वह सब है। मैंने विंडोज के लिए एक बिल्ड बनाया।

संदर्भ
स्रोत कोड
विंडोज के तहत निर्माण (शराब के तहत भी काम करता है)