🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Thread View: fj.lang.visualbasic
3 messages
3 total messages Started by takahashi_jiyunichi Wed, 10 Dec 1997 00:00
MIDIfile
#10
Author: takahashi_jiyunichi
Date: Wed, 10 Dec 1997 00:00
21 lines
1109 bytes

$B9b66!wCfItBg$G$9!#(B

$B#V#B#5!%#0$G#M#I#D#I$rLD$i$7$?$$$N$G$9$,!"(B
$B@k8@J8$,$o$+$j$^$;$s!#(BGetmidi$B$I$&$N$3$&$N(B
$B$H$$$&#A#P#I!)$,$"$C$F$b@k8@J8$,$o$+$i$J$$(B
$B$N$G;H$($^$;$s!##V#B$+#V#CGc$C$?$H$-$K$"$C$?(B
$B#A#P#I$NK\$K$b:\$C$F$J$+$C$?$N$G!"$I$&$K$b$J$j(B
$B$^$;$s!#$I$J$?$+$4B8$8$J$$$G$7$g$&$+!#$^$?$O(B
$B;29M=q$J$I$J$$$G$7$g$+!#(B
 $B$A$J$_$K(BLarningEditiom$B$J$N$G<+F0E*$K@k8@$7$F(B
$B$/$l$k%"%W%j$O$D$$$F$^$;$s!#(B

 
  $B!]!]!]!]!]!]!]!]!]!]!]!](B
  $BCfItBg3X#3G/(B
  $B7P1D>pJs3XItF13X2J(B
   $B9b66(B $B=g0l(B
   g95160@isc.chubu.ac.jp
   jun1@imart.or.jp
Re: MIDIfile
#11
Author: Takumi Fujisawa
Date: Wed, 10 Dec 1997 00:00
40 lines
1866 bytes


takahashi_jiyunichi <g95160@isc.chubu.ac.jp> wrote in article
<66l8en$cjj$1@sally.isc.chubu.ac.jp>...
> 
> $B9b66!wCfItBg$G$9!#(J
> 
> $B#V#B#5!%#0$G#M#I#D#I$rLD$i$7$?$$$N$G$9$,!"(J
> $B@k8@J8$,$o$+$j$^$;$s!#(JGetmidi$B$I$&$N$3$&$N(J
> $B$H$$$&#A#P#I!)$,$"$C$F$b@k8@J8$,$o$+$i$J$$(J
> $B$N$G;H$($^$;$s!##V#B$+#V#CGc$C$?$H$-$K$"$C$?(J
> $B#A#P#I$NK\$K$b:\$C$F$J$+$C$?$N$G!"$I$&$K$b$J$j(J
> $B$^$;$s!#$I$J$?$+$4B8$8$J$$$G$7$g$&$+!#$^$?$O(J
> $B;29M=q$J$I$J$$$G$7$g$+!#(J
>  $B$A$J$_$K(JLarningEditiom$B$J$N$G<+F0E*$K@k8@$7$F(J
> $B$/$l$k%"%W%j$O$D$$$F$^$;$s!#(J
> 
>  
>   $B!]!]!]!]!]!]!]!]!]!]!]!](J
>   $BCfItBg3X#3G/(J
>   $B7P1D>pJs3XItF13X2J(J
>    $B9b66(J $B=g0l(J
>    g95160@isc.chubu.ac.jp
>    jun1@imart.or.jp
> 

$B@>B<$H$$$$$^$9!#(J
$B4JC1$J;29M=q$N$[$&$,NI$5$=$&$G$9$M!#(J
$B%a%G%#%C%/!&%(%s%8%K%"%j%s%0!V$O$8$a$F$N(JVisual Basic5
$B!JC+?,$+$*$jCx!K!o(J2,480$B!W$J$s$+$I$&$G$7$g$&!#(J
$B%5%s%W%k$K!V(J-$B%I%l%_%U%!!&$]$s$r:n$C$F$_$h$&(J-$B!W$H$$$&$N$,$"$j$^$9!#(J
$B4JC1$J(JAPI$B4X?t$r;H$C$F$H$j$"$($:(JMIDI$B2;8;$rLD$i$=$&$H$$$&$b$N$G$9!#(J
$B:G=i$+$i%U%k%5%$%:$N(JMIDI$B%G!<%?$rLD$i$=$&$H;W$C$?$i!"$=$l$J$j$N(J
$BJY6/$,I,MW$G$9!#(J
$B$^$:$O$3$N%5%s%W%k$GJY6/$7$F$_$^$7$g$&!#(J
$B$G$O!#(J

****** A.Nishimura ******
 E-Mail	kenkyu@hot.iia.or.jp
Re: MIDIfile
#12
Author: TAKAHASHI
Date: Sun, 14 Dec 1997 00:00
25 lines
1566 bytes
takahashi_jiyunichi wrote:
> 
> 高橋@中部大です。
> 
> VB5.0でMIDIを鳴らしたいのですが、
> 宣言文がわかりません。
API 使えば 音は出せる やってみなはれ
Declare Function midiOutOpen Lib "winmm.dll" Alias "midiOutOpen"
(lphMidiOut As Long, ByVal uDeviceID As Long, ByVal dwCallback As Long,
ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Declare Function midiOutGetNumDevs Lib "winmm" Alias "midiOutGetNumDevs"
() As Integer
Declare Function midiOutShortMsg Lib "winmm.dll" Alias "midiOutShortMsg"
(ByVal hMidiOut As Long, ByVal dwMsg As Long) As Long
Declare Function midiOutClose Lib "winmm.dll" Alias "midiOutClose"
(ByVal hMidiOut As Long) As Long
参考資料 
       技術評論社の「はじめてのVisualBasic5」 ちょこっとしか
ない 
       ジャストシスムの「コンピュータ音楽の傾向と対策」 ソース
win3.1のじゃが 使うDLLのあるAPIは上の4つ


       
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads