hspda

csvnote.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\csvnote.hsp - 2021/07/29

csvstr.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\csvstr.hsp - 2021/07/29

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

sortrndf.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\sortrndf.hsp - 2021/07/29

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 - 2021/07/29

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 - 2021/07/29

xnoteadd.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\xnoteadd.hsp - 2021/07/29