new

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 - 2005/08/01

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 - 2005/08/01

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

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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

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 - 2005/08/01

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

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01

web.hsp
IEコンポーネントを使ったブラウザ cls 1 sdim url,512 url="http: www.onionsoft.net" objsize 600,24 pos 0,2:mes "URL:" pos 0,26:mes "WEB Browser Sample" pos 40,0:input url objsize 120,24 pos 520,24:button "移動",*wow pos 400,24:button "進む",*go_f pos 280,24:button
sample\new\web.hsp - 2005/08/01

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 - 2005/08/01

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 - 2005/08/01