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

#include "hsp3utf.as"

#module
#defcfunc getByte_u8 int p1

//------------------------------------------------------------------------------
// デコード用のデータ作成 by 科学太郎
//==============================================================================
// @URL(https://msdn.microsoft.com/ja-jp/library/cc448053.aspx)→「MultiByteToWideChar」
// @URL(https://msdn.microsoft.com/ja-jp/library/cc448089.aspx)→「WideCharToMultiByte」

	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