HSPのコード一覧 | Codetter（こーどったー）

	title "月末日を表示 0.1"
	screen 0,480,640
	inx=100 : iny=20
	mes "↓最初の年の入力(西暦),半角数字"
	nen=2020

#runtime "hsp3cl"
#cmpopt varinit 1
#include "user32.as"
#include "Dictionary.as"
;Dictionary.as

#include "user32.as"
	scroll_min = 0		// 最小値
	scroll_max = 100	// 最大値
	scroll_size = 33	// バーの大きさ
	scroll_pos = 10		// バーの位置（最大値＝scroll_max-scroll_size+1）

#runtime "hsp3cl"
#cmpopt varinit 1
randomize

#module Program

#runtime "hsp3cl"
#cmpopt varinit 1
randomize

#module Program

;#うちこむ人にバランス栄養 #カロリーメイトリキッド
;https://www.otsuka.co.jp/cmt/to_programmer/
;Author: YOS G-spec

#runtime "hsp3cl"

;
;	zipcloud（郵便番号データ配信サービス）を使って、
;	郵便番号から住所文字列を取得するサンプル
;
#include "hspinet.as"

// モジュール開始
#module waithack
#uselib "user32.dll"
#func PeekMessageA "PeekMessageA" sptr,sptr,int,int,int
#func GetMessageA "GetMessageA" sptr,int,int,int

#uselib "user32.dll"
#func SetTimer  "SetTimer"  int,int,int,int

#define WM_TIMER    0x0113
#define TIMER_ID    1    ; タイマーID

#module
//{ 配列a - 配列b : return 引いた後の配列aのサイズ } ( aもbも破壊します)
#defcfunc 配列引き算 array a, array b, int sizeA, int sizeB
	lpoke ln
	bn = sizeB