hspのタグがつけられたコード一覧 | | ページ 2 | Codetter（こーどったー）

; KORGのnanoKEY2でしか動作確認していないのでそこんとこよろしく
; 別にこれ↓やっておく必要ないんだけど渡された数値表示するよりはわかりやすいかと	
	sdim code,64,128
	code(0x0)  = "c ","c#","d ","d#","e ","f ","f#","g ","g#","a ","a#","b ","c ","c#","d ","d#"
	code(0x10) = "e ","f ","f#","g ","g#","a ","a#","b ","c ","c#","d ","d#","e ","f ","f#","g "

#include "hsp3dish.as"
#packopt name "DPRK4"

/* モジュール認識 */
modDetect@mod_simuCfg

/*// c4hsp で使ったCのソースコード
int func(unsigned char *str) {
	unsigned char *p = str;
	while ( *( p++ ) );
	return (p - str -1);

#define IID_IMFPMediaPlayer "{A714590A-58AF-430a-85BF-44F5EC838D85}"
#usecom IMFPMediaPlayer IID_IMFPMediaPlayer "{}"
#comfunc IMFPMediaPlayer_Play 3
#comfunc IMFPMediaPlayer_Pause 4
#comfunc IMFPMediaPlayer_Stop 5

//
// HSP3　コンパイラ for EmEditor マクロ
//
// compilerName にHSP3スクリプトエディタのパスを指定して使用してください。
//

#include "user32.as"
#define GWL_WNDPROC -4
#define WM_CREATE 0x1
#define WM_DESTROY 0x2

#include "a2d.hsp"

#module
#uselib "user32"
#func GetDC "GetDC" int

#include "user32.as"
#include "hspinet.as"
#include "mod_regexp.as"
font "Meiryo",13

	#define BCM_FIRST 0x1600
	#define BCM_SETSHIELD 0x1600+0x000C
	objsize 100,35
	pos 10,10:button"Test",*owari
	sendmsg objinfo_hwnd(0),BCM_SETSHIELD,0,1	//lParam=True

	exist cur+"\\version.log"
	if strsize!-1{
		notesel versionsave2
		noteload cur+"\\version.log"
		exist ""+versionsave2+""