관리 메뉴

유투보이의 블로그

비주얼베이직 비트박스 음악 프로그램(Visual Basic Beatbox Music Program) 본문

컴퓨터 관련

비주얼베이직 비트박스 음악 프로그램(Visual Basic Beatbox Music Program)

U2-Boy 2017. 3. 15. 13:34
3 Comments
  • 프로필사진 안녕하세 2019.01.16 22:15 저 혹시 이 프로그램 풀코드좀 알수있을까요? 똑같이 만들어 보고싶어서요...
  • 프로필사진 U2-Boy 2019.01.16 23:58 신고
    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
  • 프로필사진 U2-Boy 2019.01.16 23:59 신고 풀 코드는 이렇습니다 도움되시길 바라요!
댓글쓰기 폼