Fungi Programming thread | xltronic messageboard
 
You are not logged in!

F.A.Q
Log in

Register
  
 
  
 
Now online (1)
belb
...and 345 guests

Last 5 registered
Oplandisks
nothingstar
N_loop
yipe
foxtrotromeo

Browse members...
  
 
Members 8025
Messages 2614116
Today 2
Topics 127542
  
 
Messageboard index
Fungi Programming thread
 

offline fungusman from Monster Island on 2005-11-24 11:43 [#01786647]
Points: 381 Status: Lurker



#If Win32 Then
Private Declare Function mciSendString Lib "winmm.dll" Alias
_
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long,
ByVal _
hwndCallback As Long) As Long

#ElseIf Win16 Then

Private Declare Function mciSendString Lib "mmsystem"
(ByVal _
lpstrCommand As String, ByVal lpstrReturnStr As Any,
ByVal _
wReturnLen As Integer, ByVal hCallBack As Integer) As
Long
#End If

Private Sub Command1_Click()
Dim ret As Integer
ret = mciSendString("open C:\beatles.mid _ type sequencer
alias beatles", 0&, 0, 0)
ret = mciSendString("play beatles wait", 0&, 0, 0)
ret = mciSendString("close beatles", 0&, 0, 0)
End Sub

WHY THE FUCK ISN`T THIS WORKING? Anyone good with VB?

(beatles.mis was the first midi I found on google for this
example, though the beatles are pretty cool)


 

offline Drunken Mastah from OPPERKLASSESVIN!!! (Norway) on 2005-11-24 19:37 [#01786904]
Points: 35867 Status: Lurker | Show recordbag



:B


 

offline flea from depths of your mind (New Zealand) on 2005-11-24 20:15 [#01786949]
Points: 9083 Status: Regular



Babel Fish just died and spat that?


 


Messageboard index