new34

ease_test1.hsp
イージング関数の設定 setease 100,400,ease_cubic_inout i=0 repeat 51 redraw 0 color 0,0,0:boxf 画面をクリア x = getease(i,50) イージング値の取得(整数) color 255,255,255 pos x,100 : mes "●" pos 16,16 : mes "i="+i+" x="+x redraw 1 await 30 i=i+1 loop
sample\new34\ease_test1.hsp - 2018/05/04

ease_test2.hsp
イージング関数の設定 i=0 repeat redraw 0 color 0,0,0:boxf 画面をクリア color 255,255,255 y=20 setease 100,400,ease_linear+ease_loop x = getease(i,50) イージング値の取得(整数) pos 100,y : mes "ease_linear" pos x,y+20 : mes "●" y+=50 setease 100,400,ease_quad_inout+ease_loop x
sample\new34\ease_test2.hsp - 2018/05/04

ease_test3.hsp
クリックした座標にボールを移動させます x=ginfo_sx/2 y=ginfo_sy/2 anim=100 移動するフレーム数 *start color 0,0,0:boxf 画面をクリア color 255,255,255 pos 0,0 mes "画面をクリックしてください" pos x,y mes "●" *main stick key await 20 if key&256 : goto *main2 goto *main *main2 bx=x 開始座標X by=y 開始座標Y
sample\new34\ease_test3.hsp - 2018/05/04

multitouch1.hsp
Windows7のマルチタッチ入力を取得するサンプルです。 マルチタッチに対応したデバイスでのみ実行できます。
sample\new34\multitouch1.hsp - 2018/05/04

multitouch2.hsp
Windows7のマルチタッチ入力を取得するサンプルです。 マルチタッチに対応したデバイスでのみ実行できます。
sample\new34\multitouch2.hsp - 2018/05/04

multitouch3.hsp
Windows7のマルチタッチ入力を取得するサンプルです。 マルチタッチに対応したデバイスでのみ実行できます。
sample\new34\multitouch3.hsp - 2018/05/04

noframe.hsp
枠なしウィンドウを作成して、ドラッグ可能にするサンプル bgscr 0,320,240:cls 1 sysfont 16 pos 30,80:mes "ウィンドウ自体をドラッグできます。
sample\new34\noframe.hsp - 2018/05/04

split.hsp
split命令サンプル buf = "tarou,18,male" mes "もとの文字列["+buf+"]" split buf, ",", name, age, sex mes "名前:"+name mes "年齢:"+age+"才" mes "性別:"+sex mes " " buf = "よそはよそ、うちはうち。そよそよ。ご飯をよそいなさい。
sample\new34\split.hsp - 2018/05/04

statusbar.hsp
#include "mod_stbar.as" screen 0,640,480 stbar_ini ステータスバー作成 screen 1,640,480 stbar_ini ステータスバー作成 oncmd gosub *event_WM_SIZE, 0x0005 WM_SIZE割り込み gsel 0 stbar_text "テストです" テキストを設定 gsel 1 stbar_text "リサイズに対応しています" テキストを設定 stop *event_WM_SIZE
sample\new34\statusbar.hsp - 2018/05/04

strtrim.hsp
strtrimサンプル s=" A B C D E F " mes " -空白(半角スペース)の処理 " mes "もとの文字列["+s+"]" mes "両端のスペースを削除["+strtrim(s)+"]" mes "左端のスペースを削除["+strtrim(s,1)+"]" mes "右端のスペースを削除["+strtrim(s,2)+"]" mes "すべてのスペースを削除["+strtrim(s,3)+"]" s=" こんにちは 全角文字です " zenspace=" "
sample\new34\strtrim.hsp - 2018/05/04