HSPTV!掲示板

進数計算をHSPで作ってみました。
まだ私は中学生ですが、数学に興味があったので試しに作ってみました。
(16→10)

ssy="FF";入力文字列
ssd=0;変換後の文字を代入

//----1文字を読み込み
repeat strlen(ssy)
ftt1="":ftt1=strmid(ssy,strlen(ssy)-cnt-1,1);1文字ずつ読み込む(右から読み込む)
fft2=getpath(ftt1,16);小文字変換

//----文字に変換
ftt3=0

if fft2="a"{ftt3=10:goto *main1}
if fft2="b"{ftt3=11:goto *main1}
if fft2="c"{ftt3=12:goto *main1}
if fft2="d"{ftt3=13:goto *main1}
if fft2="e"{ftt3=14:goto *main1}
if fft2="f"{ftt3=15:goto *main1}
if int(fft2)>-1&int(fft2)<11{ftt3=int(fft2)}
*main1

//----進数の計算につかう乗を計算しておく
zi=1;乗数を代入
repeat cnt:zi*16:loop

//----
ssd+ftt3*zi;文字列を計算して代入
loop

//--表示
mes "変換前:"+ssy+""
mes "変換後:"+ssd+""

えっ

あ、うん
すごいよ！(出来ればその程度で投下はやめてくれ・・・)


　　　　　　「strf命令」

>>@keyさん
strf命令は知っていたのですが、自分で作ってみたかったのです。

strfを使っても変換できない桁には自作するしかない。
その程度で投下はやめてくれとか言う以前にスレの種類がひとりごとなので
嫌ならみなければいい＆返信しなければいいだけじゃ？

>>数学に興味があったので試しに作ってみました
>>命令は知っていたのですが、自分で作ってみたかったのです。

その通り、そういう好奇心がプログラムを楽しくするのです。

ついでだから教科書の公式も作ってみましょう。
数式として表示するのは大分難しくなりますが、数値として表示させる
だけなら、答え合わせぐらいには使えるでしょう。

ヘロンの公式・余弦定理・三角関数・微積分・無限級数・飽和水蒸気圧
など、作ってみると何かと便利な場合があります。

違うやり方をやってみた。

16進数 -> 10進数　変換

ssy="FF";入力文字列
ssd=0;変換後の文字を代入

//----1文字を読み込み
ssyln = strlen(ssy)
repeat ssyln
	ftt1 = "" : ftt1=strmid(ssy, ssyln-cnt-1,1);1文字ずつ読み込む(右から読み込む)
	fft2 = getpath(ftt1,16);小文字変換
	
	//----文字に変換
	ftt3=0
	
	; 文字コードを利用する
	v = wpeek(fft2, 0)
	if (v<48) | ((57<v)&(v<97)) | (102<v) : v = 48	;エラー値は0とみなす
	if v > 57 {
		;a-f
		v = v - 97 + 10
	} else {
		;0-9
		v = v - 48
	}

	//----進数の桁を調整
	; 元が16進数なので4ビットシフト
	v = v<<(cnt*4)
	
	//----結果（この場合どっちの表記でもいいですね）
	ssd |= v	; ssd += v
loop

//--表示
mes "変換前:"+ssy+""
mes "変換後:"+ssd+""

> 「strf命令」

うーん…どうやったらstrf命令で16進数文字列->10進数変換できるんでしょうか。
みんさんで来てるらしいので気になります。

こんな方法でもできますよ

	moto = "FF";255
	mes int("$"+moto)

これが一番単純で簡単だと思います

>どうやったらstrf命令で16進数文字列->10進数変換できるんでしょうか。
0x じゃなく $ じゃないと文字列では駄目なようですね。

	mes strf("%d", $FF)
	mes strf("%d", 0xFF)
	mes strf("%d", "$FF")
	mes strf("%d", "0xFF")
	mes strf("%X", 255)
	mes strf("%X", "255")

ってこれ数値になってないですねボケてました...。
無理やりやるならこうですかね
int(strf("%d", $FF))
でもそれなら、それこそ
int("$"+0xFF) 十分でしたね
お目汚し失礼しました。