질문]메트로놈인데, 소스 좀 봐주세요, 에러인데-초보  
 글쓴이:추월로
, Hit : 5368

- File #1 : ce.zip(161.0 KB), Download : 371
메트로놈을 만드는데,
ipaq 3660
2002

입니다.

에뮬하니칸 이상한 에러가 납니다.

원래는 윈98에서 vb5.0으로 작성하고, evb으로 작성했는데,
초보라서 뭐가 문제인지 몰라요?

갈켜주세요.

첨부입니다.-질답은 첨부기능이 없어서 이곳에 올립니다.



추천:
추천:
추천:
추천:
추천:
추천:
추천:
추천:
  추월로
회원님의 소개글이 없습니다.
정보력:0
친절도:

추월로

정보력:0
친절도:

05-17 08:26
152.149.179.216 		최종 해결된 소스를 올립니다.
폼=====
VERSION 5.00
Begin VB.Form Form1
End
Begin VBCE.ComboBox Combo2
End
Begin VBCE.ComboBox Combo1
End
Begin VBCE.CommandButton Command1
Caption = "Start !"
End
Begin VBCE.Label Label2
Caption = "Sound"
End
Begin VBCE.Label Label1
Caption = "Interval"
End
End

Option Explicit
Dim DoFlag

Private Sub Command1_Click()
Dim int_t As Integer

Select Case DoFlag
Case True
Command1.Caption = "Stop -X"
DoFlag = False
'combo 값 읽기
int_t = val(Combo1.List(combo.ListIndex)) * 1000
' int_t = val(Combo1.text) * 1000
'timer 속성 변경
Timer1.Interval = int_t
Case False
Command1.Caption = "Start-O"
DoFlag = True
Timer1.Interval = 0
End Select
End Sub


Private Sub Form_Load()
DoFlag = True
Combo1.Clear
Combo1.AddItem "1.0"
Combo1.AddItem "2.0"
Combo1.AddItem "3.0"
Combo1.AddItem "4.0"
Combo1.AddItem "5.0"
Combo1.AddItem "6.0"
Combo1.AddItem "7.0"
Combo1.AddItem "8.0"
Combo1.AddItem "9.0"
Combo1.AddItem "10.0"
Combo1.ListIndex = 5

Combo2.Clear
Combo2.AddItem "notify.wav"
Combo2.AddItem "ding.wav"
Combo2.ListIndex = 0
End Sub


Private Sub Timer1_Timer()
Dim s_name As String
s_name = Combo2.List(combo.ListIndex)
Call PlaySound(App.Path & "\notify.wav", API_NULL, SND_SYNC)
End Sub


Private Sub Form_OKClick()
App.End
End Sub

모듈 =======
Attribute VB_Name = "Module1"
Option Explicit

Public Const API_NULL = &H0
Public Const SND_SYNC = &H0
Public Declare Function PlaySound Lib "Coredll" Alias "PlaySoundW" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

withDrug

정보력:0
친절도:

06-11 13:43
210.95.196.231 		완성된프로그램좀 올려 주세요
추월로

정보력:0
친절도:

06-28 09:21
152.149.169.1 		첨부가 완성된 프로그램 아닌가요?
자세한 설명 부탁드립니다.
댓글쓰기     작성자   패스워드