new

ahtman_kw.hsp
#include "hsedsdk.as" #include "mod_aht.as" tminit ahtfile = dir_exe + "\\ezinput\\グラフィック\\色を指定.aht" mes "かんたん入力ダイアログを表示します。" mes ahtfile *goaht tmload m,ahtfile,"",-1 if m<0 : dialog "読み込み中にエラーが発生しました。
sample\new\ahtman_kw.hsp - 2007/07/31

arraynote.hsp
#include "hsp3util.as" s="abc\ndef\nhij\nklm" note2array a,s *main cls syscolor 15:boxf color 0,0,0 pos 8,8:mes "配列変数のセーブ・ロードを行ないます" pos 8,32 objsize 320,24 repeat 4 input a(cnt) loop button "セーブ",*asave button "ロード",*aload button "確認",*aview button
sample\new\arraynote.hsp - 2007/07/31

atan_grect.hsp
screen 0,320,240 cx=160:cy=120 repeat redraw 0 dir=atan(cy-mousey,cx-mousex) color 255,255,255:boxf color 0,0,0:pos 0,0 mes "mouse=("+mousex+","+mousey+") dir="+dir grect cx,cy,dir,100,100 redraw 1 await 20 loop
sample\new\atan_grect.hsp - 2007/07/31

dirinfo.hsp
システムのディレクトリ情報を表示する cls 3 sysfont 17 hr=" " max=13 sdim dex,64,max sdim s1,128 dex(0)="0 : カレント(現在の)ディレクトリ" dex(1)="1 : HSPの実行ファイルがあるディレクトリ" dex(2)="2 : Windowsディレクトリ" dex(3)="3 : Windowsのシステムディレクトリ" dex(4)="4 : コマンドライン文字列" dex(5)="$10000 :
sample\new\dirinfo.hsp - 2007/07/31

dragdrop.hsp
Windowへのドラッグ&ドロップsample http: quasiquote.org/hspwiki/ thanks ちょくと さん http: yokohama.cool.ne.jp/chokuto/urawaza/dragdrop.html #uselib "shell32.dll" #func DragAcceptFiles "DragAcceptFiles" int,int #func DragQueryFile "DragQueryFileA" int,int,int,int
sample\new\dragdrop.hsp - 2007/07/31

emes.hsp
#include "hsp3util.as" emes命令を使用するために必要です ゆっくり文字列を表示するサンプル font msgothic,30,1 a="こんにちは、HSPです。\nゆっくりと文字を出してみましょう。
sample\new\emes.hsp - 2007/07/31

grect.hsp
title "grect" screen 0,640,480,0 cls 2 font "Arial",14 m="HSP3.0 Sample 2005" x=160:y=160:px=4:py=4 repeat redraw 0 hsvcolor cnt/2,255,255 gmode 0,200,200 grect x,y,double(cnt)*0.07 pos 482,442:color 0,0,0:mes m pos 480,440:color 255,255,255:mes m
sample\new\grect.hsp - 2007/07/31

groll.hsp
マウスドラッグで描画領域をスクロールさせる ( groll命令を使用したテスト ) screen 0,1200,600,0,,,480,360 repeat 6 y=cnt*100:i=cnt repeat 12 x=cnt*100 if i&1 : color 255,0,0 : else : color 0,0,255 boxf x,y,x+100,y+100 i++ loop loop color 255,255,255 font msgothic,120 pos 20,320: mes
sample\new\groll.hsp - 2007/07/31

gsquare.hsp
title "gsquare" randomize buffer 3 picload dir_exe+"\\docs\\hsp3ttl.jpg" screen 0,640,480,0 gmode 0,640,200 tx.0=0:ty.0=0 tx.1=640:ty.1=0 tx.2=640:ty.2=200 tx.3=0:ty.3=200 repeat redraw 0 color 64,64,64:boxf n = cnt&127:if n>=64 : n=63-(n-64)
sample\new\gsquare.hsp - 2007/07/31

hsptv_test.hsp
#include "hsptv.as" score=1000 sdim comm,64 mes "HSPTVデータの更新登録テスト" hsptv_up -1,"" 最初に情報を更新しておく gosub *update ランキング情報の表示 pos 500,32:objsize 120,24 mes "スコア" input score mes "コメント" input comm button "更新",*send button "終了",*ok stop *send hsptv_up
sample\new\hsptv_test.hsp - 2007/07/31

hsv.hsp
HSV sample y=0 repeat 256 x=0:px=2 repeat 256 hsvcolor y,cnt,255 boxf x,y,x+px,y x+=px loop y+ await 0 loop stop
sample\new\hsv.hsp - 2007/07/31

imgload.hsp
title "ImgCtxによる画像読み込み" dialog "BMP *.JPG *.PNG *.GIF *.ICO *.TIFF",16 if stat = 0 : end imgload refstr title "読み込み完了" stop
sample\new\imgload.hsp - 2007/07/31

label_type.hsp
ラベル型変数のテスト a=*test a(1)=*test2 mes "TYPE="+vartype(a) mes "USE="+varuse(a) gosub a gosub a(1) mes "OK" stop *test mes "JUMP OK" return *test2 mes "JUMP OK2" return
sample\new\label_type.hsp - 2007/07/31

libptr.hsp
#uselib "user32.dll" #func MessageBoxA "MessageBoxA" int,sptr,sptr,int ladr=libptr( MessageBoxA ) dupptr lptr,ladr,28 STRUCTDAT構造体を取得 lib_id=wpeek(lptr,0) mes "LIB#"+lib_id mref hspctx,68 linf_adr=lpeek( hspctx, 832 ) if linf_adr=0 { mes "No Data."
sample\new\libptr.hsp - 2007/07/31

macro.hsp
組み込みキーワードを新規命令で置き換える例 mes命令をサブルーチンによる表示に置き換えます。 (サブルーチンからは本来のmes命令を呼び出しています。
sample\new\macro.hsp - 2007/07/31

menubar.hsp
#include "mod_menu.as" メニューアイテムIDを定義 #enum global NULL=0 NULL #enum CMD_OPEN [開く]アイテムのID #enum CMD_SAVE [保存]アイテムのID #enum CMD_QUIT [終了]アイテムのID #enum CMD_MESS [表示]アイテムのID メッセージ割り込み oncmd gosub *OnCommand, WM_COMMAND onexit gosub *OnExitMess
sample\new\menubar.hsp - 2007/07/31

menusample.hsp
#include "mod_menu.as" #define CMD_OPEN 1 #define CMD_QUIT 2 oncmd gosub *OnCommand, WM_COMMAND メッセージ割り込み サブメニュー作成 newmenu hfilemenu,1 addmenu hfilemenu, "開く(&O)", CMD_OPEN addmenu hfilemenu, "終了(&Q)", CMD_QUIT トップメニュー作成 newmenu hmenu,0 addmenu
sample\new\menusample.hsp - 2007/07/31

mkpack.hsp
title "mkdpm v1.0" screen 0,480,240 sdim fname,256 sdim dname,256 dname="data" deckey=0 syscolor 15:boxf color 0,0,0 mes "指定ディレクトリの内容をDPMファイルに変換します" pos 0,30 sysfont 17 mes "ディレクトリ:" objsize 400,24 input fname objsize 64,24 pos 408,41:button
sample\new\mkpack.hsp - 2007/07/31

modvar.hsp
モジュール変数のテスト #module ball x,y #modinit int a x=rnd(a):y=rnd(a) return #modfunc putprm mes "X="+x+"/Y="+y return #global repeat 12 newmod a,ball,10 loop foreach a:mes "#"+cnt putprm a.cnt loop mes "OK" stop
sample\new\modvar.hsp - 2007/07/31

mouse.hsp
title "Check mouse pointer" cx=160:cy=120 pos 0,60 button gosub "OFF",*moff button gosub "ON",*mon repeat redraw 0 color 255,255,255:boxf color 0,0,0:pos 0,0 mes "mouse=("+mousex+","+mousey+")" mes "wheel="+mousew color 255,0,0
sample\new\mouse.hsp - 2007/07/31

nkfcnv.hsp
#include "hspinet.as" 単純なファイルのダウンロード netinit if stat : dialog "ネット接続できません。" : end neturl "http: www.yahoo.co.jp/" mes "DOWNLOAD 開始" netload "index.html" mes "DOWNLOAD 完了" mes "index.htmlを保存しました。
sample\new\nkfcnv.hsp - 2007/07/31

rssload.hsp
#include "mod_rss.as" RSSリーダーサンプル url="http: hotwired.goo.ne.jp/news/index.rdf" rssload desc, link, url, 6 if stat=1 : dialog "取得に失敗しました。" : end if stat=2 : dialog "RSSではありません。" : end mes "RSSの内容を表示します。
sample\new\rssload.hsp - 2007/07/31

star.hsp
randomize screen 0,320,240,0 cls 4 buffer 3,320,240,0 cls 4 font "ＭＳ ゴシック",40,1 buffer 4,,,0 cls 0 *main gsel 3 gmode 0,320,240 pos 5,5:gzoom 310,230,0 gmode 6,320,240,2 pos 0,0:gcopy 4,0,0 x=rnd(320)-20: y=rnd(240)-20 color
sample\new\star.hsp - 2007/07/31

starmove.hsp
test2 buffer 1,320,240 color 12,12,12 boxf screen 0,320,240 cls 1 font "ＭＳ ゴシック",40,1 cvalue=0.0 *main redraw 0 gmode 6,320,240,256 pos 0,0:gcopy 1 dir=cvalue size=70+sin(cvalue)*30 repeat 16 x=150+sin(dir+cvalue)*size y=102+cos(dir-cvalue)*size
sample\new\starmove.hsp - 2007/07/31

strf.hsp
書式指定付き文字列変換(strf)テスト a=123 mes strf("10進[%d]",a) mes strf("16進[%x]",a) mes strf("10進桁数指定付き[%05d]",a) mes strf("16進桁数指定付き[%05x]",a) a=sqrt(2) mes strf("10進実数[%f]",a) mes strf("10進実数桁数指定付き[%3.10f]",a) stop
sample\new\strf.hsp - 2007/07/31

sysinfo.hsp
OS環境の情報を表示する mes "OS = "+sysinfo(0) mes "USER = "+sysinfo(1) mes "MACHINE = "+sysinfo(2) mes "CPU CODE = "+sysinfo(16) mes "CPU NUM = "+sysinfo(17) mes "USED MEMORY % = "+sysinfo(33) mes "TOTAL MEMORY = "+sysinfo(34) mes "FREE MEMORY = "+sysinfo(35)
sample\new\sysinfo.hsp - 2007/07/31

web.hsp
IEコンポーネントを使ったブラウザ #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_NAVIGATECOMPLETE2 252 cls 1 sdim url,512 url="http: hsp.tv/" objsize 600,24 pos 0,2:mes "URL:" pos 0,26:mes "WEB Browser Sample" pos 40,0:input
sample\new\web.hsp - 2007/07/31

winmove.hsp
各種配置オブジェクトのテスト (ウィンドウを動かすと位置を検出します) onexit *m6 onerror *m4 onkey *m5 onclick *m5 #define WM_MOVE 0x0003 oncmd gosub *m7,WM_MOVE a=123 buf="" input a,320,24 sdim buf,256 listbox z,100,"apple\npie\ntoast" mesbox buf,320,100 button "DELETE",*m1 button
sample\new\winmove.hsp - 2007/07/31

winobj.hsp
#include "hsp3util.as" #include "obj.as" 特殊な配置オブジェクトを使ったサンプル statictext "スタティックテキストです",640,100 progbar 640,20 id=stat progbar_set id,1 button "無効ボタン",*owari objgray stat button "終了ボタン",*owari getobjsize inf,stat mes
sample\new\winobj.hsp - 2007/07/31