Notice
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
Tags
- 고양이
- 위닝일레븐
- 스타워즈
- 축구
- 포켓몬고
- 월드컵
- PC사랑
- 액션로망범피트롯
- 천지를베다
- 스타워즈타이니데스스타
- 진삼국무쌍
- 삼국지5
- 카페인함유량
- 언어의 분열
- 위닝일레븐10le
- 위닝일레븐10라이브웨어에볼루션
- 고양이영상
- 시
- 잡지모음
- 유비의꿈
- 축구국가대표팀선수명단
- 영화감상평
- 칼로리정보
- 스누피틀린그림찾기
- 자작소설
- 자작시
- 잡지
- 카페인
- 게이머즈
- 범피트롯
- Today
- 46
- Total
- 94,342
유투보이의 블로그
비주얼베이직 비트박스 음악 프로그램(Visual Basic Beatbox Music Program) 본문
'컴퓨터 관련' 카테고리의 다른 글
[Python]파이썬 이름 체크 프로그램(Name Checking Program) (0) | 2017.07.07 |
---|---|
[Python]파이썬 도레미파솔라시도 사운드 재생 프로그램(CDEFGABC Sound Play Program) (0) | 2017.05.26 |
SAP HANA (0) | 2017.05.17 |
C++ (씨플플) 가위바위보 과제 (0) | 2017.05.17 |
비주얼베이직 비트박스 음악 프로그램(Visual Basic Beatbox Music Program) (3) | 2017.03.15 |
네이버 클라우드 파일 공유 방법 (0) | 2017.01.19 |
- Tag
- 비주얼베이직
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 신고 풀 코드는 이렇습니다 도움되시길 바라요!