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

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

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

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

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

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

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