スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ
koitaro
2007/3/13(Tue) 12:24:46|NO.6259
この記事に返信する
Irisawa
2007/3/13(Tue) 13:23:29|NO.6261
; 拡張マクロを有効にしてください p1 = 10.0 ; p1 = 20.0025 ; p1 = 0.1 buf = str(p1) mes "元の数値: " + buf ; 後ろから 0 を削除する for i, strlen(buf) - 1, instr(buf, , "."), -1 switch peek(buf, i) case '0' poke buf, i, 0 if peek(buf, i - 1) = '.' { poke buf, i - 1, 0 } swbreak default _break swbreak swend next mes "変換後: " + buf stop
2007/3/13(Tue) 13:32:46|NO.6262
p1 = 10.0 ; p1 = 20.0025 ; p1 = 0.1 buf = str(p1) mes "元の数値: " + buf ; 後ろから 0 を削除する e = instr(buf, , ".") - 1 for i, strlen(buf) - 1, e, -1 switch peek(buf, i) case '0' case '.' poke buf, i, 0 swbreak default _break swbreak swend next mes "変換後: " + buf stop
kz3
2007/3/13(Tue) 14:06:13|NO.6263
#define ctype f(%1) strf("%%%%f = %%f ",%1)+strf("%%%%e = %%e ",%1)+strf("%%%%g = %%g",%1) mes f(10.0) mes f(20.002500) mes f(0.1000000)
2007/3/13(Tue) 14:52:36|NO.6265
2007/3/13(Tue) 15:06:31|NO.6266
トップ | HSP3ダウンロード | HSPTVで遊ぶ | HSPで作る | サイト情報 | プライバシーポリシー | お問合せ
ONION software Copyright 1997-2023(c) All rights reserved.