본문 바로가기

컴퓨터 관련

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

  • 안녕하세 2019.01.16 22:15 신고 댓글주소 수정/삭제 댓글쓰기

    저 혹시 이 프로그램 풀코드좀 알수있을까요? 똑같이 만들어 보고싶어서요...


    • 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

    • 풀 코드는 이렇습니다 도움되시길 바라요!