Membuat Beat Box Drummer dengan Visual Basic 6

Buatlah Form seperti gambar di ini  jangan lupa masukan sebuah Timer kemudian ganti namanya dengan nama Timer1 dan buatlah properti Enable=True dan Interval=10. Serta jangan lupa menggunakan pustaka directX 8.

Selanjutnya salin program berikut ini, selamat berkreasi


'Membuat Beat Box Drummer dengan Visual Basic 6

Option Explicit
Dim OneSample  As Double
Dim DX As New DirectX8 ' menggunakan directx 8
Dim DS As DirectSound8
Dim Bass As DirectSoundSecondaryBuffer8
Dim Snare As DirectSoundSecondaryBuffer8
Dim Hat As DirectSoundSecondaryBuffer8

Dim desc As DSBUFFERDESC

Const PI = 3.14159265358979 '
Const SRATE = 44100     ' Kecepatan Sample / sampling rate
Const DUR = 1                  ' Durasi suara
Const FREQ = 440              ' referensi frekuensisuara
Const CHAN = 2                   ' stereo
Const BITDEPTH = 16              ' 16 bit
Const BLOCK = 4
Dim hitung As Long
Dim sbuf(0 To DUR * SRATE * CHAN) As Integer


Private Sub Form_Load()

Set DX = New DirectX8   ' menggunkan directx 8
Set DS = DX.DirectSoundCreate("")
DS.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL
desc.fxFormat.nFormatTag = WAVE_FORMAT_PCM  ' header audio wav
desc.fxFormat.nSize = 0
'desc.fxFormat.lExtra = 0
desc.fxFormat.nChannels = CHAN
desc.fxFormat.lSamplesPerSec = SRATE
desc.fxFormat.nBitsPerSample = BITDEPTH
desc.fxFormat.nBlockAlign = BLOCK
desc.fxFormat.lAvgBytesPerSec = BLOCK * SRATE
desc.lFlags = DSBCAPS_STATIC Or DSBCAPS_CTRLVOLUME Or DSBCAPS_CTRLFREQUENCY Or DSBCAPS_CTRLPAN
desc.lBufferBytes = BLOCK * DUR * SRATE
'Set Bass = DS.CreateSoundBuffer(desc)  '  membuat buffer
Dim i    ' pembuatan frekuensi suara
Dim n, n2, n3, x
Dim env As Double

mksoundata 50, -30, 0.1, 40, 4, 0.1, 0.15, Bass, "Saw"
mksoundata 350, -250, 0.2, 100, 0, 0, 0.1, Snare, "Square"
mksoundata 18000, -10, 0.5, 7500, 0, 0.1, 0.1, Hat, "Noise"


End Sub

Private Sub Timer1_Timer()

If hitung = 0 Or hitung = 8 Or hitung = 16 Or hitung = 56 Or hitung = 88 Or hitung = 80 Then
Bass.SetVolume -10000
If Bass.GetStatus = DSBSTATUS_PLAYING Then Bass.Stop: Bass.SetCurrentPosition 0
Bass.SetVolume -1000
Bass.Play 0
End If

If hitung = 32 Or hitung = 96 Or hitung = 120 Then
Snare.SetVolume -10000
If Snare.GetStatus = DSBSTATUS_PLAYING Then Snare.Stop: Snare.SetCurrentPosition 0
Snare.SetVolume -1500
Snare.Play 0
End If

If hitung = 0 Or hitung = 16 Or hitung = 32 Or hitung = 48 Or hitung = 64 Or hitung = 80 Or hitung = 96 Or hitung = 104 Or hitung = 112 Then
Hat.SetVolume -10000
If Hat.GetStatus = DSBSTATUS_PLAYING Then Hat.Stop: Hat.SetCurrentPosition 0
Hat.SetVolume -1500

Hat.Play 0
Hat.SetPan 0

End If


hitung = hitung + 1
If hitung > 128 Then hitung = 0
End Sub


Private Sub mksoundata(f1 As Integer, swp1 As Integer, stime1 As Single, _
                       f2 As Integer, swp2 As Integer, stime2 As Single, _
                       dec As Single, Buff As DirectSoundSecondaryBuffer8, Optional waveform As String = "Sine")
Dim i, shift1, shift2, n, n2, n3, env, wavelength
'Dim Buff As New DirectSoundSecondaryBuffer8
env = 1
wavelength = SRATE / f1
For i = 0 To DUR * SRATE - 1
n = 2 * PI * ((f1 + shift1) * i / SRATE)
'n2 = 2 * PI * ((f2 + shift2) * i / SRATE)

env = IIf(i < dec * SRATE, 1 - (i / (dec * SRATE)), 0)
shift1 = IIf(i < dec * SRATE, swp1 * (i / (dec * SRATE)), 0)
shift2 = IIf(i < dec * SRATE, swp2 * (i / (dec * SRATE)), 0)

    Select Case waveform
    Case "Sine"  ' gelombang sinus -- sin(n)
        OneSample = Sin(n + Sin(n + Sin(n + Sin(n)))) * env ' frekunsinya sudah dimodulasi
   
    Case "Square"
        OneSample = Sgn(Sin(n)) * env
    Case "Saw"
        OneSample = ((i Mod wavelength) / wavelength) * env
    Case "Triangle"
        OneSample = Abs(1 - ((i Mod wavelength) / wavelength) * 2) * env
    Case "Noise"
        OneSample = (Rnd - Rnd) * env
    End Select

    sbuf(2 * i) = OneSample * 32767 * 0.55 * env ' chanel kiri
    sbuf(2 * i + 1) = sbuf(2 * i)     ' chanel kanan copy dari chanel kiri
Next i

Set Buff = DS.CreateSoundBuffer(desc)
Buff.WriteBuffer 0, BLOCK * DUR * SRATE, sbuf(0), DSBLOCK_DEFAULT 'mengisi buffer
End Sub

Read more »

Posted in: Pemrograman,Pemrograman Audio

Seri Motivasi : Dibalik semua kejadian buruk pasti ada hikmah.

Pernahkan anda mengalami hal terburuk yang terjadi pada diri anda atau dalam kehidupan anda sendiri?  Jawabannya mungkin ya ataupun tidak, tetapi yang paling penting disini adalah kita harus bisa memahami sebuah hikmah yang dapat kita ambil dari hal buruk yang pernah kita alami sebagai sebuah proses pembelajaran yang bisa meningkatkan kualitas mental anda dalam melewati berbagai cobaan kehidupan sehingga lebih memberikan makna yang lebih luas akan pemahaman sebuah proses tersebut.   
 

Hikmah yang bisa kita ambil dari setiap kejadian yang menimpa kita adalah ada maksud tersembunyi dibalik kejadian ini dari Sang Pencipta yang membuat kita lebih bersyukur karena mungkin saja kejadian yang kita alami tersebut mencegah kita dari kejadian yang lebih buruk yang bisa saja kita alami.

Misalnya  seseorang pernah kehilangan kendaraan yang sangat ia senangi dan sangat membantunya dalam kehidupan sehari-hari, padahal kendaran tersebut sangat berharga baginya dalam meraih penghidupan tetapi karena sebuah sebab kendaraan tadi hilang dicuri orang. Sang pemilik kendaraan tersebut sangat kecewa karena harta miliknya lenyap begitu saja sementara ia tidak bisa melakukan kegiatan lainnya. Setelah beberapa jam kemudian kendaraan tersebut ditemukan dalam keadaan rusak parah dan pengendaranya dikabarkan mengalami kematian karena benturan dua kendaraan yang sangat keras. Pemilik kendaran sangat bersyukur karena kalau tidak kehilangan kendaraannya, mungkin saja ia yang menjadi korban kecelakaan tersebut.

Read more »

Posted in: Menulis,motivasi

Seri Motivasi : Setiap masalah pasti ada jalan keluarnya.

Sering kali orang berbicara bahwa ia sedang mengalami kebuntuan dalam dalam memecahkan sebuah masalah. Hal ini terjadi biasanya karena ia menganggap bahwa hal yang ia tempuh terasa seperti sebuah jalan buntu yang tidak ada jalan keluarnya.  Anggapan tersebut bisa membuat anda mengalami kesulitan dalam menemukan sebuah cara yang bisa membantu anda untuk keluar dari masalah yang sedang dihadapi.

Orang –orang yang putus asa biasanya sering mengalami jalan buntu, padahal yang dinamakan jalan buntu tersebut hanya ada dalam pikirannya saja yang sedang kalut. Saya tidak menganggap anda orang yang sedang berputus asa. Seandainya  saja kalau kita selalu berpikir dengan jernih maka kita tidak akan menemui jalan buntu tadi karena kita bisa berpikir sedikit lebih logis dan membuka jalan pikiran untuk tidak terpaku pada satu cara saja karena berbagai hal bisa kita lakukan.   

Banyak cara yang bisa anda lakukan dalam menemukan sebuah penyelesaian dari permasalahan yang sedang anda alami. Makanya kita harus yakin seyakin- yakinnya  bahwa setiap permasalahan pasti ada jalan keluarnya, karena hambatan sebenarnya kadang-kadang hanyalah masalah pemikiran anda saja. Semakin anda berpikir positip semakin mudah anda menemukan solusinya.

<< Seri Motivasi Sebelumnya                         Seri Motivasi Selanjutnya  >>     

Read more »

Posted in: Menulis,motivasi

Seri Motivasi : Anda yang paling tahu hal yang terbaik untuk diri anda sendiri.

Saran seorang teman bisa saja membantu anda dalam mengambil sebuah langkah keputusan yang terbaik untuk dipilih, tetapi bagaimana jika saran tersebut tidak memenuhi kebutuhan yang anda inginkan. Disinilah peran diri anda sendiri memegang peranan penting dalam menemukan sebuah jalan keluar. Saran dari teman anda tetaplah hanya sebagai saran bagi anda saja karena anda yang mengetahui secara persis apa yang anda butuhkan.

Jika anda adalah orang yang cukup memiliki inisiatif dan cukup percaya diri dengan langkah-langkah yang akan anda ambil dari sebuah penyelesai atas permasalahan yang terjadi, maka anda mungkin bisa sangat  tidak tergantung dengan orang lain karena anda mampu menyesaikannya sendiri. Saran dari luar diri anda bisa ditempatkan hanya sebagai “second opinion” saja.

Bagi orang-orang yang masih tergantung dengan bantuan orang lain lewat saran-saran yang diberikan tentu saja saran tadi akan menjadi sebuah masukan yang sangat positip dan membantu anda dalam menyusun sebuah langkah penyelesai permasalahan.  Tetapi perlu kembali diingat bahwa saran-saran yang dapatkan adalah sekedar saran semata sampai anda mengetahui sesuatu yang terbaik untuk anda. Maka dari itu andalah  yang paling tahu hal yang terbaik untuk diri anda sendiri.

<< Seri Motivasi Sebelumnya                         Seri Motivasi Selanjutnya  >>     

Read more »

Posted in: Menulis,motivasi

Seri Motivasi : Ingatlah bahwa anda bukan orang yang sempurna

Setiap orang memiliki kebiasaannya masing-masing dan caranya masing-masing dalam meraih kebahagian serta beraktualisasi sesuai dengan keinginannya. Tetapi sebagian lagi tidak bisa beraktualisasi karena takut melakukan kesalahan ataupun takut melakukan kembali kesalahan yang sama. Sebagian lagi bahkan tidak mau sampai melakukan kesalahan dan jika itu terjadi ia menganggap bahwa semua yang dilakukan harus sempurna.

Ingatlah bahwa manusia tidak ada yang sempurna, kita hanya manusia biasa yang tidak pernah luput dari  segala kesalahan baik yang kita sengaja atau kita lakukan secara tidak sengaja. Kita tidak perlu takut untuk beraktualisasi dan melakukan hal-hal bisa membuat  anda bahagia atau merasa senang, tetapi tentu saja selama hal-hal yang anda lakukan tadi tidak mengganggu orang lain dan bukan sebuah hal yang melanggar norma-norma yang berlaku di sekitar lingkungan anda, serta tidak melanggar dari keyakinan yang anda anut.

Jika anda melakukan sebuah sebuah kesalah pada proses aktualisasi tersebut. Kita hanya manusia biasa dan pasti pernah melakukan kesalahan dalam beraktualisasi, yang penting adalah kita berusaha memperbaiki dan menyadari bahwa kesalahan yang kita lakukan adalah sebuah kesalahan. Selanjutnya anda masih punya banyak kesempatan untuk memperbaiki diri sebagai seorang manusia yang tidak sempurna.

<< Seri Motivasi Sebelumnya                         Seri Motivasi Selanjutnya  >>     

Read more »

Posted in: Menulis,motivasi

Seri Motivasi : Lupakanlah semua kebencian anda

Apa untungnya membenci orang lain? Bisakah anda menyebutkan satu saja keuntungan yang bisa kita ambil dari membenci orang lain ? Bisakah anda membantu saya menemukannya satu saja keuntungannya?. Saya rasa akan sangat  sulit untuk menemukannya , malahan saya sendiri juga belum bisa menemukannya. Kalau saya pikirkan secara jernih, buat apa kita membenci seseorang, karena membenci orang hanya akan membuang waktu dan tenaga saja.

Setiap kali kita membenci orang lain yang ada adalah perasaan tidak senang atau perasaan tidak bahagia, sudah pasti perasaan yang muncul adalah perasaan negatif bukan menghasilkan sesuatu yang positip bagi anda. Mungkin bisa anda bayangkan sejauh mana perasaan capek yang bisa kita rasakan kalau anda seharian saja membenci orang, dijamin anda akan cepat mengalami kelelahan karena pusat perhatian anda hanya tercurah pada kebencian anda dan anda tidak akan fokus pada apa yang seharusnya anda lakukan.

Yang seharusnya kita lakukan adalah berhenti saja membenci orang lain karena masih banyak hal lain bisa kita kerjakan dan memberikan perasaan bahagia bagi anda. Jangalah mengunci kebenciaan anda terhadap seseorang dan menyimpannya dalam ingatan anda karena akan menyita waktu dan perhatian anda.  Bahagiakah anda ketika membenci orang lain?.

<< Seri Motivasi Sebelumnya                         Seri Motivasi Selanjutnya  >>     

Read more »

Posted in: Menulis,motivasi