유투보이의 블로그

비주얼 베이직 비트박스 프로그램 영상2 + 소스코드 본문

컴퓨터 관련

비주얼 베이직 비트박스 프로그램 영상2 + 소스코드

U2-Boy 2019. 1. 17. 00:04
반응형

이 프로그램에 대해 문의해주시는 분들이 많으셔서 코드도 첨부합니다

Public Class Form1

 

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        My.Computer.Audio.Play(Application.StartupPath + "\dung2.wav")

    End Sub

 

    Public Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        My.Computer.Audio.Play(Application.StartupPath + "\chit2.wav")

    End Sub

 

    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        My.Computer.Audio.Play(Application.StartupPath + "\t2.wav")

    End Sub

 

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        e.Handled = True

 

        If e.KeyCode = Keys.A Or e.KeyCode = Keys.L Then

            My.Computer.Audio.Play(Application.StartupPath + "\dung2.wav")

 

 

        ElseIf e.KeyCode = Keys.S Or e.KeyCode = Keys.K Then

            My.Computer.Audio.Play(Application.StartupPath + "\chit2.wav")

 

 

        ElseIf e.KeyCode = Keys.D Or e.KeyCode = Keys.J Then

            My.Computer.Audio.Play(Application.StartupPath + "\t2.wav")

 

        Else

            MessageBox.Show("잘못된 키 입력")

 

        End If

    End Sub

End Class

반응형