hspda

test1.hsp
#include "hspda.as" 配列変数のソート kaz=20 dim n,kaz pos 0,0 repeat kaz n.cnt = rnd(100) mes "N["+cnt+"]="+n.cnt loop sortval n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\hspda\test1.hsp - 2007/07/31

test2.hsp
#include "hspda.as" 文字列のソート sdim st,1000 st={"peach apple orange banana kiwi grape"} pos 0,0 mes st sortnote st,0 pos 320,0 mes st stop
sample\hspda\test2.hsp - 2007/07/31

test3.hsp
#include "hspda.as" 配列変数のソート randomize kaz=10 sdim n,32,kaz repeat kaz n.cnt=" "+rnd(20) loop pos 0,0 repeat kaz mes "N["+cnt+"]="+n.cnt loop sortstr n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\hspda\test3.hsp - 2007/07/31

test4.hsp
title "num="+num+"/"+csvmax noteget cline,num csvnote data, cline objprm 0,data stop *up num+ if num>=csvmax : num=csvmax-1 goto *ok *down num- if num<0 : num=0 goto *ok
sample\hspda\test4.hsp - 2007/07/31

test5.hsp
title "num="+num+"/"+csvmax csvstr data, cline repeat 10 objprm cnt, data.cnt loop stop *up num+ if num>=csvmax : num=csvmax-1 goto *ok *down num- if num<0 : num=0 goto *ok
sample\hspda\test5.hsp - 2007/07/31

test6.hsp
#include "hspda.as" xnote sample sdim buf,32000 buf="abc\ndef\nghi\n" xnotesel buf xnoteadd "jkl" mes "STAT="+stat mes buf stop
sample\hspda\test6.hsp - 2007/07/31

test7.hsp
#include "hspda.as" 実数の乱数生成 rndf_ini 乱数の初期化(なくてもOKです) mes "実数で0～1までの乱数を生成します。
sample\hspda\test7.hsp - 2007/07/31

test8.hsp
#include "hspda.as" 実数配列変数のソート kaz=20 ddim n,kaz pos 0,0 repeat kaz rndf_get dval MTで乱数を発生させる n.cnt = dval mes "N["+cnt+"]="+n.cnt loop sortval n,0 pos 320,0 repeat kaz sortget a,cnt mes "sort N["+cnt+"]="+n.cnt+"("+a+")" loop stop
sample\hspda\test8.hsp - 2007/07/31

vtest1.hsp
#include "hspda.as" #define varfile "vtest_data.var" vload,vsaveサンプル onexit *owari sdim buf,4096 テキストのバッファを確保 vload varfile すべての変数をファイルから読み込み cls 4 sysfont 17 syscolor 15 boxf flg=1 0=編集不可/1=編集可能 mesbox buf,636,446,flg+4,0 最大サイズ編集許可 color 0,0,0 pos
sample\hspda\vtest1.hsp - 2007/07/31

vtest2.hsp
#include "hspda.as" #define varfile "vtest_data2.var" 変数指定によるvload,vsaveサンプル max=16 sdim comment,256 dim samp,max gosub *setup stop *load 指定した変数をまとめてファイルから読み込み vload_start varfile vload_get comment vload_get samp vload_end gosub *setup dialog
sample\hspda\vtest2.hsp - 2007/07/31